FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error en zap..SOLUCIONADO
Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Error en zap..SOLUCIONADO
Posted: Sat May 20, 2017 05:35 AM
( La solución fue abrir la BD 2 veces, una exclusiva y otra shared. Ej:
Code (fw): Select all Collapse
CLASS TConta from TXData
   Method New()
ENDCLASS

Method New() CLASS TConta
   ::super:New(,kruta+"contador", ,.t.)      //Aquí compartida
return self

SysRefresh()
SysWait(0.1)


//-------------------- CONTADOR --------------------------//

CLASS TContador from TXData
   Method New()
ENDCLASS

Method New() CLASS TContador
   ::super:New(,kruta+"contador", ,.f.)   //Aquí exclusiva
return self

SysRefresh()
SysWait(0.1)






Amigos tengo un error al hacer Zap...Me da el error que muestro abajo.
(En un post anterior, mio también, tengo el mismo error. Aunque dice SOLUCIONADO, no logro hacerlo funcionar en este momento.)
Code (fw): Select all Collapse
DBCONTA:=TConta():New(,contador,,.F.,  )    //Esto abre la base en modo exclusivo
If DBCONTA:Use()
   DBCONTA:SetOrder(1)
   DBCONTA:ZAP()
Else
   MsgInfo( "No fue posible bloquear el archivo.","Informe")   
Endif


Size: 5,606,912 bytes
Compiler version: Harbour 3.2.0dev (r1703231115)
FiveWin version: FWH 17.04
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 10 secs
Error occurred at: 20/05/2017, 02:28:04
Error description: Error DBFCDX/1023 Exclusive required

Stack Calls
===========
Called from: => __DBZAP( 0 )
Called from: .\source\classes\DATABASE.PRG => (b)TDATABASE( 179 )
Called from: .\source\classes\DATABASE.PRG => TCONTA:ZAP( 0 )

Gracias y saludos

Ruben Dario Fernandez
Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Continue the discussion