Histórico da Página

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.

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

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	C	Grupo
ExpN5	N	Valor total
ExpN6	N	Valor total do desconto
ExpA7	A	Formas de Pgtos já selecionadas

Retorno:

Tipo	Descrição	Default
L	Define se a janela com os valores desejados deve ou não ser exibida	.F.
C	Forma de pagamento	""
D	Data do vencimento da parcela	Date
N	Número de parcelas	0
N	Taxa de juros	0
N	Número de intervalos de dias	0
N	Valor da parcela	0
C	ID Cartão	""
N	Valor do desconto a ser aplicado no total do cupom fiscal	0
N	Valor total do cupom fiscal	0

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)

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

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