Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Ponto de Entrada utilizado para criar o Filtro ou para executar ações.
Ponto de Chamada: Criação do Filtro antes da apresentação da Tela.
QNCA030.PRW
QNC030Fil - Criação de Filtro ( [ cFiltro ], [ ] ) --> cFiltro
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cFiltro | Caracter | ||||||||||||||||
Array of Record |
- (caracter)
User Function QNC030Fil()Local cFiltro := "QI3_CODIGO == ' 000000000012009' " Return(cFiltro)
//Exemplo de filtro para campo memo que utilizam a tabela SYP:
User Function QNC030Fil()
Local cFiltro := FilMemSYP("QI3", "QI3_MEMO1", "QI3_PROBLE", 80)
Return(cFiltro)
User Function FilMemSYP(cAlias, cCpoLogico, cCpoFisico, nTamanho) // atenção: esta função apresenta baixa performance para tabelas com muitos registros //
Local cMeuFiltro := ""
Default cAlias := "QI3"
Default cCpoLogico := "QI3_MEMO1"
Default cCpoFisico := "QI3_PROBLE"
Default nTamanho := 80
cMeuFiltro := Upper(FwInputBox("Informe o valor do campo '"+GetSx3Cache(cCpoLogico,"X3_TITULO")+"' para filtro:", cMeuFiltro))
Return cAlias+'->'+cCpoFisico+'==IIF("'+cMeuFiltro+'"$UPPER(MSMM('+cAlias+'->'+cCpoFisico+','+CValToChar(nTamanho)+')) , '+cAlias+'->'+cCpoFisico+', "")'
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |