Bom dia pessoal , um escritorio de um de nossos clientes pediu para colocar cst 05 no pis e no cofins , ja que no manual do contribuinte 4 não tem essa st somente COFINSST e PISST , qual CST coloco , apenas alimentando com zeros os campos do grupo ST sai a cst 01 , sera que alguem pode me auxilar , como proceder , estou colocando assim o codigo no acbr :
case F_CadNFe.TBItens.FieldByName('cst_pis').AsInteger of
1 : PIS.CST := pis01;
2 : PIS.CST := pis02;
3 : PIS.CST := pis03;
4 : PIS.CST := pis04;
6 : PIS.CST := pis06;
7 : PIS.CST := pis07;
8 : PIS.CST := pis08;
9 : PIS.CST := pis09;
98 : PIS.CST := pis98;
99 : PIS.CST := pis99;
end;
if F_CadNFe.TBItens.FieldByName('cst_pis').AsInteger = 5 then
begin
with PISST do
begin
PISST.vBC := F_CadNFe.TBItens.fieldbyname('bc_pis').AsCurrency;
PISST.pPIS := F_CadNFe.TBItens.fieldbyname('aliq_pis').AsCurrency;
PISST.vPIS := F_CadNFe.TBItens.fieldbyname('vlr_pis').AsCurrency;
end;
end
else begin
if F_CadNFe.TBItens.fieldbyname('vlr_pis').Asfloat > 0 then begin
PIS.vBC := F_CadNFe.TBItens.fieldbyname('bc_pis').AsCurrency;
PIS.pPIS := F_CadNFe.TBItens.fieldbyname('aliq_pis').AsCurrency;
PIS.vPIS := F_CadNFe.TBItens.fieldbyname('vlr_pis').AsCurrency;
end;
end;
