Jump to content

dev botao

Propriedade tPag


Go to solution Solved by Italo Giurizzato Junior,
  • Este tópico foi criado há 1143 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Olá...

Normalmente atribuímos o valor da propriedade tPag da seguinte maneira:

tPag := fpDinheiro;

Só que tenho os códigos das formas de pagamento em meu banco como um campo string: "01", "02", "03", ..., "99".

Como faço para ler direto desses campos???

tPag := "01";

 

Link to comment
Share on other sites

  • Consultores
  • Solution

Bom dia,

Você pode fazer da seguinte forma:

tPag := StrToFormaPagamento(Ok, sFormaPagamento);

Onde a variável Ok é do tipo Boolean e a sFormaPagamento é do tipo string que contem o código lido do seu banco de dados.

  • Thanks 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Membros Pro
6 minutos atrás, Italo Giurizzato Junior disse:

Bom dia,

Você pode fazer da seguinte forma:

tPag := StrToFormaPagamento(Ok, sFormaPagamento);

Onde a variável Ok é do tipo Boolean e a sFormaPagamento é do tipo string que contem o código lido do seu banco de dados.

Oi Amigo...

Essa variável Ok é obrigatória? Serve pra que?

Link to comment
Share on other sites

  • Moderadores
1 hora atrás, doidopb disse:

Essa variável Ok é obrigatória? Serve pra que?

Se você informar um valor inválido para o código do tPag, o retorno será fpDinheiro, por ser o primeiro item do enumerado.

A variável Ok é passada por referência e retorna se o valor foi encontrado na lista.

  • Like 3
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.