acbrcte Problemas com implementações retiradas ...

[nolher]

Olá, muito boa a tarde a todos!!!

Primeiramente gostaria de agradecer e parabenizar toda a equipe do Projeto ACBr, pois estão sempre nos surpreendendo. 

A nova estrutura ficou excelente, e mesmo dentro das adversidades que foi o problema com o Servidor da Source Forge se sairão muito bem. 

Mais uma vez obrigado por toda essa estrutura.

 

Bom, mas vamos aos fatos que gostaria de relata-los:

Em uma implementação que solicitamos em 2013 e implementada com sucesso, foi retirada na restruturação do ACBrCTe e gostaria de solicita-los a implementação novamente, se trata de um evento incluído no componente "Clear" é usamos para limpar o componente antes de sua próxima execução.

Percebemos que foi retirada e esta nos trazendo transtorno, pois estão criamos o componente uma unica vez e utilizamos em mais de uma sequência principalmente na utilização de EPEC por exemplo, e o que ocorre é que em uma sequencia de envio onde a problema de oscilação ou parada da internet, a informação dos retorno esta se mantendo da anterior e com isso trazendo informações erradas.

Por exemplo, temos um trecho de código nosso que realizado em uma sequencia:

 

  try
    ACBrCTe.EnviarEventoCTe(W_Nr_Lote);
  except on Error: Exception do
    begin

        if (ACBrCTe.WebServices.EnvEvento.cStat <> 0) and (ACBrCTe.WebServices.EnvEvento.cStat <> null) then

          begin

               ...

               ...

          end;

    end;

ou 

    try
      ACBrCTe.WebServices.Retorno.Recibo := W_Nr_Recibo;
      ACBrCTe.WebServices.Retorno.Executar;
    except on Error: Exception do
      begin
        if ( ACBrCTe.WebServices.Retorno.cStat <> 0) and ( ACBrCTe.WebServices.Retorno.cStat <> null) then

          begin

               ...

               ...

          end;

      end;
    end;

 

 

Em caso de uma problema a propriedade "cStat" esta trazendo o resultado do anterior.

Antes como faziamos:

 try

    ACBrCTe.EnviarEventoCTe.Clear;  /// Aqui limpa todas as propriedades

    ACBrCTe.EnviarEventoCTe(W_Nr_Lote);
  except on Error: Exception do
    begin

        if (ACBrCTe.WebServices.EnvEvento.cStat <> 0) and (ACBrCTe.WebServices.EnvEvento.cStat <> null) then

          begin

               ...

               ...

          end;

    end;

ou 

    try

      ACBrCTe.WebServices.Retorno.Clear;  /// Aqui limpa todas as propriedades
      ACBrCTe.WebServices.Retorno.Recibo := W_Nr_Recibo;
      ACBrCTe.WebServices.Retorno.Executar;
    except on Error: Exception do
      begin
        if ( ACBrCTe.WebServices.Retorno.cStat <> 0) and ( ACBrCTe.WebServices.Retorno.cStat <> null) then

          begin

               ...

               ...

          end;

      end;
    end;

 

Se puderem voltar com o Evento Clear estaremos muito grato.

 

Sem mais para o momento, antecipamos nossos mais sinceros agradecimentos,

 

Atenciosamente, 

 

______________________________________________________
Nilton Olher Serafim
Analista de Sistema

skype: nolher
Email: [email protected]

[Italo Giurizzato Junior]

Bom dia Nilton,

Favor atualizar os fontes, depois abra a unit ACBrCTeWebServices e procure por todos os eventos Clear.

Eles estão comentados, descomente, compile e realize os testes.

Fico no aguardo de um retorno. Se tudo estiver OK, vou descomentar e disponibilizar novamente.

[nolher]

Italo, boa tarde!

 

Muito obrigado pela atenção.

 

Mas não consegui identificar os ponto de comentários que você citou.

[Italo Giurizzato Junior]

Boa tarde Nilton,

Acredito não ter sido claro, veja este exemplo:

procedure TCTeRecibo.Clear;
begin
(*
  // Limpa Dados do retorno;
  FPMsg     := '';
  FverAplic := '';
  FcStat    := 0;
  FxMotivo  := '';
*)  
end;

Remova os (* e *)

[nolher]

Aí, Italo, mais uma vez agradecendo sua atenção e paciência.

Bem, estou realizando a atualização do Trunk2, é o mesmo que você solicitou que eu atualizasse?

 

 

[Italo Giurizzato Junior]

Bom dia Nilton,

Desculpe pela demora em responder, sim a alteração que fiz é no Trunk2.