Danfe nao imprime descrição da forma de pagamento

[dorivansousa]

   if (NotaUtil.EstaVazio(FNFe.Cobr.Fat.nFat)) then

   begin

      if (FNFe.Cobr.Dup.Count=0) then

      begin

         if FNFe.Ide.indPag=ipVista then

            Connection.WriteStrData('', 'PAGAMENTO À VISTA')

         else if FNFe.Ide.indPag=ipPrazo then

            Connection.WriteStrData('', 'PAGAMENTO A PRAZO')

         else

            Connection.WriteStrData('', '')

      end

      else

         Connection.WriteStrData('', '')

   end

   else

      Connection.WriteStrData('', '');

eu to fazendo uma nota fiscal a prazo e na descrição da forma de pagamento nao exibe o nome PAGAMENTO A PRAZO. olhando o codigo do AcbrNFeDANFERaveDM eu parei nessas linhas acima do CustomFaturaCXNGetRow.. nao sei se entendi bem mas se eu faço uma nfe a prazo eu informo o nFat e ai so vai passar pela linha que registra PAGAMENTO A PRAZO se eu nao informar.

to fazendo algo errado? como faço pra que apareça a descrição PAGAMENTO A PRAZO antes do numero da fatura?

[Angelo Gomes]

O que vc está informando na propriedade Ide.indPag?

[dorivansousa]

sim estou informando indPag ja passei linha a linha e o problema q eu percebi foi como relatei acima, é por que ta sendo informado o cFat e então ele não escreve a frase, somente os dados da fatura... eu até acho q é algo que não está errado pq se eu informo o numero e valores da fatura é de se entender q é uma nota a prazo, acontece que o cliente quer que a frase A PRAZO se apareça impressao... vou modificar a rotina.

aproveitando a atenção sou eu que nao sei mesmo trabalhar com o Rave, mas, como eu faço pra modificar o layout do DANFE fica travado e nao consigo modificar nada...

[dorivansousa]

informando o indpag da seguinte forma

...

     

     if DM_EFD.QryNotas_FiscaisCONDICAO.Value = '1' then

       Ide.indPag    := ipVista

     else if DM_EFD.QryNotas_FiscaisCONDICAO.Value = '2' then

       Ide.indPag    := ipPrazo

     else

       Ide.indPag    := ipOutras;

[Angelo Gomes]

Realmente agora lembrei, se vc informar as faturas ele não imprimi o texto, imprimi somente as faturas. Eu tenho um parametro no meu sistema que diz se o usuario quer que imprima o texto ou as faturas. Se esta setado pra mostrar o texto, não carrego as faturas no componente.

Infelizmente não sei como alterar a Danfe.

[Léo]

Bom dia italojjr !,

 

Segue solução para isso abaixo: fiz a alteração nas seguintes linhas da unit ACBrNFeDANFEFRDM.pas  na procedure CarregaFatura abaixo marcadas em azul. gostaria que os moderadores analisem a alteração que fiz e submetam para que na proxima atualização não apresente o mesmo problema. com esta alteração resolve o problema citado acima.

 

OBS:FIZ ESTA ALTERAÇÃO PARA O FASTREPORT, MAS ACREDITO QUE SERVE PARA AS OUTRAS VERSÕES.

 

 

procedure TdmACBrNFeFR.CarregaFatura;

begin

  with cdsFatura do

  begin

    Close;

    CreateDataSet;

 

    if Self.ExibeCampoFatura then   //Incluido por Fábio Gabriel - 22/05/2013

    begin

      Append;

 

      if FNFe.Ide.indPag = ipVista then

        FieldByName('Pagamento').AsString := 'PAGAMENTO À VISTA'

      else if FNFe.Ide.indPag = ipPrazo then

        FieldByName('Pagamento').AsString := 'PAGAMENTO A PRAZO'

      else

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

 

      if DFeUtil.NaoEstaVazio(FNFe.Cobr.Fat.nFat) then

      begin

        with FNFe.Cobr.Fat do

        begin

          FieldByName('nfat').AsString := nFat;

          FieldByName('vOrig').AsFloat := DFeUtil.StringToFloatDef(FloatToStr(vOrig), 0);

          FieldByName('vDesc').AsFloat := DFeUtil.StringToFloatDef(FloatToStr(vDesc), 0);

          FieldByName('vLiq').AsFloat  := DFeUtil.StringToFloatDef(FloatToStr(vLiq), 0);

        end;

      end;

      Post;

    end;

  end;

end;

 

[Italo Giurizzato Junior]

Boa tarde Léo,

 

Fiz a alteração, favor atualizar os fontes e testar.

[josadac]

Pessoal, 

Depois que migrei p/ o ACBrMonitorPlus não sai mais a descrição "PAGAMENTO A PRAZO", segue o xml p/ analise:

 

31151218580456000133550000000744101000744100-nfe.xml

[Sérgio Assunção]

7 horas atrás, josadac disse:

Pessoal, 

Depois que migrei p/ o ACBrMonitorPlus não sai mais a descrição "PAGAMENTO A PRAZO", segue o xml p/ analise:

 

31151218580456000133550000000744101000744100-nfe.xml

No seu XML o indPag ta 2, e o valor para pagamento a prazo deve ser 1.

[josadac]

Ok Sérgio,

Obrigado pela atenção.

[josadac]

Olá Sérgio,

Mesmo 1 não está imprimindo, acabei de testar agora, será que houve mudança na tag ?

 

[Antônio Raichaski]

Olá não seria melhor mostrar no DANFE a descrição OUTROS caso não seja A VISTA ou A PRAZO? hoje esta indo vazio.

Que ficaria desta forma utilizando o código postado acima pelo Léo

procedure TdmACBrNFeFR.CarregaFatura;

begin

  with cdsFatura do

  begin

    Close;

    CreateDataSet;

 

    if Self.ExibeCampoFatura then   //Incluido por Fábio Gabriel - 22/05/2013

    begin

      Append;

 

      if FNFe.Ide.indPag = ipVista then

        FieldByName('Pagamento').AsString := 'PAGAMENTO À VISTA'

      else if FNFe.Ide.indPag = ipPrazo then

        FieldByName('Pagamento').AsString := 'PAGAMENTO A PRAZO'

      else

        FieldByName('Pagamento').AsString := 'OUTROS';

 

      if DFeUtil.NaoEstaVazio(FNFe.Cobr.Fat.nFat) then

      begin

        with FNFe.Cobr.Fat do

        begin

          FieldByName('nfat').AsString := nFat;

          FieldByName('vOrig').AsFloat := DFeUtil.StringToFloatDef(FloatToStr(vOrig), 0);

          FieldByName('vDesc').AsFloat := DFeUtil.StringToFloatDef(FloatToStr(vDesc), 0);

          FieldByName('vLiq').AsFloat  := DFeUtil.StringToFloatDef(FloatToStr(vLiq), 0);

        end;

      end;

      Post;

    end;

  end;

end;

Editado 28 Dezembro, 2015 por Antonio Raichaski

[Juliomar Marchetti]

anexe a unit que validamos e subimos caso necessário

[Antônio Raichaski]

Segue em anexo o .pas com a modificação.

 

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

no svn a alteração!

 

[hleorj]

Pergunta : quando a nota for de simples remessa ou nota de importação ou devolução ..e etc  irá aparecer a descrição ? Forma de pagamento : outros.

Não seria melhor deixar como antes.

@Juliomar Marchetti e @Antônio Raichaski  e @josadac.

[Juliomar Marchetti]

e o que seria antes? sem nada?

desculpe mas esqueci de consultar o manual o que ele diz? alguém foi a página e leu

[Antônio Raichaski]

@hleorj Eu poderia implementar para apenas mostrar outros então quando o campo finNFe for 1 que seria para NF-e Normal, já resolveria o problema correto?

@Juliomar Marchetti no manual de orientação mostra as formas de pagamento A VISTA, A PRAZO e OUTROS e como no DANFE é apenas uma descrição imagino que não teria problema.