Obter Totalizadores Alíquotas

[vca_rj]

Olá pessoal!

 

Estou com um probleminha.

Quando emito a Redução Z estou gravando os dados necessários para gerar os arquivos exigidos.

Para eu pegar os totalizadores e as suas respectivas alíquotas estou fazendo da seguinte forma:

 

//INICIO

  for i := 0 to RZ.TodasAliquotas.Count - 1 do

  begin

     totalizador := totalizador + '|' +

                    FormatFloat('00', i+1 ) +

                    RZ.TodasAliquotas.Tipo +

                    IntToStrZero(Round(RZ.TodasAliquotas.Aliquota*100),4) + ';' +

                    FormatFloat('0.00',RZ.TodasAliquotas.Total);

  end;

 

  totalizador := totalizador + '|F1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalSubstituicaoTributaria);

  totalizador := totalizador + '|I1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalIsencao);

  totalizador := totalizador + '|N1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalNaoTributado);

  totalizador := totalizador + '|FS1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalSubstituicaoTributariaISSQN);

  totalizador := totalizador + '|IS1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalIsencaoISSQN);

  totalizador := totalizador + '|NS1;' + FormatFloat('0.00',frm_principal.ACBrECF.TotalNaoTributadoISSQN);

 

O problema é que o totalizador F1, veio zerado e na Redução Z está mostrando F1 = 36,22.

Existe outra forma para obter os totalizadores, ou infelizmente terei de obter pelos itens do cupom (pelo cadastro do produto)?

 

Agradeço desde já qualquer ajuda...

 

 

[vca_rj]

Opá pessoal, descobri o meu erro.

 

Estava obtendo o valor da Redução Z, quando na verdade o correto é pegar da Ultima Redução Z.

[Daniel Simoes]

Você poderia usar ACBrECF.DadosReducaoZ, porém instantes ANTES de emitir a Redução Z