LJVLDPGT - Validação de valores informado na Tela de Pagamento

Este ponto de entrada permite realizar validações ao confirmar a telinha com as informações de pagamento que é exibida após clicar no botão de pagamento da forma desejada. Isso possibilita fazer validações como, por exemplo, validar a quantidade de parcelas informada para pagamento com Cartão de Crédito, permite também validar o valor informado e a data.

#INCLUDE 'RWMAKE.CH'

User Function LJVLDPGT()
Local lRet := .T.
Local dData := PARAMIXB[01]
Local nValor := PARAMIXB[02]
Local cFormaPgto:= PARAMIXB[03]
Local nQdeParc := PARAMIXB[04]

//Se forma de pagamento é CC Cartão de Crédito, somente permite informar 1 parcela
If Upper(cFormaPgto) == "CARTAO DE CREDI" .And. nQdeParc > 1
MsgAlert("Não é permitido informar mais de uma parcela para pagamento com Cartão de Crédito.")
lRet := .F. //Nao permite continuar
Endif

Return lRet

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

lRet (Lógico)

Retorna de permite confirma a tela ou não.

.T. = Permite prosseguir com a confirmação das informações da tela;

.F. = Não permite prosseguir com a confirmação das informações da tela;

Este ponto de entrada é executado na confirmação da telinha com as informações de pagamento que é exibida após clicar no botão de pagamento da forma desejada ou quando é editada a forma de pagamento através do duplo clique.

LOJA701B.PRW