Dim xml As NewChilkat.Xml
xml.Tag = "soapenv:Envelope"
xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
xml.AddAttribute("xmlns:sfLRC","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/ConsultaLR.xsd")
xml.AddAttribute("xmlns:sf","https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd")
xml.UpdateChildContent("soapenv:Header","")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:IDVersion","1.0")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:ObligadoEmision|sf:NombreRazon","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:ObligadoEmision|sf:NIF","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:Cabecera|sf:IndicadorRepresentante","S")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:PeriodoImputacion|sf:Ejercicio","string")
xml.UpdateChildContentInt("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:PeriodoImputacion|sf:Periodo",01)
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:NumSerieFactura","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:Contraparte|sf:NombreRazon","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:Contraparte|sf:NIF","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:FechaExpedicionFactura","")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NombreRazon","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NIF","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NombreSistemaInformatico","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:IdSistemaInformatico","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:Version","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:NumeroInstalacion","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:TipoUsoPosibleSoloVerifactu","S")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:TipoUsoPosibleMultiOT","S")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:SistemaInformatico|sf:IndicadorMultiplesOT","S")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:RefExterna","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:IDEmisorFactura","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:NumSerieFactura","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:FiltroConsulta|sfLRC:ClavePaginacion|sf:FechaExpedicionFactura","string")
xml.UpdateChildContent("soapenv:Body|sfLRC:ConsultaFactuSistemaFacturacion|sfLRC:DatosAdicionalesRespuesta|sfLRC:MostrarNombreRazonEmisor","S")
xml.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.
xml.EmitXmlDecl = FalseDim soapRequestBody As String = xml.GetXml()
Dim endpoint As String = "https://www1.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP"Dim soapAction As String = ""' For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Dim contentType As String = "text/xml"Dim http As NewChilkat.Http
http.ClearHeaders()
http.SetRequestHeader("Content-Type",contentType)
http.SetRequestHeader("SOAPAction",soapAction)
Dim resp AsChilkat.HttpResponse = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = False) Then
Debug.WriteLine(http.LastErrorText)
Debug.WriteLine("Failed to send SOAP request.")
Exit SubEnd If' Get the XML response body.Dim responseXml As NewChilkat.Xml
resp.GetBodyXml(responseXml)
Dim statusCode As Integer = resp.StatusCode
Debug.WriteLine("response status code: " & statusCode)
' If the status code does not indicate succcess, then show the response XML,
' which probably contains error information.If (statusCode <> 200) Then
Debug.WriteLine(responseXml.GetXml())
Exit SubEnd If
Debug.WriteLine(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).Dim IDVersion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:IDVersion")
Dim NombreRazon As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NombreRazon")
Dim NIF As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:ObligadoEmision|*:NIF")
Dim IndicadorRepresentante As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:Cabecera|*:IndicadorRepresentante")
Dim Ejercicio As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:PeriodoImputacion|*:Ejercicio")
Dim Periodo As Integer = responseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:PeriodoImputacion|*:Periodo")
Dim IndicadorPaginacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:IndicadorPaginacion")
Dim ResultadoConsulta As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ResultadoConsulta")
Dim IDEmisorFactura As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:IDEmisorFactura")
Dim NumSerieFactura As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:NumSerieFactura")
Dim FechaExpedicionFactura As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:IDFactura|*:FechaExpedicionFactura")
Dim NombreRazonEmisor As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NombreRazonEmisor")
Dim RefExterna As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:RefExterna")
Dim Subsanacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Subsanacion")
Dim RechazoPrevio As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:RechazoPrevio")
Dim SinRegistroPrevio As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SinRegistroPrevio")
Dim GeneradoPor As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:GeneradoPor")
NombreRazon = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Generador|*:NombreRazon")
NIF = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Generador|*:NIF")
Dim TipoFactura As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoFactura")
Dim TipoRectificativa As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoRectificativa")
IDEmisorFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:IDEmisorFactura")
NumSerieFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:NumSerieFactura")
FechaExpedicionFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasRectificadas|*:IDFacturaRectificada|*:FechaExpedicionFactura")
IDEmisorFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:IDEmisorFactura")
NumSerieFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:NumSerieFactura")
FechaExpedicionFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturasSustituidas|*:IDFacturaSustituida|*:FechaExpedicionFactura")
Dim BaseRectificada As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:BaseRectificada")
Dim CuotaRectificada As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:CuotaRectificada")
Dim CuotaRecargoRectificado As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteRectificacion|*:CuotaRecargoRectificado")
Dim FechaOperacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaOperacion")
Dim DescripcionOperacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:DescripcionOperacion")
Dim FacturaSimplificadaArt7273 As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturaSimplificadaArt7273")
Dim FacturaSinIdentifDestinatarioArt61d As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FacturaSinIdentifDestinatarioArt61d")
Dim Macrodato As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Macrodato")
Dim EmitidaPorTerceroODestinatario As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:EmitidaPorTerceroODestinatario")
NombreRazon = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Tercero|*:NombreRazon")
NIF = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Tercero|*:NIF")
NombreRazon = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Destinatarios|*:IDDestinatario|*:NombreRazon")
NIF = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Destinatarios|*:IDDestinatario|*:NIF")
Dim Cupon As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Cupon")
Dim Impuesto As Integer = responseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:Impuesto")
Dim ClaveRegimen As Integer = responseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:ClaveRegimen")
Dim CalificacionOperacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CalificacionOperacion")
Dim TipoImpositivo As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:TipoImpositivo")
Dim BaseImponibleOimporteNoSujeto As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:BaseImponibleOimporteNoSujeto")
Dim BaseImponibleACoste As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:BaseImponibleACoste")
Dim CuotaRepercutida As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CuotaRepercutida")
Dim TipoRecargoEquivalencia As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:TipoRecargoEquivalencia")
Dim CuotaRecargoEquivalencia As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Desglose|*:DetalleDesglose|*:CuotaRecargoEquivalencia")
Dim CuotaTotal As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:CuotaTotal")
Dim ImporteTotal As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:ImporteTotal")
NombreRazon = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NombreRazon")
NIF = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NIF")
Dim NombreSistemaInformatico As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NombreSistemaInformatico")
Dim IdSistemaInformatico As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:IdSistemaInformatico")
Dim Version As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:Version")
Dim NumeroInstalacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:NumeroInstalacion")
Dim TipoUsoPosibleSoloVerifactu As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:TipoUsoPosibleSoloVerifactu")
Dim TipoUsoPosibleMultiOT As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:TipoUsoPosibleMultiOT")
Dim IndicadorMultiplesOT As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:SistemaInformatico|*:IndicadorMultiplesOT")
Dim FechaHoraHusoGenRegistro As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaHoraHusoGenRegistro")
Dim NumRegistroAcuerdoFacturacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NumRegistroAcuerdoFacturacion")
Dim IdAcuerdoSistemaInformatico As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:IdAcuerdoSistemaInformatico")
Dim TipoHuella As Integer = responseXml.GetChildIntValue("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:TipoHuella")
Dim Huella As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Huella")
Dim NifRepresentante As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:NifRepresentante")
Dim FechaFinVeriFactu As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:FechaFinVeriFactu")
Dim Incidencia As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosRegistroFacturacion|*:Incidencia")
Dim NIFPresentador As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:NIFPresentador")
Dim TimestampPresentacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:TimestampPresentacion")
Dim IdPeticion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:DatosPresentacion|*:IdPeticion")
Dim TimestampUltimaModificacion As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:TimestampUltimaModificacion")
Dim EstadoRegistro As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:EstadoRegistro")
Dim CodigoErrorRegistro As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:CodigoErrorRegistro")
Dim DescripcionErrorRegistro As String = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:RegistroRespuestaConsultaFactuSistemaFacturacion|*:EstadoRegistro|*:DescripcionErrorRegistro")
IDEmisorFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:IDEmisorFactura")
NumSerieFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:NumSerieFactura")
FechaExpedicionFactura = responseXml.GetChildContent("*:Body|*:RespuestaConsultaFactuSistemaFacturacion|*:ClavePaginacion|*:FechaExpedicionFactura")