plenustech

Olá fiz algumas alterações nas chamadas de alguns métodos para deixar o código das units do auttar dll compatível com a versão mais atual do ACBr, Obs.: Homologamos e estamos instalando em clientes com essa implementação. Link: https://plenustech.cloudstorage.pw/index.php/s/GzX9ZwtPtey9AJj

Pessoal Bom dia ... Como está a situação desta solução "Componente ElginTef e MSitef Android" ?

Ok .. Muito obrigado.

Um detalhe implementado no método "TNFSeR_Agili.LerSituacaoNfse()", ao tratar a situação da nota o código " NFSe.Situacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Codigo'), tcInt); " "ObterConteudo()" como inteiro, internamente está removendo o '-' Solução: " NFSe.Situacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Codigo'), tcStr) " Assim como está sendo feito em: " NFSe.MotivoCancelamento := ObterConteudo(AuxNode.Childrens.FindAnyNs('MotivoCancelamento'), tcStr); ". ACBr - Version - 26729 - Agili.LerXml.pas; Modificado - Agili.LerXml.pas;

RPs - > RPS.rar Arquivo Alterado ->Agili.LerXml.rar RPS-4367.rar

Ao carregar um xml/Rps, o componente não está atribuindo os dados do xml nos seus respectivos campos, isso ocorre porque o método "TNFSeR_Agili.LerInfDeclaracaoPrestacaoServico()" está buscando pelo grupo da tag 'DeclaracaoPrestacaoServico" em vez da tag 'InfDeclaracaoPrestacaoServico" , para resolver a situação o código foi modificado para buscar um desses dois grupos da tag. Um outro detalhe implementado foi no método "TNFSeR_Agili.LerSituacaoNfse()", ao tratar a situação da nota o código estava alterando o valor do retorno de -2 para 2, isso ocorria por que era passado o tipAgili.raro do dado no método "ObterConteudo()" como inteiro, internamente existia uma outra função que estava removendo o '-'

vou providenciar um xml validado e te envio.

Correções já implementadas: Ao carregar um xml/Rps, o componente não está atribuindo os dados do xml nos seus respectivos campos, isso ocorre porque o método "TNFSeR_Agili.LerInfDeclaracaoPrestacaoServico()" está buscando pelo grupo da tag 'DeclaracaoPrestacaoServico" em vez da tag 'InfDeclaracaoPrestacaoServico" , para resolver a situação o código foi modificado para buscar um desses dois grupos da tag. Um outro detalhe implementado foi no método "TNFSeR_Agili.LerSituacaoNfse()", ao tratar a situação da nota o código estava alterando o valor do retorno de -2 para 2, isso ocorria por que era passado o tipo do dado no método "ObterConteudo()" como inteiro, internamente existia uma outra função que estava removendo o '-'. Agili.LerXml.pas NFSe.xml

Aqui está. Agili.Provider.pas

Bom dia, Fiz um comentário equivocado quanto a quando utilizamos o código modificado para buscar por Rps disse que (" porém apesar de ter achado e modificado a Nota certa ainda adicionou o Retorno novamente ficando duas ao invés de uma como deveria ") na verdade retornou apenas um item, o que está correto no decorrer do processo. Peço desculpas pelo equívoco. Obrigado.

Deixa eu voltar um pouco, no problema original. Quanto vou emitir uma NFSe para a Agili eu chamo o Método Emitir, porem o componente nunca modifica a Nota que esta na posição zero (Items[0] que foi o RPS que eu enviei), o que ele faz é adicionar uma nova NotaFiscal, ou seja o retorno acaba indo para a posição um (item[1]) nele eu consigo ver a NFSe que foi gerada. Debugando percebi que o ACBr usa o valor da Tag Numero (que esta dentro de NFSe->Numero) para procurar na lista das NotasFicais o documento correspondente, porém não encontra pois não tem esse numero no RPS que eu enviei, o numero que tenho disponível é o numero do RPS, e por isso acaba por adicionar o retorno ao componente ficando duas notas. Esse é o código que esta hoje: Esta procurando pelo numero da NFSe (esse valor ainda não tem no componente) e não encontrar então faz o LoadFromString e acaba inserindo mais uma nota no NotasFiscais (NotasFiscais.items[1]) Esse é o código modificado: Mudando esse trecho para buscar por Rps até achou a nota (não fez a loadFromString nessa parte), porém apesar de ter achado e modificado a Nota certa ainda adicionou o Retorno novamente ficando duas ao invés de uma como deveria (notasFiscais.Items[1]); O problema é que eu espero enviar apenas uma nota e receber o retorno apenas desta nota, logo vou olhar para a nota no item[0] (primeira nota) e ela não vai estar confirmada, mas a segunda nota (item[1]) vai estar;

Atualmente => "C:\Samples\exe\Notas Fiscais\NFSe".

Boa tarde ... Estou tendo problemas quanto ao método (Line: 255 - procedure TACBrNFSeProviderAgili.TratarRetornoEmitir(Response: TNFSeEmiteResponse);) da unit Agili.Provider Line: 306 - ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumRps); Retornando (nil). Arquivo Gerado para envio não possui a tag <Nfse> -> <Numero>, sendo esses dados pertencentes ao arquivo retornado do provider. Line: 255 - procedure TACBrNFSeProviderAgili.TratarRetornoEmitir(Response: TNFSeEmiteResponse); Line: 294 - ANode := ANode.Childrens.FindAnyNs('Nfse'); Line: 304 - NumRps := ObterConteudoTag(ANode.Childrens.FindAnyNs('Numero'), tcStr); (Ex: Retorna o valor da tag <Numero> "134") Line: 306 - ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByNFSe(NumRps); Segue imagens em anexo:

Olá galera, foram feiras algumas alterações no ACBrNFSe, há algum cliente que é optante MEISimei na Cidade de Juina-MT, e não havia uma forma de enviar essa informação pelo componente, eis as mudanças(em anexo). pnfsNFSeW_Agili.pas pnfsLerListaNFSe.pas pnfsNFSe.pas

Usando o modelo ppEscPosStar fica bacana, porém, o qrcode não e gerado. no caso do ppEscDaruma especifico da daruma, não está ficando formatado e nem gerando o qrcod. Resumindo, testei com todos modelos!