Tef Travando Apos Atualizar Acbr

[tiagows]

Boa tarde. 

Atualizei meu acbr, e o meu tef começou a travar quando chamo a função acbrtef.CRT, uso pelo clisitef.

 

Ele trava aqui: 

 

procedure TACBrTEFDClass.VerificarTransacaoPagamento(Valor: Double);

var

  SaldoAPagar : Double ;

begin

  Valor := RoundTo( Valor, -2);

 

  if (Valor <= 0) then

     raise Exception.Create( ACBrStr( 'Valor inválido' ) );

 

  { Lendo o SubTotal do ECF }

  with TACBrTEFD(Owner) do

  begin

    if not (EstadoECF in ['V','P','N']) then

       raise Exception.Create(

          ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') );

 

    SaldoAPagar := InfoECFAsDouble(ineSubTotal) ;

    SaldoAPagar := SaldoAPagar - InfoECFAsDouble(ineTotalAPagar,0); 

 

Esta travando nesse ultimo comando.

 

Obrigado desde ja.

 

 

 

[Juliomar Marchetti]

Verifica se não está faltando programar um evento ao componente!