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>
<<>> <filetype><<TRANSFORM(tn_HexFileType, '@0')>></filetype>
<<>> <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>
ENDTEXT
@@ -6555,7 +6564,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
lcText = ''
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>
<<>> <Name><<lcDBC>></Name>
@@ -6563,6 +6572,21 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
<<>> <Version><<DBGETPROP(lcDBC,"DATABASE","Version")>></Version>
<<>> <DBCEvents><<DBGETPROP(lcDBC,"DATABASE","DBCEvents")>></DBCEvents>
<<>> <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>
<<>>
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
<<>>
<CONNECTIONS>
<<>> <CONNECTIONS>
ENDTEXT
FOR I = 1 TO tnConnection_Count
@@ -6631,7 +6655,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</CONNECTIONS>
<<>> </CONNECTIONS>
<<>>
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
<<>>
<TABLES>
<<>> <TABLES>
ENDTEXT
FOR I = 1 TO tnTable_Count
@@ -6730,7 +6754,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</TABLES>
<<>> </TABLES>
<<>>
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
<<>>
<VIEWS>
<<>> <VIEWS>
ENDTEXT
FOR I = 1 TO tnView_Count
@@ -6856,7 +6880,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</VIEWS>
<<>> </VIEWS>
<<>>
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
<<>>
<RELATIONS>
<<>> <RELATIONS>
ENDTEXT
FOR I = 1 TO tnRelation_Count
@@ -6919,7 +6943,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
ENDFOR
TEXT TO lcText ADDITIVE TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
</RELATIONS>
<<>> </RELATIONS>
<<>>
ENDTEXT
@@ -7804,12 +7828,6 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg
*-- Header
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
IF THIS.l_Test
@@ -7877,18 +7895,6 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg
*-- 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
IF THIS.l_Test