Sangria/Suprimento-COO retornando errado Daruma [Resolvido]

[joseadolfojr]

Olá amigos,

estou finalizando alguns testes e me deparei com o seguinte:

Emito um cupom fiscal.

Depois emito uma sangria e/ou suprimento

e pego os valores de COO,GNF e GRG para gravar isto.

Acontece que o COO esta vindo o do cupom emitido anteriormente e não do cupom referente a Sangria.

Ja testei utilizando o ecf.NumCoo, ecf.NumCooInicial e ecf.NumCupom.Ambos retornam o valor errado

Fiz o teste pelo ECFTeste e aconteceu o mesmo.

Dei uma olhada na unit ACBrECFDaruma e no método GetNumCupom.

Caso o ECF seja MFD e o atributo fsNumCupom estiver vazio ele comanda RetornaInfoECF('26').

Agora caso o valor esteja preenchido ele não dispara o comando e sim retorna o valor que já esta em fsNumCupom.

  if fpMFD then

  begin

    if fsNumCupom <> '' then

      Result := Trim(fsNumCupom)

    else

    begin

      RetCmd :=  RetornaInfoECF('26');

      Result := RetCmd;

    end;

  end

Como não conheço bem a estrutura do ACbr estou em dúvida de onde mexer. Será que após a sangria não teria que zerar o valor de fsNumCupom ? Fiz a seguinte alteração no método Sangria e o COO passou vir certo:

  if fpMFD then

  begin

    if IndiceBMP > 0 then

      CmdBitmap := ESC + 'B' + IntToStr(IndiceBMP)

    else

      CmdBitmap := EmptyStr;


    EnviaComando( FS + 'F' + #227 +

      IntToStrZero(Round(Valor * 100), 11) + LeftStr( CmdBitmap + Obs, 619) +

      cDELIMITADOR );

    fsNumCupom := ''; // -> adicionei esta linha

  end

e fis o mesmo no método Suprimento.

Caso este não seja a melhor forma de 'corrigir' fico no aguardo para uma melhor solução.

[Régys Silveira]

Este erro já foi acertado a algumas versões, seu ACBr está atualizado?

[joseadolfojr]

Ola Regys,

sim atualizo o ACBr quase que diariamente. estou na revisão 2841.

E sempre executo um Build All no projeto.

Voce conseguiu reproduzir o erro ?

[Régys Silveira]

Fiz um acerto, faça o update e veja se agora está ok.

[joseadolfojr]

Certinho Regys. Obrigado.