Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.



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:

UserFunctionSTISelForm()


LocallRet             :=.T.
LocalcForma       :=PARAMIXB[1]  // Forma de Pagamento
LocalnParc          :=PARAMIXB[2] // Numero de parcelas
LocalnValor         :=PARAMIXB[3] // Valor informado para esta Forma de Pagamento
LocalaPagtosAnt :=PARAMIXB[4] // Formas de pagamento selecionadas anteriormente {<Forma>,<Valor>}

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

ReturnlRet