Correção e Alteração no Bloco C

[ubaltino]

Olá,

Tive de Fazer algumas alterações no ACBrEPCBloco_C_Class.pas, para conseguir validar o Registro C170 sem erro.

Na procedure WriteRegistroC170, tive de fazer:

- em var incluir

Nulo : Boolean;

- stpisQtdeAliquotaUnidade : strCST_PIS := '03';

- alterado para:

stpisQtdeAliquotaUnidade : begin

strCST_PIS := '03';

Nulo := True;

end;

- stcofinsQtdeAliquotaUnidade : strCST_COFINS := '03';

- alterado para:

stcofinsQtdeAliquotaUnidade : begin

strCST_COFINS := '03';

Nulo := True;

end;

- De {26} LFill( VL_BC_PIS,0,2 ) +

- Para {26} LFill( VL_BC_PIS,0,2,Nulo) +

- De {27} LFill( ALIQ_PIS_PERC,0,2 ) +

- Para {27} LFill( ALIQ_PIS_PERC,0,2,Nulo) +

- De {32} LFill( VL_BC_COFINS,0,2) +

- Para {32} LFill( VL_BC_COFINS,0,2,Nulo) +

- De {33} LFill( ALIQ_COFINS_PERC,0,2 ) +

- Para {33} LFill( ALIQ_COFINS_PERC,0,2,Nulo) +

Ubaltino Faleiro