Reason for closing DBF file

[Natter]

Hi,

A DBF file is open (use MyFile). In some situations, it closes for no apparent reason. Is it possible to catch the moment of closing the database and find out what caused it to close ?

[paquitohm]

Yes. Use LogRdd.prg for catching close event

https://github.com/harbour/core/blob/ma ... logrdd.prg

[Natter]

Thanks ! I'll try to use it

[karinha]

Hello.. I've never seen anything like it. Can you show this via programming?

Hola..nunca había visto nada igual. ¿Puedes mostrar esto mediante programación?

Gracias. Thanks.

Regards, saludos.

[paquitohm]

Hello.. I've never seen anything like it. Can you show this via programming?

Hola..nunca había visto nada igual. ¿Puedes mostrar esto mediante programación?

Gracias. Thanks.

Regards, saludos.

https://www.youtube.com/watch?v=IeWq8iGCF2U
https://groups.google.com/g/harbour-use ... KKVcKAg0YJ

[russimicro]

Buena tarde.

Me sucede lo mismo ,,, ejp :
Application
===========
Path and name: D:\RUSSOFT\ZERUS\zeruswin.exe (32 bits)
Size: ********* bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150726)
FiveWin Version: FWHX 15.01
Windows version: 6.2, Build 9200

Time from start: 7 hours 23 mins 28 secs
Error occurred at: 09/14/2023, 15:40:37
Error description: Error DBCMD/2001 Area de trabajo no usada: DBGOTO

Stack Calls
===========
Called from: => DBGOTO( 0 )
Called from: source\classes\xbrowse.prg => (b)TXBROWSE:SETRDD( 4168 )
Called from: source\classes\xbrowse.prg => (b)TXBROWSE:TXBROWSE( 445 )
Called from: => TXBROWSE:_BOOKMARK( 0 )
Called from: source\classes\xbrowse.prg => TXBROWSE:PAINT( 1630 )
Called from: source\classes\xbrowse.prg => TXBROWSE:DISPLAY( 1376 )
Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1699 )
Called from: source\classes\xbrowse.prg => TXBROWSE:HANDLEEVENT( 12794 )
Called from: Source\Classes\window.prg => _FWH( 3450 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: C:\FWH\SOURCE\classes\dialog.prg => TDIALOG:ACTIVATE( 286 )

Favor no solicitar código de ejemplo... no son errores de sintaxis o lógica... son errores esporádicos...

Anexe el prg logprg.prg pero obtengo este error

Type: C >>>xhb.exe -o"Obj\logrdd.c" -m -n -pOObj\ -q -gc0 -I"LIBS\PS32\xHarbour" -I"C:\xHB\include" -I"C:\fwh23\include" -I"LIBS\printscript" -I"FUENTES\CAMPOS" -I"FUENTES\plann" -I"C:\xHB\c_include" -I"C:\fwh\include" -I"C:\xHB\include" -I"C:\xHB\include\w32" "FUENTES\COMUNES\logrdd.prg"<<<

xHarbour 1.2.3 Intl. (SimpLex) (Build 20150726)
Copyright 1999-2015, http://www.xharbour.org http://www.harbour-project.org/
FUENTES\COMUNES\logrdd.prg(221) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(222) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(223) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(224) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(225) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(226) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(227) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(228) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(229) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(230) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(231) Error E0030 Syntax error: "syntax error at '@'"
FUENTES\COMUNES\logrdd.prg(343) Error E0030 Syntax error: "syntax error at 'OTHERWISE'"
FUENTES\COMUNES\logrdd.prg(344) Error E0030 Syntax error: "syntax error at 'ENDSWITCH'"
FUENTES\COMUNES\logrdd.prg(389) Error E0059 Invalid SWITCH Constant 'CREATE'.
FUENTES\COMUNES\logrdd.prg(392) Error E0059 Invalid SWITCH Constant 'CREATEFIELDS'.
FUENTES\COMUNES\logrdd.prg(395) Error E0059 Invalid SWITCH Constant 'OPEN'.
FUENTES\COMUNES\logrdd.prg(398) Error E0059 Invalid SWITCH Constant 'CLOSE'.
FUENTES\COMUNES\logrdd.prg(401) Error E0059 Invalid SWITCH Constant 'APPEND'.
FUENTES\COMUNES\logrdd.prg(404) Error E0059 Invalid SWITCH Constant 'DELETE'.
FUENTES\COMUNES\logrdd.prg(407) Error E0059 Invalid SWITCH Constant 'RECALL'.
FUENTES\COMUNES\logrdd.prg(410) Error E0059 Invalid SWITCH Constant 'PUTVALUE'.
FUENTES\COMUNES\logrdd.prg(414) Error E0059 Invalid SWITCH Constant 'ZAP'.

[paquitohm]

Hola,

""Favor no solicitar código de ejemplo... no son errores de sintaxis o lógica... son errores esporádicos...""

Salu2

[karinha]

russimicro, small example?

This is definitely a logic error.

Regards, saludos.

[Jimmy]

hi,

which Type of Index do you talk about : CDX or NTX
does Error arrive when "normal work" with App or "after Lunch"

---

i had those Error when DBF "left open" while "not work" in App and Network "timeout"
those Type of App are not "Network ready" as they do not react on "Energie Saveing" and hold DBF "open"

[Rick Lipkin]

Just curious ... is this application run only on a single computer or is the app run on a network with several computers ?

Rick Lipkin

[russimicro]

Buen dia...

abreTabla("abc")

select abc
browse("abc")

// en el día se hacen más de 1000 facturas y usa este método.. esporádicamente 1 o 2 veces al día... marca error en le SELECT O BROWSE
// en mi equipo de producción no se genera ...

Por eso indique en el correo anterior : ""Favor no solicitar código de ejemplo... no son errores de sintaxis o lógica... son errores esporádicos...""

Jonsson Russi

[russimicro]

Uno de los muchos controles

FUNCTION BrowseConsulta( vConBrw, oPanBrw, cAliTab, fFunDCl,fFunEnt,fFunDel,;
fFunIns,nColPos,fFunMod,cTipCol,cVerFon,nFonBro)


LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1, campo, nPosGui := 0
LOCAL A := "IMAGEN", nRecSel := 0, oBrush, oCol , oFont, J:= 0, oErr


LOCAL aRowGrad
LOCAL aSelGrad
LOCAL XaSelGrad

IF SELECT(cAliTab) == 0
ALERTA("Error. Tabla a visualizar con browseConsulta(), no disponible :"+cAliTab)
RETURN NIL
ENDIF


@ 0,0 XBROWSE oBrwFW2 OF oPanBrw;
AUTOSORT FOOTERS FASTEDIT LINES CELL

[russimicro]

Para controlar doble intento de abrrir la misma ventana

IF FindWindow( 0, cTitVen ) > 0
MYMEN("Aviso. Ventana ya esta  en ejecucion : "+cTitVen)
RETURN .F.
ENDIF

[russimicro]

Los índices son CDX, con ads remote se minimizan los errores...

[Rick Lipkin]

Again ... does this error occur on multiple computers or a single machine ?

Rick Lipkin