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

Changeset: 223 fdbozzo - 17/04/2014 15:50:53:

Browse Source 
- Relativización del path de los CDX dentro de los DB2
This commit is contained in:
fdbozzo
2014-04-17 16:22:20 +02:00
parent 8dc1df9df1
commit 50d92817f7
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
foxbin2prg.prg
View File

@@ -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>
*
*---------------------------------------------------------------------------------------------------
@@ -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<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 +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