Árvore de páginas

Ponto-de-Entrada: TK061QRY - Inclusão de expressão no filtro de seleção das entidades
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Idiomas: Português (Brasil)
Descrição:
Ponto de Entrada utilizado para incluir expressão nos filtros de seleção das entidades (ACH - Suspect, SA2 - Fornecedores, SA4 - Transportadora, SUS - Prospect, SU2 - Concorrente, AC4 - Parceiros e SA1 - Clientes), onde será passado os seguintes parâmetros:cAlias - Alias da tabela que está sendo filtrada;cPerg - Nome do grupo de perguntas que está sendo utilizado;lLog    - Se foi habilitado o log de registros. Se o retorno for (.T.), deverá ser utilizado uma expressão ADVPL para o filtro e se for (.F.), deverá ser utilizado uma expressão SQL para o filtro.
Programa Fonte
TMKA061D.PRW
Sintaxe

TK061QRY - Inclusão de expressão no filtro de seleção das entidades ( [ cAlias ], [ cPerg ], [ lLog ] ) --> cExp

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cAlias Caracter Alias da tabela em que está sendo executado o filtro.ACH - Suspect, SA2 - Fornecedor, SA4 - Transportadora, SUS - Prospect, SU2 - Concorrente, AC4 - Parceiros e SA1 - Clientes.
cPerg Caracter Nome do grupo de perguntas que está sendo utilizado.
lLog Lógico Se foi habilitado o log de registros. (.T.) - deverá ser utilizado uma expressão ADVPL para o filtro.(.F.) - deverá ser utilizado uma expressão SQL para o filtro.
Retorno
    cExp(caracter)
  • Expressão que será utilizada no filtro de seleção das entidades.
Exemplos
User Function Tk061QRY()Local _cRet   := ""Local _cAlias := ParamIxb[1]	//Alias do arquivoLocal _cPerg  := ParamIxb[2]	//Nome do pergunte utilizadoLocal _lLog    := ParamIxb[3]	//"Habilita log de registros ?"###" A utilização do registro de log implicará em um processo de seleção mais lento."			//.T. - Utiliza expressão ADVPL para o filtro			//.F. - Utiliza expressão SQL para o filtroAlert("Passou pelo PE: TK061QRY - " + "Alias: " + _cAlias + " Perg: " + _cPerg)If _cAlias == "ACH"	//Filtra somente os suspects que não viraram prospcts ainda.	If !_lLog                              //Expressão SQL	         _cRet := " ACH.ACH_CODPRO = ' ' AND ACH.ACH_LOJPRO = ' ' "	Else                              //Expressão ADVPL 	         _cRet := " ACH_CODPRO == '      ' .AND. ACH_LOJPRO == '  ' "	EndIfEndIfReturn _cRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não