LOCAL XMLSource AS String TEXT TO m.XMLSource NOSHOW <order Id="458362379" MessageId="1701653104" RestaurantName="Serez Dondurmacisi, Kartal (Kordonboyu Mah.)" RestaurantCatalog="postakip" RestaurantCategory="8cb94060-7642-44e4-b18c-720a44349424" CustomerName="metin emre" CustomerId="5039891" CustomerType="3" PaymentNote="Nakit (nakit ödeme) - Lütfen fis getiriniz." OrderTotal="14.00" CustomerPhone="3213213212" CustomerPhone2="" PromoCode="" City="postakip" Region="deneme semti" Organization="" Address="zcxvcxzvcxzvcxzvxc" AddressDescription="fgdsgfdsgfdsg" AddressId="8670d8154e1084e85a590a7e3b7bd6c0" PaymentMethodId="1" DeliveryTime="2018.06.14 12:55" ChangeInTotal="0.00" Currency="YSM" OrderNote=""> <product id="3a8647be80e005fad8396ecb3d91a033" Name="Keçi Sütlü Maras Dondurmasi (Top)" Price="6.00" ListPrice="6.00" Quantity="1" Options="" OptionIds="" OrderIndex="1" ParentIndex="0" PromoParentIndex="0" ProductOptionId="" /> <product id="d25c6827d792020856e60ceb6aa6e66d" Name="Bodrum Mandalinali Dondurma (Top)" Price="4.00" ListPrice="4.00" Quantity="1" Options="" OptionIds="" OrderIndex="2" ParentIndex="0" PromoParentIndex="0" ProductOptionId="" /> <product id="0c23a1fa5b8ee1f73a95dbdf6546e3c0" Name="Karadutlu Dondurma (Top)" Price="4.00" ListPrice="4.00" Quantity="1" Options="" OptionIds="" OrderIndex="3" ParentIndex="0" PromoParentIndex="0" ProductOptionId="" /> </order> ENDTEXT LOCAL XMLAttributesToColumns AS String TEXT TO m.XMLAttributesToColumns NOSHOW <?xml version="1.0" encoding="UTF-8"?> <xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"> <xsl:output method="xml"/> <xsl:template match="/"> <xsl:element name="VFPData"> <xsl:for-each select="*"> <xsl:element name="{name()}"> <xsl:for-each select="@*"> <xsl:attribute name="{name()}"> <xsl:value-of select="."/> </xsl:attribute> </xsl:for-each> </xsl:element> </xsl:for-each> </xsl:element> </xsl:template> </xsl:stylesheet> ENDTEXT LOCAL XMLDOM AS MSXML2.DOMDocument60 LOCAL XSLT AS MSXML2.DOMDocument60 m.XMLDOM = CREATEOBJECT("MSXML2.DOMDocument.6.0") m.XMLDOM.async = .F. m.XMLDOM.loadXML(m.XMLSource) m.XSLT = CREATEOBJECT("MSXML2.DOMDocument.6.0") m.XSLT.async = .F. m.XSLT.loadXML(m.XMLAttributesToColumns) XMLTOCURSOR(m.XMLDOM.transformNode(m.XSLT), "curOrders") BROWSE XMLTOCURSOR(m.XMLSource, "curProducts") BROWSE