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

Changeset: 71 Changeset: 71 Generación texto DBC (DB2) completa

Browse Source
This commit is contained in:
fernando
2013-12-10 23:24:56 +01:00
parent 17d7876e07
commit 5f5c94eedb
1 changed files with 198 additions and 181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

189
foxbin2prg.prg
View File

@@ -6075,7 +6075,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS toReg LPARAMETERS toReg
TRY TRY
LOCAL lc_TAG_REPORTE, loEx as Exception LOCAL lc_TAG_REPORTE, loEx AS EXCEPTION
lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' '
lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>' lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>'
@@ -6187,7 +6187,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS toReg LPARAMETERS toReg
TRY TRY
LOCAL lc_TAG_REPORTE, loEx as Exception LOCAL lc_TAG_REPORTE, loEx AS EXCEPTION
lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' '
lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>' lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>'
@@ -6299,7 +6299,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
LPARAMETERS toReg LPARAMETERS toReg
TRY TRY
LOCAL lc_TAG_REPORTE, loEx as Exception LOCAL lc_TAG_REPORTE, loEx AS EXCEPTION
lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' ' lc_TAG_REPORTE_I = '<' + C_TAG_REPORTE + ' '
lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>' lc_TAG_REPORTE_F = '</' + C_TAG_REPORTE + '>'
@@ -6411,7 +6411,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
PROCEDURE write_DBF_HEADER PROCEDURE write_DBF_HEADER
LPARAMETERS tn_HexFileType, tl_FileHasCDX, tl_FileHasMemo, tl_FileIsDBC, tc_DBC_Name LPARAMETERS tn_HexFileType, tl_FileHasCDX, tl_FileHasMemo, tl_FileIsDBC, tc_DBC_Name
TRY TRY
LOCAL laFields(1,18), loEx as Exception LOCAL laFields(1,18), loEx AS EXCEPTION
*FOR I = 1 TO AFIELDS(laFields) *FOR I = 1 TO AFIELDS(laFields)
* IF INLIST( laFields(I,2), 'M', 'Q', 'V', 'W' ) * IF INLIST( laFields(I,2), 'M', 'Q', 'V', 'W' )
@@ -6452,7 +6452,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
******************************************************************************************************************* *******************************************************************************************************************
PROCEDURE write_DBF_FIELDS PROCEDURE write_DBF_FIELDS
TRY TRY
LOCAL I, laFields(1,18), loEx as Exception LOCAL I, laFields(1,18), loEx AS EXCEPTION
TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
@@ -6505,7 +6505,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
******************************************************************************************************************* *******************************************************************************************************************
PROCEDURE write_DBF_INDEXES PROCEDURE write_DBF_INDEXES
TRY TRY
LOCAL I, loEx as Exception LOCAL I, loEx AS EXCEPTION
IF TAGCOUNT() > 0 IF TAGCOUNT() > 0
TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
@@ -6548,19 +6548,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
******************************************************************************************************************* *******************************************************************************************************************
PROCEDURE write_DBC_HEADER PROCEDURE write_DBC_HEADER
TRY TRY
LOCAL I, lcText, lcDBC, loEx as Exception LOCAL I, lcText, lcDBC, loEx AS EXCEPTION
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>>
*-----------------------------------------------------------------------------------
*-- DATABASE INFO
*-----------------------------------------------------------------------------------
ENDTEXT
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<DATABASE> <DATABASE>
<<>> <Name><<lcDBC>></Name> <<>> <Name><<lcDBC>></Name>
<<>> <Comment><<DBGETPROP(lcDBC,"DATABASE","Comment")>></Comment> <<>> <Comment><<DBGETPROP(lcDBC,"DATABASE","Comment")>></Comment>
@@ -6568,6 +6561,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <DBCEvents><<DBGETPROP(lcDBC,"DATABASE","DBCEvents")>></DBCEvents> <<>> <DBCEvents><<DBGETPROP(lcDBC,"DATABASE","DBCEvents")>></DBCEvents>
<<>> <DBCEventFilename><<DBGETPROP(lcDBC,"DATABASE","DBCEventFilename")>></DBCEventFilename> <<>> <DBCEventFilename><<DBGETPROP(lcDBC,"DATABASE","DBCEventFilename")>></DBCEventFilename>
</DATABASE> </DATABASE>
<<>>
ENDTEXT ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + lcText C_FB2PRG_CODE = C_FB2PRG_CODE + lcText
@@ -6592,26 +6586,25 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
EXTERNAL ARRAY taConnections EXTERNAL ARRAY taConnections
TRY TRY
LOCAL I, lcText, lcDBC, loEx as Exception LOCAL I, lcText, lcDBC, loEx AS EXCEPTION
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
DIMENSION taConnections(1) DIMENSION taConnections(1)
tnConnection_Count = ADBOBJECTS( taConnections,"CONNECTION" ) tnConnection_Count = ADBOBJECTS( taConnections,"CONNECTION" )
IF tnConnection_Count > 0
ASORT( taConnections, 1, -1, 0, 1 ) ASORT( taConnections, 1, -1, 0, 1 )
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>>
<CONNECTIONS>
*-----------------------------------------------------------------------------------
*-- CONNECTIONS INFO
*-----------------------------------------------------------------------------------
ENDTEXT ENDTEXT
FOR I = 1 TO tnConnection_Count FOR I = 1 TO tnConnection_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<CONNECTION> <<>> <CONNECTION>
<<>> <Name><<taConnections(I)>></Name> <<>> <Name><<taConnections(I)>></Name>
<<>> <Comment><<DBGETPROP(taConnections(I),"CONNECTION","Comment")>></Comment> <<>> <Comment><<DBGETPROP(taConnections(I),"CONNECTION","Comment")>></Comment>
<<>> <DataSource><<DBGETPROP(taConnections(I),"CONNECTION","DataSource")>></DataSource> <<>> <DataSource><<DBGETPROP(taConnections(I),"CONNECTION","DataSource")>></DataSource>
@@ -6630,11 +6623,17 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <Transactions><<DBGETPROP(taConnections(I),"CONNECTION","Transactions")>></Transactions> <<>> <Transactions><<DBGETPROP(taConnections(I),"CONNECTION","Transactions")>></Transactions>
<<>> <UserId><<DBGETPROP(taConnections(I),"CONNECTION","UserId")>></UserId> <<>> <UserId><<DBGETPROP(taConnections(I),"CONNECTION","UserId")>></UserId>
<<>> <WaitTime><<DBGETPROP(taConnections(I),"CONNECTION","WaitTime")>></WaitTime> <<>> <WaitTime><<DBGETPROP(taConnections(I),"CONNECTION","WaitTime")>></WaitTime>
</CONNECTION> <<>> </CONNECTION>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</CONNECTIONS>
<<>>
ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + lcText C_FB2PRG_CODE = C_FB2PRG_CODE + lcText
ENDIF
CATCH TO loEx CATCH TO loEx
IF THIS.l_Debug AND _VFP.STARTMODE = 0 IF THIS.l_Debug AND _VFP.STARTMODE = 0
@@ -6656,27 +6655,26 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
EXTERNAL ARRAY taTables EXTERNAL ARRAY taTables
TRY TRY
LOCAL I, X, lcText, lcDBC, lnField_Count, laFields(1), loEx as Exception LOCAL I, X, lcText, lcDBC, lnField_Count, laFields(1), loEx AS EXCEPTION
STORE 0 TO I, X, tnTable_Count, lnField_Count STORE 0 TO I, X, tnTable_Count, lnField_Count
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
DIMENSION taTables(1) DIMENSION taTables(1)
tnTable_Count = ADBOBJECTS( taTables,"TABLE" ) tnTable_Count = ADBOBJECTS( taTables,"TABLE" )
IF tnTable_Count > 0
ASORT( taTables, 1, -1, 0, 1 ) ASORT( taTables, 1, -1, 0, 1 )
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>>
<TABLES>
*-----------------------------------------------------------------------------------
*-- TABLES INFO
*-----------------------------------------------------------------------------------
ENDTEXT ENDTEXT
FOR I = 1 TO tnTable_Count FOR I = 1 TO tnTable_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<TABLE> <<>> <TABLE>
<<>> <Name><<taTables(I)>></Name> <<>> <Name><<taTables(I)>></Name>
<<>> <Comment><<DBGETPROP(taTables(I),"TABLE","Comment")>></Comment> <<>> <Comment><<DBGETPROP(taTables(I),"TABLE","Comment")>></Comment>
<<>> <Path><<DBGETPROP(taTables(I),"TABLE","Path")>></Path> <<>> <Path><<DBGETPROP(taTables(I),"TABLE","Path")>></Path>
@@ -6690,50 +6688,58 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
_TALLY = 0 _TALLY = 0
SELECT LOWER(TB.objectname) FROM TABLABIN TB ; SELECT LOWER(TB.objectname) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.parentid)+PADR('Table',10) = STR(TB2.objectid)+TB2.objecttype ; INNER JOIN TABLABIN TB2 ON STR(TB.parentid)+TB.objecttype = STR(TB2.objectid)+PADR('Field',10) ;
WHERE STR(TB2.parentid)+TB2.objecttype+TB2.objectname = STR(1)+PADR('Table',10)+PADR(LOWER(taTables(I)),128) ; AND TB2.objectname = PADR(LOWER(taTables(I)),128) ;
INTO ARRAY laFields INTO ARRAY laFields
lnField_Count = _TALLY lnField_Count = _TALLY
IF lnField_Count > 0 IF lnField_Count > 0
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> *-- FIELDS <<>>
<<>> <FIELD> <<>> <FIELDS>
ENDTEXT ENDTEXT
FOR X = 1 TO lnField_Count FOR X = 1 TO lnField_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> <Name><<RTRIM(laFields(I))>></Name> <<>> <FIELD>
<<>> <Caption><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","Caption")>></Caption> <<>> <Name><<RTRIM(laFields(X))>></Name>
<<>> <Comment><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","Comment")>></Comment> <<>> <Caption><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","Caption")>></Caption>
<<>> <DefaultValue><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","DefaultValue")>></DefaultValue> <<>> <Comment><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","Comment")>></Comment>
<<>> <DisplayClass><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","DisplayClass")>></DisplayClass> <<>> <DefaultValue><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","DefaultValue")>></DefaultValue>
<<>> <DisplayClassLibrary><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","DisplayClassLibrary")>></DisplayClassLibrary> <<>> <DisplayClass><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","DisplayClass")>></DisplayClass>
<<>> <Format><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","Format")>></Format> <<>> <DisplayClassLibrary><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","DisplayClassLibrary")>></DisplayClassLibrary>
<<>> <InputMask><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","InputMask")>></InputMask> <<>> <Format><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","Format")>></Format>
<<>> <RuleExpression><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","RuleExpression")>></RuleExpression> <<>> <InputMask><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","InputMask")>></InputMask>
<<>> <RuleText><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(I)),"FIELD","RuleText")>></RuleText> <<>> <RuleExpression><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","RuleExpression")>></RuleExpression>
<<>> <RuleText><<DBGETPROP( RTRIM(taTables(I)) + '.' + RTRIM(laFields(X)),"FIELD","RuleText")>></RuleText>
<<>> </FIELD>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> </FIELD> <<>> </FIELDS>
ENDTEXT ENDTEXT
ENDIF ENDIF
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</TABLE> <<>> </TABLE>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</TABLES>
<<>>
ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + lcText C_FB2PRG_CODE = C_FB2PRG_CODE + lcText
ENDIF
CATCH TO loEx CATCH TO loEx
IF BETWEEN(I, 1, tnTable_Count) IF BETWEEN(I, 1, tnTable_Count)
loEx.UserValue = loEx.UserValue + CR_LF + "taTables(" + TRANSFORM(I) + ") = " + RTRIM(taTables(I)) loEx.USERVALUE = loEx.USERVALUE + CR_LF + "taTables(" + TRANSFORM(I) + ") = " + RTRIM(taTables(I))
ENDIF ENDIF
IF BETWEEN(X, 1, lnField_Count) IF BETWEEN(X, 1, lnField_Count)
loEx.UserValue = loEx.UserValue + CR_LF + "laFields(" + TRANSFORM(X) + ") = " + RTRIM(laFields(I)) loEx.USERVALUE = loEx.USERVALUE + CR_LF + "laFields(" + TRANSFORM(X) + ") = " + RTRIM(laFields(X))
ENDIF ENDIF
IF THIS.l_Debug AND _VFP.STARTMODE = 0 IF THIS.l_Debug AND _VFP.STARTMODE = 0
@@ -6758,27 +6764,26 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
EXTERNAL ARRAY taViews EXTERNAL ARRAY taViews
TRY TRY
LOCAL I, lcText, lcDBC, lnField_Count, laFields(1), loEx as Exception LOCAL I, lcText, lcDBC, lnField_Count, laFields(1), loEx AS EXCEPTION
STORE 0 TO I, X, tnView_Count, lnField_Count STORE 0 TO I, X, tnView_Count, lnField_Count
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
DIMENSION taViews(1) DIMENSION taViews(1)
tnView_Count = ADBOBJECTS( taViews,"VIEW" ) tnView_Count = ADBOBJECTS( taViews,"VIEW" )
IF tnView_Count > 0
ASORT( taViews, 1, -1, 0, 1 ) ASORT( taViews, 1, -1, 0, 1 )
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>>
<VIEWS>
*-----------------------------------------------------------------------------------
*-- VIEWS INFO
*-----------------------------------------------------------------------------------
ENDTEXT ENDTEXT
FOR I = 1 TO tnView_Count FOR I = 1 TO tnView_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<VIEW> <<>> <VIEW>
<<>> <Name><<taViews(I)>></Name> <<>> <Name><<taViews(I)>></Name>
<<>> <Comment><<DBGETPROP(taViews(I),"VIEW","Comment")>></Comment> <<>> <Comment><<DBGETPROP(taViews(I),"VIEW","Comment")>></Comment>
<<>> <Tables><<DBGETPROP(taViews(I),"VIEW","Tables")>></Tables> <<>> <Tables><<DBGETPROP(taViews(I),"VIEW","Tables")>></Tables>
@@ -6804,54 +6809,63 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <WhereType><<DBGETPROP(taViews(I),"VIEW","WhereType")>></WhereType> <<>> <WhereType><<DBGETPROP(taViews(I),"VIEW","WhereType")>></WhereType>
ENDTEXT ENDTEXT
_TALLY = 0
_TALLY = 0 _TALLY = 0
SELECT LOWER(TB.objectname) FROM TABLABIN TB ; SELECT LOWER(TB.objectname) FROM TABLABIN TB ;
INNER JOIN TABLABIN TB2 ON STR(TB.parentid)+PADR('View',10) = STR(TB2.objectid)+TB2.objecttype ; INNER JOIN TABLABIN TB2 ON STR(TB.parentid)+TB.objecttype = STR(TB2.objectid)+PADR('Field',10) ;
WHERE STR(TB2.parentid)+TB2.objecttype+TB2.objectname = STR(1)+PADR('View',10)+PADR(LOWER(taViews(I)),128) ; AND TB2.objectname = PADR(LOWER(taViews(I)),128) ;
INTO ARRAY laFields INTO ARRAY laFields
lnField_Count = _TALLY lnField_Count = _TALLY
IF lnField_Count > 0 IF lnField_Count > 0
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> *-- FIELDS <<>>
<<>> <FIELD> <<>> <FIELDS>
ENDTEXT ENDTEXT
FOR X = 1 TO lnField_Count FOR X = 1 TO lnField_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> <Name><<RTRIM(laFields(I))>></Name> <<>> <FIELD>
<<>> <Caption><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","Caption")>></Caption> <<>> <Name><<RTRIM(laFields(X))>></Name>
<<>> <Comment><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","Comment")>></Comment> <<>> <Caption><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","Caption")>></Caption>
<<>> <DataType><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","DataType")>></DataType> <<>> <Comment><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","Comment")>></Comment>
<<>> <DefaultValue><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","DefaultValue")>></DefaultValue> <<>> <DataType><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","DataType")>></DataType>
<<>> <Format><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","Format")>></Format> <<>> <DefaultValue><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","DefaultValue")>></DefaultValue>
<<>> <InputMask><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","InputMask")>></InputMask> <<>> <Format><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","Format")>></Format>
<<>> <KeyField><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","KeyField")>></KeyField> <<>> <InputMask><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","InputMask")>></InputMask>
<<>> <RuleExpression><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","RuleExpression")>></RuleExpression> <<>> <KeyField><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","KeyField")>></KeyField>
<<>> <RuleText><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","RuleText")>></RuleText> <<>> <RuleExpression><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","RuleExpression")>></RuleExpression>
<<>> <Updatable><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","Updatable")>></Updatable> <<>> <RuleText><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","RuleText")>></RuleText>
<<>> <UpdateName><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(I)),"FIELD","UpdateName")>></UpdateName> <<>> <Updatable><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","Updatable")>></Updatable>
<<>> <UpdateName><<DBGETPROP( RTRIM(taViews(I)) + '.' + RTRIM(laFields(X)),"FIELD","UpdateName")>></UpdateName>
<<>> </FIELD>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> </FIELD> <<>> </FIELDS>
ENDTEXT ENDTEXT
ENDIF ENDIF
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</VIEW> <<>> </VIEW>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</VIEWS>
<<>>
ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + lcText C_FB2PRG_CODE = C_FB2PRG_CODE + lcText
ENDIF
CATCH TO loEx CATCH TO loEx
IF BETWEEN(I, 1, tnTable_Count) IF BETWEEN(I, 1, tnTable_Count)
loEx.UserValue = loEx.UserValue + CR_LF + "taViews(" + TRANSFORM(I) + ") = " + RTRIM(taViews(I)) loEx.USERVALUE = loEx.USERVALUE + CR_LF + "taViews(" + TRANSFORM(I) + ") = " + RTRIM(taViews(I))
ENDIF ENDIF
IF BETWEEN(X, 1, lnField_Count) IF BETWEEN(X, 1, lnField_Count)
loEx.UserValue = loEx.UserValue + CR_LF + "laFields(" + TRANSFORM(X) + ") = " + RTRIM(laFields(I)) loEx.USERVALUE = loEx.USERVALUE + CR_LF + "laFields(" + TRANSFORM(X) + ") = " + RTRIM(laFields(X))
ENDIF ENDIF
IF THIS.l_Debug AND _VFP.STARTMODE = 0 IF THIS.l_Debug AND _VFP.STARTMODE = 0
@@ -6873,38 +6887,41 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
EXTERNAL ARRAY taRelations EXTERNAL ARRAY taRelations
TRY TRY
LOCAL I, lcText, lcDBC, loEx as Exception LOCAL I, lcText, lcDBC, loEx AS EXCEPTION
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
DIMENSION taRelations(1,5) DIMENSION taRelations(1,5)
tnRelation_Count = ADBOBJECTS( taRelations,"RELATION" ) tnRelation_Count = ADBOBJECTS( taRelations,"RELATION" )
IF tnRelation_Count > 0
ASORT( taRelations, 2, -1, 0, 1 ) ASORT( taRelations, 2, -1, 0, 1 )
ASORT( taRelations, 1, -1, 0, 1 ) ASORT( taRelations, 1, -1, 0, 1 )
FOR I = 1 TO tnRelation_Count
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
*-----------------------------------------------------------------------------------
*-- RELATIONS INFO (REF.INTEGRITY: "C"=cascade, "R"=restrict, "I"=ignore)
*-----------------------------------------------------------------------------------
<<>> <<>>
<RELATIONS>
ENDTEXT ENDTEXT
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1 PRETEXT 1+2+8 FOR I = 1 TO tnRelation_Count
<RELATION> TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> <RELATION>
<<>> <ChildTable><<ALLTRIM(taRelations(I,1))>></ChildTable> <<>> <ChildTable><<ALLTRIM(taRelations(I,1))>></ChildTable>
<<>> <ParentTable><<ALLTRIM(taRelations(I,2))>></ParentTable> <<>> <ParentTable><<ALLTRIM(taRelations(I,2))>></ParentTable>
<<>> <ChildIndex><<ALLTRIM(taRelations(I,3))>></ChildIndex> <<>> <ChildIndex><<ALLTRIM(taRelations(I,3))>></ChildIndex>
<<>> <ParentIndex><<ALLTRIM(taRelations(I,4))>></ParentIndex> <<>> <ParentIndex><<ALLTRIM(taRelations(I,4))>></ParentIndex>
<<>> <RefIntegrity><<ALLTRIM(taRelations(I,5))>></RefIntegrity> <<>> <RefIntegrity><<ALLTRIM(taRelations(I,5))>></RefIntegrity>
</RELATION> <<>> </RELATION>
ENDTEXT ENDTEXT
ENDFOR ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</RELATIONS>
<<>>
ENDTEXT
C_FB2PRG_CODE = C_FB2PRG_CODE + lcText C_FB2PRG_CODE = C_FB2PRG_CODE + lcText
ENDIF
CATCH TO loEx CATCH TO loEx
IF THIS.l_Debug AND _VFP.STARTMODE = 0 IF THIS.l_Debug AND _VFP.STARTMODE = 0