Ir para conteúdo
  • Cadastre-se

dev botao

Formas Pagamento


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

Recommended Posts

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

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

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 por i-master

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • hleorj locked this tópico
  • Este tópico foi criado há 2597 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.