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

- Compilo el archivo de eventos del DBC antes de abrir el DBC porque si no da error en modo EXE

Browse Source 
- Arreglo de la ruta absoluta/relativa del archivo de eventos
This commit is contained in:
fdbozzo
2015-03-22 00:31:31 +01:00
parent 2407f45e06
commit 18e4adc0c5
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
foxbin2prg.prg
View File

@@ -14526,7 +14526,10 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
*-- creo uno temporalmente para poder abrir la BDD y luego lo elimino. *-- creo uno temporalmente para poder abrir la BDD y luego lo elimino.
IF toDatabase._DBCEvents AND NOT EMPTY(toDatabase._DBCEventFilename) THEN IF toDatabase._DBCEvents AND NOT EMPTY(toDatabase._DBCEventFilename) THEN
*-- El archivo de eventos puede tener path relativo o absoluto *-- El archivo de eventos puede tener path relativo o absoluto
IF LEFT(toDatabase._DBCEventFilename,1) = '.' THEN *-- Ajusto la ruta si no es absoluta
IF LEN(toDatabase._DBCEventFilename) > 1 ;
AND LEFT(LTRIM(toDatabase._DBCEventFilename),2) <> '\\' ;
AND SUBSTR(LTRIM(toDatabase._DBCEventFilename),2,1) <> ':' THEN
lcEventsFile = ADDBS( JUSTPATH(.c_InputFile) ) + toDatabase._DBCEventFilename lcEventsFile = ADDBS( JUSTPATH(.c_InputFile) ) + toDatabase._DBCEventFilename
ELSE ELSE
lcEventsFile = toDatabase._DBCEventFilename lcEventsFile = toDatabase._DBCEventFilename
@@ -14535,6 +14538,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
lcEventsFile = '' lcEventsFile = ''
ELSE ELSE
STRTOFILE( '', lcEventsFile ) STRTOFILE( '', lcEventsFile )
COMPILE (lcEventsFile)
ENDIF ENDIF
ENDIF ENDIF