Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TK061SU5 - Filtro da lista automática de contatos


Abrangências:Microsiga Protheus 12
Versões:Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)


Descrição:
Ponto de Entrada que permite filtrar os contatos no momento da geração da lista automática. 
Informe uma expressão de filtro em SQL e ADVPL para efetuar o filtro na Tabela SU5 - Contatos.

Programa Fonte
TMKA061D.PRW

Sintaxe

TK061SU5 - Filtro da lista automática de contatos ( [ cAlias ], [ cOper ], [ lLog ] ) --> cFilSU5


Parâmetros:


NomeTipoDescrição
cAliasCaracterEntidade para a qual será gerada a lista
cOperCaracterCódigo do Operador para o qual será gerada a lista

Observação:
O código do operador virá em branco, caso esteja sendo executado o Assistente de Lista de Contatos com a opção de seleção de operador por "Grupo", pois a rotina irá selecionar os operadores do grupo antes de começar a gravação da lista, e após a execução deste ponto de entrada.
lLogLógicoSe for habilitado o log de registros (.T.), deverá ser utilizada uma expressão ADVPL para o filtro.
Se for habilitado o log de registros (.F.), deverá ser utilizada uma expressão SQL para o filtro.


Retorno

cFilSU5
    (caracter)
  • Expressão que será utilizada no filtro de seleção dos contatos.

Exemplos


User Function TK061SU5()

Local cFilSU5 := ""
Local cAlias  := PARAMIXB[1]	//Entidade - Ex: SA1
Local cOper   := PARAMIXB[2]	//Operador que foi selecionado na lista de cobrança
Local lLog    := PARAMIXB[3]	//"Habilita log de registros ? 	

If cAlias == "SA1"		
	If !lLog		//Expressão SQL			
		cFilSU5 :=  "	SU5.U5_EST = 'SP' "		
	Else			//Expressão ADVPL
		cFilSU5 :=  "	SU5->U5_EST = 'SP' "		
	EndIf
EndIf

Return cFilSU5