Dacte Nf-E - Descrição "outros" Do Pgto Não É Impresso

[ViniciusPacchioni]

Prezados, 

 

Quando seleciono o tipo de pagamento ipOutras, a impressão do tipo de pagamento no DANFe sai em branco.

 

Gostaria de solicitar uma atualização desse conteúdo no arquivo ACBrNFeDANFEFRDM.pas

 

Segue abaixo alteração que fiz para correção dessa situaçã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 := '';

 

      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;

 

 

 

 

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 if FNFe.Ide.indPag = ipOutras then

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

      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]

Bom dia Vinicius,

 

Por favor, não post conteúdo de arquivos ou fontes na área de texto do tópico.

 

Procure sempre anexar o arquivo, principalmente se tratando de uma alteração no fonte, fica mais fácil realizarmos o merge tendo o arquivo alterado completo anexado ao post.

 

Desde já muito obrigado pela compreensão e colaboração.

[Dempsey]

Bom dia Vinicius,

 

Por favor, não post conteúdo de arquivos ou fontes na área de texto do tópico.

 

Procure sempre anexar o arquivo, principalmente se tratando de uma alteração no fonte, fica mais fácil realizarmos o merge tendo o arquivo alterado completo anexado ao post.

 

Desde já muito obrigado pela compreensão e colaboração.

 

Olá... Vocês irão atualizar os fontes com esta sugestão do tipo 'Outros' do  ViniciusPacchioni ???