Ponto-de-Entrada: TK061SU5 - Filtro da lista automática de contatos
Abrangências: | Microsiga Protheus |
10 , Microsiga Protheus 11 12 |
Versões: | Microsiga Protheus |
10 , Microsiga Protheus 11 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.
SintaxeTK061SU5 - Filtro da lista automática de contatos ( [ cAlias ], [ cOper ], [ lLog ] ) --> cFilSU5
Parâmetros:
Default | ObrigatórioReferência | cAlias | Caracter | Entidade para a qual será gerada a lista |
cOper |
Array of RecordCaracter | Có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. |
lLog |
Array of RecordLógico | Se 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.
Bloco de código |
---|
language | actionscript3 |
---|
linenumbers | true |
---|
|
User Function TK061SU5()
Local cFilSU5 := ""
Local cAlias := PARAMIXB[1] //Entidade - Ex: |
SA1LocalSA1
Local cOper := PARAMIXB[2] //Operador que foi selecionado na lista de |
cobrançaLocalcobranç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 EndIfReturn cFilSU5 Variáveis Nome | Tipo | Escopo | Pode Alterar | descrição | Array of Record | Global | Não
EndIf
EndIf
Return cFilSU5
|