Nome:

STISelForm

Descrição:

Este Ponto de Entrada possibilita a validação dos dados da Forma de Pagamento selecionada, e é executado ao acionar o botão Efetuar Pagamento.

Programa Fonte:STIPayment
Parâmetros:

PARAMIXB[1]  - Caractere -  Forma de Pagamento
PARAMIXB[2] - Numérico - Numero de parcelas
ARAMIXB[3] - Numérico - Valor informado para esta Forma de Pagamento
ARAMIXB[4] - Array - Formas de pagamento selecionadas anteriormente {<Forma>,<Valor>}

Retorno:Tipo lógico, caso retorne .F., a Forma de Pagamento não será adicionada.
Exemplo:

User Function STISelForm()


Local lRet             := .T.
Local cForma       := PARAMIXB[1]  // Forma de Pagamento
Local nParc          := PARAMIXB[2] // Numero de parcelas
Local nValor         := PARAMIXB[3] // Valor informado para esta Forma de Pagamento
Local aPagtosAnt := PARAMIXB[4] // Formas de pagamento selecionadas anteriormente {<Forma>,<Valor>}

If Upper(cForma) == "CC" .AND. (nValor / nParc ) > 50
    lRet := .F.
EndIf

Return lRet