Propriedade tPag

[bnobre]

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";

 

[Italo Giurizzato Junior]

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.

[bnobre]

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?

[BigWings]

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.