Leandro Guindani Gehlen

Segue mais correções do boleto Itaú ACBrBoletoW_Itau_API.pas

Segue em anexo alterações necessárias para homologação do boleto Itau V2 ACBrBoletoW_Itau_API.pasACBrBoletoRet_Itau_API.pas

Segue abaixo as configurações do servidor webservice para a cidade de Três Pontas - MG, para serem incluídas no fontes. [3169406] Nome=Tres Pontas UF=MG Provedor=IPM Versao=1.01 ProRecepcionar=https://trespontas.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao

O erro acontece apenas com alguns provedores (no meu caso publica) e openssl. Segue as configurações //Provedor: proPublica ACBrNFSe.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFSe.Configuracoes.WebServices.TimeOut := 15000;

Desculpe acabei anexando a unit errada. Em anexo está unit correta ACBrDFeXsLibXml2.pas

Não realizei testes neste componente. Segue a unit em anexo ACBrDFeXsXmlSec.pas

Já havia criado um tópico sobre este erro: o mesmo foi fechado porém a correção não foi realizada. Estou enviando o patch de correção para que se possível seja aplicado a correção. ACBrDFeXsLibXml2.pas.patch

Desculpe olhei o debug mas não estava atualizado. Realmente a unica forma que o nó é encontrado é realizando busca por 'Rps'

Parece redundante, se PosPrefix for 0 vai copiar a linha toda de qualquer forma Sim vc esta correto. Isso não vai causar problemas com outros provedores ou outros documentos (NFe, CTe, MDFe, BPe...)? Eu não possuo conhecimento a fundo para te responder. A única coisa que posso afirmar é que a biblioteca libxml realiza buscas pelo nome do nó, sendo assim: 'Rps></GerarNfseEnvio', 'Rps>', '<Rps>': Nenhum nó será encontrado Talvez o problema mesmo se encontre na linha 3791 do arquivo ACBrNFSeWebServices.pas case FProvedor of proBethav2, proPublica: FTagGrupo := FPrefixo3 + 'Rps></GerarNfseEnvio'; proSigep: FTagGrupo := FPrefixo3 + 'Rps></' + FPrefixo3 + 'GerarNfseEnvio'; end; Só retificando: 'Rps></GerarNfseEnvio', 'Rps>': Nenhum nó será encontrado '<Rps>' ou 'Rps': funciona corretamente

Estou usando o Provedor Publica

ACBrNFSe.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFSe.Configuracoes.Geral.PathIniProvedor := FDirRecursos; ACBrNFSe.Configuracoes.Geral.PathIniCidades := FDirRecursos; ACBrNFSe.Configuracoes.WebServices.Ambiente := taProducao;

Segue patch de correcao ACBrDFeXsLibXml2.pas.patch

Atualmente existe um bug no arquivo fonte: ACBrDFeXsLibXml2.pas metodo AdicionarNode (linha: 700): Fonte atual: { Se docElement possui prefixo o mesmo tem que ser removido } vdocElement := copy(docElement, Pos(':', docElement) + 1, Length(docElement)); if (vdocElement <> '') then DocNode := LibXmlLookUpNode(DocNode, vdocElement); Correção: PosPrefix := Pos(':', docElement); { Se docElement possui prefixo o mesmo tem que ser removido } if (PosPrefix > 0) then vdocElement := copy(docElement, PosPrefix + 1, Length(docElement)) else vdocElement := docElement; vdocElement := copy(vdocElement, 1, Pos('>', docElement) - 1); Atualmente a busca do nó (no caso de emissao para nfse, provedor Publica) está sendo por 'Rps></GerarNfseEnvio' fazendo com que nenhum nó seja encontrado. A Correcao acima faz com que a busca do nó seja realizada por 'Rps'

Existe um erro a partir da linha 864 do arquivo ACBrBancoSafra.pas. Atualmente está aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, 4), 4, '0') + PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0'); aConta := PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); e deveria ser: aAgencia := PadLeft(RightStr( ACBrBoleto.Cedente.Agencia, fpTamanhoAgencia), fpTamanhoAgencia, '0') + PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0'); aConta := PadLeft(ACBrBoleto.Cedente.Conta, fpTamanhoConta, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');

Por favor desconsiderar. Já existe um post sobre isso.