Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Na rotina de Ajuste de Valor Presente (Contas a Pagar - FINA950.PRW) ao realizar a Simulação da constituição do Valor Presente do Contas a Pagar é possível adicionar parâmetros para filtrar os dados que serão apresentados do browser, para isso deve-se usar os pontos de entrada (F950PAR1,F950PAR2 e F950PAR3) em conjunto.

O ponto de entrada F950PAR1 adiciona campos na tela de wizard da rotina.

O ponto de entrada F950PAR2 preenche os parâmetros iniciais dos campos adicionados. 

O ponto de entrada F950PAR3 busca os parâmetros e permite configurar na query, as condições que serão utilizadas com os parâmetros adicionados anteriormente.

02. PARÂMETROS

PosiçãoTipoDescrição
1VetorVetor de parâmetros/perguntas (aRetPer)

03. RETORNO

TipoDescrição
Caractere

Expressão SQL que será inclusa na cláusula WHERE da consulta.

04. EXEMPLO DE UTILIZAÇÃO

P.E. NatSevLoad
#include "protheus.ch"

User Function F950PAR1()
    Local aRet1 := aClone(paramixb[1])
    aAdd(aRet1,{ 1, "Saldo De" ,Space(TamSx3('E2_SALDO') [1]) ,X3Picture('E2_SALDO') ,"","","",100, .F.,"E2_SALDO"})
    aAdd(aRet1,{ 1, "Saldo Ate" ,Space(TamSx3('E2_SALDO') [1]) ,X3Picture('E2_SALDO') ,"","","",100, .F.,"E2_SALDO"})
    aAdd(aRet1,{ 1, "Baixa De" ,Space(TamSx3('E2_BAIXA')[1]) ,X3Picture('E2_BAIXA') ,"","","",100, .F.,"E2_BAIXA"})
    aAdd(aRet1,{ 1, "Baixa Ate" ,Space(TamSx3('E2_BAIXA')[1]) ,X3Picture('E2_BAIXA') ,"","","",100, .F.,"E2_BAIXA"})
Return aRet1


User Function F950PAR2()
    Local aRet2 := aClone(paramixb[1])
    aAdd(aRet2,0,)
    aAdd(aRet2,99999999.99)
    aAdd(aRet2,CtoD(" / / "))
    aAdd(aRet2,CtoD(" / / "))
Return aRet2

user function F950PAR3()
    Local cQuery:= ""
    cQuery += "E2_SALDO >= '" + cValToChar(PARAMIXB[18]) + "' AND "  // Os novos parametros estarão a partir da posição 18 de PARAMIXB (PARAMIXB[18])
    cQuery += "E2_SALDO <= '" + cValToChar(PARAMIXB[19]) + "' AND "  // A sequencia de PARAMIXB respeita a ordem adicionada nos arrays nos pontos de entrada F950PAR1 e F950PAR2. 
    cQuery += "E2_BAIXA >= '" + DTOS(PARAMIXB[20]) + "' AND "
    cQuery += "E2_BAIXA <= '" + DTOS(PARAMIXB[21]) + "' AND "
return cQuery