Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Roberto Bernardino De Melo

Gravado em

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

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.  
C Forma de pagamento""   
DData do vencimento da parcelaDate  
N Número de parcelas 0  
N Taxa de juros 0   
NNúmero de intervalos de dias0  
N Valor da parcela 0  
C ID Cartão ""   
NValor do desconto a ser aplicado no total do cupom fiscal0 
NValor total do cupom fiscal0   

 

Exemplo:

#Include 'Protheus.ch'

User Function

CN120ALT

FRTFORMPAG()

Local

aCab

aFormPag := PARAMIXB[1]

Local

cTipo

cDesc        := PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab

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)