Pesquisar na Comunidade
Showing results for tags 'consulta cte'.
Encontrado 1 registro
-
bom dia a todos na minha aplicação tenho um botão para consultar o CTe e está retornando um erro ao consultar na segunda vez (Access Violation...) verificando o código do arquivo ACBrCTeWebServices, no método TCTeConsulta.Executar, o erro está na linha: if CTeRetorno.procEventoCTe.Count > 0 then notei que retorna um xml diferente na segunda vez na linha ReqResp.Execute(Acao.Text, Stream); os xml's estão anexos e o trecho do código que retorna o erro é este: {$ELSE} ReqResp.Execute(Acao.Text, Stream); StrStream := TStringStream.Create(''); StrStream.CopyFrom(Stream, 0); FRetornoWS := TiraAcentos(ParseText(StrStream.DataString, True)); FRetWS := SeparaDados( FRetornoWS, 'cteConsultaCTResult'); StrStream.Free; {$ENDIF} if FConfiguracoes.Geral.Salvar then begin FPathArqResp := FCTeChave+'-sit.xml'; FConfiguracoes.Geral.Save(FPathArqResp, FRetWS); end; CTeRetorno.Leitor.Arquivo := FRetWS; CTeRetorno.LerXML; CTCancelado := False; if CTeRetorno.procEventoCTe.Count > 0 then ps: uso Delphi 7, Ambiente de Homologação 1.04 e ACBr revisão 5839 do subversion desde já agradeço pela atenção. FRetornoWS_Correto.xml FRetornoWS_Erro.xml