[Rejeição 685: total do valor dos tributos difere do somatório dos itens]

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;

[Tamanho da fonte de impressão]

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

[Rejeição 685: total do valor dos tributos difere do somatório dos itens]

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

[Rejeição 685: total do valor dos tributos difere do somatório dos itens]

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.

[Arquivo schema]

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.

[Configuração DANFE]

Obrigado Ricardo. Faltava apontar corretamente o DANFE. Resolvido.

[Configuração DANFE]

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

[Certificado Digital]

 

Felipe:

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

 

[Certificado Digital]

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?

[ACBr Install Trunk2]

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