DBCMD/2001 Workarea not in use: ORDKEYNO

[mterraz]

Estimados colegas,
Estoy trabajando con una aplicacion que utiliza un xbrowse y aleatoreamente al momento de desplazarse por el listado se presenta este error y no puedo identificar si es un problema con el xbrowse, la red, o con la aplicacion en si misma.

Quizas el problema surge porque estoy ejecutando el codeblock del bchange de xbrowse y alli utiliza scopes... si se les ha presentado este error y me pueden ayudar se los agredecere.

Applicación
===========
Path and name: Y:\winfar64.exe (32 bits)
Size: 6,752,256 bytes
Compiler version: Harbour 3.2.0dev (r2008190002)
FiveWin version: FWH 18.03
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 1 hours 17 mins 15 secs
Error ocurrido: 20/01/22, 11:17:33
Description del error: Error DBCMD/2001 Workarea not in use: ORDKEYNO

Stack Calls
===========
Llamado desde: => ORDKEYNO( 0 )
Llamado desde: .\source\classes\XBROWSE.PRG => (b)TXBROWSE_SETRDD( 5089 )
Llamado desde: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 509 )
Llamado desde: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYNO( 0 )
Llamado desde: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 621 )
Llamado desde: .\source\classes\XBROWSE.PRG => TXBROWSE:VUPDATEPOS( 0 )
Llamado desde: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 505 )
Llamado desde: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
Llamado desde: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1698 )
Llamado desde: .\wincredi.prg => (b)CREDITOS( 343 )
Llamado desde: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 )
Llamado desde: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1685 )
Llamado desde: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 261 )
Llamado desde: .\source\classes\WINDOW.PRG => _FWH( 3388 )
Llamado desde: => SENDMESSAGE( 0 )
Llamado desde: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 408 )
Llamado desde: => TWINDOW:HANDLEEVENT( 0 )
Llamado desde: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 907 )
Llamado desde: => DIALOGBOX( 0 )
Llamado desde: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Llamado desde: .\wincredi.prg => CREDITOS( 368 )
Llamado desde: .\winfar64.prg => (b)MAIN( 484 )
Llamado desde: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 693 )
Llamado desde: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 944 )
Llamado desde: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
Llamado desde: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1909 )
Llamado desde: .\source\classes\WINDOW.PRG => _FWH( 3388 )
Llamado desde: => WINRUN( 0 )
Llamado desde: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1043 )
Llamado desde: .\winfar64.prg => MAIN( 995 )

Muchas gracias .
Saludos Mariano

[karinha]

Muestre:

Code: Select all  Expand view  RUN

Llamado desde: .\wincredi.prg => (b)CREDITOS( 343 )  // bad

Llamado desde: .\wincredi.prg => CREDITOS( 368 )
 

Saludos

[mterraz]

Hola mucho gusto,
Debajo esta el boton desde donde llama al bchange del xbrowse y el ON CHANGE del mismo.

Linea 343
REDEFINE BUTTONBMP oBtn[1] RESOURCE 'b_xprint' ID 4022 OF oCred ACTION ( sound(), if(oP:lPFaCajero, LlenaVentasConCredito(oDbf:Nrofac),;
( ComoPaga(),ProcesaCredito(nOp,lCopia))),;
oBrwFac:refresh(),EVAL(oBrwFac:bChange),oBrwFac:SetFocus()) TEXTRIGHT



.... ON CHANGE DEL BROWSE
REDEFINE XBROWSE oBrwFac ID 4003 OF oCred ;
ON CHANGE if( wffactu->tpocomp = 'CRE',;
( oDbf:Load(),;
oBtn[1]:Disable(),oBtn[2]:Enable(),oBtn[3]:Enable(),;
nTotOs:= oDbf:Acoso + oDbf:Accos1 + oDbf:Accos2 + oDbf:Accos3 + oDbf:Accos4 ,;
oRad[1]:Disable(),oRad[2]:Disable(),oRad[3]:Disable(),oRad[4]:Disable(),oRad[5]:Disable(),;
oRad[6]:Disable(),oRad[7]:Disable(), aCredito:={},oBrwTic:SetArray(aCredito) ,;
oP:cFacNom:=space(25),oP:cFacdir:=space(25),oP:nCuit := 0,oP:nDni:= 0 ,;
oBrwTic:Refresh(),oBrwTic:MakeTotals(),oCred:Update() ) ,;
( oDbf:load(), ;
nNroTick:=oDbf:Nrofac ,;
oBtn[1]:Enable() ,oBtn[2]:Disable(),oBtn[3]:Disable() ,;
oP:cFacNom:=space(25),oP:cFacdir:=space(25),oP:nCuit := 0,oP:nDni:= 0 ,;
if( !empty(oDbf:Efectivo) ,oRad[1]:Enable(),oRad[1]:Disable()),;
if( !empty(oDbf:Acdebito) ,oRad[2]:Enable(),oRad[2]:Disable()),;
if( !empty(oDbf:AcTarj ) ,oRad[3]:Enable(),oRad[3]:Disable()),;
if( !empty(oDbf:Actarj2 ) ,oRad[4]:Enable(),oRad[4]:Disable()),;
if( !empty(oDbf:cheque ) ,oRad[5]:Enable(),oRad[5]:Disable()),;
if( !empty(oDbf:tcanasta) ,oRad[6]:Enable(),oRad[6]:Disable()),;
if( !empty(oDbf:Acctacte) ,oRad[7]:Enable(),oRad[7]:Disable()),;
if( !empty(oDbf:efectivo),oSay[1]:SetColor(CLR_HRED,CLR_WHITE),oSay[1]:SetColor(CLR_BLACK,CLR_YELLOW)) ,;
if( !empty(oDbf:Acdebito),oSay[2]:SetColor(CLR_HRED,CLR_WHITE),oSay[2]:SetColor(CLR_WHITE,METRO_OLIVE)) ,;
if( !empty(oDbf:Actarj) ,oSay[3]:SetColor(CLR_HRED,CLR_WHITE),oSay[3]:SetColor(CLR_BLACK,CLR_BARRAMOS)) ,;
if( !empty(oDbf:Actarj2),oSay[4]:SetColor(CLR_HRED,CLR_WHITE),oSay[4]:SetColor(CLR_BLACK,CLR_BARRAMOS)) ,;
if( !empty(oDbf:Acctacte),oSay[5]:SetColor(CLR_HRED,CLR_WHITE),oSay[5]:SetColor(CLR_BLACK,CLR_CREMAOS)) ,;
if( !empty(oDbf:cheque),oSay[6]:SetColor(CLR_HRED,CLR_WHITE),oSay[6]:SetColor(CLR_BLACK,CLR_VERDEOS)) ,;
if( !empty(oDbf:tcanasta),oSay[7]:SetColor(CLR_HRED,CLR_WHITE),oSay[7]:SetColor(CLR_BLACK,CLR_ACUA)) ,;
nTotOs:= oDbf:Acoso + oDbf:Accos1 + oDbf:Accos2 + oDbf:Accos3 + oDbf:Accos4 ,;
wfmovpro->(OrdScope(0,nNroTick)),;
wfmovpro->(OrdScope(1,nNroTick)),;
wfmovpro->(Dbgotop()),;
aCredito:={} ,;
wfmovpro->(Dbeval({|| AADD( aCredito,{ '',wfmovpro->codint,wfmovpro->producto,;
if(empty(wfmovpro->cant),wfmovpro->unidades,wfmovpro->cant),;
wfmovpro->preuni,;
wfmovpro->iva,wfmovpro->acos,wfmovpro->acaf,wfmovpro->total,wfmovpro->cober,;
wfmovpro->descuento,wfmovpro->cobos,wfmovpro->totos,wfmovpro->cobco1, wfmovpro->totco1,;
wfmovpro->cobco2, wfmovpro->totco2,wfmovpro->cobco3, wfmovpro->totco3,;
wfmovpro->cobco4, wfmovpro->totco4,0,if(empty(wfmovpro->iva),'A','B'),.F.,'' })})) ,;
wfmovpro->(dBgotop()) ,;
oBrwTic:SetArray(aCredito) ,;
oBrwTic:Refresh(),oBrwTic:Gotop(),oBrwTic:MakeTotals(),oCred:Update() ) ) ;
....
Saludos Mariano

[karinha]

intente asi e muestre como hace la apertura de la BD, esta correcto? oDbf:... Mira todo; usando TDATABASE, correcto?

Code: Select all  Expand view  RUN

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

FUNCTION ...
 

Regards, saludos.