Changeset: 107 Arreglo retorno cod estado
This commit is contained in:
BIN
foxbin2prg.pjt
BIN
foxbin2prg.pjt
Binary file not shown.
BIN
foxbin2prg.pjx
BIN
foxbin2prg.pjx
Binary file not shown.
@@ -275,7 +275,7 @@ lnResp = goCnv.ejecutar( tc_InputFile, tcType_na, tcTextName_na, tlGenText_na, t
|
||||
, '', NULL, NULL, .F., tcOriginalFileName )
|
||||
|
||||
IF _VFP.STARTMODE = 0
|
||||
RETURN
|
||||
RETURN lnResp
|
||||
ENDIF
|
||||
|
||||
*-- 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))
|
||||
*SET PATH TO (lcPath)
|
||||
ENDTRY
|
||||
|
||||
RETURN lnResp
|
||||
ENDPROC
|
||||
|
||||
|
||||
@@ -7984,6 +7986,11 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg
|
||||
SCATTER FIELDS NAME,TYPE,EXCLUDE,COMMENTS,CPID,TIMESTAMP,ID,OBJREV MEMO NAME loReg
|
||||
loReg.NAME = LOWER( ALLTRIM( loReg.NAME, 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
|
||||
loProject.ADD( loReg, loReg.NAME )
|
||||
|
||||
Reference in New Issue
Block a user