Reason for closing DBF file

[russimicro]

Buen dia---

Ocurre en equipos locales y tambien en redes ( terminal server o unidad compartida)

[russimicro]

Stack Calls
===========
Called from: .\source\classes\PDMENU.PRG => FW_MENUDRAW( 941 )
Called from: .\source\classes\WINDOW.PRG => TMETROBTN:DRAWITEM( 1265 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
Called from: .\source\classes\BTNBMP.PRG => TMETROBTN:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => TRACKPOPUP( 0 )
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1805 )
Called from: C:\FWH23\source\classes\metropnl.prg => TMETROBTN:DESIGNMENU( 825 )
Called from: C:\FWH23\source\classes\metropnl.prg => (b)TMETROBTN:NEW( 609 )
Called from: .\source\classes\WINDOW.PRG => TMETROBTN:RBUTTONDOWN( 2188 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
Called from: .\source\classes\BTNBMP.PRG => TMETROBTN:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1118 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 7079 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => PRINCIPAL( 1341 )
Called from: FUENTES\MAIN\ZerusMain.prg => ZERUSMAIN( 4225 )
Called from: zeruswin.prg => MAIN( 17 )


Time from start: 3 hours 18 mins 13 secs
Error occurred at: 09/18/2023, 18:47:05
Error description: Error BASE/1002 No existe el alias: CLI

Stack Calls
===========

// como comente anteriormente ... en este punto esporádicamente se da el error ( puede suceder después de miles de pasos exitosos por este proceso )...
// y asi puede suceder en cualquier parte del codigo.... se cierra la app...

Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA_( 647 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA( 59 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => (b)TOUCHMENU3( 7608 )
Called from: source\classes\metropnl.prg => (b)TMETROBTN:NEW( 607 )
Called from: Source\Classes\window.prg => TWINDOW:LBUTTONUP( 2121 )
Called from: Source\Classes\control.prg => TCONTROL:LBUTTONUP( 677 )
Called from: Source\Classes\btnbmp.prg => TMETROBTN:LBUTTONUP( 718 )
Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1723 )
Called from: Source\Classes\btnbmp.prg => TMETROBTN:HANDLEEVENT( 1557 )
Called from: Source\Classes\window.prg => _FWH( 3450 )
Called from: => WINRUN( 0 )
Called from: Source\Classes\window.prg => TWINDOW:ACTIVATE( 1152 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 6411 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => PRINCIPAL( 1323 )
Called from: FUENTES\MAIN\ZerusMain.prg => ZERUSMAIN( 4107 )
Called from: FUENTES\MAIN\ZerusWin.prg => MAIN( 17 )

[russimicro]

Time from start: 0 hours 5 mins 3 secs
Error occurred at: 09/18/2023, 17:03:32
Error description: Error BASE/1002 No existe el alias: ART

Stack Calls
===========
Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 656 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA_( 871 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA( 71 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => (b)TOUCHMENU3( 8306 )
Called from: C:\FWH23\source\classes\metropnl.prg => (b)TMETROBTN:NEW( 618 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LBUTTONUP( 2115 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:LBUTTONUP( 721 )
Called from: .\source\classes\BTNBMP.PRG => TMETROBTN:LBUTTONUP( 1036 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
Called from: .\source\classes\BTNBMP.PRG => TMETROBTN:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1118 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 7079 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => PRINCIPAL( 1341 )
Called from: FUENTES\MAIN\ZerusMain.prg => ZERUSMAIN( 4225 )
Called from: zeruswin.prg => MAIN( 17 )

[karinha]

????

Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 7079 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => PRINCIPAL( 1341 )

algo no está bien en estas dos FUNCTIONS.

Regards, saludos.

[russimicro]

Time from start: 10 hours 50 mins 45 secs
Error occurred at: 09/19/2023, 18:31:36
Error description: Error BASE/1002 No existe el alias: CLI

Stack Calls
===========
Called from: => DBSETRELATION( 0 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTELEC.PRG => ENVIAFEL( 593 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => (b)BROWSEMY( 5171 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 792 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1083 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 1016 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1844 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3693 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
Called from: FUENTES\COMUNES\FW_FUNCSST1.PRG => BROWSEMY( 5351 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTELEC.PRG => ESTADOFE( 329

[russimicro]

Time from start: 0 hours 2 mins 27 secs
Error occurred at: 09/19/2023, 10:41:33
Error description: Error BASE/1002 No existe el alias: CAD

Stack Calls
===========
Called from: FUENTES\CEMENTERIO\FW_REGISTRO_CEMENTERIO.PRG => CONSULTARCADAVER( 9894 )
Called from: FUENTES\CEMENTERIO\FW_REGISTRO_CEMENTERIO.PRG => (b)LEEREGISTROSCEMENTERIO( 567 )
Called from: Source\Classes\btnbmp.prg => TBTNBMP:CLICK( 536 )
Called from: Source\Classes\btnbmp.prg => TBTNBMP:LBUTTONUP( 764 )
Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1723 )
Called from: Source\Classes\btnbmp.prg => TBTNBMP:HANDLEEVENT( 1557 )
Called from: Source\Classes\window.prg => _FWH( 3450 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: Source\Classes\dialog.prg => TDIALOG:ACTIVATE( 286 )
Called from: FUENTES\CEMENTERIO\FW_REGISTRO_CEMENTERIO.PRG => REGISTROCEMENTERIO( 319 )
Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => SELECCIONAMESAS( 19454 )


Time from start: 6 hours 8 mins 5 secs
Error occurred at: 09/19/2023, 17:20:05
Error description: Error BASE/1002 No existe el alias: LEC

Stack Calls
===========
Called from: FUENTES\COMUNES\FUNCSLIB.PRG => SELECTAREA_INV( 27326 )
Called from: FUENTES\GESTION\INVENTARIOS\INTERFW2.PRG => LLEEMVTOS( 704 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA_( 818 )
Called from: FUENTES\GESTION\INVENTARIOS\FACTCAPT.PRG => A_FACTCAPT_CAPTURA( 57 )
Called from: FUENTES\COMUNES\FW_FUNCSST3.PRG => (b)TOUCHMENU3( 7931 )
Called from: source\classes\metropnl.prg => (b)TMETROBTN:NEW( 607 )
Called from: Source\Classes\window.prg => TWINDOW:LBUTTONUP( 2121 )
Called from: Source\Classes\control.prg => TCONTROL:LBUTTONUP( 677 )

[russimicro]

IF !lUsaTab(cPatLoc+"\",FilePag,'TEM',{},.F.,NIL,"DBFCDX")
MYMEN("Error grave. No fue posible abrir archivo : "+FilePag )
RETURN
ENDIF


SELECT TEM


TEM->( DBGOTOP() ) // hay casos como este... después de una apertura y del mismo select reporta tabla cerrada

IF FILE( PathPag+cNomTab ) // SIEMPRE SERAN DBF'S

[Jimmy]

hi,

IF !lUsaTab(cPatLoc+"\",FilePag,'TEM',{},.F.,NIL,"DBFCDX")
MYMEN("Error grave. No fue posible abrir archivo : "+FilePag )
RETURN
ENDIF

SELECT TEM

TEM->( DBGOTOP() ) // hay casos como este... después de una apertura y del mismo select reporta tabla cerrada

IF FILE( PathPag+cNomTab ) // SIEMPRE SERAN DBF'S

can you please show CODE from Function lUsaTab()

where do you "open" *.CDX and use ORDSETFOCUS()

[russimicro]

cDriVer := "DBFCDX" // PARAMETRO DE LA FUNCION

DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl)

IF ( cDriVer == "DBFCDX" .OR. cDriVer == "ADS" ) .AND. !EMPTY(cPatTab)
cNomArc := ALLTRIM(SUBS(cNomTab,1,8))+'.CDX'
IF FILE(cPatTab+cNomArc)
IF SELECT (cAliTab) <> 0
SELECT (cAliTab) // POR SI LA TABLA TIENE INDIXE Y NO SE ABRIO
(cAliTab)->( DBSETORDER(1) )
ENDIF
ENDIF
ENDIF

// YA EN LA LOGICA LO CAMBIO SEGUN NECESIDAD : (cAliTab)->( DBSETORDER(X) )