LOCAL loXml
LOCAL lcSoapRequestBody
LOCAL lcEndpoint
LOCAL lcSoapAction
LOCAL lcContentType
LOCAL loHttp
LOCAL loResp
LOCAL loResponseXml
LOCAL lnStatusCode
LOCAL lcIDVersion
LOCAL lcNombreRazon
LOCAL lcNIF
LOCAL lcIndicadorRepresentante
LOCAL lcEjercicio
LOCAL lnPeriodo
LOCAL lcIndicadorPaginacion
LOCAL lcResultadoConsulta
LOCAL lcIDEmisorFactura
LOCAL lcNumSerieFactura
LOCAL lcFechaExpedicionFactura
LOCAL lcNombreRazonEmisor
LOCAL lcRefExterna
LOCAL lcSubsanacion
LOCAL lcRechazoPrevio
LOCAL lcSinRegistroPrevio
LOCAL lcGeneradoPor
LOCAL lcTipoFactura
LOCAL lcTipoRectificativa
LOCAL lcBaseRectificada
LOCAL lcCuotaRectificada
LOCAL lcCuotaRecargoRectificado
LOCAL lcFechaOperacion
LOCAL lcDescripcionOperacion
LOCAL lcFacturaSimplificadaArt7273
LOCAL lcFacturaSinIdentifDestinatarioArt61d
LOCAL lcMacrodato
LOCAL lcEmitidaPorTerceroODestinatario
LOCAL lcCupon
LOCAL lnImpuesto
LOCAL lnClaveRegimen
LOCAL lcCalificacionOperacion
LOCAL lcTipoImpositivo
LOCAL lcBaseImponibleOimporteNoSujeto
LOCAL lcBaseImponibleACoste
LOCAL lcCuotaRepercutida
LOCAL lcTipoRecargoEquivalencia
LOCAL lcCuotaRecargoEquivalencia
LOCAL lcCuotaTotal
LOCAL lcImporteTotal
LOCAL lcNombreSistemaInformatico
LOCAL lcIdSistemaInformatico
LOCAL lcVersion
LOCAL lcNumeroInstalacion
LOCAL lcTipoUsoPosibleSoloVerifactu
LOCAL lcTipoUsoPosibleMultiOT
LOCAL lcIndicadorMultiplesOT
LOCAL lcFechaHoraHusoGenRegistro
LOCAL lcNumRegistroAcuerdoFacturacion
LOCAL lcIdAcuerdoSistemaInformatico
LOCAL lnTipoHuella
LOCAL lcHuella
LOCAL lcNifRepresentante
LOCAL lcFechaFinVeriFactu
LOCAL lcIncidencia
LOCAL lcNIFPresentador
LOCAL lcTimestampPresentacion
LOCAL lcIdPeticion
LOCAL lcTimestampUltimaModificacion
LOCAL lcEstadoRegistro
LOCAL lcCodigoErrorRegistro
LOCAL lcDescripcionErrorRegistro
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:sfLRC","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/ConsultaLR.xsd")
loXml.AddAttribute("xmlns:sf","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:IDVersion","1.0")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:ObligadoEmision|sf:NombreRazon","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:ObligadoEmision|sf:NIF","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:IndicadorRepresentante","S")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:PeriodoImputacion|sf:Ejercicio","string")
loXml.UpdateChildContentInt("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:PeriodoImputacion|sf:Periodo",01)
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:NumSerieFactura","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:Contraparte|sf:NombreRazon","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:Contraparte|sf:NIF","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:FechaExpedicionFactura","")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NombreRazon","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NIF","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NombreSistemaInformatico","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:IdSistemaInformatico","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:Version","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NumeroInstalacion","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:TipoUsoPosibleSoloVerifactu","S")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:TipoUsoPosibleMultiOT","S")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:IndicadorMultiplesOT","S")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:RefExterna","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:IDEmisorFactura","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:NumSerieFactura","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:FechaExpedicionFactura","string")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:DatosAdicionalesRespuesta|sfLRC:MostrarNombreRazonEmisor","S")
loXml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:DatosAdicionalesRespuesta|sfLRC:MostrarSistemaInformatico","S")
* In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required.
loXml.EmitXmlDecl = 0
lcSoapRequestBody = loXml.GetXml()
lcEndpoint = "https://www1.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP"
lcSoapAction = ""* For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
lcContentType = "text/xml"
loHttp = CreateObject('Chilkat.Http')
loHttp.ClearHeaders()
loHttp.SetRequestHeader("Content-Type",lcContentType)
loHttp.SetRequestHeader("SOAPAction",lcSoapAction)
loResp = CreateObject('Chilkat.HttpResponse')
ERROR: Undefined variable(success)
ERROR: Undefined variable(success)
IF (ERROR: Undefined variable(success)
= 0) THEN
? loHttp.LastErrorText
? "Failed to send SOAP request."RELEASE loXml
RELEASE loHttp
RELEASE loResp
CANCELENDIF* Get the XML response body.
loResponseXml = CreateObject('Chilkat.Xml')
loResp.GetBodyXml(loResponseXml)
lnStatusCode = loResp.StatusCode
? "response status code: " + STR(lnStatusCode)
* If the status code does not indicate succcess, then show the response XML,
* which probably contains error information.IF (lnStatusCode <> 200) THEN
? loResponseXml.GetXml()
RELEASE loXml
RELEASE loHttp
RELEASE loResp
RELEASE loResponseXml
CANCELENDIF
? loResponseXml.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).
lcIDVersion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:IDVersion")
lcNombreRazon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NombreRazon")
lcNIF = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NIF")
lcIndicadorRepresentante = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:IndicadorRepresentante")
lcEjercicio = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:PeriodoImputacion|*:Ejercicio")
lnPeriodo = loResponseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:PeriodoImputacion|*:Periodo")
lcIndicadorPaginacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:IndicadorPaginacion")
lcResultadoConsulta = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ResultadoConsulta")
lcIDEmisorFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:IDEmisorFactura")
lcNumSerieFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:NumSerieFactura")
lcFechaExpedicionFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:FechaExpedicionFactura")
lcNombreRazonEmisor = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NombreRazonEmisor")
lcRefExterna = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:RefExterna")
lcSubsanacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Subsanacion")
lcRechazoPrevio = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:RechazoPrevio")
lcSinRegistroPrevio = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SinRegistroPrevio")
lcGeneradoPor = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:GeneradoPor")
lcNombreRazon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Generador|*:NombreRazon")
lcNIF = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Generador|*:NIF")
lcTipoFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoFactura")
lcTipoRectificativa = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoRectificativa")
lcIDEmisorFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:IDEmisorFactura")
lcNumSerieFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:NumSerieFactura")
lcFechaExpedicionFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:FechaExpedicionFactura")
lcIDEmisorFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:IDEmisorFactura")
lcNumSerieFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:NumSerieFactura")
lcFechaExpedicionFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:FechaExpedicionFactura")
lcBaseRectificada = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:BaseRectificada")
lcCuotaRectificada = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:CuotaRectificada")
lcCuotaRecargoRectificado = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:CuotaRecargoRectificado")
lcFechaOperacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaOperacion")
lcDescripcionOperacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:DescripcionOperacion")
lcFacturaSimplificadaArt7273 = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturaSimplificadaArt7273")
lcFacturaSinIdentifDestinatarioArt61d = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturaSinIdentifDestinatarioArt61d")
lcMacrodato = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Macrodato")
lcEmitidaPorTerceroODestinatario = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:EmitidaPorTerceroODestinatario")
lcNombreRazon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Tercero|*:NombreRazon")
lcNIF = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Tercero|*:NIF")
lcNombreRazon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Destinatarios|*:IDDestinatario|*:NombreRazon")
lcNIF = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Destinatarios|*:IDDestinatario|*:NIF")
lcCupon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Cupon")
lnImpuesto = loResponseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:Impuesto")
lnClaveRegimen = loResponseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:ClaveRegimen")
lcCalificacionOperacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CalificacionOperacion")
lcTipoImpositivo = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:TipoImpositivo")
lcBaseImponibleOimporteNoSujeto = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:BaseImponibleOimporteNoSujeto")
lcBaseImponibleACoste = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:BaseImponibleACoste")
lcCuotaRepercutida = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CuotaRepercutida")
lcTipoRecargoEquivalencia = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:TipoRecargoEquivalencia")
lcCuotaRecargoEquivalencia = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CuotaRecargoEquivalencia")
lcCuotaTotal = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:CuotaTotal")
lcImporteTotal = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteTotal")
lcNombreRazon = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NombreRazon")
lcNIF = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NIF")
lcNombreSistemaInformatico = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NombreSistemaInformatico")
lcIdSistemaInformatico = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:IdSistemaInformatico")
lcVersion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:Version")
lcNumeroInstalacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NumeroInstalacion")
lcTipoUsoPosibleSoloVerifactu = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:TipoUsoPosibleSoloVerifactu")
lcTipoUsoPosibleMultiOT = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:TipoUsoPosibleMultiOT")
lcIndicadorMultiplesOT = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:IndicadorMultiplesOT")
lcFechaHoraHusoGenRegistro = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaHoraHusoGenRegistro")
lcNumRegistroAcuerdoFacturacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NumRegistroAcuerdoFacturacion")
lcIdAcuerdoSistemaInformatico = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:IdAcuerdoSistemaInformatico")
lnTipoHuella = loResponseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoHuella")
lcHuella = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Huella")
lcNifRepresentante = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NifRepresentante")
lcFechaFinVeriFactu = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaFinVeriFactu")
lcIncidencia = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Incidencia")
lcNIFPresentador = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:NIFPresentador")
lcTimestampPresentacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:TimestampPresentacion")
lcIdPeticion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:IdPeticion")
lcTimestampUltimaModificacion = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:TimestampUltimaModificacion")
lcEstadoRegistro = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:EstadoRegistro")
lcCodigoErrorRegistro = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:CodigoErrorRegistro")
lcDescripcionErrorRegistro = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:DescripcionErrorRegistro")
lcIDEmisorFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:IDEmisorFactura")
lcNumSerieFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:NumSerieFactura")
lcFechaExpedicionFactura = loResponseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:FechaExpedicionFactura")
RELEASE loXml
RELEASE loHttp
RELEASE loResp
RELEASE loResponseXml