Tenemos probleamas con el xmldom

* el vfp funciona ok
* En lianja lo corta hasta el segundo appendchild que encuentra


*objXml = CREATEOBJECT('Microsoft.XMLDOM')
objXml = CREATEOBJECT('msxml2.DOMDocument')
*Crea el elemento principal soap:Envelope llamado osoapend
osoapenv = objXml.createelement('soapenv:Envelope')
objXml.appendchild(osoapenv)

*Dentro de soapenv:Envelope etiquetado como osoapend meto atributos
WITH osoapenv

.setattribute('xmlns:soapenv',"http://schemas.xmlsoap.org/soap/envelope/")
.setattribute('xmlns:stam',"http://facturacion.finkok.com/stamp")


**//Crea Header en principal
**//ostam2=objXml.createnode(1,'soapenv:Header',"http://facturacion.finkok.com/stamp")
ostam2 = objXml.createelement('soapenv:Header')
osoapenv.appendchild(ostam2)

**//Crea Body en principal
ostam3 = objXml.createelement('soapenv:Body')
osoapenv.appendchild(ostam3)

**//Crea stam en Body que es ostam3
ostam = objXml.createelement('stam:stamp')
ostam3.appendchild(ostam)


**//En stam:stamp que es ostam
WITH ostam

*Crea xml
oadiinfo22 = objXml.createelement('stam:xml')
ostam.appendchild(oadiinfo22)
WITH oadiinfo22
objTexride22 = objXml.createTextNode("xfactura")
objTexride122 = oadiinfo22.insertBefore(objTexride22,oadiinfo22.fi rstChild)
ENDWITH

**Crea username
oadiinfo2 = objXml.createelement('stam:username')
ostam.appendchild(oadiinfo2)
WITH oadiinfo2
objTexride2 = objXml.createTextNode("xusuario")
objTexride12 = oadiinfo2.insertBefore(objTexride2,oadiinfo2.first Child)
ENDWITH

**Crea password
oadiinfo3 = objXml.createelement('stamassword')
ostam.appendchild(oadiinfo3)
WITH oadiinfo3
objTexride3 = objXml.createTextNode("xclave")
objTexride13 = oadiinfo3.insertBefore(objTexride3,oadiinfo3.first Child)
ENDWITH

ENDWITH &&stam

ENDWITH && soap:Envelope


lcCabeceraXML22=""
lcCabeceraXML22 = objXml.documentelement.xml
MESSAGEBOX("HOY: "+lcCabeceraXML22)