Linha Microsiga Protheus

Árvore de páginas



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
PARAMIXB[3] - Numérico - Valor informado para esta Forma de Pagamento
PARAMIXB[4] - Array - Formas de pagamento selecionadas anteriormente {<Forma>,<Valor>,<parcela>}
PARAMIXB[5] - Array - Formas de pagamento do Orçamento importado {<Forma>,<valor>,<parcela>}
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>,<parcela>}
Local aPgOrcImp  := PARAMIXB[5] // Formas de pagametno do Orçamento importado {<Forma>,<valor>,<parcela>}


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

Return lRet