Sintegra AcBr (Duvida Registro 54)
Olá Colaboradores do DevMedia, to com um problemão na geração do registro 54 do sintegra com relação a cst quando o cliente é do simples nacional. O problema é que quando gero o arquivo com tributação normal funciona tranquilo, ai quando gero o do simples dá formato inválido, abaixo tem o código de como estou fazendo, não sei se é o certo mas, deem uma olhada e se poderem me ajudem por favor:
If QryItensTPREGIME.AsInteger = 0 then
begin
Case QryItensCODCST.AsInteger of
00:wregistro54.CST := '000';//00 - Tributada integralmente
01:wregistro54.CST := '010';//10 - Tributada e com cobrança do ICMS por substituição tributária
02:wregistro54.CST := '020';//20 - Com redução de base de cálculo
03:wregistro54.CST := '030';//30 - Isenta ou não tributada e com cobrança do ICMS por substituição Tributária
04:wregistro54.CST := '040';//40 - Isenta
05:wregistro54.CST := '041';//41 - Não tributada
06:wregistro54.CST := '050';//50 - Suspensão
07:wregistro54.CST := '051';//51 - Diferimento
08:wregistro54.CST := '060';//60 - ICMS cobrado anteriormente por substituição tributária
09:wregistro54.CST := '070';//70 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária
10:wregistro54.CST := '090';//90 - Outros
end;
end
else
begin
Case QryItensCODCST.AsInteger of
00:wregistro54.CST := '101';//101 - Tributada pelo Simples Nacional com permissão de crédito
01:wregistro54.CST := '102';//102 - Tributada pelo Simples Nacional sem permissão de crédito
02:wregistro54.CST := '103';//103 - Isenção do ICMS no Simples Nacional para faixa de receita bruta
03:wregistro54.CST := '201';//201 - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária
04:wregistro54.CST := 202';//202 - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária
05:wregistro54.CST := '203';//203 - Isenção do ICMS no Simples Nacional para a faixa de receita bruta e com cobrança de ICMS por substituição tributária
06:wregistro54.CST := '300';//300 - Imune
07:wregistro54.CST := '400';//400 - Não tributada pelo Simples Nacional
08:wregistro54.CST := '500';//500 - ICMS cobrado anteriormente por substituição tributária
09:wregistro54.CST := '900';//900 - Outros.
end;
end; Estou usando o Acbr. Nilson Oliveira Belém - PA
begin
Case QryItensCODCST.AsInteger of
00:wregistro54.CST := '000';//00 - Tributada integralmente
01:wregistro54.CST := '010';//10 - Tributada e com cobrança do ICMS por substituição tributária
02:wregistro54.CST := '020';//20 - Com redução de base de cálculo
03:wregistro54.CST := '030';//30 - Isenta ou não tributada e com cobrança do ICMS por substituição Tributária
04:wregistro54.CST := '040';//40 - Isenta
05:wregistro54.CST := '041';//41 - Não tributada
06:wregistro54.CST := '050';//50 - Suspensão
07:wregistro54.CST := '051';//51 - Diferimento
08:wregistro54.CST := '060';//60 - ICMS cobrado anteriormente por substituição tributária
09:wregistro54.CST := '070';//70 - Com redução de base de cálculo e cobrança do ICMS por substituição tributária
10:wregistro54.CST := '090';//90 - Outros
end;
end
else
begin
Case QryItensCODCST.AsInteger of
00:wregistro54.CST := '101';//101 - Tributada pelo Simples Nacional com permissão de crédito
01:wregistro54.CST := '102';//102 - Tributada pelo Simples Nacional sem permissão de crédito
02:wregistro54.CST := '103';//103 - Isenção do ICMS no Simples Nacional para faixa de receita bruta
03:wregistro54.CST := '201';//201 - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária
04:wregistro54.CST := 202';//202 - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária
05:wregistro54.CST := '203';//203 - Isenção do ICMS no Simples Nacional para a faixa de receita bruta e com cobrança de ICMS por substituição tributária
06:wregistro54.CST := '300';//300 - Imune
07:wregistro54.CST := '400';//400 - Não tributada pelo Simples Nacional
08:wregistro54.CST := '500';//500 - ICMS cobrado anteriormente por substituição tributária
09:wregistro54.CST := '900';//900 - Outros.
end;
end; Estou usando o Acbr. Nilson Oliveira Belém - PA
Rosenilson Oliveira
Curtidas 0