From 18e4adc0c5e3d265922fc66ca21ccdcb160fbaad Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sun, 22 Mar 2015 00:31:31 +0100
Subject: [PATCH] - 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

---
 foxbin2prg.prg | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 42f7539..2fc5d3a 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -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