Mundanças Ct-e 4.0 captura de dados Retorno WebService

[daniel_mirassol]

Bom dia, 

Com a mudança para a versão 4.0 estou tendo problema na captura do retorno do WebService para pegar o Status, Protoolo, etc ...  Estou colocando parte do meu código que faz a captura que não está funcionando mais na 4.0 . Alguém poderia me ajudar ?

for i_richtext:= RichEditStatusRetorno.lines.count - 1 downto 0 do
    begin
      if i_richtext > 0 then
       RichEditStatusRetorno.lines.delete(i);
    end;

    // replicando CTE  ------ Aqui não pega mais na versão 4.0
    for i:= 0 to ACBrCTe1.WebServices.Retorno.CteRetorno.ProtDFe.Count -1 do
    begin
      CopyFile(Pchar(v_mesano + ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe+'-cte.xml'),            Pchar(QryPesqFilialCTE_PATH_AVERBACAO_SEGURO.AsString + '\' + ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe+'-cte.xml'), False);

      v_serie := copy((ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe),25,1);
      v_id_nf := strtoint(copy((ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].chDFe),26,9));

      QryPesqCtrc.Close;
      QryPesqCtrc.ParamByName('p_ctrc'       ).Value := v_id_nf;
      QryPesqCtrc.ParamByName('p_id_empresa' ).Value := dm1.EmpCod;
      QryPesqCtrc.ParamByName('p_id_filial'  ).Value := dm1.FilCod;
      QryPesqCtrc.ParamByName('p_ser_ctrc'   ).Value := v_serie;
      QryPesqCtrc.Open;

      QryAtualizaCte.Close;
      QryAtualizaCte.ParamByName('p_id').Value := QryPesqCtrc.FieldByName('id').value;
      QryAtualizaCte.Open;

      //ACBrCTe1.WebServices.Retorno.cStat
      status := ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].cStat;
      if status = 100  then
      begin
        QryAtualizaCte.Edit;
        QryAtualizaCte.FieldByName('CTE_ENVIADA'               ).value    := 'SIM';
        QryAtualizaCte.FieldByName('CTE_NUM_PROTOCOLO_USO'     ).AsString := ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtDFe.Items[i].nProt;
        QryAtualizaCte.FieldByName('CTE_NUM_RECIBO'            ).AsString := ACBrCTe1.WebServices.Retorno.CTeRetorno.nRec;
        QryAtualizaCte.FieldByName('DATA_MOV'                  ).Value    := dm1.RetonaHoraFusoHorario;
        QryAtualizaCte.FieldByName('CTE_NUM_CHAVE_CANCELAMENTO').value := null;
        QryAtualizaCte.FieldByName('CTE_DATA_CANCELAMENTO'     ).value := null;

 

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Victor H. Gonzales - Panda]

Boa tarde,

Voce precisa ter em mente que não é mais Assincrono e sim Sincrono, portanto é no Envia e não no Retorno, e não terá tambem protocolo de Envio, pois, não é Assincrono.

[daniel_mirassol]

Entendi, teria me passar um exemplo de como proceder, estou com o exemplo aberto mas não consegui , fazer funcionar 

  usei este código que peguei no exemplo do ACBR mas o Count retornou  0

for i := 0 to ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Count -1 do

 

Grato,

 

[Italo Giurizzato Junior]

Boa tarde @daniel_mirassol,

Veja o código do botão [Criar e enviar síncrono] do programa exemplo.