Calcular de olho no imposto NFCE

Delmar Grande · 16 Setembro, 2015

Boa tarde pessoal,

estou utilizando a tabela ibpt para calcular o de olho no imposto mais não sei se esta certo gostaria da opinião de vocês

fiz essa rotina para calcular item a item baseado em que encontrei aqui no fórum

veja como ficou

/////////////////////////////////////////////////
//Função utilizada para truncar um valor real
/////////////////////////////////////////////////
Function Truncar(Value:Real;Casas:Integer):Real;
/////////////////////////////////////////////////
Var sValor:String;
    nPos:Integer;
begin
   //Transforma o valor em string
   sValor := FloatToStr(Value);

   //Verifica se possui pondo decimal
   nPos := Pos(DecimalSeparator,sValor);
   If ( nPos > 0 ) Then begin
      sValor := Copy(sValor,1,nPos+Casas);
   End;

   Result := StrToFloat(sValor);
end;
//função para calcular impostos federal, estadual e municipal
function CalculaTributos(vTotalItem : Double; NCM : String; servico : Boolean;
                         fci : String; ex : String) : Double;
var
  qryConsulta : TZQuery;
  vTributosF, vTributosE, vTributosM : Double;
begin
  try
    qryConsulta := TZQuery.Create(Application);
    with qryConsulta do
      begin
        Active := False;
        Connection  := frmmodulo.conexao;
        SQL.Clear;
        SQL.Add('SELECT COALESCE(ALIQNACIONAL_IBPT,0) AS ALIQNACIONAL_IBPT,');
        SQL.Add('COALESCE(ALIQINTERNACIONAL_IBPT,0) AS ALIQINTERNACIONAL_IBPT,');
        SQL.Add('COALESCE(ALIQESTADUAL_IBPT,0) AS ALIQESTADUAL_IBPT,');
        SQL.Add('COALESCE(ALIQMUNICIPAL_IBPT,0) AS ALIQMUNICIPAL_IBPT');
        SQL.Add('FROM NCM WHERE NCM = :NCM AND EX_IBPT = :EX_IBPT');
        SQL.Add('AND TABELA_IBPT = :TABELA_IBPT;');
        ParamByName('NCM').AsString    := StringReplace(NCM, '.', '',
                          [rfReplaceAll, rfIgnoreCase]);
        ParamByName('EX_IBPT').AsString       := ex;
        if servico then
          ParamByName('TABELA_IBPT').AsString := '1'
        else
          ParamByName('TABELA_IBPT').AsString := '0';
        Active := True;
        First;
      end;
    if qryConsulta.Eof then
    begin
      vTributosF := 0;
      vTributosE := 0;
      vTributosM := 0;
    end
    else
      begin
      if fci = '' then
        begin
            vTributosF := Truncar((vTotalItem * qryConsulta['ALIQNACIONAL_IBPT']) / 100, 2);

            vTributosE := Truncar((vTotalItem * qryConsulta['ALIQESTADUAL_IBPT']) / 100, 2);
            vTributosM := Truncar((vTotalItem * qryConsulta['ALIQMUNICIPAL_IBPT']) / 100, 2);
        end
          else
          begin
            vTributosF := Truncar((vTotalItem * qryConsulta['ALIQINTERNACIONAL_IBPT']) / 100, 2);

            vTributosE := Truncar((vTotalItem * qryConsulta['ALIQESTADUAL_IBPT']) / 100, 2);
            vTributosM := Truncar((vTotalItem * qryConsulta['ALIQMUNICIPAL_IBPT']) / 100, 2);
          end;
      end;

    Result := vTributosF + vTributosE + vTributosM;
  except
    Result := 0;
  end;
end;

para obter o resultado fiz assim sera que é isso mesmo?

          with Imposto do
          begin

            TributosIBPTitem:= CalculaTributos(qrnota_item.fieldbyname('unitario').asfloat, //Valor do item
            Prod.NCM, //Ncm
            false, //serviço
            qrnota_item.fieldbyname('NUM_FCI').AsString, //Fci
            qrnota_item.fieldbyname('EX_IBPT').AsString); //Exepção

          if TributosIBPTitem <= 0 then
          begin
            if MessageDlg('Existe produto sem NCM ou não encontrado na tabela IBPT'+#13#10+
            'Codigo: '+qrnota_item.fieldbyname('codproduto').asstring+#13#10+
            'Nome: '+qrnota_item.fieldbyname('produto').asstring+#13#10+
            'Deseja continuar',mtInformation,[mbYes,mbno],0)= mrNo then
            begin
            Abort;
            end;
          end;
            // lei da transparencia nos impostos
            vTotTrib := vTotTrib + TributosIBPTitem;

Delmar Grande · 16 Setembro, 2015

Pessoal no arquivo DANFeNFCeA4.fr3 está Lei Federal 12.742/2012 ao invés de estar Lei Federal 12.741/2012

Informação dos Tributos Totais Incidentes (Lei Federal 12.742/2012):

ta certo ou não?

Delmar Grande · 23 Setembro, 2015

É a descrição da lei ta errado mesmo

errado

Informação dos Tributos Totais Incidentes (Lei Federal ~~12.74~~2~~/2012~~):

certo

Informação dos Tributos Totais Incidentes (Lei Federal 12.741/2012):

https://regys.com.br/nova-tabela-ibpt-versao-15-2-a/

Juliomar Marchetti · 23 Setembro, 2015

Atualize o svn, promova a alteração e depois anexe aqui que subimos ao svn

Delmar Grande · 23 Setembro, 2015

Segue em anexo o arquivo DANFeNFCeA4.fr3

att.

DANFeNFCeA4.fr3

Juliomar Marchetti · 23 Setembro, 2015

fui efetuar comparação do seu com o que está no svn e as acentuações estão bugadas!

por favor efetue uma comparação

Delmar Grande · 23 Setembro, 2015

Estranho eu testei e esta certo!

Delmar Grande · 23 Setembro, 2015

Agora sim ta certo!

Segue em anexo o arquivo DANFeNFCeA4.fr3

att.

DANFeNFCeA4.fr3

Juliomar Marchetti · 23 Setembro, 2015

No svn!

maurozb · 9 Dezembro, 2015

Delmar, só uma dúvida, na função CalcularTributos o primeiro argumento é o ValorTotalItem, mas ao chamar o método você informou apenas o valor unitário, confere?

Delmar Grande · 20 Dezembro, 2015

Em 09/12/2015 at 08:07, maurozb disse:

Delmar, só uma dúvida, na função CalcularTributos o primeiro argumento é o ValorTotalItem, mas ao chamar o método você informou apenas o valor unitário, confere?

Desculpe só vi seu comentário hoje, confere sim a função ta dentro de um Loop somando item a item

maurozb · 21 Dezembro, 2015

Ok. Vlw Delmar.

@lessandro · 25 Setembro, 2016

Em 16/09/2015 at 13:16, Delmar Grande disse:

Boa tarde pessoal,

estou utilizando a tabela ibpt para calcular o de olho no imposto mais não sei se esta certo gostaria da opinião de vocês

fiz essa rotina para calcular item a item baseado em que encontrei aqui no fórum

veja como ficou


/////////////////////////////////////////////////
//Função utilizada para truncar um valor real
/////////////////////////////////////////////////
Function Truncar(Value:Real;Casas:Integer):Real;
/////////////////////////////////////////////////
Var sValor:String;
    nPos:Integer;
begin
   //Transforma o valor em string
   sValor := FloatToStr(Value);

   //Verifica se possui pondo decimal
   nPos := Pos(DecimalSeparator,sValor);
   If ( nPos > 0 ) Then begin
      sValor := Copy(sValor,1,nPos+Casas);
   End;

   Result := StrToFloat(sValor);
end;
//função para calcular impostos federal, estadual e municipal
function CalculaTributos(vTotalItem : Double; NCM : String; servico : Boolean;
                         fci : String; ex : String) : Double;
var
  qryConsulta : TZQuery;
  vTributosF, vTributosE, vTributosM : Double;
begin
  try
    qryConsulta := TZQuery.Create(Application);
    with qryConsulta do
      begin
        Active := False;
        Connection  := frmmodulo.conexao;
        SQL.Clear;
        SQL.Add('SELECT COALESCE(ALIQNACIONAL_IBPT,0) AS ALIQNACIONAL_IBPT,');
        SQL.Add('COALESCE(ALIQINTERNACIONAL_IBPT,0) AS ALIQINTERNACIONAL_IBPT,');
        SQL.Add('COALESCE(ALIQESTADUAL_IBPT,0) AS ALIQESTADUAL_IBPT,');
        SQL.Add('COALESCE(ALIQMUNICIPAL_IBPT,0) AS ALIQMUNICIPAL_IBPT');
        SQL.Add('FROM NCM WHERE NCM = :NCM AND EX_IBPT = :EX_IBPT');
        SQL.Add('AND TABELA_IBPT = :TABELA_IBPT;');
        ParamByName('NCM').AsString    := StringReplace(NCM, '.', '',
                          [rfReplaceAll, rfIgnoreCase]);
        ParamByName('EX_IBPT').AsString       := ex;
        if servico then
          ParamByName('TABELA_IBPT').AsString := '1'
        else
          ParamByName('TABELA_IBPT').AsString := '0';
        Active := True;
        First;
      end;
    if qryConsulta.Eof then
    begin
      vTributosF := 0;
      vTributosE := 0;
      vTributosM := 0;
    end
    else
      begin
      if fci = '' then
        begin
            vTributosF := Truncar((vTotalItem * qryConsulta['ALIQNACIONAL_IBPT']) / 100, 2);

            vTributosE := Truncar((vTotalItem * qryConsulta['ALIQESTADUAL_IBPT']) / 100, 2);
            vTributosM := Truncar((vTotalItem * qryConsulta['ALIQMUNICIPAL_IBPT']) / 100, 2);
        end
          else
          begin
            vTributosF := Truncar((vTotalItem * qryConsulta['ALIQINTERNACIONAL_IBPT']) / 100, 2);

            vTributosE := Truncar((vTotalItem * qryConsulta['ALIQESTADUAL_IBPT']) / 100, 2);
            vTributosM := Truncar((vTotalItem * qryConsulta['ALIQMUNICIPAL_IBPT']) / 100, 2);
          end;
      end;

    Result := vTributosF + vTributosE + vTributosM;
  except
    Result := 0;
  end;
end;

para obter o resultado fiz assim sera que é isso mesmo?

Delmar, Obrigado pela proatividade, ajudou muito, só fiquei com uma duvida.
O que seria a variável FCI declarada na função , exemplo :

if fci = '' then

Seria algo relacionado a origem do produto?
Obrigado.

Editado 25 Setembro, 2016 por @lessandro
Esqueci de mencionar uma pergunta.

glacsius · 25 Novembro, 2016

Em 9/23/2015 at 11:51, Delmar Grande disse:

É a descrição da lei ta errado mesmo

errado

Informação dos Tributos Totais Incidentes (Lei Federal ~~12.74~~2~~/2012~~):

certo

Informação dos Tributos Totais Incidentes (Lei Federal 12.741/2012):

https://regys.com.br/nova-tabela-ibpt-versao-15-2-a/

Delmar, sei q esse post é antigo....... mas é o mais recente sobre a informação dos tributos aproximados.

notei em várias NFC-e q pego no comércio, imprime assim como o ACBr: Tributos Incidentes Lei Federal 12.741/12 R$ 0,25

porém o manual do IBPT fala que deve ser informado dessa maneira: Trib aprox R$: 0,23 Federal e 0,02 Estadual. Fonte: IBPT Ar5Fr7

tentei encontrar a lei que fala sobre ser escrito dessa forma (Tributos Incidentes Lei Federal 12.741/12) mas não encontrei. Só vi essa frase em imagem de exemplo falando sobre a lei.

tenho dúvida qual a maneira correta..... já q o IBPT é quem fez fervo em relação a essa lei, acreditava ele sendo o mestre em falar alguma coisa.... mas não vejo quase ninguem seguindo eles.

será q essa lei é simples e tanto faz, é só jogar um valor total e pronto? Tanto faz?

o Regis fala sobre isso, porém na epoca q ele escreveu foi antes da lei mudar pedindo para separar os impostos em Federal, Estadual e Municipal.

SISVALE SISTEMAS · 25 Novembro, 2016

Sobre a frase em si não é muito relevante, o importante é informar o valor referente federal e estadual (e se houver municipal e importação) e a versão do IBPT.
E o total já aparece na linha dos totais.
Eu informo assim:
Você pagou aproximadamente: R$ 15,12 de tributos federais R$ 17,42 de tributos
estaduais R$ 75,72 pelos produtos -> Fonte: IBPT/FECOMERCIO RS Ar5Fr7

Editado 25 Novembro, 2016 por DOCFABIO

BigWings · 25 Novembro, 2016

12 minutos atrás, glacsius disse:

Delmar, sei q esse post é antigo....... mas é o mais recente sobre a informação dos tributos aproximados.

notei em várias NFC-e q pego no comércio, imprime assim como o ACBr: Tributos Incidentes Lei Federal 12.741/12 R$ 0,25

porém o manual do IBPT fala que deve ser informado dessa maneira: Trib aprox R$: 0,23 Federal e 0,02 Estadual. Fonte: IBPT Ar5Fr7

tentei encontrar a lei que fala sobre ser escrito dessa forma (Tributos Incidentes Lei Federal 12.741/12) mas não encontrei. Só vi essa frase em imagem de exemplo falando sobre a lei.

tenho dúvida qual a maneira correta..... já q o IBPT é quem fez fervo em relação a essa lei, acreditava ele sendo o mestre em falar alguma coisa.... mas não vejo quase ninguem seguindo eles.

será q essa lei é simples e tanto faz, é só jogar um valor total e pronto? Tanto faz?

o Regis fala sobre isso, porém na epoca q ele escreveu foi antes da lei mudar pedindo para separar os impostos em Federal, Estadual e Municipal.

O que diz a lei:

Citar

Art. 1º Emitidos por ocasião da venda ao consumidor de mercadorias e serviços, em todo território nacional, deverá constar, dos documentos fiscais ou equivalentes, a informação do valor aproximado correspondente à totalidade dos tributos federais, estaduais e municipais, cuja incidência influi na formação dos respectivos preços de venda.

Pela lei, só é preciso informar o valor total. Nos arquivos XML das NFC-e e NF-e só existe a tag vTotTrib par a informação do valor total dos tributos aproximados.

Como praticamente todos usam o IBTP para o cálculo, ele pede que seja feita a separação dos tributos por ele calculados entre estadual, federal e municipal.

O que eu faço:

- Uso a tag vTotTrib para armazenar e imprimir o valor total aproximado, como "Tributos incidentes", para atender à lei.

- Uso as informações adicionais da NFC-e/NF-e para incluir o texto contendo os tributos separadamente, a versão e fonte do cálculo, para atender o manual do IBPT.

Entrar

Sobre nós...

Calcular de olho no imposto NFCE

Recommended Posts

Delmar Grande

Delmar Grande

Delmar Grande

Juliomar Marchetti

Delmar Grande

Juliomar Marchetti

Delmar Grande

Delmar Grande

Juliomar Marchetti

maurozb

Delmar Grande

maurozb

@lessandro

glacsius

SISVALE SISTEMAS

BigWings

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br

	BigWings Ajude o Projeto ACBr crescer - Assine o SAC