Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rosileila Alves de Oliveira Santos

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Rosileila Alves de Oliveira Santos

Gravado em

Chave

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

Ponto de entrada:

...

lSTValFormPay_Validar_Formas_pagamento - TOTVS PDV

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 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.)

 

 

Exemplo:

 

User Function STValidVenlSTValFormPay ()

Local cCodVend := PARAMIXB[1] //Codigo do vendedor recebido via parametro
Local cVenPad := SuperGetMv( "MV_VENDPAD",,"")//Vendedor padrao
Local aRet lRet := { .T.,""} //Retorno

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

Return aRet

Function STBValFormPay(cTipoForma,nValor,nParc)
Local lRet := .T.
Local lSTValFormPay := ExistBlock("STValFormPay")

Default cTipoForma := ""
Default nValor := 0
Default nParc := 0

If lSTValFormPay
lRet := ExecBlock("STValFormPay",.F.,.F.,{cTipoForma,nValor,nParc})
EndIf

Return lRet