TACBrECFClass.MontaDadosReducaoZ

[ricardopdv]

Notei que estao faltando os dados de issqn no dadosz.ini

Olhando o código vi que a lista de issqn nao esta sendo processada.

fiz a seguinte alteração (favor verificar se esta correto)

...

     For I := 0 to ICMS.Count-1 do

     begin

        Result := Result +

                  FormatFloat('00', I+1 ) +

                  ICMS[I].Tipo +

                  IntToStrZero(Round(ICMS[I].Aliquota*100),4) + ' = ' +

                  FloatToStr(ICMS[I].Total) + sLineBreak ;

     end ;


//-----------------------------------------------------------------

// CODIGO ALTERADO  

//-----------------------------------------------------------------

     For I := 0 to ISSQN.Count-1 do

     begin

        Result := Result +

                  FormatFloat('00', I+1 ) +

                  ISSQN[I].Tipo +

                  IntToStrZero(Round(ISSQN[I].Aliquota*100),4) + ' = ' +

                  FloatToStr(ISSQN[I].Total) + sLineBreak ;

     end ;


     Result := Result + sLineBreak + '[OutrasICMS]' + sLineBreak ;

...

[Daniel Simoes]

Já passamos por esse problema várias vezes...

em algumas vezes isso foi corrigido como o código acima, porém desta maneira, a ordem dos Registradores é perdida... Ou seja, se a 3a aliquota for do ISS deveria ser I03

[Daniel Simoes]

Analizando a questão.... acho que temos que quebrar a compatibilidade, removendo as sub-propriedades ICMS e ISS , por apenas uma, chamada por exemplo de "Aliquotas", (assim como é feito no ECF)... O Tipo TACBrECFAliquota já possui a propriedade "Tipo" que pode ser T = ICMS ou I = ISS, portanto não vejo porque usar duas coleções separadas...

Para quem usa apenas ACBrECF1.DadosReducaoZ, isso não será problema algum, pois será corrigido internamente... Mas para quem utiliza o Objeto DadosReducaoZClass haverá quebra de compatibilidade...

O que vocês acham ? Alguma nova ideia para resolvermos em definitivo este problema ?

[ricardopdv]

Verdade !

Tinha esquecido do indice da aliquota.

Geralmente o issvem depois do icms nas aliquotas. nao que seja a ordem natural, mas o que geralmente acontece.

Uma sugestao, vou até usá-la, é criar os indices de iss apos o indice do icms.

A ideia do Daniel é a melhor, já que as aliquotas viriam na ordem do ecf.

Por mim, sem problemas.

[ricardopdv]

Fiz assim no meu código

    For I := 0 to ICMS.Count - 1 do

    begin

      Result := Result +

        FormatFloat('00', I + 1) +

        ICMS[I].Tipo +

        IntToStrZero(Round(ICMS[I].Aliquota * 100), 4) + ' = ' +

        FloatToStr(ICMS[I].Total) + sLineBreak;

    end;


    For I := 0 to ISSQN.Count - 1  do

    begin

      Result := Result +

        FormatFloat('00', I + ICMS.Count + 1) +

        ISSQN[I].Tipo +

        IntToStrZero(Round(ISSQN[I].Aliquota * 100), 4) + ' = ' +

        FloatToStr(ISSQN[I].Total) + sLineBreak;

    end;

Fica feio mas acho que resolve temporariamente ! Meu PAF é na segunda-feira.

[Daniel Simoes]

Apliquei uma possível correção para este problema na rev.3459