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

Changeset: 103 Arreglo C_ENDWITH

Browse Source
This commit is contained in:
fernando
2013-12-19 01:22:19 +01:00
parent 22021c64e9 3749d7de62
commit 95f7cb660a
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

13
foxbin2prg.prg
View File

@@ -277,9 +277,7 @@ ENDIF
*-- Muy <20>til para procesos batch que capturan el c<>digo de error *-- Muy <20>til para procesos batch que capturan el c<>digo de error
DECLARE ExitProcess in Win32API INTEGER ExitCode DECLARE ExitProcess in Win32API INTEGER ExitCode
IF EMPTY(lnResp) IF NOT EMPTY(lnResp)
ExitProcess(0)
ELSE
ExitProcess(1) ExitProcess(1)
ENDIF ENDIF
@@ -454,7 +452,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
DO CASE DO CASE
CASE '*' $ JUSTEXT( tc_InputFile ) OR '?' $ JUSTEXT( tc_InputFile ) CASE '*' $ JUSTEXT( tc_InputFile ) OR '?' $ JUSTEXT( tc_InputFile )
IF THIS.l_ShowErrors IF THIS.l_ShowErrors
MESSAGEBOX( ASTERISK_EXT_NOT_ALLOWED_LOC, 0+48+4096, 'FOXBIN2PRG: ERROR!!', 10000 ) MESSAGEBOX( ASTERISK_EXT_NOT_ALLOWED_LOC, 0+48+4096, 'FOXBIN2PRG: ERROR!!', 60000 )
ELSE ELSE
ERROR ASTERISK_EXT_NOT_ALLOWED_LOC ERROR ASTERISK_EXT_NOT_ALLOWED_LOC
ENDIF ENDIF
@@ -533,6 +531,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
CD (JUSTPATH(THIS.c_CurDir)) CD (JUSTPATH(THIS.c_CurDir))
*SET PATH TO (lcPath) *SET PATH TO (lcPath)
ENDTRY ENDTRY
RETURN lnResp
ENDPROC ENDPROC
@@ -662,7 +662,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THIS.writeLog( lcErrorInfo ) THIS.writeLog( lcErrorInfo )
ENDIF ENDIF
IF THIS.l_Debug AND THIS.l_ShowErrors IF THIS.l_Debug AND THIS.l_ShowErrors
MESSAGEBOX( lcErrorInfo, 0+16+4096, 'FOXBIN2PRG: ERROR!!', 10000 ) MESSAGEBOX( lcErrorInfo, 0+16+4096, 'FOXBIN2PRG: ERROR!!', 60000 )
ENDIF ENDIF
IF tlRelanzarError && Usado en Unit Testing IF tlRelanzarError && Usado en Unit Testing
THROW THROW
@@ -7968,6 +7968,9 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
loReg.NAME = LOWER( ALLTRIM( loReg.NAME, 0, ' ', CHR(0) ) ) loReg.NAME = LOWER( ALLTRIM( loReg.NAME, 0, ' ', CHR(0) ) )
loReg.COMMENTS = CHRTRAN( ALLTRIM( loReg.COMMENTS, 0, ' ', CHR(0) ), ['], ["] ) loReg.COMMENTS = CHRTRAN( ALLTRIM( loReg.COMMENTS, 0, ' ', CHR(0) ), ['], ["] )
*-- TIP: Por alg<6C>n motivo el NAME puede estar vac<61>o. Asigno uno temporal que muestre el error.
loReg.NAME = EVL(loReg.NAME, 'BadName_FixIt')
TRY TRY
loProject.ADD( loReg, loReg.NAME ) loProject.ADD( loReg, loReg.NAME )
CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified key already exists ==> loProject.ADD( loReg, loReg.NAME ) CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified key already exists ==> loProject.ADD( loReg, loReg.NAME )