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

- Limpieza de código y garbage collect

Browse Source
This commit is contained in:
fdbozzo
2015-03-30 23:42:13 +02:00
parent a176614e26
commit 70136baa81
2 changed files with 2 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

14
foxbin2prg.prg
View File

@@ -10510,12 +10510,12 @@ DEFINE CLASS c_conversor_prg_a_dbc AS c_conversor_prg_a_bin
#ENDIF #ENDIF
TRY TRY
LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lcBaseFilename ; LOCAL lnCodError, loEx AS EXCEPTION, loReg, lcLine, laCodeLines(1), lnCodeLines, lcBaseFilename, lcInputFile ;
, lcMemberType, lcMemberName, lcLastMemberType ; , lcMemberType, lcMemberName, lcLastMemberType ;
, laLineasExclusion(1), lnBloquesExclusion, I, X, Y, laFiles(1,5), lnFileCount, lcTempTxt, laLines(1) ; , laLineasExclusion(1), lnBloquesExclusion, I, X, Y, laFiles(1,5), lnFileCount, lcTempTxt, laLines(1) ;
, loLang as CL_LANG OF 'FOXBIN2PRG.PRG' , loLang as CL_LANG OF 'FOXBIN2PRG.PRG'
STORE 0 TO lnCodError, lnCodeLines, lnFileCount STORE 0 TO lnCodError, lnCodeLines, lnFileCount
STORE '' TO lcLine, laLines, laCodeLines, lcBaseFilename, lcMemberType, lcLastMemberType, lcMemberName STORE '' TO lcLine, laLines, laCodeLines, lcBaseFilename, lcMemberType, lcLastMemberType, lcMemberName, lcInputFile
STORE NULL TO loReg, toDatabase STORE NULL TO loReg, toDatabase
WITH THIS AS c_conversor_prg_a_dbc OF 'FOXBIN2PRG.PRG' WITH THIS AS c_conversor_prg_a_dbc OF 'FOXBIN2PRG.PRG'
@@ -20130,11 +20130,6 @@ DEFINE CLASS CL_DBC_RELATIONS AS CL_DBC_COL_BASE
loRelation.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines ) loRelation.analizarBloque( @tcLine, @taCodeLines, @I, tnCodeLines )
TRY TRY
*-- Renombro la relaci<63>n con un nombre m<>s <20>til
*loRelation._Name = loRelation._ParentTable + '.' + loRelation._ParentIndex ;
+ '->' + loRelation._ChildTable + '.' + loRelation._ChildIndex ;
+ ':' + loRelation._RefIntegrity ;
+ '.' + loRelation._Name + ''
.ADD( loRelation, loRelation._Name ) .ADD( loRelation, loRelation._Name )
CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists. CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists.
*-- Saltear este error, porque implica que la relaci<63>n est<73> duplicada *-- Saltear este error, porque implica que la relaci<63>n est<73> duplicada
@@ -20256,11 +20251,6 @@ DEFINE CLASS CL_DBC_RELATIONS AS CL_DBC_COL_BASE
IF laRelations(I,1) == UPPER( RTRIM( tcTable ) ) IF laRelations(I,1) == UPPER( RTRIM( tcTable ) )
loRelation = CREATEOBJECT('CL_DBC_RELATION') loRelation = CREATEOBJECT('CL_DBC_RELATION')
loRelation.read_BinDataToProperties( @laRelations, I ) loRelation.read_BinDataToProperties( @laRelations, I )
*-- Renombro la relaci<63>n con un nombre m<>s <20>til
*loRelation._Name = loRelation._ParentTable + '.' + loRelation._ParentIndex ;
+ '->' + loRelation._ChildTable + '.' + loRelation._ChildIndex ;
+ ':' + loRelation._RefIntegrity
TRY TRY
.ADD( loRelation, loRelation._Name ) .ADD( loRelation, loRelation._Name )
CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists. CATCH TO loEx WHEN loEx.ERRORNO = 2062 && The specified Key already exists.