diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 8630553..40fa78b 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -4020,7 +4020,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS c_conversor_base LOCAL lcStructure, lnSelect lnSelect = SELECT() SELECT 0 - USE (THIS.c_InputFile) AGAIN SHARED ALIAS _TABLABIN + USE (THIS.c_InputFile) SHARED AGAIN ALIAS _TABLABIN COPY STRUCTURE EXTENDED TO ( FORCEPATH( '_FRX_STRUC.DBF', ADDBS( SYS(2023) ) ) ) **** CONTINUAR SI ES NECESARIO - SIN USO POR AHORA @@ -9351,7 +9351,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg STORE NULL TO loRegClass, loRegObj WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG' - USE (.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG + USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN USE IN (SELECT("_TABLAORIG")) @@ -9573,7 +9573,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg STORE NULL TO loRegClass, loRegObj WITH THIS AS c_conversor_scx_a_prg OF 'FOXBIN2PRG.PRG' - USE (.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG + USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN USE IN (SELECT("_TABLAORIG")) @@ -9810,7 +9810,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg STORE NULL TO loProject, loReg, loServerHead, loServerData WITH THIS AS c_conversor_pjx_a_prg OF 'FOXBIN2PRG.PRG' - USE (.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG + USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN USE IN (SELECT("_TABLAORIG")) @@ -10536,7 +10536,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg STORE NULL TO loRegObj, loRegCab, loRegDataEnv, loRegCur WITH THIS AS c_conversor_pjm_a_prg OF 'FOXBIN2PRG.PRG' - USE (.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG + USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN_0 USE IN (SELECT("_TABLAORIG")) @@ -10887,7 +10887,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg STORE 0 TO lnCodError WITH THIS AS c_conversor_mnx_a_prg OF 'FOXBIN2PRG.PRG' - USE (.c_InputFile) SHARED NOUPDATE ALIAS _TABLAORIG + USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN USE IN (SELECT("_TABLAORIG")) @@ -11966,7 +11966,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE lcDBF = DBF() SELECT 0 - USE (lcDBF) AGAIN SHARED NOUPDATE ALIAS C_TABLABIN2 + USE (lcDBF) SHARED AGAIN NOUPDATE ALIAS C_TABLABIN2 IF INLIST( tcType, 'Index', 'Field' ) SELECT TB.Property FROM C_TABLABIN2 TB ; @@ -12421,7 +12421,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE lcDBF = DBF() SELECT 0 - USE (lcDBF) AGAIN SHARED NOUPDATE ALIAS C_TABLABIN2 + USE (lcDBF) SHARED AGAIN NOUPDATE ALIAS C_TABLABIN2 IF INLIST( tcType, 'Index', 'Field' ) SELECT TB.Property FROM C_TABLABIN2 TB ;