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

Changeset: 73 Changeset: 73 Formateo mejorado del semi-XML para DBF y DBC

Browse Source
This commit is contained in:
fernando
2013-12-11 00:06:26 +01:00
parent 249d204324
commit 270ff6b685
1 changed files with 126 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
foxbin2prg.prg
View File

@@ -6431,6 +6431,15 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <database><<tc_DBC_Name>></database> <<>> <database><<tc_DBC_Name>></database>
<<>> <filetype><<TRANSFORM(tn_HexFileType, '@0')>></filetype> <<>> <filetype><<TRANSFORM(tn_HexFileType, '@0')>></filetype>
<<>> <filetype_descrip><<THIS.fileTypeDescription(tn_HexFileType)>></filetype_descrip> <<>> <filetype_descrip><<THIS.fileTypeDescription(tn_HexFileType)>></filetype_descrip>
ENDTEXT
*-- Fields
THIS.write_DBF_FIELDS()
*-- Indexes
THIS.write_DBF_INDEXES()
TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</TABLE> </TABLE>
ENDTEXT ENDTEXT
@@ -6555,7 +6564,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
lcText = '' lcText = ''
lcDBC = JUSTSTEM(DBC()) lcDBC = JUSTSTEM(DBC())
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2 TEXT TO C_FB2PRG_CODE ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
<<>> <<>>
<DATABASE> <DATABASE>
<<>> <Name><<lcDBC>></Name> <<>> <Name><<lcDBC>></Name>
@@ -6563,6 +6572,21 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <Version><<DBGETPROP(lcDBC,"DATABASE","Version")>></Version> <<>> <Version><<DBGETPROP(lcDBC,"DATABASE","Version")>></Version>
<<>> <DBCEvents><<DBGETPROP(lcDBC,"DATABASE","DBCEvents")>></DBCEvents> <<>> <DBCEvents><<DBGETPROP(lcDBC,"DATABASE","DBCEvents")>></DBCEvents>
<<>> <DBCEventFilename><<DBGETPROP(lcDBC,"DATABASE","DBCEventFilename")>></DBCEventFilename> <<>> <DBCEventFilename><<DBGETPROP(lcDBC,"DATABASE","DBCEventFilename")>></DBCEventFilename>
ENDTEXT
*-- Connections
THIS.write_DBC_CONNECTIONS()
*-- Tables
THIS.write_DBC_TABLES()
*-- Views
THIS.write_DBC_VIEWS()
*-- Relations
THIS.write_DBC_RELATIONS()
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</DATABASE> </DATABASE>
<<>> <<>>
ENDTEXT ENDTEXT
@@ -6601,7 +6625,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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>
ENDTEXT ENDTEXT
FOR I = 1 TO tnConnection_Count FOR I = 1 TO tnConnection_Count
@@ -6631,7 +6655,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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
</CONNECTIONS> <<>> </CONNECTIONS>
<<>> <<>>
ENDTEXT ENDTEXT
@@ -6671,7 +6695,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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>
ENDTEXT ENDTEXT
FOR I = 1 TO tnTable_Count FOR I = 1 TO tnTable_Count
@@ -6730,7 +6754,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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
</TABLES> <<>> </TABLES>
<<>> <<>>
ENDTEXT ENDTEXT
@@ -6780,7 +6804,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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>
ENDTEXT ENDTEXT
FOR I = 1 TO tnView_Count FOR I = 1 TO tnView_Count
@@ -6856,7 +6880,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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
</VIEWS> <<>> </VIEWS>
<<>> <<>>
ENDTEXT ENDTEXT
@@ -6903,7 +6927,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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> <<>> <RELATIONS>
ENDTEXT ENDTEXT
FOR I = 1 TO tnRelation_Count FOR I = 1 TO tnRelation_Count
@@ -6919,7 +6943,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
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
</RELATIONS> <<>> </RELATIONS>
<<>> <<>>
ENDTEXT ENDTEXT
@@ -7804,12 +7828,6 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg
*-- Header *-- Header
THIS.write_DBF_HEADER( ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name ) THIS.write_DBF_HEADER( ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name )
*-- Fields
THIS.write_DBF_FIELDS()
*-- Indexes
THIS.write_DBF_INDEXES()
*-- Genero el DB2 *-- Genero el DB2
IF THIS.l_Test IF THIS.l_Test
@@ -7877,18 +7895,6 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
*-- Header *-- Header
THIS.write_DBC_HEADER() THIS.write_DBC_HEADER()
*-- Connections
THIS.write_DBC_CONNECTIONS()
*-- Tables
THIS.write_DBC_TABLES()
*-- Views
THIS.write_DBC_VIEWS()
*-- Relations
THIS.write_DBC_RELATIONS()
*-- Genero el DC2 *-- Genero el DC2
IF THIS.l_Test IF THIS.l_Test