Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3276 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

   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?

Postado

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...

Postado

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;

Postado

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.

  • 2 anos depois...
  • Membros Pro
Postado
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;
 
  • 1 ano depois...
  • 2 semanas depois ...
Postado (editado)

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 por Antonio Raichaski

*-Antônio Max Raichaski-*

  • Moderadores
Postado

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.

Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

  • Este tópico foi criado há 3276 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...