From 4adcc2f77168d5268190ac53bb838904e8dd2e4b Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Mon, 27 Mar 2017 23:34:55 +0200
Subject: [PATCH] Arreglado lo del Outputfile y el Locate

---
 foxbin2prg.prg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index e1cdb9d..f8fd11b 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -10098,7 +10098,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 
 				IF toFoxBin2Prg.n_RedirectClassType = 1 && Redireccionar solo esta clase a main
 					llReplaceClass	= .T.
-					toFoxBin2Prg.c_OutputFile = FORCEEXT( lcBaseFilename, 'VCX' )
+					toFoxBin2Prg.c_OutputFile = FULLPATH( FORCEEXT( lcBaseFilename, 'VCX' ), .c_InputFile)
 					toFoxBin2Prg.doBackup( .F., .T., '', '', '' )
 
 					IF ADIR( laFiles, toFoxBin2Prg.c_OutputFile, "", 1 ) = 1
@@ -10227,7 +10227,7 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
 				IF tlReplaceClass
 					I			= 1
 					loClase		= toModulo._Clases(I)
-					LOCATE FOR PLATFORM == PADR('WINDOWS', FSIZE('PLATFORM')) AND OBJNAME == PADR(loClase._ObjName, FSIZE('OBJNAME'))
+					LOCATE FOR PLATFORM == PADR('WINDOWS', FSIZE('PLATFORM')) AND OBJNAME == loClase._ObjName
 					llReplace	= FOUND()
 				ENDIF