Á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 Numero de parcelas
ARAMIXBPARAMIXB[3] - Numérico - Valor informado para esta Forma de Pagamento
ARAMIXBPARAMIXB[4] - Array -  Formas 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:

UserFunctionSTISelForm()

Local

lRet

lRet             := .T.
LocalcForma

 

      :=PARAMIXB[1]  // Forma de Pagamento
LocalnParc          :=PARAMIXB[2] // Numero de parcelas
Local

nValor

nValor         :=PARAMIXB[3] // Valor informado para esta Forma de Pagamento
Local

aPagtosAnt

aPagtosAnt  :=PARAMIXB[4] // Formas de pagamento selecionadas anteriormente {<Forma>,<Valor>,<parcela>}
LocalaPgOrcImp  :=PARAMIXB[5] // Formas de pagametno do Orçamento importado {<Forma>,<valor>,<parcela>}


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

ReturnlRet