Problema Aliquotas da Redução Z do ACBrFiscNET

[Nilson Sérgio]

Olá amigos, encontrei um problema no método GetDadosUltimaReducaoZ da classe TACBrECFFiscNET.

O formato da aliquota de ICMS está retornando 0 T1700, 1 T2500 (o correto seria 01T1700, 02T2500).

Tenho duas opções:

1 - alterar esse método para ele formatar as alíquotas corretamente; ou

2 - fazer uso do método MontaDadosReducaoZ. Para isso precisaria preencher o objeto fpDadosReducaoZClass.

Acho a segunda opção mais viável, pois dá mais uniformidade na geração do arquivo .ini contendo as informações da redução Z, uma vez que nas demais impressoras esse método é utilizado.

[Isaque Pinheiro]

Olá amigos, encontrei um problema no método GetDadosUltimaReducaoZ da classe TACBrECFFiscNET.

O formato da aliquota de ICMS está retornando 0 T1700, 1 T2500 (o correto seria 01T1700, 02T2500).

Tenho duas opções:

1 - alterar esse método para ele formatar as alíquotas corretamente; ou

2 - fazer uso do método MontaDadosReducaoZ. Para isso precisaria preencher o objeto fpDadosReducaoZClass.

Acho a segunda opção mais viável, pois dá mais uniformidade na geração do arquivo .ini contendo as informações da redução Z, uma vez que nas demais impressoras esse método é utilizado.

Se puder fazer a 2a opção, agradecemos

É só anexar aqui que baixamos avaliamos e subimos para o SVN.

[Daniel Simoes]

Notei que toda o Loop de leitura das alíquotas do Dados da Ultima Redução Z nesse modelo está bem confuso... e acho que precisaria ser revisto... (não lembro quem escreveu essa rotina)

O manual não detalha muito o retorno, você poderia nos dar mais informações sobre o retorno do ECF ou seja, como ele monta esse "linguição" de dados ? (talvez copiar aqui alguns exemplos)

[Nilson Sérgio]

Olá, acabei de atualizar meu fonte e percebi que alteraram o trecho que formata a alíquota retornada pela RZ, no entanto o código fonte se encontra dessa forma:

ACBrFiscNET.pas, linha 3276

if ( Aliquotas[ nAux2 ].Aliquota = nIcms ) then

            begin

               Result := Result +

                                  FormatFloat('00', nAux+1 ) +

                                  padL( Aliquotas[ nAux2 ].Indice, 2, '0' ) +

                                  Aliquotas[ nAux2 ].Tipo +

                                  IntToStrZero( Trunc( Aliquotas[ nAux2 ].Aliquota * 100 ), 4 ) + ' = '+

                                  FloatToStr( nVal ) + sLineBreak ;

               VBruta := VBruta + nVal ;

               break ;

            end;

No momento, não tenho impressora para testar, mas acredito que o resultado dessa formatação será algo como:

0101T1700.

Estou certo?

[Daniel Simoes]

Realmente está errado... enviei uma correção....

Mesmo assim esse método precisa de uma revisão... pois ele precisa mostrar Todas as alíquotas, e na ordem correta que elas foram cadastradas no ECF