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

Arreglado lo del Outputfile y el Locate

Browse Source
This commit is contained in:
fdbozzo
2017-03-27 23:34:55 +02:00
parent 530c8ead62
commit 4adcc2f771
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
foxbin2prg.prg
View File

@@ -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 IF toFoxBin2Prg.n_RedirectClassType = 1 && Redireccionar solo esta clase a main
llReplaceClass = .T. llReplaceClass = .T.
toFoxBin2Prg.c_OutputFile = FORCEEXT( lcBaseFilename, 'VCX' ) toFoxBin2Prg.c_OutputFile = FULLPATH( FORCEEXT( lcBaseFilename, 'VCX' ), .c_InputFile)
toFoxBin2Prg.doBackup( .F., .T., '', '', '' ) toFoxBin2Prg.doBackup( .F., .T., '', '', '' )
IF ADIR( laFiles, toFoxBin2Prg.c_OutputFile, "", 1 ) = 1 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 IF tlReplaceClass
I = 1 I = 1
loClase = toModulo._Clases(I) 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() llReplace = FOUND()
ENDIF ENDIF