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

Changeset: 151 - Arreglo en compatibilidad con SourceSafe

Browse Source
This commit is contained in:
fernando
2014-02-01 00:43:36 +01:00
parent 13d1625ae4
commit 2ee6e6e9b2
4 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
foxbin2prg.prg
View File

@@ -816,6 +816,20 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
ELSE
IF EVL(tcType,'0') <> '0' AND EVL(tcTextName,'0') <> '0'
*-- Compatibilidad con SourceSafe
IF NOT tlGenText
*-- COMPATIBILIDAD CON SOURCESAFE. 30/01/2014
*-- Create BINARIO desde versi<73>n TEXTO
*-- Como el archivo de entrada siempre es el binario cuando se usa SCCAPI,
*-- para se debe regenerar el binario (tlGenText=.F.) se debe usar como
*-- archivo de entrada tcTextName en su lugar. Aqu<71> los intercambio.
tc_InputFile = tcTextName
THIS.l_Recompile = .T.
ENDIF
ENDIF
IF FILE(tc_InputFile)
ERASE ( tc_InputFile + '.ERR' )
@@ -827,20 +841,6 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
THIS.c_LogFile = tc_InputFile + '.LOG'
IF EVL(tcType,'0') <> '0' AND EVL(tcTextName,'0') <> '0'
*-- Compatibilidad con SourceSafe
IF NOT tlGenText
*-- COMPATIBILIDAD CON SOURCESAFE. 30/01/2014
*-- Create BINARIO desde versi<73>n TEXTO
*-- Como el archivo de entrada siempre es el binario cuando se usa SCCAPI,
*-- para se debe regenerar el binario (tlGenText=.F.) se debe usar como
*-- archivo de entrada tcTextName en su lugar. Aqu<71> los intercambio.
tc_InputFile = tcTextName
THIS.l_Recompile = .T.
ENDIF
ENDIF
IF THIS.l_Debug
IF FILE( THIS.c_LogFile )
ERASE ( THIS.c_LogFile )