Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
OFI010FBRW - Criação de Filtro no Browse
OFI010FBRW - Criação de Filtro no Browse

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cRetCaracterFiltro 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão