Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada : FRTFORMPAG - Pagamento com múltiplas transações

Descrição:

Ponto de entrada chamado para formas de pagamento com múltiplas transações TEF.

Programa Fonte:

Ponto de entrada chamado pelo FRTA271F.

Função:

FRTFORMPAG( [ ExpA1 ], [ ExpC2 ], [ ExpC3 ], [ ExpC4 ], [ ExpN5 ], [ ExpN6 ] , [ ExpA7 ]) --> aRetFormPag

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

ExpA1

A

Formas de pagamentos

 

ExpC2

C 

Descrição da forma de pagamento

 

ExpC3

C

Forma de pagamento

 
ExpC4 CGrupo 
ExpN5 NValor total 
ExpN6 NValor total do desconto 
ExpA7 AFormas de Pgtos já selecionadas 
Retorno:
TipoDescriçãoDefaultObrigatório
LDefine se a janela com os valores desejados deve ou não ser exibida.F. 
CForma de pagamento"" 
DData do vencimento da parcelaDate 
NNúmero de parcelas0 
NTaxa de juros0 
NNúmero de intervalos de dias0 
NValor da parcela0 
CID Cartão"" 
NValor do desconto a ser aplicado no total do cupom fiscal0 
NValor total do cupom fiscal0 

 

Exemplo:

#Include 'Protheus.ch'

User Function FRTFORMPAG()

Local aFormPag := PARAMIXB[1]

Local cDesc        := PARAMIXB[2]

Local cForma      := PARAMIXB[3]

Local cGrupo      := PARAMIXB[4]

Local nVlrTotal   := PARAMIXB[5]

Local _aPgtos       := PARAMIXB[7]

Local nVl := 0

Local nV2 := 0

Local nV3 := 0

Local xx := 0

Local ndolar := 3.44

Local aRetFormPag // Retorno do Ponto de Entrada

nVlrTotal := iif (cForma == "U$S",(nVlrTotal)/ndolar ,nVlrTotal)

For xx := 1 To Len(_aPgtos)
    IF _aPgtos[xx][3] == "$"
        nVl := nVl + (_aPgtos[xx][2])
    Endif

    IF _aPgtos[xx][3] == "U$S"
        If cForma == "U$S"
            nV2 := nV2 + (_aPgtos[xx][2])
        Else
            nV2 := nV2 + (_aPgtos[xx][2] * ndolar )
        Endif
    Endif

    nV3 := nVl+ nV2


Next xx

aRetFormPag := { .T., cForma, cDesc, dDatabase, 1, 0, 30, nVlrTotal-nV3, " ",0,0 }

Return(aRetFormPag)