FiveTech Software tech support forums

Posted: **Tue Sep 12, 2006 7:26 am**

Antonio,

Funciona ZAP ?

FUNCTION Main()

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


    USE (cTable) NEW

    IF MsgYesNo( 'Borra ?' )

       __DbZap()

    ENDIF

RETU .F.

Posted: **Tue Sep 12, 2006 7:50 am**

Carles,

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

Te dá algún error ?

Posted: **Tue Sep 12, 2006 8:36 am**

Antonio,

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

Gracias.