Formas Pagamento

[i-master]

Incluido = fpAPrazo, fpCartaFrete

unit pcnConversao;

TpcnFormaPagamento = (fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja,
                      fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel,
                      fpDuplicataMercantil, fpAPrazo, fpCartaFrete, fpOutro);

function FormaPagamentoToStr(const t: TpcnFormaPagamento): string;
begin
  result := EnumeradoToStr(t, ['01', '02', '03', '04', '05', '10', '11', '12', '13', '14', '15', '16', '99'],
                              [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja,
                               fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel,
                               fpDuplicataMercantil, fpAPrazo, fpCartaFrete, fpOutro ]);
end;

function FormaPagamentoToDescricao(const t: TpcnFormaPagamento): string;
begin
  result := EnumeradoToStr(t,  ['Dinheiro', 'Cheque', 'Cartão de Crédito', 'Cartão de Débito', 'Crédito Loja',
                               'Vale Alimentação', 'Vale Refeição', 'Vale Presente', 'Vale Combustível',
                               'Duplicata Mercantil', 'A Prazo', 'Carta Frete', 'Outro'],
                               [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja,
                               fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel,
                               fpDuplicataMercantil, fpAPrazo, fpCartaFrete, fpOutro]);
end;

function StrToFormaPagamento(out ok: boolean; const s: string): TpcnFormaPagamento;
begin
  result := StrToEnumerado(ok, s, ['01', '02', '03', '04', '05', '10', '11', '12', '13', '14', '15', '16','99'],
                                  [fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja,
                                   fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel,
                                   fpDuplicataMercantil, fpAPrazo, fpCartaFrete, fpOutro]);
end;

pcnConversao.pas

ACBr-FormaPagamento.txt

[BigWings]

34 minutos atrás, i-master disse:

Incluido = fpAPrazo, fpCartaFrete

unit pcnConversao;

TpcnFormaPagamento = (fpDinheiro, fpCheque, fpCartaoCredito, fpCartaoDebito, fpCreditoLoja,
                      fpValeAlimentacao, fpValeRefeicao, fpValePresente, fpValeCombustivel,
                      fpDuplicataMercantil, fpAPrazo, fpCartaFrete, fpOutro);

Boa tarde,

Está criando novas formas de pagamento baseado em qual documento?

[i-master]

Por favor desconsiderar a alteração. Erro interno da minha Empresa, peço desculpas pelo ocorrido. Se necessário pode apagar o Post

Obrigado

 

Editado 16 Fevereiro, 2017 por i-master