Histórico da Página

...

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 seu objetvo é validar 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: PARAMIXB[1]: Caracter - Codigo do vendedor Selecionado Executa validação do botão OK das formas de pagamento @param1 cTipoForma - @param1 Caracter Tipo da forma de pagamento @param2 nValor Numérico - Valor da forma de pagamento @param3 nParc Numérico- Quantidade de parcelas
Retorno:	Deve ser um array com a mesma estrutura abaixo: aRet(array), sendo: -aret[1] - Lógico Lógico - Resultado da validação -aret[2] - Caracter - Mensagem a ser exibida caso a Validação retorne Falso(.F.) Forma válida = .T. Forma NÃO válida = .F.

Exemplo:

User Function

...

STValFormPay()

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

Local cVenPad := SuperGetMv( "MV_VENDPAD",,"")//Vendedor padrao
Local aRet := {.T.,""} //Retorno

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

nValor :=PARAMIXB[2] // Valor da forma de pagamento recebido via parametro

Local nParc := PARAMIXB[3] //Quantidade de parcelas recebido via parametro

Local lRet := .T.

If nParc >50
lRet := .F.
EndIf

Return lRetReturn aRet

Árvore de páginas