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

Incompleto - por algún motivo no lo termina de poder usar el nuevo CFG

Browse Source
This commit is contained in:
fdbozzo
2017-03-25 14:03:59 +01:00
parent 62aefbfb3a
commit 4c5c5f5f85
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
foxbin2prg.prg
View File

@@ -1854,9 +1854,19 @@ DEFINE CLASS c_foxbin2prg AS Session
IF .l_Main_CFG_Loaded AND NOT EMPTY(tc_InputFile) AND NOT tcInputFile_Type == C_FILETYPE_QUERYSUPPORT THEN IF .l_Main_CFG_Loaded AND NOT EMPTY(tc_InputFile) AND NOT tcInputFile_Type == C_FILETYPE_QUERYSUPPORT THEN
IF tcInputFile_Type == C_FILETYPE_DIRECTORY THEN IF tcInputFile_Type == C_FILETYPE_DIRECTORY THEN
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', ADDBS(tc_InputFile) ) IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ;
AND ADDBS(JUSTPATH(lcConfigFile)) == ADDBS(tc_InputFile)
* Preservar el config indicado manualmente
ELSE
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', ADDBS(tc_InputFile) )
ENDIF
ELSE ELSE
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', tc_InputFile ) IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ;
AND ADDBS(JUSTPATH(lcConfigFile)) == ADDBS(JUSTPATH(tc_InputFile))
* Preservar el config indicado manualmente
ELSE
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', tc_InputFile )
ENDIF
ENDIF ENDIF
ENDIF ENDIF