Prueba este ejemplo
TEXT TO cXML NOSHOW
<xml xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'
xmlns:dt='uuid:C2F41010-65B3-11d1-A29F-00AA00C14882'
xmlns:rs='urn:schemas-microsoft-com:rowset'
xmlns:z='#RowsetSchema'>
<s:Schema id='RowsetSchema'>
<s:ElementType name='row' content='eltOnly'>
<s:AttributeType name='xmlfield' rs:number='1'
rs:writeunknown='true' rs:nullable='true'>
<s:datatype dt:type='number' rs:dbtype='currency' dt:maxLength='8'
rs:scale='4' rs:precision='6' />
</s:AttributeType>
<s:extends type='rs:rowbase'/>
</s:ElementType>
</s:Schema>
<rs:data>
<z:row xmlfield='12.12'/>
</rs:data>
</xml>
ENDTEXT
CLOSE DATABASES ALL
CLEAR
LOCAL oXMLAdapter as XMLAdapter
oXMLAdapter = NEWOBJECT('XMLAdapter')
oXMLadapter.LoadXML(cXML)
IF oXMLAdapter.Tables.Item(1).Fields.Item(1).DataType <> "Y" THEN
? 'Failed'
ELSE
oXMLAdapter.Tables.Item(1).ToCursor()
oXMLAdapter.XMLNamespace=""
oXMLAdapter.ReleaseXML(.F.)
oXMLAdapter.XMLSchemaLocation='c:\myxmlfile.xsd'
oXMLAdapter.ToXML('c:\myxmlfile.xml',,.T.)
oXMLadapter2 = NEWOBJECT('xmladapter')
oXMLAdapter2.XMLSchemaLocation='c:\myxmlfile.xsd'
oXMLAdapter2.LoadXML('c:\myxmlfile.xml',.T.,.T.)
ENDIF
Suerte
