Page 1 of 1

oMiBase:zap() me da error SOLUCIONADO

Posted: Tue Mar 15, 2016 3:26 am
by 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

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 12:09 pm
by Antonio Linares
Ruben,

Que error te genera ?

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 12:36 pm
by 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

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 12:48 pm
by karinha

Code: Select all

USE MIBASE EXCLUSIVE NEW

__ZAP()

 

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 12:52 pm
by D.Fernandez
Si, gracias, pero con Tdatabase me genera error en la linea 177 de Database.prg

Saludos y gracias.

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 5:58 pm
by Kleyber
Ruben,

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

Re: oMiBase:zap() me da error

Posted: Tue Mar 15, 2016 10:39 pm
by D.Fernandez
Kleyber, EXCELENTE. Funcionó, muc has gracias.

Saludos

Ruben Fernandez