Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

felipenadaletti

Membros
  • Posts

    17
  • Joined

  • Last visited

felipenadaletti's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

1

Reputation

  1. Bom dia Ítalo, Atualizei os fontes e realizei os testes, obtive o mesmo erro, verificando, o problema persiste o mesmo, ele não consegue extrair o retorno do xml, e fica com a data de recebimento vazia no ExtrairNotasRetorno. Estou anexando um arquivo de texto com o valor da variavel XMLRet, ao final da execução do ExtrairRetorno, XMLRet-ExtrairRetorno.txt
  2. Bom dia Ítalo, A função ExtrairRetorno é atribuída a variável FPRetWS. Esses são os arquivos que ele gera antes de me dar o erro. 434-sub.xml 434-sub-soap.xml 434-ped-sub.xml 434-ped-sub-soap.xml
  3. Italo, em qual unit estaria essa variavel? Nao consegui encontrar nenhuma FPRetRW
  4. Pelo oq eu vi, passei '1' no ini na configuração 'FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.Substituir', mas pelo oq eu vi, nao mudou nada, o problema está na ExtrairNotasRetorno acredito eu, pois ele retorna de lá com a data 30/12/1899 na data de emissao da substituição. na função 'TNFSeWebService.ExtrairRetorno(const GrupoMsgRet, AGrupo: String): String;', os valores da GrupoMsgRet = '', e o AGrupo = 1 nessa função, ele cai na linha de quando nao foi possivel extrair o retorno, como mostra na imagem Apos isso, ele chega na variável XMLRet com o valor que está no arquivo de texto XMLRet que anexei Apos essa execução, o valor de result que ele retorna para a Variavel FPRetWS é o valor no arquivo de texto FPRetWS Então ele entra na função ExtrairNotasRetorno, e ali, o count do FRetornoNFSe.ListaNFSe.CompNFSe.Count, já está em 0 na primeira passada. Apos isso, ele tbm verifica o count da 'FRetornoNFSe.ListaNFSe.MsgRetorno.Count' que tbm esta zerado Novamente, ele verifica mais um count, da 'FRetornoNFSe.ListaNFSe.CompNFSe.Count', novamente, tbm zerada o que faz com que ele pule para o fim da função, mantendo a data 30/12/1899, ou seja, vazia e na verificação final, passando para o result, fica false. Desculpe todo esse incomodo, estamos com essa questão da nota substituta faz um tempo aqui na empresa, e obrigado por toda a ajuda, aguardo uma resposta XMLRet.txt FPRetWS.txt
  5. Entendi Ítalo, depurei, e as na função de extrairRetorno, as variaveis: 'FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.GrupoMsg' e 'FPConfiguracoesNFSe.Geral.ConfigGrupoMsgRet.Substituir' estão vazias.
  6. Imaginei essa situação, porém não entendo o fato de a função 'TratarResposta' estar vazia, e sempre trazer False.
  7. Na unit ACBrDFeWebService, ele chama a função TDFeWebService.Executar, dentro dessa função, a linha: Result := TratarResposta;' sempre trazia valor false, mesmo quando funcionava a substituição. Então, dentro dessa TratarResposta, na mesma unit ACBrDFeWebService, Comentei o código, que era: 'Result := False; GerarException(ACBrStr('TratarResposta não implementado para: ') + ClassName);' e coloquei um 'Result := True;' Porém, dessa forma, acredito que deveria haver uma validação nessa função. porém, só tinha esse código passando fixo o false sempre.
  8. Bom dia Ítalo, Continuo com o problema ainda, comentando o código dentro do tratar resposta, obtive funcionamento, pois ele esta assinando e substituindo a nota, só que dentro do TratarResposta, ele retorna um valor false, gerando a exceção.
  9. Boa tarde Ítalo, Verifiquei e efetuei os testes novamente, continua caindo na mesma função de tratar resposta, que só passa False para o Result, e gera a exceção. Fui testar novamente, só mandando executar com as mesmas notas, aí sim, recebo o retorno de um erro pois a nota foi subtituida corretamente. Ou seja, ele esta enviando, e funcionando corretamente, porém nessa função, ele me retorno false em uma variável que acaba gerando a exceção que n deveria gerar.
  10. Ele diz não estar implementado na função TratarResposta, Anexei os prints do código.
  11. A função TDFeWebService.TratarResposta retorna false, pois está passando o valor fixado, e diz não ter implementação. Ali que ele retorna o false que gera a exceção.
  12. ítalo, comparei os xmls gerados agora, e funcionou, porém, o result da função interna do acbr retorna False, e gera uma exceção com uma mensagem em branco. vou tentar atualizar os fontes e testar novamente.
  13. Bom dia Ítalo. Acabei de testar a alteração, e obtive a mesma mensagem. O que faço é carregar a nota de serviço nova no componente, e executar a função de substituição, substituindo a nota que informo na função, pela que carreguei no componente. Seria isso mesmo? Não encontrei muito sobre a explicação de como funciona. Indo mais a fundo, verifiquei que dentro da função SubstituirNFSe, A linha de Assinar(), tem como parâmetro: 'Configuracoes.Geral.ConfigAssinar.RPS' e está vindo com o valor 'False'.
  14. Seguindo o exemplo da acbr, utilizando a função SubstituiNFSe, recebo o retorno de que o xml não foi assinado, e não encontro um método para assinar
×
×
  • 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.