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

4
foxbin2prg.prg
View File

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