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

- 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

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.
IF toDatabase._DBCEvents AND NOT EMPTY(toDatabase._DBCEventFilename) THEN
*-- 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
ELSE
lcEventsFile = toDatabase._DBCEventFilename
@@ -14535,6 +14538,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
lcEventsFile = ''
ELSE
STRTOFILE( '', lcEventsFile )
COMPILE (lcEventsFile)
ENDIF
ENDIF