Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada: FRTFPAG - Pós informação de dígitos de cartão

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:

Nome

Tipo

Descrição

Obrigatório

ExpC1

C 

Forma de Pagamento

 

ExpC2

C

Descrição da Forma de Pagamento

 

ExpD3

D 

Data de Pagamento

 
ExpN4 NNumero da Parcela 
ExpN5 NTaxa de Juros 
ExpN6 NIntervalo entre as parcelas 
ExpN7 NValor da Parcela 
ExpC8 CMoeda da Venda 
ExpN9NControle interno de função 
ExpA10 AArray com as formas de Pgto 
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