Descrição: | Ponto de entrada após informar os dígitos do cartão para múltiplas transações TEF. Chamado no botão Ok quando se edita uma parcela no Front Loja ou quando se confirma a tela de Forma de pagamento. | ||||||||||||||||||||||||||||||||||||||||||||
Localização: | Informe o Submenu em que estará localizada a rotina | ||||||||||||||||||||||||||||||||||||||||||||
Eventos: | Informe o Título da rotina | ||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | Ponto de entrada chamado no fonte FRTA272A | ||||||||||||||||||||||||||||||||||||||||||||
Função: | FRTFPAG ( [ ExpC1 ], [ ExpC2 ], [ ExpD3 ], [ ExpN4 ], [ ExpN5 ], [ ExpN6 ], [ ExpN7 ], [ ExpC8 ] , [ ExpN9], [ ExpA10 ] ] ) --> Lógico | ||||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||||||||||||||||||||||
| Retorno: | Lógico |
Exemplo:
#Include 'Protheus.ch'
User Function FRTFPAG()
Local _cForma := PARAMIXB[1] //Forma de Pagamento
Local _cDesc := PARAMIXB[2] //Descrição da Forma de Pagamento
Local _dData := PARAMIXB[3] //Data de Pagamento
Local _nNumParc := PARAMIXB[4] //Numero de parcela
Local _nTXJuros := PARAMIXB[5] //Taxa de Juros
Local _nIntervalo := PARAMIXB[6] //Intervalo entre as parcelas
Local _nValor := PARAMIXB[7] //Valor da Parcela
Local _cMoedaVen := PARAMIXB[8] //Moeda da Venda
Local _nCall := PARAMIXB[9] //Indica a funcao chamada
Local _aPgtos := PARAMIXB[10] //aPgtos - formas de Pagamento
Local nPos := 0
Local xRet // retorno
If Alltrim(_cForma) == "$"
nPos := aScan(_aPgtos,{|X| x[3]=="$"}) // procura em que linha esta a forma desejada
If nPos > 0
_nValor += _aPgtos[nPos][2] // ajusta o valor
ENdIf
Endif
If _nValor > 10
xRet := .F.
EndIf
ou
xRet := _Valor
Return xRet
