Linha Microsiga Protheus

Árvore de páginas

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