diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 6ccbab0..5922edd 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -2877,8 +2877,6 @@ DEFINE CLASS c_conversor_base AS SESSION + [] ; + [] ; + [] ; - + [] ; - + [] ; + [] ; + [] @@ -2911,8 +2909,6 @@ DEFINE CLASS c_conversor_base AS SESSION c_OriginalFileName = '' c_ClaseActual = '' oFSO = NULL - n_Avance_Proceso = 0 - n_Avance_Maximo = 0 ******************************************************************************************************************* @@ -6590,7 +6586,6 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin ENDIF lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines *-- Identifico los TEXT/ENDTEXT, #IF .F./#ENDIF .AvanceDelProceso( 'Identifying Excluded Blocks...', 3, lnCodeLines, 1 ) @@ -6928,7 +6923,6 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin ENDIF lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines *-- Identifico los TEXT/ENDTEXT, #IF .F./#ENDIF .AvanceDelProceso( 'Identifying Excluded Blocks...', 3, lnCodeLines, 1 ) @@ -7244,7 +7238,6 @@ DEFINE CLASS c_conversor_prg_a_pjx AS c_conversor_prg_a_bin C_FB2PRG_CODE = FILETOSTR( .c_InputFile ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) @@ -8043,7 +8036,6 @@ DEFINE CLASS c_conversor_prg_a_frx AS c_conversor_prg_a_bin C_FB2PRG_CODE = FILETOSTR( .c_InputFile ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) @@ -8475,7 +8467,6 @@ DEFINE CLASS c_conversor_prg_a_dbf AS c_conversor_prg_a_bin WITH THIS AS c_conversor_prg_a_dbf OF 'FOXBIN2PRG.PRG' C_FB2PRG_CODE = FILETOSTR( .c_InputFile ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) @@ -8772,7 +8763,6 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin WITH THIS AS c_conversor_prg_a_dbc OF 'FOXBIN2PRG.PRG' C_FB2PRG_CODE = FILETOSTR( .c_InputFile ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) @@ -8953,7 +8943,6 @@ DEFINE CLASS c_conversor_prg_a_mnx AS c_conversor_prg_a_bin WITH THIS AS c_conversor_prg_a_mnx OF 'FOXBIN2PRG.PRG' C_FB2PRG_CODE = FILETOSTR( .c_InputFile ) lnCodeLines = ALINES( laCodeLines, C_FB2PRG_CODE ) - .n_Avance_Maximo = lnCodeLines toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) @@ -11066,7 +11055,6 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg WITH THIS AS c_conversor_vcx_a_prg OF 'FOXBIN2PRG.PRG' USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN - .n_Avance_Maximo = _TALLY lnStepCount = 7 USE IN (SELECT("_TABLAORIG")) @@ -11357,7 +11345,6 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg WITH THIS AS c_conversor_scx_a_prg OF 'FOXBIN2PRG.PRG' USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN - .n_Avance_Maximo = _TALLY USE IN (SELECT("_TABLAORIG")) INDEX ON PADR(LOWER(PLATFORM + IIF(EMPTY(PARENT),'',ALLTRIM(PARENT)+'.')+OBJNAME),240) TAG PARENT_OBJ OF TABLABIN ADDITIVE @@ -11661,7 +11648,6 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg WITH THIS AS c_conversor_pjx_a_prg OF 'FOXBIN2PRG.PRG' USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN - .n_Avance_Maximo = _TALLY USE IN (SELECT("_TABLAORIG")) loServerHead = CREATEOBJECT('CL_PROJ_SRV_HEAD') @@ -12388,7 +12374,6 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg ENDIF SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN_0 - .n_Avance_Maximo = _TALLY USE IN (SELECT("_TABLAORIG")) *-- Header @@ -12780,7 +12765,6 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg WITH THIS AS c_conversor_mnx_a_prg OF 'FOXBIN2PRG.PRG' USE (.c_InputFile) SHARED AGAIN NOUPDATE ALIAS _TABLAORIG SELECT * FROM _TABLAORIG INTO CURSOR TABLABIN - .n_Avance_Maximo = _TALLY USE IN (SELECT("_TABLAORIG")) .AvanceDelProceso( 'Analyzing MNX...', 1, 2, 1 )