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

- Agregado el ordenamiento alfabético de los índices de las tablas

Browse Source
This commit is contained in:
fdbozzo
2015-03-15 20:06:41 +01:00
parent 9f966a547d
commit cc41fc1c2e
1 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
foxbin2prg.prg
View File

@@ -682,7 +682,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
n_ID = 0 n_ID = 0
n_FileHandle = 0 n_FileHandle = 0
n_Order_View_Fields = 1 n_Order_View_Fields = 1
n_ProcessedFiles = 0 && Contador usado para los archivos file.class.ext n_ProcessedFiles = 0 && Contador usado para los archivos file.class.ext
n_ProcessedFilesCount = 0 && Contador gen<65>rico de procesados n_ProcessedFilesCount = 0 && Contador gen<65>rico de procesados
o_Conversor = NULL o_Conversor = NULL
o_Frm_Avance = NULL o_Frm_Avance = NULL
@@ -14035,7 +14035,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
#ENDIF #ENDIF
TRY TRY
LOCAL lnCodError, laDatabases(1), lnDatabases_Count, lcEventsFile LOCAL lnCodError, laDatabases(1), lnDatabases_Count, lcEventsFile
STORE 0 TO lnCodError STORE 0 TO lnCodError
@@ -14099,7 +14099,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
ERASE (FORCEEXT(lcEventsFile,'FXP')) ERASE (FORCEEXT(lcEventsFile,'FXP'))
ENDIF ENDIF
RELEASE toDatabase, toEx, toFoxBin2Prg ; RELEASE toDatabase, toEx, toFoxBin2Prg ;
, lnCodError, laDatabases, lnDatabases_Count , lnCodError, laDatabases, lnDatabases_Count
ENDTRY ENDTRY
RETURN RETURN
@@ -16042,7 +16042,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
TRY TRY
WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG'
GO TOP IN TABLABIN GO TOP IN TABLABIN
lcHeader = TABLABIN.property lcHeader = TABLABIN.Property
._Name = UPPER( JUSTFNAME( DBF("TABLABIN") ) ) ._Name = UPPER( JUSTFNAME( DBF("TABLABIN") ) )
DO WHILE .T. DO WHILE .T.
@@ -17558,6 +17558,7 @@ DEFINE CLASS CL_DBC_INDEXES_DB AS CL_DBC_COL_BASE
SELECT LOWER(TB.objectName) FROM TABLABIN TB ; SELECT LOWER(TB.objectName) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ; INNER JOIN TABLABIN TB2 ON STR(TB.ParentID)+TB.ObjectType = STR(TB2.ObjectID)+PADR('Index',10) ;
AND TB2.objectName = PADR(LOWER(tcTable),128) ; AND TB2.objectName = PADR(LOWER(tcTable),128) ;
ORDER BY 1 ;
INTO ARRAY laIndexes INTO ARRAY laIndexes
lnIndex_Count = _TALLY lnIndex_Count = _TALLY
@@ -19473,6 +19474,7 @@ DEFINE CLASS CL_DBF_INDEXES AS CL_COL_BASE
ENDTEXT ENDTEXT
tnTagInfo_Count = ATAGINFO( taTagInfo ) tnTagInfo_Count = ATAGINFO( taTagInfo )
ASORT( taTagInfo, 1, -1, 0, 1 )
loIndex = CREATEOBJECT("CL_DBF_INDEX") loIndex = CREATEOBJECT("CL_DBF_INDEX")
FOR I = 1 TO tnTagInfo_Count FOR I = 1 TO tnTagInfo_Count