Árvore de páginas

Versões comparadas

Chave

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

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

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)