Consulta

[Aggille Sistemas de Gestão]

antes de cancelar uma NF-e, eu costumo consulta ela pra saber se já não está cancacelada.. e reparei que a consulta do ACBR não retornada nada.. então depurei e constatei o seguinte...
Na UnitpcnRetConsSitNfe, na linha 204  ( Leitor.rCampo(tcStr, 'cMsg') ) , ele levantava uma Exception, e sempre que tinha exception, a rotina retornava False.. coloquei um ponto de parada pra ver qual o tipo de Exceção que levantava e é do tipo 'Could not convert variant of type (UnicodeString) into type (Integer)'...

Pois então... quando ele vai ler essa TAG, na unit pcnLeitor.. ele lê da variável FGrupo que contém
'<infProt Id="ID143190000653179"><tpAmb>2</tpAmb><verAplic>RS201904120803</verAplic><chNFe>43190490205691000152550010000491251723293854</chNFe><dhRecbto>2019-04-26T09:12:53-03:00</dhRecbto><nProt>143190000653179</nProt><digVal>RwnbSsvnIY5GEkkzn6Lm+yP3zlk=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt>'

na linha 214, ele pega o ConteudoDaTag que está vazio, pois não existe a TAG cMsg...

 

 

[Aggille Sistemas de Gestão]

42 minutos atrás, Aggille Sistemas de Gestão disse:

antes de cancelar uma NF-e, eu costumo consulta ela pra saber se já não está cancacelada.. e reparei que a consulta do ACBR não retornada nada.. então depurei e constatei o seguinte...
Na UnitpcnRetConsSitNfe, na linha 204  ( Leitor.rCampo(tcStr, 'cMsg') ) , ele levantava uma Exception, e sempre que tinha exception, a rotina retornava False.. coloquei um ponto de parada pra ver qual o tipo de Exceção que levantava e é do tipo 'Could not convert variant of type (UnicodeString) into type (Integer)'...

Pois então... quando ele vai ler essa TAG, na unit pcnLeitor.. ele lê da variável FGrupo que contém
'<infProt Id="ID143190000653179"><tpAmb>2</tpAmb><verAplic>RS201904120803</verAplic><chNFe>43190490205691000152550010000491251723293854</chNFe><dhRecbto>2019-04-26T09:12:53-03:00</dhRecbto><nProt>143190000653179</nProt><digVal>RwnbSsvnIY5GEkkzn6Lm+yP3zlk=</digVal><cStat>100</cStat><xMotivo>Autorizado o uso da NF-e</xMotivo></infProt>'

na linha 214, ele pega o ConteudoDaTag que está vazio, pois não existe a TAG cMsg...

 

Ou seja.. a consulta retorna sempre FALSE...

 

[Aggille Sistemas de Gestão]

se eu comentar a linha ou colocar ou colocar

try

   protNFe.cMsg     := Leitor.rCampo(tcStr, 'cMsg');

except

   protNFe.cMsg := 0;

end;

dai a consulta volta a funcionar...

 

o problema todo, ao meu ver está nas linhas 249 e 250

except
    Result := False;

acho que deveria levantar exceção nestes casos pra identificarmos o problema..

[BigWings]

Fiz teste pelo demo e a consulta funcionou normalmente:

Citar

Inicio TNFeConsulta
Versão Layout: 4.00
Identificador: 43190490205691000152550010000491251723293854
Ambiente: 2
Versão Aplicativo: RS201809061124
Status Código: 101
Status Descrição: Cancelamento de NF-e homologado
UF: RS
Chave Acesso: 43190490205691000152550010000491251723293854
Recebimento: 26/04/2019 09:56:00
Protocolo: 143190000653334
Digest Value: RwnbSsvnIY5GEkkzn6Lm+yP3zlk=

Por favor descreva melhor o problema com o retorno da consulta e seu ambiente de desenvolvimento e testes.

[carlessoflu]

Também estou tendo esse erro.

Na procedure LerXML, da unit pcnRetConsSitNFe, quando passa na linha 204, que tem esse conteúdo:

protNFe.cMsg     := Leitor.rCampo(tcStr, 'cMsg');

Está dando erro Invalid argument.

O erro acontece ao enviar e ao consultar NFC-e.

[carlessoflu]

Fiz um outro post, e o membro elrond deu a correção.

Citar

Efetue a correção no arquivo pcnRetConsSitNFe.pas , nessa linha altere para : protNFe.cMsg     := Leitor.rCampo(tcInt, 'cMsg');

Basicamente, só trocar o tcStr por tcInt.

[BigWings]

 

[Aggille Sistemas de Gestão]

testado e funcionando....obrigado pela solução..

sds,

Editado 29 Abril, 2019 por Aggille Sistemas de Gestão

[Felipe E. Resende Mesquita]

Obrigado por reportar.

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