Melhoria GetEstado ACBrECFVirtual

[tdpsistemas]

Olá a todos,

Gostaria de passar um caso que pegamos:

Utilizamos o Compontente: ACBrECFVirtualNaoFiscal, com ACBRECF, para simular a venda na tela para o cliente, após isso finalizamos a venda SAT normalmente. Mas em clientes que trabalham 24 horas estava ocorrendo um problema na venda na mudança de dia. Após algumas validações vimos que na unit: ACBrECFVirtual, no método: function TACBrECFVirtualClass.GetEstado: TACBrECFEstado; existia o seguinte tratamento:

  if not (fpEstado in [estNaoInicializada,estDesconhecido]) then
  begin

     if (CompareDate( now, fpDia) > 0) and  ( not (fpEstado in [estBloqueada,estRequerX])) then

        fpEstado := estRequerZ ;

    if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then
      fpEstado := estRequerX ;

end;

Ou seja no meio de uma venda o estado era modificado para RequerZ, bloqueando assim a venda e a finalização. 

Pensando nisso fizemos a seguinte "Melhoria" no processo, para que só seja modificado o estado para estRequerZ apenas se o estado da impressora for igual a estLivre. 

Ficando da seguinte forma:

  if not (fpEstado in [estNaoInicializada,estDesconhecido]) then
  begin
    if (CompareDate( now, fpDia) > 0) and
       ( (fpEstado in [estLivre])) then                
      fpEstado := estRequerZ ;

    if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then
      fpEstado := estRequerX ;
  end ;

Não achei outra solução, por gentileza se existir alguma outra solução me avise. 

Agradeço desde já pela atenção de todos.

 

ACBrECFVirtual.pas

[Daniel Simoes]

Parece fazer sentido... vou analisar com atenção a modificação proposta, para verificar se não causaria algum efeito colateral...

[tdpsistemas]

Olá Daniel,

Primeiramente muito obrigado pelo retorno. Espero ter deixado tudo certo, qualquer coisa estou a disposição.

Aguardo seu retorno.

[Daniel Simoes]

Enviei para o SVN, ajustes, baseado nas modificações sugeridas...

Favor atualizar a testar...

[tdpsistemas]

Boa noite Daniel,

Baixamos e testamos deu certo a modificação.

Agradeço muito pela prontidão no auxílio!!!

Tópico pode ser colocado como resolvido