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

Changeset: 213 fdbozzo - 19/03/2014 23:33:30:

Browse Source 
Arreglo en salida por error para devolver un código al sistema operativo
This commit is contained in:
fdbozzo
2014-03-21 00:06:13 +01:00
parent fe189cb8e3
commit c909ce2cef
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
foxbin2prg.prg
View File

@@ -351,19 +351,21 @@ ADDPROPERTY(_SCREEN, 'ExitCode', lnResp)
* RETURN lnResp * RETURN lnResp
*ENDIF *ENDIF
SET COVERAGE TO
*-- 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
IF _VFP.STARTMODE > 1 AND NOT EMPTY(lnResp) AND VARTYPE(loEx) = "O" IF _VFP.STARTMODE > 1 AND NOT EMPTY(lnResp) AND VARTYPE(loEx) = "O"
STORE NULL TO loEx, loCnv
RELEASE loEx, loCnv
DECLARE ExitProcess IN Win32API INTEGER ExitCode DECLARE ExitProcess IN Win32API INTEGER ExitCode
ExitProcess(1) ExitProcess(1)
QUIT
ELSE
STORE NULL TO loEx, loCnv
RELEASE loEx, loCnv
RETURN lnResp
ENDIF ENDIF
loEx = NULL
loCnv = NULL
RELEASE loEx, loCnv
SET COVERAGE TO
RETURN lnResp
QUIT
******************************************************************************************************************* *******************************************************************************************************************