integer li_rc
oleobject loo_Xml
string ls_SoapRequestBody
string ls_Endpoint
string ls_SoapAction
string ls_ContentType
oleobject loo_Http
oleobject loo_Resp
oleobject loo_ResponseXml
integer li_StatusCode
string ls_CSV
string ls_NIFPresentador
string ls_TimestampPresentacion
string ls_Cabecera
string ls_TiempoEsperaEnvio
string ls_EstadoEnvio
string ls_IDEmisorFactura
string ls_NumSerieFactura
string ls_FechaExpedicionFactura
string ls_EstadoRegistro
string ls_CodigoErrorRegistro
string ls_DescripcionErrorRegistro
string ls_CSVRegistroDuplicado
string ls_EstadoRegistroDuplicado
loo_Xml = createoleobject// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
destroy loo_Xml
MessageBox("Error","Connecting to COM object failed")
return
end if
loo_Xml.Tag = "soapenv:Envelope"
loo_Xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loo_Xml.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
loo_Xml.AddAttribute("xmlns:sfLR","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd")
loo_Xml.AddAttribute("xmlns:sf","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
loo_Xml.UpdateChildContent("soapenv:Header","")
loo_Xml.UpdateChildContent("soapenv:Body|sfLR:RegFactuSistemaFacturacion","?<sfLR:RegistroFactura><sfLR:RegistroAlta><sf:IDVersion>1.0</sf:IDVersion><sf:IDFactura><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFactura><sf:RefExterna>string</sf:RefExterna><sf:NombreRazonEmisor>string</sf:NombreRazonEmisor><sf:Subsanacion>S</sf:Subsanacion><sf:RechazoPrevio>N</sf:RechazoPrevio><sf:TipoFactura>F1</sf:TipoFactura><sf:TipoRectificativa>S</sf:TipoRectificativa><sf:FacturasRectificadas><sf:IDFacturaRectificada><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFacturaRectificada></sf:FacturasRectificadas><sf:FacturasSustituidas><sf:IDFacturaSustituida><sf:IDEmisorFactura>string</sf:IDEmisorFactura><sf:NumSerieFactura>string</sf:NumSerieFactura><sf:FechaExpedicionFactura>string</sf:FechaExpedicionFactura></sf:IDFacturaSustituida></sf:FacturasSustituidas><sf:ImporteRectificacion><sf:BaseRectificada>string</sf:BaseRectificada><sf:CuotaRectificada>string</sf:CuotaRectificada><sf:CuotaRecargoRectificado>string</sf:CuotaRecargoRectificado></sf:ImporteRectificacion><sf:FechaOperacion>string</sf:FechaOperacion><sf:DescripcionOperacion>string</sf:DescripcionOperacion><sf:FacturaSimplificadaArt7273>S</sf:FacturaSimplificadaArt7273><sf:FacturaSinIdentifDestinatarioArt61d>S</sf:FacturaSinIdentifDestinatarioArt61d><sf:Macrodato>S</sf:Macrodato><sf:EmitidaPorTerceroODestinatario>D</sf:EmitidaPorTerceroODestinatario><sf:Tercero><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF></sf:Tercero><sf:Destinatarios><sf:IDDestinatario><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF></sf:IDDestinatario></sf:Destinatarios><sf:Cupon>S</sf:Cupon><sf:Desglose><sf:DetalleDesglose><sf:Impuesto>01</sf:Impuesto><sf:ClaveRegimen>01</sf:ClaveRegimen><sf:CalificacionOperacion>S1</sf:CalificacionOperacion><sf:TipoImpositivo>string</sf:TipoImpositivo><sf:BaseImponibleOimporteNoSujeto>string</sf:BaseImponibleOimporteNoSujeto><sf:BaseImponibleACoste>string</sf:BaseImponibleACoste><sf:CuotaRepercutida>string</sf:CuotaRepercutida><sf:TipoRecargoEquivalencia>string</sf:TipoRecargoEquivalencia><sf:CuotaRecargoEquivalencia>string</sf:CuotaRecargoEquivalencia></sf:DetalleDesglose></sf:Desglose><sf:CuotaTotal>string</sf:CuotaTotal><sf:ImporteTotal>string</sf:ImporteTotal><sf:Encadenamiento></sf:Encadenamiento><sf:SistemaInformatico><sf:NombreRazon>string</sf:NombreRazon><sf:NIF>string</sf:NIF><sf:NombreSistemaInformatico>string</sf:NombreSistemaInformatico><sf:IdSistemaInformatico>string</sf:IdSistemaInformatico><sf:Version>string</sf:Version><sf:NumeroInstalacion>string</sf:NumeroInstalacion><sf:TipoUsoPosibleSoloVerifactu>S</sf:TipoUsoPosibleSoloVerifactu><sf:TipoUsoPosibleMultiOT>S</sf:TipoUsoPosibleMultiOT><sf:IndicadorMultiplesOT>S</sf:IndicadorMultiplesOT></sf:SistemaInformatico><sf:FechaHoraHusoGenRegistro>dateTime</sf:FechaHoraHusoGenRegistro><sf:NumRegistroAcuerdoFacturacion>string</sf:NumRegistroAcuerdoFacturacion><sf:IdAcuerdoSistemaInformatico>string</sf:IdAcuerdoSistemaInformatico><sf:TipoHuella>01</sf:TipoHuella><sf:Huella>string</sf:Huella><ds:Signature Id="?"><ds:SignedInfo Id="?"><ds:CanonicalizationMethod Algorithm="?"></ds:CanonicalizationMethod><ds:SignatureMethod Algorithm="?"><ds:HMACOutputLength>integer</ds:HMACOutputLength></ds:SignatureMethod><ds:Reference Id="?" URI="?" Type="?"><ds:Transforms><ds:Transform Algorithm="?"></ds:Transform></ds:Transforms><ds:DigestMethod Algorithm="?"></ds:DigestMethod><ds:DigestValue>BASE64_DATA</ds:DigestValue></ds:Reference></ds:SignedInfo><ds:SignatureValue>...</ds:SignatureValue><ds:KeyInfo Id="?"></ds:KeyInfo><ds:Object Id="?" MimeType="?" Encoding="?"></ds:Object></ds:Signature></sfLR:RegistroAlta></sfLR:RegistroFactura>")
// In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
loo_Xml.EmitXmlDecl = 0
ls_SoapRequestBody = loo_Xml.GetXml()
ls_Endpoint = "https:///www1.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/RequerimientoSOAP"
ls_SoapAction = ""// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
ls_ContentType = "text/xml"
loo_Http = createoleobject// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
loo_Http.ClearHeaders()
loo_Http.SetRequestHeader("Content-Type",ls_ContentType)
loo_Http.SetRequestHeader("SOAPAction",ls_SoapAction)
loo_Resp = loo_Http.PostXml(ls_Endpoint,ls_SoapRequestBody,"utf-8")
if loo_Http.LastMethodSuccess = 0then
Write-Debug loo_Http.LastErrorText
Write-Debug "Failed to send SOAP request."destroy loo_Xml
destroy loo_Http
returnend if// Get the XML response body.
loo_ResponseXml = createoleobject// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_ResponseXml.ConnectToNewObject("Chilkat.Xml")
loo_Resp.GetBodyXml(loo_ResponseXml)
li_StatusCode = loo_Resp.StatusCode
Write-Debug "response status code: " + string(li_StatusCode)
destroy loo_Resp
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.if li_StatusCode <> 200then
Write-Debug loo_ResponseXml.GetXml()
destroy loo_Xml
destroy loo_Http
destroy loo_ResponseXml
returnend if
Write-Debug loo_ResponseXml.GetXml()
// Parse the successful SOAP response XML.// This is a sample of the response XML, but the namespace prefixes will be different.
// We can parse the result using "*" for the namespace prefixes (see below).
ls_CSV = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:CSV")
ls_NIFPresentador = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:DatosPresentacion|*:NIFPresentador")
ls_TimestampPresentacion = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:DatosPresentacion|*:TimestampPresentacion")
ls_Cabecera = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:Cabecera")
ls_TiempoEsperaEnvio = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:TiempoEsperaEnvio")
ls_EstadoEnvio = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:EstadoEnvio")
ls_IDEmisorFactura = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:IDEmisorFactura")
ls_NumSerieFactura = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:NumSerieFactura")
ls_FechaExpedicionFactura = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:IDFactura|*:FechaExpedicionFactura")
ls_EstadoRegistro = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:EstadoRegistro")
ls_CodigoErrorRegistro = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:CodigoErrorRegistro")
ls_DescripcionErrorRegistro = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:DescripcionErrorRegistro")
ls_CSVRegistroDuplicado = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:CSVRegistroDuplicado")
ls_EstadoRegistroDuplicado = loo_ResponseXml.GetChildContent("*:Body|*:RespuestaRegFactuSistemaFacturacion|*:RespuestaLinea|*:EstadoRegistroDuplicado")
destroy loo_Xml
destroy loo_Http
destroy loo_ResponseXml