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

Arreglo para que funcione el reconocimiento del cfg particular

Browse Source
This commit is contained in:
fdbozzo
2017-03-26 00:07:03 +01:00
parent 4c5c5f5f85
commit 29b5f30ce4
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
foxbin2prg.prg
View File

@@ -1855,14 +1855,14 @@ 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
IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ; IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ;
AND ADDBS(JUSTPATH(lcConfigFile)) == ADDBS(tc_InputFile) AND UPPER(ADDBS(JUSTPATH(lcConfigFile))) == UPPER(ADDBS(tc_InputFile))
* Preservar el config indicado manualmente * Preservar el config indicado manualmente
ELSE ELSE
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', ADDBS(tc_InputFile) ) lcConfigFile = FULLPATH( 'foxbin2prg.cfg', ADDBS(tc_InputFile) )
ENDIF ENDIF
ELSE ELSE
IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ; IF NOT EMPTY(lcConfigFile) AND NOT EMPTY(JUSTPATH(lcConfigFile)) ;
AND ADDBS(JUSTPATH(lcConfigFile)) == ADDBS(JUSTPATH(tc_InputFile)) AND UPPER(ADDBS(JUSTPATH(lcConfigFile))) == UPPER(ADDBS(JUSTPATH(tc_InputFile)))
* Preservar el config indicado manualmente * Preservar el config indicado manualmente
ELSE ELSE
lcConfigFile = FULLPATH( 'foxbin2prg.cfg', tc_InputFile ) lcConfigFile = FULLPATH( 'foxbin2prg.cfg', tc_InputFile )