Jump to content

Leandro Guindani Gehlen

Membros
  • Posts

    19
  • Joined

  • Last visited

1 Follower

Recent Profile Visitors

569 profile views

Leandro Guindani Gehlen's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

4

Reputation

  1. 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;
  2. Desculpe acabei anexando a unit errada. Em anexo está unit correta ACBrDFeXsLibXml2.pas
  3. Não realizei testes neste componente. Segue a unit em anexo ACBrDFeXsXmlSec.pas
  4. 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
  5. Desculpe olhei o debug mas não estava atualizado. Realmente a unica forma que o nó é encontrado é realizando busca por 'Rps'
  6. 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
  7. 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;
  8. 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'
  9. 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');
  10. 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);
  11. 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
  12. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.