Josafar Nascimento da Silv

O problema estava nas totalizações. Para resolver, criei algumas variáveis para os totalizadores. Abaixo, listo o código do detalhamento da nota, incluindo mais de um item. // inclusão dos itens DM.ACBrNFe.NotasFiscais[0].NFe.det.clear; vnumitem:= 0; if DM.cdsAux.Active = True then DM.cdsAux.Close; DM.cdsAux.CommandText := 'Select I.*, P.Id, P.Desc, P.CodBarra, P.Unid, P.NCM From TABITENSFAT I '+ 'Left Join TABPRO P on I.CodPro = P.Id '+ 'Where I.Id = '+#39+edtAlt.Text+#39+'Order by I.Id'; DM.cdsAux.Open; while not DM.cdsAux.eof do begin inc(vnumitem); with Det.Add do begin Prod.nItem := vnumitem; Prod.cProd := DM.cdsAux.FieldByName('CodBarra').AsString; // ou... DM.cdsAux.FieldByName('CodPro').AsString; Prod.cEAN := DM.cdsAux.FieldByName('CodBarra').AsString; Prod.xProd := DM.cdsAux.FieldByName('Desc').AsString; Prod.NCM := DM.cdsAux.FieldByName('NCM').AsString; Prod.EXTIPI := ''; Prod.CFOP := DM.cdsAux.FieldByName('CFOP').AsString; Prod.uCom := DM.cdsAux.FieldByName('Unid').AsString; Prod.qCom := DM.cdsAux.FieldByName('Quant').AsFloat; Prod.vUnCom:= DM.cdsAux.FieldByName('Preun').AsFloat; Prod.vProd:= Prod.qCom * Prod.vUnCom; vtotprod:= vtotprod + Prod.vProd; Prod.vDesc:= DM.cdsAux.FieldByName('ValorDesc').AsFloat; Prod.uTrib:= DM.cdsAux.FieldByName('Unid').AsString; Prod.qTrib:= DM.cdsAux.FieldByName('Quant').AsFloat; Prod.vUnTrib:= DM.cdsAux.FieldByName('Preun').AsFloat; Prod.cEANTrib:= DM.cdsAux.FieldByName('CodBarra').AsString; with Imposto do begin // ICMS ICMS.orig := oenacional; ICMS.CST := cst00; ICMS.modBC := dbiValorOperacao; ICMS.vBC:= DM.cdsAux.FieldByName('VlrLiq').AsFloat; vtotbcicms:= vtotbcicms + ICMS.vBC; ICMS.pICMS:= DM.cdsAux.FieldByName('PercIcms').AsFloat; ICMS.vICMS:= (DM.cdsAux.FieldByName('VlrLiq').AsFloat * DM.cdsAux.FieldByName('PercIcms').AsFloat) / 100; vtoticms:= vtoticms + ICMS.vICMS; //Valor Aproximado dos Impostos IBPT ACBrIBPTax1.AbrirTabela(ExtractFilePath(Application.ExeName)+ 'tabela_ibpt\TabelaIBPTaxPE18.1.B.csv'); //Buscar NCM da mercadoria ACBrIBPTax1.Procurar(DM.cdsAux.FieldByName('NCM').AsString,ex, descricao, tabela, aliqFedNac, aliqFedImp, aliqEst, aliqMun, False); //Campo NF-e valor aproximado dos impostos; vTotTrib:= ((Prod.vProd - Prod.vDesc) * (aliqFedNac + aliqEst + aliqMun)) / 100; vtotaltrib:= vtotaltrib + vtottrib; end; end; DM.cdsAux.Next; end; DM.cdsAux.Close; // totalização da nota fiscal Total.ICMSTot.vNF := vvlrnf; Total.ICMSTot.vBC := vtotbcicms; Total.ICMSTot.vICMS := vtoticms; Total.ICMSTot.vProd := vtotprod; Total.ICMSTot.vTotTrib := vtotaltrib;

Como alterar o tamanho da fonte de impressão na NFe e se é possível fazê-lo para determinado campo.

Já encontrei o erro e a nota está sendo enviada sem problema.

Ao enviar a NFe, surge esse erro, caso a nota contenha mais de um item. Para o cálculo do valor aproximado estou usando o ACBrIBPTax. O interessante é que exibo os valores e estão corretos, porém, ao enviar a nota para a SEFAZ ela é rejeitada. Com apenas um item, a nota não é rejeitada.

Estou tentando executar o demo do ACBr para emissão da NFe e, ao executar a aba status de serviço, surge a mensagem: nenhum arquivo de schema encontrado na pasta C:\..........\Delphi\schemas\ve200\. Interessante é que marquei a versão 400 e essa mensagem parece se reportar à versão 200.

Obrigado Ricardo. Faltava apontar corretamente o DANFE. Resolvido.

Ao tentar configurar o Danfe no ACBr, p. ex.: ACBrNFe1.DANFE.TipoDanfe := tiRetrato, surge um erro de Acess Violation. Com resolver?

Felipe: Desculpe a falta de conhecimento, mas não sei como verificar a configuração de SSL.

Na tentativa de obter o número do certificado digital (show message('Número de série do certificado: '+ACBrNFe1.SSL.SelecionarCertificado)), aparece a seguinte mensagem de erro: 'selecionar certificado' não suportado em: TDFeSSLCryptClass. Como resolver?

Sou programador em Delphi (versão XE7) e tentei compilar os pacotes contidos no ACBr Install Trunk2. Ocorre que os arquivos abaixo não foram compilados (ocorreram erros nas compilação). Preciso de alguma orientação do pessoal do Fórum ACBr. ACBr_GnreGuiaFr.dpk ACBr_NFeDanfeSeRl.dpk ACBr_CTeDacteRl.dpk ACBr_BoletoRl.dpk ACBr_MDFedandFeRl.dpk ACBr_SatExtratoRl.dpk Josafar Nascimento