файлик с таким заголовком?

<?xml version = "1.0" encoding="UTF-8" [color=red]standalone="yes"[/color]?>
<TTT>
	<tt>
		<date> 09 - 03 - 30   03 : 23 : 11  P</date>
	</tt>
</TTT>

Close Tables  
  Create Cursor First (nID N( 10 ), Cena N( 10 , 2 ) , Kolich N( 5 ) Not Null)  
  Insert Into First (nID, Cena, Kolich) ;  
  	Value ( 1 ,  10 , 5 )  
  Insert Into First (nID, Cena, Kolich) ;  
  	Value ( 1 ,  20 , 25 )	  
    
  Create Cursor Tovar (nID N( 10 ), NN C( 10 ), Name C( 20 ))  
  INSERT INTO Tovar (nID,NN,Name) ;  
  	VALUES ( 1 ,'1234567890','Товар1')  
    
  INSERT INTO Tovar (nID,NN,Name) ;  
  	VALUES ( 2 ,'0987654321','Товар2')	  
  Index On nID to 'c:\'+'Tovar'  
    
    
  Create Cursor Klient (nID N( 10 ), KodK C( 10 ), Name C( 20 ))  
  INSERT INTO Klient (nID,KodK,Name) ;  
  	VALUES ( 1 ,'11111','Клиент1')  
    
  INSERT INTO Klient (nID,KodK,Name) ;  
  	VALUES ( 2 ,'22222','Клиент2')	  
  Index On nID TO 'c:\'+'Klient'  
    
      
  Select First  
    
  Set Relation To nID Into Tovar Additive  
  Set Relation To nID Into Klient Additive 

     
  Local oXA As Xmladapter, oXT As Xmltable, oXF As Xmlfield  
  oXA = Createobject("XMLAdapter")  
    
with  oXA
	.UTF8Encoded=.T.  
	*.RespectCursorCP = .T.  
	.RespectNesting = .T.   
	.CODEPAGE= 1251   	  
    
    .AddTableSchema('First')  
    With .AddTableSchema('Klient')  
  		.Fields.Remove(Strconv('nid',  5 )) 
  	EndWith
  	With .AddTableSchema('Tovar')  
  		.Fields.Remove(Strconv('nid',  5 ))  
    EndWith
  
    
	.XMLName = Strconv('Operation',  5 )  
	.XMLSchemaLocation = '' 
	lcXml="" 
	.ToXML("lcXml")  &&('c:\Test.xml',,.T.)  
EndWith
    
  Close Tables  
  ? lcXml
  Return

Close Tables  
  Create Cursor First (nID N( 10 ), Cena N( 10 , 2 ) , Kolich N( 5 ) Not Null)  
  Insert Into First (nID, Cena, Kolich) ;  
  	Value ( 1 ,  10 , 5 )  
  Insert Into First (nID, Cena, Kolich) ;  
  	Value ( 1 ,  20 , 25 )	  
    
  Create Cursor Tovar (nID N( 10 ), NN C( 10 ), Name C( 20 ))  
  INSERT INTO Tovar (nID,NN,Name) ;  
  	VALUES ( 1 ,'1234567890','Товар1')  
    
  INSERT INTO Tovar (nID,NN,Name) ;  
  	VALUES ( 2 ,'0987654321','Товар2')	  
  Index On nID to 'c:\'+'Tovar'  
    
    
  Create Cursor Klient (nID N( 10 ), KodK C( 10 ), Name C( 20 ))  
  INSERT INTO Klient (nID,KodK,Name) ;  
  	VALUES ( 1 ,'11111','Клиент1')  
    
  INSERT INTO Klient (nID,KodK,Name) ;  
  	VALUES ( 2 ,'22222','Клиент2')	  
  Index On nID TO 'c:\'+'Klient'  
    
      
  Select First  
    
  Set Relation To nID Into Tovar Additive  
  Set Relation To nID Into Klient Additive 

     
  Local oXA As Xmladapter, oXT As Xmltable, oXF As Xmlfield  
  oXA = Createobject("XMLAdapter")  
    
with  oXA
	.UTF8Encoded=.T.  
	.RespectCursorCP = .T.  
	.RespectNesting = .T.   
	*.CODEPAGE= 1251   	  
    
    .AddTableSchema('First')  
    With .AddTableSchema('Klient')  
  		.Fields.Remove(Strconv('nid',  5 )) 
  	EndWith
  	With .AddTableSchema('Tovar')  
  		.Fields.Remove(Strconv('nid',  5 ))  
    EndWith
  
    
	.XMLName = Strconv('Operation',  5 )  
	.XMLSchemaLocation = '' 
	lcXml="" 
	.ToXML('c:\Test.xml',,.T.)   && ("lcXml")
EndWith
    
  Close Tables  
  ? lcXml
  Return

set default to Home()+"\Samples\Northwind\"
close databases all
USE northwind!customers IN  0  excl
SELECT customers 

local loXMLAdapter as XMLAdapter,  ;
	  laRR[ 1 ], lcXSD, lnElement ,  ;
	  lnField, loXField, loXTable

create cursor schema (name varchar( 20 ))
lcXSD = getXsd() &&filetostr("c:\2.xsd") -- чтобы не прикладывать файл
local laRR[ 1 ]
if alines(laRR, lcXSD,  8 , ["])>0
	for lnElement=1 to alen(laRR)
	 if atc("element name=",laRR(lnElement))>0
	 	insert into schema  value(laRR[lnElement+1])
	 endif 
	endfor
endif 
index on lower(name) tag name

loXMLAdapter = CREATEOBJECT("XMLAdapter") 
with loXMLAdapter
	store .t. to .RESPECTCURSORCP,   ;
				 .RESPECTNESTING,    ;
				 .PreserveWhiteSpace,;
				 .USECODEPAGE,       ;
				 .ForceCloseTag
	.CODEPAGE=1251 
	.XMLSCHEMALOCATION="" 
	.XMLNAME=STRCONV("MaIL",5) 

	loXTable=.AddTableSchema("customers",.f.,STRCONV("coNtacttitle",5)) 
	with loXTable
		FOR lnField=1 TO .Fields.Count 
			loXField=.Fields.Item(1) 
			.Fields.Remove(1)
			loXField.XMLName= STRCONV(iif(seek(lower(loXField.Alias),"schema"),schema.name, loXField.Alias),5)
			.Fields.Add(loXField,loXField.XMLName) 
		endfor
	endwith
	.TOXML("c:\ 1 .xml",,.t.) 

endwith




procedure getXsd
local lcXSD
text to lcXSD noshow pretext 15
  <?xml version=" 1 . 0 " encoding="utf- 8 " ?> 
- <xs:schema id="MaIL" xmlns="" xmlns:xs="http://www.w3.org/ 2001 /XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
- <xs:annotation>
- <xs:appinfo source="urn:schemas-microsoft-com:xml-msdatasource">
- <DataSource DefaultConnectionIndex=" 0 " FunctionsComponentName="QueriesTableAdapter" Modifier="AutoLayout, AnsiClass, Class, Public" SchemaSerializationMode="IncludeSchema" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
  <Connections /> 
  <Tables /> 
  <Sources /> 
  </DataSource>
  </xs:appinfo>
  </xs:annotation>
- <xs:element name="MaIL" msdata:IsDataSet="true" msdata:Locale="en-US">
- <xs:complexType>
- <xs:choice minOccurs=" 0 " maxOccurs="unbounded">
- <xs:element name="coNtacttitle" minOccurs=" 0 " maxOccurs=" 79228162514264337593543950335 ">
- <xs:complexType>
- <xs:sequence>
- <xs:element name="CustomerId">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 4 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="CompanyName">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 40 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="ContactTitle" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 30 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="AddRess" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 60 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="City" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 15 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="regioN" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 15 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="PostalCode" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 10 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="Country" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 15 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="PHONE" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 24 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
- <xs:element name="Fax" minOccurs=" 0 ">
- <xs:simpleType>
- <xs:restriction base="xs:string">
  <xs:maxLength value=" 24 " /> 
  </xs:restriction>
  </xs:simpleType>
  </xs:element>
  </xs:sequence>
  </xs:complexType>
  </xs:element>
  </xs:choice>
  </xs:complexType>
  </xs:element>
  </xs:schema>
endtext
return lcXSD