Factura Electronica en VFP ayuda con XML

[HalconDivino]

Gracias
Te me adelantaste ...esta interesante y lo voy a tomar en cuenta para el desarrollo..

Aca en mi trabajo es la hora de la comida aprobeche este momento ....investigue un poco y tambien te dejo este aporte el cual espero te puede ayudar.

Lo desarrolle en VFP 6.0 tomando como base el XML de la factura electronica


LOCAL olNodes As IXMLDOMNodeList

xdoc=CREATEOBJECT('MSXML2.DOMdocument')
IF NOT xdoc.LOAD('C:\CFD.xml')
Return
ENDIF

? "Atributos del COMPROBANTE "
olNodes = xdoc.selectNodes("//Comprobante")
For i = 0 To olNodes.length - 1
For j = 0 To olNodes.Item(i).Attributes.length - 1
sAtributeName = olNodes.Item(i).Attributes.Item(j).nodeName
sAtributeValues = olNodes.Item(i).Attributes.Item(j).text
? i,j,sAtributeName + "=" + sAtributeValues
Next j
Next i

?
?
? "Atributos del Emisor "
olNodes = xdoc.selectNodes("//Comprobante/Emisor/")
For i = 0 To olNodes.length - 1
For j = 0 To olNodes.Item(i).Attributes.length - 1
sAtributeName = olNodes.Item(i).Attributes.Item(j).nodeName
sAtributeValues = olNodes.Item(i).Attributes.Item(j).text
? i,j,sAtributeName + "=" + sAtributeValues
Next j
Next i
?
?
? "Atributos del Domicilio Fiscal del Emisor "
olNodes = xdoc.selectNodes("//Comprobante/Emisor/DomicilioFiscal")
For i = 0 To olNodes.length - 1
For j = 0 To olNodes.Item(i).Attributes.length - 1
sAtributeName = olNodes.Item(i).Attributes.Item(j).nodeName
sAtributeValues = olNodes.Item(i).Attributes.Item(j).text
? i,j,sAtributeName + "=" + sAtributeValues
Next j
Next i


Saludos
Halcón Divino