FormaPagamentoToDescricao

[SISBLU Software]

Bom dia, estou atualizando meu ACBR, e eu tinha essa rotina para pegar a DESCRIÇÃO DA forma de pagamento.

Mas não existe mais dentro do PCNConversão.

O que encontrei foi CodigoMPToDescricao ( mas não consigo usar com .tpag)

FormaPagamentoToDescricao(ACBrNFCe1.NotasFiscais[0].NFe.pag.Items[i].tPag);

Pegava la do PCNConversão

///// aqui

function FormaPagamentoToDescricao(const t: TpcnFormaPagamento): string; overload;
begin
  Result := FormaPagamentoToDescricao(t, '');
end;

function FormaPagamentoToDescricao(const t: TpcnFormaPagamento; const xPag: String): string; overload;
begin
  if (t = fpOutro) and (xPag <> '') then
    result := xPag
  else
    result := EnumeradoToStr(t,  ['Dinheiro', 'Cheque', 'Cartão de Crédito',
                                'Cartão de Débito', 'Cartão da Loja (Private Label)',
                                'Vale Alimentação', 'Vale Refeição', 'Vale Presente',
                                'Vale Combustível', 'Duplicata Mercantil',
                                'Boleto Bancário', 'Deposito Bancário',
                                'PIX - Dinâmico', 'Transferência Bancária',
                                'Programa Fidelidade', 'Sem Pagamento',
                                'Regime Especial NFF', 'Outro', 'PIX - Estático',
                                'Crédito em Loja', 'Falha de hardware do sistema emissor'],
                              [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito,
                               fpCreditoLoja, fpValeAlimentacao, fpValeRefeicao,
                               fpValePresente, fpValeCombustivel, fpDuplicataMercantil,
                               fpBoletoBancario, fpDepositoBancario,
                               fpPagamentoInstantaneo, fpTransfBancario,
                               fpProgramaFidelidade, fpSemPagamento, fpRegimeEspecial,
                               fpOutro, fpPagamentoInstantaneoEstatico,
                               fpCreditoEmLojaPorDevolucao, fpFalhaHardware]);
end;

////

 

 

[datilas]

pcnConversaoNFe ou ACBrNFe.Conversao

[SISBLU Software]

Perfeito. Obrigado

pcnConversaoNFe 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.