Dúvida ao vender item com RFD ativo.

[carlosmarian]

Olá,

Estou com um pequeno problema ao tratar a aliquota no "DepoisVendeItem" quando o RFD estiver ativo.

Eu chamo a venda do item, após a impressão do item na impressora, dentro do método "TACBrECF.VendeItem" existe um tratamento para o RFD:

...

  if RFDAtivo then

  begin

     case AliquotaICMS[1] of

       'I' : AliquotaICMS := 'I1' ;

       'N' : AliquotaICMS := 'N1' ;

       'F' : AliquotaICMS := 'F1' ;

     else

        if Aliquota <> nil then

           AliquotaICMS := IntToStrZero(Aliquota.Sequencia,2) + Aliquota.Tipo +

                           IntToStrZero(Round(Aliquota.Aliquota*100),4)

        else

           AliquotaICMS := '' ;

     end ;

   ...

    end ;


   if Assigned( FOnDepoisVendeItem ) then

      FOnDepoisVendeItem( Codigo, Descricao, AliquotaICMS, Qtd, ValorUnitario, ValorDescontoAcrescimo, Unidade, TipoDescontoAcrescimo, DescontoAcrescimo);

   ...

Este tratamento esta alterado o valor do parâmetro "AliquotaICMS", concatenando o percentual da aliquota, conforme pode ser visto no "else" do "case".

Isto esta correto?

É que quando vou tratar o evento "OnDepoisVendeItem", na minha opinião a aliquota não condiz com o valor correto já que foi alterado.

Alguém já passou por algo similar?

Ou esta usando o RFD?

Obrigado pela atenção.

[Daniel Simoes]

Acho que podemos mover a chamada do evento de lugar... (antes da chamada do RFD)