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

Changeset: 107 Arreglo retorno cod estado

Browse Source
This commit is contained in:
fernando
2013-12-21 00:30:33 +01:00
parent 822b2d488f
commit 4d888d2449
3 changed files with 8 additions and 1 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.

9
foxbin2prg.prg
View File

@@ -275,7 +275,7 @@ lnResp = goCnv.ejecutar( tc_InputFile, tcType_na, tcTextName_na, tlGenText_na, t
, '', NULL, NULL, .F., tcOriginalFileName ) , '', NULL, NULL, .F., tcOriginalFileName )
IF _VFP.STARTMODE = 0 IF _VFP.STARTMODE = 0
RETURN RETURN lnResp
ENDIF 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
@@ -541,6 +541,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
@@ -7985,6 +7987,11 @@ 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: Si el "Name" del objeto est<73> vac<61>o, lo salteo
IF EMPTY(loReg.NAME)
LOOP
ENDIF
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 )