oMiBase:zap() me da error SOLUCIONADO

[D.Fernandez]

Hola a todos:
Amigos uso en estas lineas oMiBase:zap(), pero me genera error. Alguna sugerencia?

Codigo:
oMibase:Tmov():New(, liquida,,.f.) //exclusiva
If oMiBase:Use()
If oMiBase:lock()
oMiBase:zap()
Else
MsgInfo("no exclu")
Endif
Else
MsgInfo("No use")
Endif


Saludos y gracias.
Ruben D. Fernandez

[Antonio Linares]

Ruben,

Que error te genera ?

[D.Fernandez]

Antonio el error que tengo es DBF/CDX, dice que no tengo la base abierta exclusiva y yo creo que si.

Gracias
Saludos

[karinha]

Code: Select all

USE MIBASE EXCLUSIVE NEW

__ZAP()

 

[D.Fernandez]

Si, gracias, pero con Tdatabase me genera error en la linea 177 de Database.prg

Saludos y gracias.

[Kleyber]

Ruben,

Quita el
If oMiBase:lock()
Y intenta nuevamente.

[D.Fernandez]

Kleyber, EXCELENTE. Funcionó, muc has gracias.

Saludos

Ruben Fernandez