Obtendo o retorno do envio

[jrubensmartins]

Boa noite pessoal,

Algum de vocês poderia me explicar como funciona o retorno dos eventos?

Estou tentando pegar da seguinte forma:

      // Processa retorno do evento
      with ACBrReinf.WebServices.EnvioLote.RetEnvioLote do
      begin
        for i := 0 to evento.Count - 1 do begin
          with evento.Items do begin
            with evtTotal. do begin
              if IdeStatus.cdRetorno = '0' then begin
                if iModoLancamento = 0 then begin
                  sNrRecibo := InfoTotal.nrRecArqBase;

Mas não retorna, vi em alguns posts que preciso usar o TR5001, seria isso mesmo?

Se puder passar um exemplo agradeço.

Obrigado,

Rubens

[Italo Giurizzato Junior]

Bom dia Rubens,

Tome como base o programa exemplo, nele após o envio é mostrado como ler o retorno.

Vide a rotina do botão [Enviar].

[jrubensmartins]

3 horas atrás, Italo Jurisato Junior disse:

Bom dia Rubens,

Tome como base o programa exemplo, nele após o envio é mostrado como ler o retorno.

Vide a rotina do botão [Enviar].

Bom dia Italo,

Fiz exatamente como no exemplo e ele apresenta erro ao tentar ler o recibo. Da access violation. E no exemplo ele não lê o recibo certo. Mas vou fazer novos testes aqui.

Obrigado pela ajuda.

[gpucciar]

Rubens, não sei se ajuda e se funciona da mesma forma para você, mas a leitura dos retornos estou utilizando conforme os anexos.

Obrigado.

R1000_Retorno_ReInf.txt

R5001eR5011_Retorno_ReInf.txt

[jrubensmartins]

3 horas atrás, gpucciar disse:

Rubens, não sei se ajuda e se funciona da mesma forma para você, mas a leitura dos retornos estou utilizando conforme os anexos.

Obrigado.

R1000_Retorno_ReInf.txt

R5001eR5011_Retorno_ReInf.txt

Boa tarde gpucciar, obrigado pelo retorno.

Você primeiro lê o retorno do 1000 e em seguida do 5001? Seria isso?

Obrigado

[gpucciar]

Na verdade, ainda não testei porque estava realizando os ajustes para produção, mas teoricamente a forma como faz no segundo anexo que passei (5001 e 5011) funcionaria para todos os eventos.

Sei que das duas formas, os dados dos retornos são lidos corretamente.

[jrubensmartins]

1 hora atrás, gpucciar disse:

Na verdade, ainda não testei porque estava realizando os ajustes para produção, mas teoricamente a forma como faz no segundo anexo que passei (5001 e 5011) funcionaria para todos os eventos.

Sei que das duas formas, os dados dos retornos são lidos corretamente.

Opa, vou testar aqui. Valew gpucciar.