Protheus :: Opções de Filtro na mBrowse

Algumas maneiras de Filtrar os registros a serem apresentados na mBrowse

Opção 1: Usando a Função FilBrowse() para filtrar os registros antes da apresentação da mBrowse

/*/ Exemplo 1 ) Usando a Funcao FilBrowse() /*/ User Function MbrFEx1() Local aIndex := {} Local cFiltro := "RA_SEXO == 'F'" //Expressao do Filtro Private aRotina := {; { "Pesquisar" , "PesqBrw" , 0 , 1 },; { "Visualizar" , "AxVisual" , 0 , 2 },; { "Incluir" , "AxInclui" , 0 , 3 },; { "Alterar" , "AxAltera" , 0 , 4 },; { "Excluir" , "AxDeleta" , 0 , 5 }; } Private bFiltraBrw := { || FilBrowse( "SRA" , @aIndex , @cFiltro ) } //Determina a Expressao do Filtro Private cCadastro := "Exemplo de Filtro da mBrowse usando FilBrowse" Eval( bFiltraBrw ) //Efetiva o Filtro antes da Chamada a mBrowse mBrowse( 6 , 1 , 22 , 75 , "SRA" ) EndFilBrw( "SRA" , @aIndex ) //Finaliza o Filtro Return( NIL )

Opção 2: Usando os parametros cTopFun e cBotFun da mBrowse(). Essa opção depende de um índice com o campo a ser delimitado

/*/ Exemplo 2 ) Usando os parametros cTopFun e cBotFun ( Depende da Existencia de um Indice com a Expressao de Filtro e que este seja o Indice Selecionado ) /*/ User Function MbrFEx2() Local cTopFun := "U_TOPFUN()" Local cBotFun := "U_BOTFUN()" Private aRotina := {; { "Pesquisar" , "PesqBrw" , 0 , 1 },; { "Visualizar" , "AxVisual" , 0 , 2 },; { "Incluir" , "AxInclui" , 0 , 3 },; { "Alterar" , "AxAltera" , 0 , 4 },; { "Excluir" , "AxDeleta" , 0 , 5 }; } Private cCadastro := "Exemplo de Filtro da mBrowse Usando os parametros cTopFun e cBotFun" IndRegua("SRA",CriaTrab(NIL,.F.),"DTOS(SRA->RA_NASC)",NIL,NIL,NIL,.T.) mBrowse( 6 , 1 , 22 , 75 , "SRA" , NIL , NIL , NIL , NIL , NIL , NIL , @cTopFun , @cBotFun ) Return( NIL ) User Function TopFun() Return( '19701512' ) User Function BotFun() Return( '19801512' )

Opção 2: Usando o parametro cExprFilTop da mBrowse(). Essa opção depende que o Rdd Contralor seja o TOPCONN e deve ser passado como uma expressão SQL válida.

/*/ 3 ) Usando o parametros cExprFilTop /*/ User Function MbrFEx3() Local cExprFilTop := "RA_SEXO='F' AND RA_NASC >= '19701512' AND RA_NASC <= '19861512'" Private aRotina := {; { "Pesquisar" , "PesqBrw" , 0 , 1 },; { "Visualizar" , "AxVisual" , 0 , 2 },; { "Incluir" , "AxInclui" , 0 , 3 },; { "Alterar" , "AxAltera" , 0 , 4 },; { "Excluir" , "AxDeleta" , 0 , 5 }; } Private cCadastro := "Exemplo de Filtro da mBrowse Usando o parametro cExprFilTop" MBrowse( 6 , 1 , 22 , 75 , "SRA" , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , cExprFilTop ) Return( NIL )

/*/ 3 ) Usando o parametros cExprFilTop com Ligação Externa. A expressão em SQL não pode conter caracteres especiais (por exemplo Chr(13)+Chr(10)) e devemos tomar cuidado com a quantidade de espaços entre as instruções da expressão. /*/

/*/ 4 ) Usando o parametro cExprFilTop com ligacao externa /*/ User Function MbrFEx4() Local cExprFilTop := "RA_SEXO='F' AND RA_NASC >= '19701512' AND RA_NASC <= '19861512'" Private aRotina := {; { "Pesquisar" , "PesqBrw" , 0 , 1 },; { "Visualizar" , "AxVisual" , 0 , 2 },; { "Incluir" , "AxInclui" , 0 , 3 },; { "Alterar" , "AxAltera" , 0 , 4 },; { "Excluir" , "AxDeleta" , 0 , 5 }; } Private cCadastro := "Exemplo de Filtro da mBrowse Usando o parametro cExprFilTop com Ligação Externa" IF ( "ORACLE" $ Upper( TcGetDb() ) ) cExprFilTop += " AND RA_FILIAL||RA_MAT IN (SELECT RB_FILIAL||RB_MAT FROM " cExprFilTop += RetSqlName( "SRB" ) cExprFilTop += " WHERE RB_FILIAL = RA_FILIAL AND RB_MAT = RA_MAT AND RB_SEXO = 'M')" Else cExprFilTop += " AND RA_FILIAL+RA_MAT IN (SELECT RB_FILIAL+RB_MAT FROM " cExprFilTop += RetSqlName( "SRB" ) cExprFilTop += " WHERE RB_FILIAL = RA_FILIAL AND RB_MAT = RA_MAT AND RB_SEXO = 'M')" EndIF mBrowse( 6 , 1 , 22 , 75 , "SRA" , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , NIL , cExprFilTop ) Return( NIL )

Para obter o código fonte dos exemplos clique aqui.

[]s
иαldσ dj