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.

Ao carregar o arquivo de retorno do banco safra está lendo um dígito a menos no nosso número: Segue alteração: //ACBrBancoSafra.pas //Linha 535 esta NossoNumero := Copy(Linha, 63, 8); //precisa mudar para NossoNumero := Copy(Linha, 63, 9);

A rotina de leitura do campo nosso numero no banco safra esta copiando um digito a menos. Segue alterações: Linha 538 esta NossoNumero := Copy(Linha, 63, 8); precisa mudar para NossoNumero := Copy(Linha, 63, 9); Arquivo ACBrBancoSafra.pas

Este problema ocorre por que quando é necessário compilar os pacotes através do Delphi (Acredito que nas versões XE) quando abrimos o pacote pelo delphi, ele remove as entradas não válidas no arquivo de recurso, neste caso, ACBrComum.res. Para resolver o problema: atualize os fontes abra o arquivo ACBrComum.res através de um editor de recurso Salve a imagem contida na entrada ACBR em um diretório temporario Abra o arquivo ACBrComum.dcr através do editor Adicione uma nova entrada denominada ACBR e carregue o conteúdo do arquivo salvo anteriormente Pronto agora só compilar os pacotes pelo delphi e tudo estará funcionando

Tranquilo Daniel. Admiro muito o trabalho do ACBr, como falei minha intenção é ajudar. Eu também utilizava o SVN e tive problemas no começo com o Github, mas com o tempo fui me adequando e gostei muito do resultado. Vou, deixar mais uma dica, caso tenha interesse de experimentar o github neste projeto. Os projetos no github podem ser baixados via svn(tortoiseSNV) sem problemas, só não é possível enviar comits(push)

Não estou tentando tentando impor absolutamente nada, estou tentando colaborar para facilitar o desenvolvimento. Acredito que agora sim, tive uma resposta com motivos justificados pelos quais o projeto não é migrado. Acredito que a primeira resposta que obtive (posso ter intendido mal) não era condizente com o que o github proporciona, e as limitações citadas na primeira respostas não são coerentes Peço desculpas, por qualquer mal entendido.

Me desculpe discordar, os pull requests podem ser aceitos apenas depois dos teste. E quanto ao tamanho do projeto acredito estar enganado, existem projetos muito, muito maiores e não tem estes problemas. Enfim, é certo que facilitaria, mas a decisão é de vocês

Olá, já utilizo o ACBr a algum tempo, e já fiz alterações que acredito serem possíveis de ser adicionado ao projeto. Acredito que se fosse possível migrar o ACBr para o github, o projeto iria crescer ainda mais, pois qualquer pessoa poderia solicitar um pull request para o repositório oficial, e os coordenadores poderia dizer se aceitam ou não a alteração. Fica a sugestão.