Ir para conteúdo
  • Cadastre-se

dev botao

Problemas com implementações retiradas ...


nolher
  • Este tópico foi criado há 3154 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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]

______________________________________________________

Nilton Olher Serafim
Analista de Sistema - Inovação Tecnologia 
Skype: nolher
Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

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 *)

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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?

 

 

______________________________________________________

Nilton Olher Serafim
Analista de Sistema - Inovação Tecnologia 
Skype: nolher
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Nilton,

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

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3154 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.