Error en zap..SOLUCIONADO

[D.Fernandez]

( La solución fue abrir la BD 2 veces, una exclusiva y otra shared. Ej:

Code: Select all

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: Select all

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