Alteração no ACBRNFeDanfeFRDM para NFe de Combustíveis

[FocusRJ]

Amigos,

para as informações referentes à combustíveis saírem na DANFE gerada, pelo FASTREPORT, realizei a seguinte alteração:

na procedure CARREGADADOSDOPRODUTO, após o detalhamento específico dos MEDICAMENTOS inseri o seguinte:

            {detalhamento específico de combustíveis}

            {Rômulo Mayworm - 15/05/2012}

            if comb.cProdANP > 0 then

            begin

              vTemp2.Add(' CÓD.ANP: '+ IntToStr(comb.cProdANP));

              vTemp2.Add(' CODIF: '+ comb.CODIF);

              vTemp2.Add(' UF CONS.: '+ comb.UFcons);

              vTemp2.Add(' QTDE. FAT.TEMP.AMB.: '+ NotaUtil.FormatFloat(comb.qTemp));

              vTemp2.Add(NotaUtil.SeSenao(comb.CIDE.qBCProd > 0, ' CIDE BC.: '+NotaUtil.FormatFloat(comb.CIDE.qBCProd), ''));

              vTemp2.Add(NotaUtil.SeSenao(comb.CIDE.vAliqProd > 0, ' CIDE ALÍQ.: '+NotaUtil.FormatFloat(comb.CIDE.vAliqProd), ''));

              vTemp2.Add(NotaUtil.SeSenao(comb.CIDE.vCIDE > 0, ' CIDE VALOR: '+NotaUtil.FormatFloat(comb.CIDE.vCIDE), ''));


              if (Trim(wInfAdProd) <> '') then

                wInfAdProd := wInfAdProd + ';'; //insere quebra de linha antes do detalhamento


              wInfAdProd := wInfAdProd + vTemp2.Text;

              vTemp2.Clear;

            end;

#FICADICA pro pessoal caso possam atualizar no ACBR e no mesmo .pas, na procedure CARREGAPARAMETROS, fiz a seguinte alteração:

if (FNFe.Ide.TpAmb = taHomologacao) then

      FieldByName('Mensagem0').AsString := 'NFe sem Valor Fiscal - HOMOLOGAÇÃO'

    else

    begin

      if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA]) then

      begin

        //      Alterado por Rômulo Mayworm, sem a necessidade do teste 'Not'

        if (FNFe.procNFe.cStat = 101) then

          FieldByName('Mensagem0').AsString := 'NFe Cancelada'

        else

        if ((NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and

            (NotaUtil.EstaVazio(FNFe.procNFe.nProt))) then

          FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ'

        else

        begin

//        Alterado por Rômulo Mayworm - dessa forma as notas não canceladas estavam indo com a tarja "NFe Cancelada"

//          if FDANFEClassOwner.NFeCancelada then

//            FieldByName('Mensagem0').AsString := 'NFe Cancelada'

//          else

            FieldByName('Mensagem0').AsString := '';

        end;

      end

      else

        FieldByName('Mensagem0').AsString := '';

    end;

Att.

[Angelo Gomes]

Amigo, se possível anexe os arquivos alterados neste post, assim fica mais fácil dos moderadores analisarem as alterações e subirem pro repositório.

[FocusRJ]

Ok, seguem os arquivos!

Att.

Rômulo Mayworm

ACBrNFeDANFEFRDM.rar