Ponto de entrada:

...

STValFormPay_Validar_Formas_pagamento - TOTVS PDV

Descrição:	Este Ponto de Entrada é executado após a seleção da forma de pagamento do tipo "CARTÃO" no TOTVS PDV, faz a validação se a forma de pagamento selecionada é válido ou não antes de confirmar a Transação (STICCConfPay)
Programa Fonte:	STIPayCard.prw
Função:	A função recebe os parâmetros: @param1 Caracter Tipo da forma de pagamento @param2 Numérico - Valor da forma de pagamento @param3 Numérico- Quantidade de parcelas
Retorno:	Deve ser Lógico - Resultado da validação

Exemplo:

User Function

...

STValFormPay()

Local cCodVend cTipoForma := PARAMIXB[1] @param1//Codigo do vendedor Tipo da forma de pagamento recebido via parametro

Local cVenPad nValor := SuperGetMv( "MV_VENDPAD",,"")//Vendedor padrao
Local lRet := .T.

If AllTrim(cCodVend) == AllTrim(cVenPad) .OR. Empty(cCodVend)
aRet := {.F.,"Vendedor não aceito"}
EndIf

Return aRet

...

Default cTipoForma := ""
Default nValor := 0
Default nParc := 0

...

@param2// Valor da forma de pagamento recebido via parametro

Local nParc := @param3//Quantidade de parcelas recebido via parametro

Local lRet := .T.

...

If cTipoForma <> "CC" .or. nParc >50
lRet := .F.

EndIf

Return lRet