Erro Cc-E List Index Out Of Bounds

[Hetosoft Sistemas]

CT-e 2.0

 

To fazendo uma carta de correção 

 

da erro neste comando,  list index out of bounds

 

 

unit

unit ACBrCTeWebServices;

 

 

function TCTeEnvEvento.Executar: Boolean;

 

 

    FEventoRetorno                := TRetEventoCTe.Create;
    FEventoRetorno.Leitor.Arquivo := FRetWS;
    FEventoRetorno.LerXml;

    TACBrCTe( FACBrCTe ).SetStatus( stCTeIdle );
    aMsg := 'Ambiente : '+TpAmbToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.tpAmb)+LineBreak+
            'Versão Aplicativo : '+EventoRetorno.retEvento.Items[0].RetInfEvento.verAplic+LineBreak+
            'Status Código : '+IntToStr(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat)+LineBreak+
            'Status Descrição : '+EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+LineBreak;

    if (EventoRetorno.retEvento.Count > 0) then
      aMsg := aMsg + 'Recebimento : '+DFeUtil.SeSenao(EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento = 0,
  '',
         

     o que devo fazer ?

1-ped-evento.xml

51140709911489000128570010000013091000013090-cte.xml

Editado 29 Julho, 2014 por hetoandrade

[Italo Giurizzato Junior]

Bom dia Heto Andrade,

 

O componente ACBrCTe agora possui uma propriedade de configuração:

 

Configuracao.WebService.Salvar := False ou True;

 

Atribua o valor True a essa propriedade.

 

Desta forma os XMLs de envio e de retorno da SEFAZ serão gravados de forma completa, para identifica-los, no nome consta -soap.

 

Por exemplo:

 

1-ped-evento-soap.xml (envio)

e

1-eve-soap.xml (retorno)

 

Para descobrir o porque desse erro, configure com True a propriedade acima e realize o teste novamente, depois post como anexo os arquivo de envio e de retorno, mostrados no exemplo acima.

[Hetosoft Sistemas]

Isto mesmo, cara vc é exato.

 

brigadoooooooooooooooooo.