From 50d92817f7da1b3f3fef4c1faa761f64bd2cd933 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Thu, 17 Apr 2014 16:22:20 +0200
Subject: [PATCH] =?UTF-8?q?Changeset:=20223=20fdbozzo=20-=2017/04/2014=201?=
 =?UTF-8?q?5:50:53:=20-=20Relativizaci=C3=B3n=20del=20path=20de=20los=20CD?=
 =?UTF-8?q?X=20dentro=20de=20los=20DB2?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 480bc76..4a338a5 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -81,6 +81,7 @@
 * 16/03/2014	FDBOZZO		v1.19.17 Arreglo bugs frx/lbx: Expresiones con comillas // comment multilínea // Mejora tag2 para Tooltips // Arreglo bugs mnx
 * 22/03/2014	FDBOZZO		v1.19.18 Arreglo bug vcx/scx: Las imágenes no mantienen sus dimensiones programadas y asumen sus dimensiones reales // El comentario a nivel de librería se pierde
 * 29/03/2014	FDBOZZO		v1.19.19 Nueva caracterí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ón de directorios de CDX dentro de los DB2 para minimizar diferencias
 * </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>
 *
 *---------------------------------------------------------------------------------------------------
@@ -14705,7 +14706,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 +15077,9 @@ DEFINE CLASS CL_DBF_INDEXES AS CL_COL_BASE
 		* PARÁMETROS:				(!=Obligatorio | ?=Opcional) (@=Pasar por referencia | v=Pasar por valor) (IN/OUT)
 		* taTagInfo					(@?    OUT) Array de información de indices
 		* tnTagInfo_Count			(@?    OUT) Cantidad de í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 +15092,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