Dim xml As NewChilkat.Xml
xml.Tag = "soapenv:Envelope"Dim success As Boolean
success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
success = xml.AddAttribute("xmlns","http://ws.pc.gif.com.br/")
success = xml.AddAttribute("xmlns:nfs","http://nfse.abrasf.org.br")
success = xml.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
xml.UpdateChildContent"soapenv:Header",""
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe",True,"versao","?")
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|CNPJ","token string"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|notaInicial","token string"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|notaFinal","token string"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|emissaoInicial","date"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|emissaoFinal","date"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|serieNotaFiscal","string"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|serie_nf","string"
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature",True,"Id","?")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo",True,"Id","?")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:CanonicalizationMethod",True,"Algorithm","http://www.w3.org/TR/2001/REC-xml-c14n-20010315")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:SignatureMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#rsa-sha1")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference",True,"Id","?")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference",True,"URI","?")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference",True,"Type","?")
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference|ds:Transforms|ds:Transform",True,"Algorithm","?")
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference|ds:Transforms|ds:Transform|ds:XPath","string"
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference|ds:DigestMethod",True,"Algorithm","http://www.w3.org/2000/09/xmldsig#sha1")
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignedInfo|ds:Reference|ds:DigestValue","BASE64_DATA"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:SignatureValue","..."
success = xml.UpdateAttrAt("soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:KeyInfo",True,"Id","?")
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:KeyInfo|ds:X509Data|ds:X509SubjectName","string"
xml.UpdateChildContent"soapenv:Body|obterLoteNotaFiscalRequest|pedidoLoteNFSe|ds:Signature|ds:KeyInfo|ds:X509Data|ds:X509Certificate","BqozVXeZZg=="// 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
soapRequestBody = xml.GetXml()
Dim endpoint As String
endpoint = "https://canoas-homol.infisc.com.br/services/nfse/ws/Servicos"Dim soapAction As String
soapAction = ""// For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"Dim contentType As String
contentType = "text/xml"Dim http As NewChilkat.Http
http.ClearHeaders
http.SetRequestHeader"Content-Type",contentType
http.SetRequestHeader"SOAPAction",soapAction
Dim resp AsChilkat.HttpResponse
resp = http.PostXml(endpoint,soapRequestBody,"utf-8")
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
System.DebugLog("Failed to send SOAP request.")
ReturnEnd If// Get the XML response body.Dim responseXml As NewChilkat.Xml
success = resp.GetBodyXml(responseXml)
Dim statusCode As Int32
statusCode = resp.StatusCode
System.DebugLog("response status code: " + Str(statusCode))
// If the status code does not indicate succcess, then show the response XML,
// which probably contains error information.If (statusCode <> 200) Then
System.DebugLog(responseXml.GetXml())
ReturnEnd If
System.DebugLog(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 Envelope_xmlns As String
Envelope_xmlns = responseXml.GetAttrValue("xmlns")
Dim resPedidoLoteNFSe_versao As String
resPedidoLoteNFSe_versao = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|(versao)")
Dim CNPJ As String
CNPJ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|CNPJ")
Dim dhRecbto As String
dhRecbto = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|dhRecbto")
Dim infNFSe_versao As String
infNFSe_versao = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|(versao)")
Dim cNFS_e As String
cNFS_e = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|cNFS-e")
Dim v_mod As String
v_mod = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|mod")
Dim serie As String
serie = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|serie")
Dim nNFS_e As String
nNFS_e = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|nNFS-e")
Dim dEmi As String
dEmi = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|dEmi")
Dim hEmi As String
hEmi = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|hEmi")
Dim tpNF As String
tpNF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|tpNF")
Dim refNF As String
refNF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|refNF")
Dim tpImp As String
tpImp = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|tpImp")
Dim tpEmis As String
tpEmis = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|tpEmis")
Dim cancelada As String
cancelada = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|cancelada")
Dim motCanc As String
motCanc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|motCanc")
Dim dataCanc As String
dataCanc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|dataCanc")
Dim notaDebito As String
notaDebito = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|notaDebito")
Dim notaSub As String
notaSub = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|notaSub")
Dim canhoto As String
canhoto = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|canhoto")
Dim ambienteEmi As String
ambienteEmi = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|ambienteEmi")
Dim formaEmi As String
formaEmi = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|formaEmi")
Dim empreitadaGlobal As String
empreitadaGlobal = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|empreitadaGlobal")
Dim codRPS As String
codRPS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|codRPS")
Dim rps As String
rps = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|rps")
Dim serierps As String
serierps = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|serierps")
Dim dataEmissaoRpsPapel As String
dataEmissaoRpsPapel = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|dataEmissaoRpsPapel")
Dim enviarEmail As String
enviarEmail = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|enviarEmail")
Dim chaveAcessoSubstituida As String
chaveAcessoSubstituida = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|Id|chaveAcessoSubstituida")
CNPJ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|CNPJ")
Dim xNome As String
xNome = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|xNome")
Dim xFant As String
xFant = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|xFant")
Dim IM As String
IM = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|IM")
Dim xEmail As String
xEmail = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|xEmail")
Dim xSite As String
xSite = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|xSite")
Dim xLgr As String
xLgr = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|xLgr")
Dim nro As String
nro = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|nro")
Dim xCpl As String
xCpl = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|xCpl")
Dim xBairro As String
xBairro = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|xBairro")
Dim cMun As String
cMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|cMun")
Dim xMun As String
xMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|xMun")
Dim UF As String
UF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|UF")
Dim CEP As String
CEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|CEP")
Dim cPais As String
cPais = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|cPais")
Dim xPais As String
xPais = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|end|xPais")
Dim fone As String
fone = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|fone")
Dim fone2 As String
fone2 = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|fone2")
Dim IE As String
IE = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|IE")
Dim regimeTrib As String
regimeTrib = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|prest|regimeTrib")
CNPJ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|CNPJ")
xNome = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|xNome")
xLgr = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|xLgr")
nro = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|nro")
xCpl = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|xCpl")
xBairro = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|xBairro")
cMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|cMun")
xMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|xMun")
UF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|UF")
CEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|CEP")
cPais = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|cPais")
xPais = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|ender|xPais")
xEmail = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|xEmail")
IE = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|IE")
IM = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|IM")
Dim IME As String
IME = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|IME")
fone = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|fone")
fone2 = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|TomS|fone2")
CNPJ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|CNPJ")
xNome = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|xNome")
IM = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|IM")
cMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|cMun")
xMun = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|xMun")
UF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|intermediario|UF")
Dim protocoloObra As String
protocoloObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|protocoloObra")
Dim codigoVinculacao As String
codigoVinculacao = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|codigoVinculacao")
Dim xLogObra As String
xLogObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xLogObra")
Dim xComplObra As String
xComplObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xComplObra")
Dim vNumeroObra As String
vNumeroObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|vNumeroObra")
Dim xBairroObra As String
xBairroObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xBairroObra")
Dim xCepObra As String
xCepObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xCepObra")
Dim cCidadeObra As String
cCidadeObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|cCidadeObra")
Dim xCidadeObra As String
xCidadeObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xCidadeObra")
Dim xUfObra As String
xUfObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xUfObra")
Dim cPaisObra As String
cPaisObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|cPaisObra")
Dim xPaisObra As String
xPaisObra = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|xPaisObra")
Dim numeroArt As String
numeroArt = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|numeroArt")
Dim numeroCei As String
numeroCei = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|numeroCei")
Dim numeroProj As String
numeroProj = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|numeroProj")
Dim numeroMatri As String
numeroMatri = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|dadosDaObra|numeroMatri")
Dim xNomeTrans As String
xNomeTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xNomeTrans")
Dim xCpfCnpjTrans As String
xCpfCnpjTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xCpfCnpjTrans")
Dim xInscEstTrans As String
xInscEstTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xInscEstTrans")
Dim xPlacaTrans As String
xPlacaTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xPlacaTrans")
Dim xEndTrans As String
xEndTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xEndTrans")
Dim cMunTrans As String
cMunTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|cMunTrans")
Dim xMunTrans As String
xMunTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xMunTrans")
Dim xUfTrans As String
xUfTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xUfTrans")
Dim cPaisTrans As String
cPaisTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|cPaisTrans")
Dim xPaisTrans As String
xPaisTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|xPaisTrans")
Dim vTipoFreteTrans As String
vTipoFreteTrans = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|transportadora|vTipoFreteTrans")
Dim nItem As String
nItem = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|nItem")
Dim cServ As String
cServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|cServ")
Dim cLCServ As String
cLCServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|cLCServ")
Dim xServ As String
xServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|xServ")
Dim localTributacao As String
localTributacao = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|localTributacao")
Dim localVerifResServ As String
localVerifResServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|localVerifResServ")
Dim uTrib As String
uTrib = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|uTrib")
Dim qTrib As String
qTrib = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|qTrib")
Dim vUnit As String
vUnit = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vUnit")
Dim vServ As String
vServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vServ")
Dim vDesc As String
vDesc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vDesc")
Dim vDed As String
vDed = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vDed")
Dim vBCISS As String
vBCISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCISS")
Dim pISS As String
pISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pISS")
Dim vISS As String
vISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vISS")
Dim vBCINSS As String
vBCINSS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCINSS")
Dim pRetINSS As String
pRetINSS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pRetINSS")
Dim vRetINSS As String
vRetINSS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetINSS")
Dim vRed As String
vRed = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRed")
Dim vBCRetIR As String
vBCRetIR = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCRetIR")
Dim pRetIR As String
pRetIR = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pRetIR")
Dim vRetIR As String
vRetIR = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetIR")
Dim vBCCOFINS As String
vBCCOFINS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCCOFINS")
Dim pRetCOFINS As String
pRetCOFINS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pRetCOFINS")
Dim vRetCOFINS As String
vRetCOFINS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetCOFINS")
Dim vBCCSLL As String
vBCCSLL = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCCSLL")
Dim pRetCSLL As String
pRetCSLL = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pRetCSLL")
Dim vRetCSLL As String
vRetCSLL = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetCSLL")
Dim vBCPISPASEP As String
vBCPISPASEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vBCPISPASEP")
Dim pRetPISPASEP As String
pRetPISPASEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|pRetPISPASEP")
Dim vRetPISPASEP As String
vRetPISPASEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetPISPASEP")
Dim vRetOutrasRet As String
vRetOutrasRet = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|vRetOutrasRet")
Dim totalAproxTribServ As String
totalAproxTribServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|totalAproxTribServ")
Dim xPed As String
xPed = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|xPed")
Dim nItemPed As String
nItemPed = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|serv|nItemPed")
Dim vRedBCST As String
vRedBCST = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|ISSST|vRedBCST")
Dim vBCST As String
vBCST = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|ISSST|vBCST")
Dim pISSST As String
pISSST = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|ISSST|pISSST")
Dim vISSST As String
vISSST = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|ISSST|vISSST")
Dim xPlaca As String
xPlaca = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|estacionamento|xPlaca")
Dim dDataInicial As String
dDataInicial = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|estacionamento|dDataInicial")
Dim hHoraInicial As String
hHoraInicial = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|estacionamento|hHoraInicial")
Dim dDataFinal As String
dDataFinal = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|estacionamento|dDataFinal")
Dim hHoraFinal As String
hHoraFinal = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|estacionamento|hHoraFinal")
Dim unidade As String
unidade = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|unidade")
Dim qtdHospede As String
qtdHospede = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|qtdHospede")
Dim dDataEntrada As String
dDataEntrada = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|dDataEntrada")
Dim hHoraEntrada As String
hHoraEntrada = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|hHoraEntrada")
Dim dDataSaida As String
dDataSaida = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|dDataSaida")
Dim hHoraSaida As String
hHoraSaida = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|hospedagem|hHoraSaida")
Dim nome As String
nome = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|dependente|nome")
Dim cpf As String
cpf = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|dependente|cpf")
Dim dataNascimento As String
dataNascimento = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|dependente|dataNascimento")
nome = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|evento|nome")
Dim tipo As String
tipo = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|evento|tipo")
Dim dataInicioEvento As String
dataInicioEvento = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|evento|dataInicioEvento")
Dim dataFimEvento As String
dataFimEvento = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|det|evento|dataFimEvento")
Dim nItemDesp As String
nItemDesp = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|despesas|despesa|nItemDesp")
Dim xDesp As String
xDesp = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|despesas|despesa|xDesp")
Dim dDesp As String
dDesp = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|despesas|despesa|dDesp")
Dim vDesp As String
vDesp = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|despesas|despesa|vDesp")
nItem = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|nItem")
Dim numeroTitulo As String
numeroTitulo = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|numeroTitulo")
Dim descricao As String
descricao = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|descricao")
unidade = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|unidade")
Dim quantidade As String
quantidade = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|quantidade")
Dim vRetencao As String
vRetencao = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|vRetencao")
Dim vRepasseTerceiros As String
vRepasseTerceiros = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|vRepasseTerceiros")
vDesc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|vDesc")
Dim vTotal As String
vTotal = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|vTotal")
Dim vLiq As String
vLiq = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|vLiq")
Dim tipoPagamento As String
tipoPagamento = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|tipoPagamento")
Dim numeroLote As String
numeroLote = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|numeroLote")
Dim codigoReembolso As String
codigoReembolso = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|codigoReembolso")
Dim dataPagamento As String
dataPagamento = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|reembolso|dataPagamento")
vServ = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vServ")
Dim vReemb As String
vReemb = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vReemb")
Dim vRedBCCivil As String
vRedBCCivil = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vRedBCCivil")
vDesc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vDesc")
Dim vDescCondicional As String
vDescCondicional = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vDescCondicional")
Dim vDescICMS As String
vDescICMS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vDescICMS")
Dim vtDed As String
vtDed = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vtDed")
Dim vtNF As String
vtNF = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vtNF")
Dim vtLiq As String
vtLiq = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vtLiq")
Dim totalAproxTrib As String
totalAproxTrib = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|totalAproxTrib")
vRetIR = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetIR")
vRetPISPASEP = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetPISPASEP")
vRetCOFINS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetCOFINS")
vRetCSLL = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetCSLL")
vRetINSS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetINSS")
vRetOutrasRet = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|Ret|vRetOutrasRet")
Dim vtLiqFaturas As String
vtLiqFaturas = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vtLiqFaturas")
Dim vtDespesas As String
vtDespesas = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|vtDespesas")
vBCISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|ISS|vBCISS")
vISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|ISS|vISS")
Dim vBCSTISS As String
vBCSTISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|ISS|vBCSTISS")
Dim vSTISS As String
vSTISS = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|total|ISS|vSTISS")
nItem = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|nItem")
Dim nFat As String
nFat = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|nFat")
Dim dVenc As String
dVenc = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|dVenc")
Dim vFat As String
vFat = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|vFat")
Dim tipoVencFat As String
tipoVencFat = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|tipoVencFat")
Dim descTipoVencFat As String
descTipoVencFat = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|faturas|fat|descTipoVencFat")
Dim infAdicLT As String
infAdicLT = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|infAdicLT")
Dim infAdicES As String
infAdicES = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|infAdicES")
Dim infAdic As String
infAdic = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|infAdic")
Dim infAdicAT As String
infAdicAT = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|infAdicAT")
Dim NumVeiculo As String
NumVeiculo = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|NFS-e|infNFSe|NumVeiculo")
Dim sit As String
sit = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|sit")
Dim Signature_Id As String
Signature_Id = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|(Id)")
Dim SignedInfo_Id As String
SignedInfo_Id = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|(Id)")
Dim CanonicalizationMethod_Algorithm As String
CanonicalizationMethod_Algorithm = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:CanonicalizationMethod|(Algorithm)")
Dim SignatureMethod_Algorithm As String
SignatureMethod_Algorithm = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:SignatureMethod|(Algorithm)")
Dim Reference_Id As String
Reference_Id = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|(Id)")
Dim Reference_URI As String
Reference_URI = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|(URI)")
Dim Reference_Type As String
Reference_Type = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|(Type)")
Dim Transform_Algorithm As String
Transform_Algorithm = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|*:Transforms|*:Transform|(Algorithm)")
Dim XPath As String
XPath = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|*:Transforms|*:Transform|*:XPath")
Dim DigestMethod_Algorithm As String
DigestMethod_Algorithm = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|*:DigestMethod|(Algorithm)")
Dim DigestValue As String
DigestValue = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignedInfo|*:Reference|*:DigestValue")
Dim SignatureValue As String
SignatureValue = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:SignatureValue")
Dim KeyInfo_Id As String
KeyInfo_Id = responseXml.ChilkatPath("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:KeyInfo|(Id)")
Dim X509SubjectName As String
X509SubjectName = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:KeyInfo|*:X509Data|*:X509SubjectName")
Dim X509Certificate As String
X509Certificate = responseXml.GetChildContent("*:Body|obterLoteNotaFiscalResponse|resPedidoLoteNFSe|*:Signature|*:KeyInfo|*:X509Data|*:X509Certificate")