From c909ce2ceffbad5c62fe00d0d86690293059fa91 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Fri, 21 Mar 2014 00:06:13 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20213=20fdbozzo=20-=2019/03/2014=202?=
 =?UTF-8?q?3:33:30:=20Arreglo=20en=20salida=20por=20error=20para=20devolve?=
 =?UTF-8?q?r=20un=20c=C3=B3digo=20al=20sistema=20operativo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index d1e71c8..edb8732 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -351,19 +351,21 @@ ADDPROPERTY(_SCREEN, 'ExitCode', lnResp)
 *	RETURN lnResp
 *ENDIF
 
+SET COVERAGE TO
+
 *-- Muy útil para procesos batch que capturan el código de error
 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
 	ExitProcess(1)
+	QUIT
+ELSE
+	STORE NULL TO loEx, loCnv
+	RELEASE loEx, loCnv
+	RETURN lnResp
 ENDIF
 
-loEx	= NULL
-loCnv	= NULL
-RELEASE loEx, loCnv
-
-SET COVERAGE TO
-RETURN lnResp
-QUIT
 
 
 *******************************************************************************************************************