Linha Microsiga Protheus

Árvore de páginas

Descrição:

O ponto de entrada STRestFPgt é executado na rotina de carregamento das formas de pagamentos na tela de pagamento do Totvs PDV.
A finalidade dele é restringir as formas de pagamento a serem utilizadas do Totvs PDV de acordo com tipo de operação, tais como Importação de Orçamento ou Recebimento de Título, por cliente, etc... 

Exemplo:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"
   
User Function STRestFPgt()
Local aRet         :={}                   // Formas de Pagamentos a serem exibidas
Local lImpOrc   := Paramixb[1] // Parâmetro que Indica que é Importação de Orçamento
Local lRecTit     := Paramixb[2] // Parâmetro que indica que é Recebimento de Título


If lImpOrc //Importação de Orçamento exibe todas as formas de pagamento    
     aRet :={}
ElseIf lRecTit //Recebimento de Título pagamento somente em Dinheiro ou PIX
    Aadd(aRet,'R$')
    Aadd(aRet,'PX') 
ElseIF SL1->L1_CLIENTE == SuperGetMV("MV_CLIPAD",, "")  // Se for cliente padrão somente formas de pagamentos Dinheiro, Cartão de Crédito, Cartão de Débito e PIX
    Aadd(aRet,'R$')
    Aadd(aRet,'CC')
    Aadd(aRet,'CD')
    Aadd(aRet,'PX')
Endif

Return aRet

Versão:P12 ou superior
Parâmetros:

Paramixb[1] // Parâmetro lógico que indica quando é Importação de Orçamento 
Paramixb[2] // Parâmetro lógico que indica quando é Recebimento de Título

Retorno:

Tipo: Array
Descrição:
1- Array contendo a chave das formas de pagamentos a serem exibidas: Exemplo: 'R$', 'CC', 'PX'
2- Array vazio será exibida todas as formas de pagamentos da SX5. cExemplo: aRet:={}

Programa fonte:STIPAYMENT.PRW