romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 142 v1.19.4

Browse Source 
- Agregada devolución de nCodError cuando ocurre un error en Ejecutar()
This commit is contained in:
fernando
2014-01-23 15:35:00 +01:00
parent 31cd7c999f
commit 434a515bd7
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
foxbin2prg.prg
View File

@@ -577,12 +577,12 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
, toModulo, toEx AS EXCEPTION, tlRelanzarError, tcOriginalFileName, tcRecompile , toModulo, toEx AS EXCEPTION, tlRelanzarError, tcOriginalFileName, tcRecompile
TRY TRY
LOCAL I, lcPath, lnResp, lcFileSpec, lcFile, laFiles(1,5), laConfig(1), lcConfigFile, lcExt ; LOCAL I, lcPath, lnCodError, lcFileSpec, lcFile, laFiles(1,5), laConfig(1), lcConfigFile, lcExt ;
, llExisteConfig, lcConfData, lnFileCount ; , llExisteConfig, lcConfData, lnFileCount ;
, loEx AS EXCEPTION ; , loEx AS EXCEPTION ;
, loFSO AS Scripting.FileSystemObject , loFSO AS Scripting.FileSystemObject
lnResp = 0 lnCodError = 0
SET DELETED ON SET DELETED ON
SET DATE YMD SET DATE YMD
@@ -601,12 +601,12 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
CASE VERSION(5) < 900 CASE VERSION(5) < 900
*-- '<27>FOXBIN2PRG es solo para Visual FoxPro 9.0!' *-- '<27>FOXBIN2PRG es solo para Visual FoxPro 9.0!'
MESSAGEBOX( C_FOXBIN2PRG_JUST_VFP_9_LOC, 0+64+4096, C_FOXBIN2PRG_WARN_CAPTION_LOC, 60000 ) MESSAGEBOX( C_FOXBIN2PRG_JUST_VFP_9_LOC, 0+64+4096, C_FOXBIN2PRG_WARN_CAPTION_LOC, 60000 )
lnResp = 1 lnCodError = 1
CASE EMPTY(tc_InputFile) CASE EMPTY(tc_InputFile)
*-- (Ejemplo de sintaxis y uso) *-- (Ejemplo de sintaxis y uso)
MESSAGEBOX( FOXBIN2PRG_INFO_SINTAX_LOC, 0+64+4096, 'FOXBIN2PRG: SINTAXIS INFO', 60000 ) MESSAGEBOX( FOXBIN2PRG_INFO_SINTAX_LOC, 0+64+4096, 'FOXBIN2PRG: SINTAXIS INFO', 60000 )
lnResp = 1 lnCodError = 1
OTHERWISE OTHERWISE
*-- Ejecuci<63>n normal *-- Ejecuci<63>n normal
@@ -682,7 +682,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
IF FILE( lcFile ) IF FILE( lcFile )
lnResp = THIS.Convertir( lcFile, toModulo, toEx, tlRelanzarError, tcOriginalFileName ) lnCodError = THIS.Convertir( lcFile, toModulo, toEx, tlRelanzarError, tcOriginalFileName )
ENDIF ENDIF
ENDFOR ENDFOR
@@ -705,13 +705,14 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THIS.writeLog( THIS.c_Foxbin2prg_FullPath + ' - FileSpec: ' + EVL(tc_InputFile,'') ) THIS.writeLog( THIS.c_Foxbin2prg_FullPath + ' - FileSpec: ' + EVL(tc_InputFile,'') )
ENDIF ENDIF
lnResp = THIS.Convertir( tc_InputFile, toModulo, toEx, tlRelanzarError, tcOriginalFileName ) lnCodError = THIS.Convertir( tc_InputFile, toModulo, toEx, tlRelanzarError, tcOriginalFileName )
ENDIF ENDIF
ENDCASE ENDCASE
ENDCASE ENDCASE
CATCH TO toEx CATCH TO toEx
lnCodError = toEx.ErrorNo
ADDPROPERTY(_SCREEN, 'ExitCode', toEx.ERRORNO) ADDPROPERTY(_SCREEN, 'ExitCode', toEx.ERRORNO)
IF llExisteConfig IF llExisteConfig
THIS.writeLog( 'ERROR: ' + TRANSFORM(toEx.ERRORNO) + ', ' + toEx.MESSAGE + CR_LF ; THIS.writeLog( 'ERROR: ' + TRANSFORM(toEx.ERRORNO) + ', ' + toEx.MESSAGE + CR_LF ;
@@ -732,7 +733,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*SET PATH TO (lcPath) *SET PATH TO (lcPath)
ENDTRY ENDTRY
RETURN lnResp RETURN lnCodError
ENDPROC ENDPROC