I made a class from an Idea of James
You can create a file xml and save it from a database dbf
Today I sent to Antonio the class
This is the test
Procedure test()
Local oXml, n
Local cType, cTag
DEFINE XML oXml FILE "TEST.xml" FORMAT
CREATEXML FILEMARK "CUST" ATTRIB "Database" VALUE "CUST" OF oXml // CUST OR CUSTOMERS
USE CUSTOMER
GO TOP
USE CUSTOMER
GO TOP
DO WHILE !Eof()
CREATEXML FILEMARK "Record" ATTRIB "Numero" VALUE Str( Recno() ) OF oXml
FOR n := 1 To FCount()
cType := If( ValType( FieldGet( n ) ) == "D", "date", )
cTAg := If( ValType( FieldGet( n ) ) == "D", dTos( FieldGet( n ) ), OemToAnsi( FieldGet ( n ) ) )
CREATEXML FILEMARK FieldName( n ) TYPE cType TAG cTag AUTOCLOSE OF oXml
NEXT
CLOSEXML FILEMARK OF oXml
SKIP
ENDDO
CLOSEXML FILEMARK OF oXml
ENDXML oXml
? "Converted to XML"
RETURN NIL
and this is the file generated ( a part of the file from record number 1 to record number 3 )
You can create a file xml and save it from a database dbf
Today I sent to Antonio the class
This is the test
Procedure test()
Local oXml, n
Local cType, cTag
DEFINE XML oXml FILE "TEST.xml" FORMAT
CREATEXML FILEMARK "CUST" ATTRIB "Database" VALUE "CUST" OF oXml // CUST OR CUSTOMERS
USE CUSTOMER
GO TOP
USE CUSTOMER
GO TOP
DO WHILE !Eof()
CREATEXML FILEMARK "Record" ATTRIB "Numero" VALUE Str( Recno() ) OF oXml
FOR n := 1 To FCount()
cType := If( ValType( FieldGet( n ) ) == "D", "date", )
cTAg := If( ValType( FieldGet( n ) ) == "D", dTos( FieldGet( n ) ), OemToAnsi( FieldGet ( n ) ) )
CREATEXML FILEMARK FieldName( n ) TYPE cType TAG cTag AUTOCLOSE OF oXml
NEXT
CLOSEXML FILEMARK OF oXml
SKIP
ENDDO
CLOSEXML FILEMARK OF oXml
ENDXML oXml
? "Converted to XML"
RETURN NIL
and this is the file generated ( a part of the file from record number 1 to record number 3 )
 Â
<?xml version="1.0" Â encoding="ISO-8859-1"?>
   <CUSTOMER xmlns:dt="urn:schemas-microsoft-com:datatypes" Database = "CUSTOMER" >
   <Record Numero = "     1" >
   <FIRST>Homer        </FIRST>
   <LAST>Simpson       </LAST>
   <STREET>32179 Maiden Lane       </STREET>
   <CITY>Springfield          </CITY>
   <STATE>IL</STATE>
   <ZIP>20503-8202</ZIP>
   <HIREDATE dt:dt= "date">19920918</HIREDATE>
   <MARRIED></MARRIED>
   <AGE></AGE>
   <SALARY></SALARY>
   <NOTES>This is a test for record 1                      </NOTES>
   </Record>
   <Record Numero = "     2" >
   <FIRST>Ceci         </FIRST>
   <LAST>Gibbard       </LAST>
   <STREET>9540 Raynes Park Road     </STREET>
   <CITY>Miami             </CITY>
   <STATE>MA</STATE>
   <ZIP>55774-2304</ZIP>
   <HIREDATE dt:dt= "date">19841017</HIREDATE>
   <MARRIED></MARRIED>
   <AGE></AGE>
   <SALARY></SALARY>
   <NOTES>This is a test for record 2                      </NOTES>
   </Record>
   <Record Numero = "     3" >
   <FIRST>Reg         </FIRST>
   <LAST>Kaczocha       </LAST>
   <STREET>30522 Park Ten Place      </STREET>
   <CITY>Scottsdale           </CITY>
   <STATE>WY</STATE>
   <ZIP>09226-1483</ZIP>
   <HIREDATE dt:dt= "date">19890523</HIREDATE>
   <MARRIED></MARRIED>
   <AGE></AGE>
   <SALARY></SALARY>
   <NOTES>This is a test for record 3                      </NOTES>
   </Record>
 Â
   </CUSTOMER>Best Regards, Saludos
Falconi Silvio
Falconi Silvio
