Changeset: 226 - Relativización del path de los CDX dentro de los DB2

- Recompilación del EventsFile del DBC, si existe, para evitar errores al regenerar el DBC

foxbin2prg.pj2

@@ -18,15 +18,15 @@ _State = "MAD"
 _PostalCode = "28823"
 _Country = "Spain"
 *--
-_Comments = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
+_Comments = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx,pjm,mnx,frx,lbx,dbf,dbc) a texto para sustituir al scctext :-)"
 _CompanyName = "Fernando D. Bozzo"
 _FileDescription = "Conversor bidireccional de binarios FoxPro 9 (scx,vcx,pjx) a texto para sustituir al scctext :-)"
-_LegalCopyright = "Open Source -  LICENCIA Creative Commons:	Reconocimiento - CompartirIgual (by-sa): http://es.creativecommons.org/blog/licencias/"
-_LegalTrademark = "Open Source"
-_ProductName = " FOXBIN2PRG"
+_LegalCopyright = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
+_LegalTrademark = "Creative Commons 4:	Reconocimiento - CompartirIgual (by-sa): http://creativecommons.org/licenses/by/4.0/"
+_ProductName = " FOXBIN2PRG v1.19.20"
 _MajorVer = "1"
 _MinorVer = "19"
-_Revision = " 313"
+_Revision = " 317"
 _LanguageID = "1034"
 _AutoIncrement = "1"
 *</DevInfo>

foxbin2prg.prg

@@ -81,6 +81,7 @@
 * 16/03/2014	FDBOZZO		v1.19.17 Arreglo bugs frx/lbx: Expresiones con comillas // comment multil<69>nea // Mejora tag2 para Tooltips // Arreglo bugs mnx
 * 22/03/2014	FDBOZZO		v1.19.18 Arreglo bug vcx/scx: Las im<69>genes no mantienen sus dimensiones programadas y asumen sus dimensiones reales // El comentario a nivel de librer<65>a se pierde
 * 29/03/2014	FDBOZZO		v1.19.19 Nueva caracter<65>stica: Hooks al regenerar DBF para poder realizar procesos intermedios, como la carga de datos del DBF regenerado desde una fuente externa
+* 17/04/2014	FDBOZZO		v1.19.20 Relativizaci<63>n de directorios de CDX dentro de los DB2 para minimizar diferencias
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -6834,6 +6835,10 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
 			lnCodError	= 0
 			STORE '' TO lcIndex, lcFieldDef
 
+			IF NOT EMPTY(toDatabase._DBCEventFilename) AND FILE(toDatabase._DBCEventFilename)
+				*-- Si no recompilo el EventFilename.prg, el EXE dar<61> un error (aunque el PRG no)
+				COMPILE ( ADDBS( JUSTPATH( THIS.c_OutputFile ) ) + toDatabase._DBCEventFilename )
+			ENDIF
 			toDatabase.updateDBC( THIS.c_OutputFile )
 
 			IF toFoxBin2Prg.l_Recompile
@@ -14705,7 +14710,7 @@ DEFINE CLASS CL_DBF_TABLE AS CL_CUS_BASE
 
 			*-- Indexes
 			loIndexes	= THIS._Indexes
-			lcText		= lcText + loIndexes.toText()
+			lcText		= lcText + loIndexes.toText( '', '', tc_InputFile )
 
 			TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				<<C_TABLE_F>>
@@ -15076,8 +15081,9 @@ DEFINE CLASS CL_DBF_INDEXES AS CL_COL_BASE
 		* PAR<41>METROS:				(!=Obligatorio | ?=Opcional) (@=Pasar por referencia | v=Pasar por valor) (IN/OUT)
 		* taTagInfo					(@?    OUT) Array de informaci<63>n de indices
 		* tnTagInfo_Count			(@?    OUT) Cantidad de <20>ndices
+		* tc_InputFile				(v! IN    ) Archivo de entrada (el DBF)
 		*---------------------------------------------------------------------------------------------------
-		LPARAMETERS taTagInfo, tnTagInfo_Count
+		LPARAMETERS taTagInfo, tnTagInfo_Count, tc_InputFile
 
 		EXTERNAL ARRAY taTagInfo
 
@@ -15090,7 +15096,7 @@ DEFINE CLASS CL_DBF_INDEXES AS CL_COL_BASE
 			IF TAGCOUNT() > 0
 				TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 					<<>>
-					<<>>	<<C_CDX_I>><<CDX(1)>><<C_CDX_F>>
+					<<>>	<<C_CDX_I>><<SYS(2014, CDX(1), ADDBS(JUSTPATH(tc_InputFile) ) )>><<C_CDX_F>>
 					<<>>
 					<<>>	<<C_INDEXES_I>>
 				ENDTEXT