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;