topic-4230

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Funciona ZAP ?
Posted: Tue Sep 12, 2006 07:26 AM

Antonio,

Funciona ZAP ?

FUNCTION Main()

    LOCAL cTable := Curdir() + '\Test.dbf'


    USE (cTable) NEW

    IF MsgYesNo( 'Borra ?' )

       __DbZap()

    ENDIF

RETU .F.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Funciona ZAP ?
Posted: Tue Sep 12, 2006 07:50 AM

Carles,

Debería funcionar correctamente, ya que es algo propio de Harbour.

Te dá algún error ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Funciona ZAP ?
Posted: Tue Sep 12, 2006 08:36 AM

Antonio,

Rectifico: Funciona, pero en la pocket, NO en el emulador.

Gracias.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

FiveTech Support Forums

Continue the discussion