Erro ao consultar Nota na prefeitura de Governado Valadares/MG

[brajan]

Boa tarde, estou emitindo nota o Provedor SigISS Governador Valadares porem não consigo consultar nem uma venda ja testei todos os métodos existente no componente sem resultado, segue mensagem de erro e arquivos SOAP anexo:

 

erro:

Erro(s):
Código  : X999
Mensagem: Erro de Conexão: Could not convert variant of type (UnicodeString) into type (Boolean)
Correção: 

arquivos anexos

202305.rar

[Diego Foliene]

Boa tarde.

Como os arquivos disponibilizados de retorno em uma primeira análise parecem estar OK, será necessário realizar alguns testes com a função que faz a leitura destes arquivos.

Vou fazer alguns testes e assim que descobrir algo lhe dou um retorno.

Caso queira conferir também. Coloque um ponto de parada para debugar na primeira linha da procedure TratarRetornoConsultaNFSe da unit SigISS.Provider.pas que fica na pasta ..\ACBr\trunk2\Fontes\ACBrDFe\ACBrNFSeX\Provedores e veja se ocorre erro em algum momento.

[brajan]

O erro esta nesse bloco na unit que foi informada, mas ainda não sei como corrigir
 

if AuxNode <> nil then
      begin
        with Response do
        begin
          Sucesso := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('StatusNFe'), tcStr);
          NumeroNota := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nota'), tcStr);
          CodigoVerificacao := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('autenticidade'), tcStr);
          Link := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('LinkImpressao'), tcStr);
          Link := StringReplace(Link, '&amp;', '&', [rfReplaceAll]);
        end;
      end; 

 

[Diego Foliene]

26 minutos atrás, brajan disse:

O erro esta nesse bloco na unit que foi informada, mas ainda não sei como corrigir
 

if AuxNode <> nil then
      begin
        with Response do
        begin
          Sucesso := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('StatusNFe'), tcStr);
          NumeroNota := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('nota'), tcStr);
          CodigoVerificacao := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('autenticidade'), tcStr);
          Link := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('LinkImpressao'), tcStr);
          Link := StringReplace(Link, '&amp;', '&', [rfReplaceAll]);
        end;
      end; 

 

Bom dia @brajan!

Foi enviado ao SVN na Rev-29453 alteração visando corrigir o problema.

Por favor, atualize seus fontes, reinstale o ACBr e faça novos testes.

[brajan]

fiz o teste e funcionou corretamente, percebi q quando usa o tmConsultarNFSe não traz algumas informações como, NúmeroRPS, Protocolo ...

[Italo Giurizzato Junior]

Boa tarde Brajan,

Mas essas informações constam no XML de retorno da referida consulta?

[Diego Foliene]

 

3 horas atrás, brajan disse:

fiz o teste e funcionou corretamente, percebi q quando usa o tmConsultarNFSe não traz algumas informações como, NúmeroRPS, Protocolo ...

@brajan, por favor, substitua a unit em anexo no caminho ..\ACBr\Fontes\ACBrDFe\ACBrNFSeX\Provedores\, reinstale o ACBr e faça um novo teste.

SigISS.Provider.pas

[brajan]

Bom dia, funcionou os dados foram atualizados corretamente

[Diego Foliene]

Enviado ao SVN na Rev-29469

[Diego Foliene]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.