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

Changeset: 198 fdbozzo - 09/03/2014 10:26:12:

Browse Source 
Mostrar los errores cuando se usa FoxBin2Prg directamente y no mostrarlos por defecto en los scripts
This commit is contained in:
fdbozzo
2014-03-09 14:22:19 +01:00
parent ce3a9324ef
commit 59a79a0436
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
foxbin2prg.prg
View File

@@ -445,7 +445,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
l_ConfigEvaluated = .F. l_ConfigEvaluated = .F.
l_Debug = .F. l_Debug = .F.
l_Test = .F. l_Test = .F.
l_ShowErrors = .F. l_ShowErrors = .T.
l_ShowProgress = .F. l_ShowProgress = .F.
l_Recompile = .F. l_Recompile = .F.
l_NoTimestamps = .T. l_NoTimestamps = .T.
@@ -748,7 +748,11 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
.writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowProgress: ' + TRANSFORM(tcDontShowProgress) ) .writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowProgress: ' + TRANSFORM(tcDontShowProgress) )
CASE LEFT( laConfig(I), 15 ) == LOWER('DontShowErrors:') CASE LEFT( laConfig(I), 15 ) == LOWER('DontShowErrors:')
tcDontShowErrors = ALLTRIM( SUBSTR( laConfig(I), 16 ) ) *-- Priorizo si tcDontShowErrors NO viene con "0" como par<61>metro, ya que los scripts vbs
*-- los utilizan para sobreescribir la configuraci<63>n por defecto de foxbin2prg.cfg
IF NOT tcDontShowErrors == '0'
tcDontShowErrors = ALLTRIM( SUBSTR( laConfig(I), 16 ) )
ENDIF
.writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowErrors: ' + TRANSFORM(tcDontShowErrors) ) .writeLog( JUSTFNAME(lcConfigFile) + ' > tcDontShowErrors: ' + TRANSFORM(tcDontShowErrors) )
CASE LEFT( laConfig(I), 13 ) == LOWER('NoTimestamps:') CASE LEFT( laConfig(I), 13 ) == LOWER('NoTimestamps:')
@@ -804,7 +808,9 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
.l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1') .l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1')
.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1') IF NOT EMPTY(tcDontShowErrors)
.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1')
ENDIF
.l_Recompile = (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile)) .l_Recompile = (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile))
.l_NoTimestamps = NOT (TRANSFORM(tcNoTimestamps) == '0') .l_NoTimestamps = NOT (TRANSFORM(tcNoTimestamps) == '0')
.l_Debug = (TRANSFORM(tcDebug)=='1') .l_Debug = (TRANSFORM(tcDebug)=='1')
@@ -1082,7 +1088,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
THIS.writeLog( lcErrorInfo ) THIS.writeLog( lcErrorInfo )
ENDIF ENDIF
IF THIS.l_Debug AND THIS.l_ShowErrors IF THIS.l_ShowErrors
MESSAGEBOX( lcErrorInfo, 0+16+4096, C_FOXBIN2PRG_ERROR_CAPTION_LOC, 60000 ) MESSAGEBOX( lcErrorInfo, 0+16+4096, C_FOXBIN2PRG_ERROR_CAPTION_LOC, 60000 )
ENDIF ENDIF
IF tlRelanzarError IF tlRelanzarError
@@ -1090,6 +1096,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ENDIF ENDIF
FINALLY FINALLY
THIS.writeLog_Flush()
IF THIS.l_ShowProgress AND VARTYPE(THIS.o_Frm_Avance) = "O" IF THIS.l_ShowProgress AND VARTYPE(THIS.o_Frm_Avance) = "O"
THIS.o_Frm_Avance.HIDE() THIS.o_Frm_Avance.HIDE()
THIS.o_Frm_Avance.RELEASE() THIS.o_Frm_Avance.RELEASE()
@@ -1341,7 +1348,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
FINALLY FINALLY
loFSO = NULL loFSO = NULL
THIS.o_Conversor = NULL THIS.o_Conversor = NULL
THIS.writeLog_Flush() *THIS.writeLog_Flush()
ENDTRY ENDTRY