Erro Ao Consultar Cte

[marcio.leonel]

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

[ncc.star]

Mesmo erro está acontecendo comigo.

 

Tô tentando resolver até agora nada.

 

O problema é que a segunda vez, em procedure TWebServicesBase.LoadURL;

 

entra nesse if aqui:

 

if TCTeEnvEvento(Self).FEveEPEC then

    FURL := CTeUtil.GetURL(FConfiguracoes.WebServices.UFCodigo, FConfiguracoes.WebServices.AmbienteCodigo, FConfiguracoes.Geral.FormaEmissaoCodigo, LayCTeEventoEPEC);

 

 

E pega a URL errada pra fazer a consulta.

 

Na primeira vez FEveEPEC vem false e na segunda vez que consulta esta true.

 

Em anexo, duas imagens do momento que muda de true pra false, porém eu não consegui descobrir porque acontece isso.

 

 

 

 

 

[Italo Giurizzato Junior]

Bom dia a todos,

 

Favor atualiza os fontes e testar novamente.

[ncc.star]

Atualizado.

 

Agora está OK.

 

Obrigado!