Delmar Grande

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?

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?

Realmente eu postei no lugar errado pode mover para mim por favor! esse componente é gratuito para ser usado na versão 4.0

http://www.mediafire.com/download/5gtzhcq632o0j85/FastRepQrcode.rar

Boa tarde pessoal alguém ai usa o componente ZEOSDBO com sql server 2008 r2 se alguém usa, como fizeram a conexão com o banco de dados pois para min se eu uso o protocolo mssql fica tipo readonly visualizo os dados mais não grava nada no banco!

Boa noite pessoal, eu tenho uma lista de ncm aqui no meu sistema e a maioria deles não estou encontrando na tabela IBPT o que vocês me dizem estou com duvida em relação a isso, sera que devo esquecer esses ncm e importar só a tabala IBPT! se alguém poder me ajudar ficarei muito agradecido. segue o anexo em pdf contendo os ncm att. ncm.pdf

Opa agora esta tudo pronto realmente achei todas as resposta no fórum, acredito que só falta uns ajuste e vai esta 100%! Parabéns pelos componente são muito bom e bom trabalho para todos =/

sim pesquisei, alguém poderia me ajudar pelo menos nessa 2) como uso a função GetUTC() tentei mais da erro porque ela retorna do tipo string e então tive que usar assim Ide.dEmi := StrToDateTime(formatdatetime('dd/mm/yyyy',qrnota.fieldbyname('data').AsDateTime)+' '+FormatDateTime('hh:mm:ss',now)); Ide.dSaiEnt := StrToDateTime(formatdatetime('dd/mm/yyyy',qrnota.fieldbyname('data_saida').AsDateTime)+' '+FormatDateTime('hh:mm:ss',now));

Boa tarde a todos, pessoal tem umas duvidas sobre o NFCe gostaria se alguém sobe-se me ajudasse por favor! 1) Usando o relatório do fast report ele gera o link do Qrcode e a imagem ou terei que adaptar? 2) como uso a função GetUTC() tentei mais da erro porque ela retorna do tipo string e então tive que usar assim Ide.dEmi := StrToDateTime(formatdatetime('dd/mm/yyyy',qrnota.fieldbyname('data').AsDateTime)+' '+FormatDateTime('hh:mm:ss',now)); Ide.dSaiEnt := StrToDateTime(formatdatetime('dd/mm/yyyy',qrnota.fieldbyname('data_saida').AsDateTime)+' '+FormatDateTime('hh:mm:ss',now)); 3) como me aconselharia a fazer essa parte do código? with pag.Add do //PAGAMENTOS apenas para NFC-e begin tPag := fpDinheiro; vPag := RoundTo(qrnota.fieldbyname('TOTAL_NOTA').asfloat, -2); end; 4) tenho a parte de NFE pronto posso fazer a parte do NFCe junto?

sera que vocês atualizarão as Schemas das suas aplicações para 3.10 !