Funciona ZAP ?

[Carles]

Antonio,

Funciona ZAP ?

Code: Select all

FUNCTION Main()

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


    USE (cTable) NEW

    IF MsgYesNo( 'Borra ?' )

       __DbZap()

    ENDIF

RETU .F.

[Antonio Linares]

Carles,

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

Te dá algún error ?

[Carles]

Antonio,

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

Gracias.