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

24
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
@@ -892,10 +892,10 @@ DEFINE CLASS c_foxbin2prg AS SESSION
LOCAL lnCount, I LOCAL lnCount, I
lnCount = 0 lnCount = 0
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
tcFileMask = EVL(tcFileMask, '*') tcFileMask = EVL(tcFileMask, '*')
FOR I = 1 TO .n_ProcessedFiles FOR I = 1 TO .n_ProcessedFiles
IF LIKE( tcFileMask, JUSTFNAME(.a_ProcessedFiles(I,1)) ) THEN IF LIKE( tcFileMask, JUSTFNAME(.a_ProcessedFiles(I,1)) ) THEN
lnCount = lnCount + 1 lnCount = lnCount + 1
@@ -908,7 +908,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
ENDIF ENDIF
ENDFOR ENDFOR
ENDWITH ENDWITH
RETURN lnCount RETURN lnCount
ENDFUNC ENDFUNC
@@ -2733,7 +2733,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG' LOCAL loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
loLang = _SCREEN.o_FoxBin2Prg_Lang loLang = _SCREEN.o_FoxBin2Prg_Lang
IF toEx.ErrorNo = 1799 THEN && Conversion Cancelled IF toEx.ErrorNo = 1799 THEN && Conversion Cancelled
tcErrorInfo = loLang.C_CONVERSION_CANCELLED_BY_USER_LOC tcErrorInfo = loLang.C_CONVERSION_CANCELLED_BY_USER_LOC
ELSE ELSE
@@ -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
@@ -15999,7 +15999,7 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
LPARAMETERS tcHeader, tnPos, tnLen, tnID, tcDataType, tcPropName, teData LPARAMETERS tcHeader, tnPos, tnLen, tnID, tcDataType, tcPropName, teData
LOCAL lnOffset, llRetorno LOCAL lnOffset, llRetorno
TRY TRY
WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG' WITH THIS AS CL_DBC_BASE OF 'FOXBIN2PRG.PRG'
tnPos = EVL(tnPos,1) tnPos = EVL(tnPos,1)
@@ -16038,13 +16038,13 @@ DEFINE CLASS CL_DBC_BASE AS CL_CUS_BASE
PROCEDURE read_DBC_Header PROCEDURE read_DBC_Header
LOCAL lnLen, lnID, leData, lcHeader, lnPos, lcPropName, lcDataType, lnOffset LOCAL lnLen, lnID, leData, lcHeader, lnPos, lcPropName, lcDataType, lnOffset
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.
IF NOT .readNext_DBC_HeaderDataRecord( @lcHeader, @lnPos, @lnLen, @lnID, @lcDataType, @lcPropName, @leData ) IF NOT .readNext_DBC_HeaderDataRecord( @lcHeader, @lnPos, @lnLen, @lnID, @lcDataType, @lcPropName, @leData )
EXIT EXIT
@@ -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