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

Bug Fix: Cuando se procesan múltiples archivos, a veces los errores no se muestran

Browse Source
This commit is contained in:
fdbozzo
2015-06-20 14:20:34 +02:00
parent 55f299389a 0047990e26
commit 72e03bba22
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
foxbin2prg.prg
View File

@@ -2989,7 +2989,7 @@ DEFINE CLASS c_foxbin2prg AS Session
CASE lnCodError = 1799 && Conversion Cancelled
MESSAGEBOX( loLang.C_CONVERSION_CANCELLED_BY_USER_LOC + '!', 0+64+4096, 'FoxBin2Prg ' + THIS.c_FB2PRG_EXE_Version, 60000 )
CASE THIS.l_Error
CASE THIS.l_Errors
IF ADIR(laDirInfo, THIS.c_ErrorLogFile) > 0 THEN
MESSAGEBOX( loLang.C_END_OF_PROCESS_LOC + '! (' + loLang.C_WITH_ERRORS_LOC + ')', 0+48+4096, 'FoxBin2Prg ' + THIS.c_FB2PRG_EXE_Version, 60000 )
loWSH.Run( THIS.c_ErrorLogFile, 3 )
@@ -3004,14 +3004,10 @@ DEFINE CLASS c_foxbin2prg AS Session
ENDCASE
IF EMPTY(lnCodError) AND THIS.l_Error
IF EMPTY(lnCodError) AND THIS.l_Errors
lnCodError = 1098
ENDIF
IF lnCodError > 0 THEN
THIS.l_Errors = .T.
ENDIF
SET NOTIFY &lc_OldSetNotify.
STORE NULL TO loFSO, loWSH
RELEASE tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug, tcDontShowProgress ;
@@ -4116,6 +4112,7 @@ DEFINE CLASS c_foxbin2prg AS Session
.errOut(tcText)
.l_Error = .T.
.l_Errors = .T.
ENDWITH
CATCH
ENDTRY