Ponto-de-Entrada: OFI010FBRW - Criação de Filtro no Browse
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este Ponto de Entrada é executado na rotina Abertura de Ordens de Serviço Manual (OFIOM010), permitindo criar filtro no Browse da rotina.
Eventos
User FunctionOFI010FBRW()
MsgInfo(“Ponto de Entrada OFI010FBRW”,”Atencao”)
cRet := “ VO1_NUMOSV = '000001' ”
return cRet
Programa Fonte
OFIOM010
Sintaxe
OFI010FBRW - Criação de Filtro no Browse ( [ cRet ] ) --> cRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cRet | Caracter | Filtro Original |
Retorno
-
cRet(caracter)
- Filtro Saída
Observações
if VAI->VAI_TIPTEC == "4"
DbSelectArea("VO1")
dbSetOrder(1)
cCondicao := cCondicao + cAnd + "VO1->VO1_FUNABE == VAI->VAI_CODTEC"
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Endif
If ExistBlock("OFI010FBRW") // Ponto de Entrada para Filtro no Browse
cFilUser := ExecBlock("OFI010FBRW",.F.,.F.,cCondicao)
if !Empty(cFilUser) .and. ValType(cFilUser) == "C"
cCondicao += iif( !Empty(cCondicao) , " .and. " , "" ) + cFilUser
Endif
Endif
if !Empty(cCondicao)
bFiltraBrw := { || FilBrowse("VO1",@aIndVO1,@cCondicao) }
Eval(bFiltraBrw)
endif
mBrowse(06,01,22,75,"VO1",,,,,,aCores)
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |