Classe: FWFormBrowse
O FWFOrmBrowse fornece um objeto do tipo grid, que possibilita a inclusão de botões laterais e detalhes das colunas.
New
Construtor da classe.
FWFormBrowse(): New ( [ ] ) --> oSelf
Nome | Tipo | Descrição | Obrigatório | Referência |
Array of Record |
- ()
- Retorbna o objeto da classe
Activate
Ativação da classe.
FWFormBrowse(): Activate ( [ oOwner] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
oOwner | Objeto | Objeto do tipo container que indica o local que será criado o Browse. |
AddButton
Adiciona um botão na área lateral do Browse.
FWFormBrowse(): AddButton ( < cTitle>, [ xAction], [ uParam1], [ nOption], [ nVerify], [ lNeedFind], [ nRealOpc], [ cOperatId], [ cToolBar] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cTitle | Caracter | Título do botão. | X | |
xAction | Qualquer | Ação que será executada no clique do botão. Pode ser uma função ou um Code Block. | ||
uParam1 | Qualquer | Parâmetro reservado. | ||
nOption | Lógico | Tipo de operação (1=Visualizar, 2=Visualizar, 3=Incluir, 4=Alterar, 5=Excluir, 6=Alterar sem inclusão de novas linhas, 7=Cópia e 8=Impressão da regra de negócios) | ||
nVerify | Numérico | Número do acesso a ser verificada a permissão para o usuário. | ||
lNeedFind | Lógico | Indica a necessidade de pesquisar antes da manutenção do registro (Menu Funcional). | ||
nRealOpc | Numérico | Indica a opção real (ordem de criação) do aRotina antigo - Compatibilização com a MBrowse antiga. | ||
cOperatId | Caracter | Identificador da opção do menu. Utilizado para relacionar o o botão à uma opção de menu. | ||
cToolBar | Caracter | Indica o relacionamento com os botões da tela (FormBar). |
AfterOption
Permite realizar tratamentos após a execução da ação do botão.
FWFormBrowse(): AfterOption ( < cFunction>, < nOption>, [ nVerify] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cFunction | Caracter | Nome da função definida para o botão. | X | |
nOption | Numérico | Tipo de operação (1=Visualizar,2=Visualizar,3=Incluir,4=Alterae,5=Excluir,6=Alterar sem inclusão de novas linhas,7=Cópia e 8=Impressão da regra de negócios). | X | |
nVerify | Numérico | Número do acesso a ser validada a permissão do usuário. |
BeforeOption
Permite realizar tratamentos antes da execução da ação do botão.
FWFormBrowse(): BeforeOption ( < cFunction>, < nOption>, [ nVerify], [ cTitle], [ nRealOpc] ) --> lReturn
Nome | Tipo | Descrição | Obrigatório | Referência |
cFunction | Caracter | Indica o nome da função definida para o botão. | X | |
nOption | Numérico | Tipo de operação (1=Visualizar,2=Visualizar,3=Incluir,4=Alterae,5=Excluir,6=Alterar sem inclusão de novas linhas,7=Cópia e 8=Impressão da regra de negócios). | X | |
nVerify | Numérico | Número do acesso a ser validada a permissão do usuário. | ||
cTitle | Caracter | Indica o título da janela. | ||
nRealOpc | Numérico | Indica a popsição do botão selecionado. |
- (logico)
- Indica se a ação pode ser executada.
ClassName
Retorna o nome da classe (FWFORMBROWSE)
FWFormBrowse(): ClassName ( ) --> cClassName
- (caracter)
- Retorna o nome da classe (FWFORMBROWSE)
CleanFilter
Realiza a limpeza dos filtros utilizados no Browse.
FWFormBrowse(): CleanFilter ( ) -->
DeActivate
Método que permite destruir a classe.
FWFormBrowse(): DeActivate ( [ lFreeChildren] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lFreeChildren | Lógico | Indica se deve ser realizada a limpeza dos componentes do objeto do tipo container. (oOwner) |
DisableDetails
Desabilita a apresentação dos detalhes no Browse.
FWFormBrowse(): DisableDetails ( ) -->
ExecuteFilter
Realiza a aplicação dos filtros realizados no Browse.
FWFormBrowse(): ExecuteFilter ( [ lBrwUpdate] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lBrwUpdate | Lógico | Indica se deve ser realizado o refresh do Browse. |
ForceQuitButton
Força a exibição sair para Browses não ancorados diretamente em alguns containers.
FWFormBrowse(): ForceQuitButton ( [ lSet] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lSet | Lógico | Indica se força a exibiçao do botão Sair. |
FWBrowse
Retorna o objeto Browse (FWBROWSE)
FWFormBrowse(): FWBrowse ( ) --> oBrowse
- ()
- Retorna o componente Browse (FWBROWSE).
GetButton
Retorna os botões disponíveis no menu lateral do Browse.
FWFormBrowse(): GetButton ( [ nButton] ) --> aButtons
Nome | Tipo | Descrição | Obrigatório | Referência |
nButton | Numérico | Indica o botão que deverá ser retornado e quando não informado será retornado todos os botões. |
- (array_of_record)
- Retorna os botões disponíveis no menu lateral do Browse.
GetOwner
Retorna o container de criação do Browse.
FWFormBrowse(): GetOwner ( ) --> oOwner
- ()
- Retorna o container de criação do Browse
SetAfterExec
Indica o Code-Block executado após a execução da operação definida para o botão.
FWFormBrowse(): SetAfterExec ( < bAfterExec> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
bAfterExec | Bloco de código | Code-Block executado após a execução da operação definida para o botão. | X |
SetBeforeExec
Indica o Code-Block executado antes a execução da operação definida para o botão.
FWFormBrowse(): SetBeforeExec ( < bBeforeExec> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
bBeforeExec | Bloco de código | Code-Block executado antes a execução da operação definida para o botão. | X |
SetbOKMVCWindow
Indica o Code-Block executado ao clicar na opção OK da MVCWINDOW.
FWFormBrowse(): SetbOKMVCWindow ( < bOKMVCWindow> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
bOKMVCWindow | Bloco de código | Code-Block executado ao clicar na opção OK da MVCWINDOW. | X |
SetCacheView
Define se o browse faz o cache do View, o default do browse é fazer o cache, porém se tivermos varios views condicionais devemos não utilizar o cache.
FWFormBrowse(): SetCacheView ( [ lCacheView] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lCacheView | Lógico | Indica se deve ativar o cache de View. |
SetCheckLoop
Indica o Code-Block executado na verificação do Loop da execução da rotina.
FWFormBrowse(): SetCheckLoop ( < bCheckLoop> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
bCheckLoop | Bloco de código | Code-Block executado na verificação do Loop da execução da rotina. | X |
SetDetails
Indica que deve ser disponibilizada a barra de detalhes no Browse.
FWFormBrowse(): SetDetails ( [ lDetails], [ bDetails] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lDetails | Lógico | Indica que deverá ser disponibilizada a barra de detalhes no Browse. | ||
bDetails | Bloco de código | Code-Block executado na carga do container dos detalhes. Quando não informado será utilizado o padrão. |
SetEditDetail
Indica que deve ser disponibilizada a edição no detalhes do browse.
FWFormBrowse(): SetEditDetail ( [ lEditDetail], [ oModel] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lEditDetail | Lógico | Indica que deverá ser disponibilizada edição no browse | ||
oModel | Objeto | Objeto do tipo FWFormModel que contem o modelo de edição para edição da linha no detalhes. |
SetMenuDef
Indica o programa que é utilizado para a carga do menu funcional.
FWFormBrowse(): SetMenuDef ( [ cMenuDef] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cMenuDef | Caracter | Indica o programa que será utilizado para a carga do menu funcional |
SetNoBrowse
Indica que a execução das operações dos botões não deverão atualizar o Browse.
FWFormBrowse(): SetNoBrowse ( [ lNoBrowse] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lNoBrowse | Lógico | Indica que a execução das operações dos botões não deverão atualizar o Browse. |
SetOwner
Indica o container para criação do Browse.
FWFormBrowse(): SetOwner ( [ oOwner] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
oOwner | Objeto | Indica o container para criação do Browse. |
SetParam
Indica o Code-Block executado ao pressionar a tecla F12.
FWFormBrowse(): SetParam ( < bParam> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
bParam | Bloco de código | Code-Block executado ao pressionar a tecla F12. | X |
SetSizeBrowse
Indica o tamanho em percentual do Browse na tela.
FWFormBrowse(): SetSizeBrowse ( < nPerc> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nPerc | Numérico | Indica o tamanho em percentual do Browse na tela. | X |
SetSizeDetails
Indica o tamanho em percentual dos detalhes do Browse na tela.
FWFormBrowse(): SetSizeDetails ( < nPerc> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nPerc | Numérico | Indica o percentual do tamanho dos detalhes. | X |
SetTemporary
Indica que o Browse utiliza tabela temporária.
FWFormBrowse(): SetTemporary ( [ lTemporary] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lTemporary | Lógico | Indica que o Browse utiliza tabela temporária. |
SetUseCaseFilter
Indica que é permitido o filtro case-sensitive no Browse.
FWFormBrowse(): SetUseCaseFilter ( [ lFilter] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lFilter | Lógico | Indica que será permitido o filtro case-sensitive no Browse. |
SetUseCursor
Define se as rotinas em MVC tem os botões de navegação.
FWFormBrowse(): SetUseCursor ( [ lUseCursor] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lUseCursor | Lógico | Indica se as rotinas em MVC teram os botões de navegação. |
SetUseFilter
Indica que é permitido o filtro no Browse.
FWFormBrowse(): SetUseFilter ( [ lFilter], [ bOnStart] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lFilter | Lógico | Indica que será permitido o filtro no Browse. | ||
bOnStart | Bloco de código | Code-Block executado na criação do componente de filtro. |
Temporary
Retorna se o Browse utiliza tabela temporária.
FWFormBrowse(): Temporary ( ) --> lTemporary
- (logico)
- Indica que o Browse utiliza tabela temporária.
UpdateDetails
Executa a atualização das informações nos detalhes do Browse.
FWFormBrowse(): UpdateDetails ( ) -->
SetFixedBrowse
Seta a fixação do Layer do Browse, não permitindo minimizar a tela do browse.
FWFormBrowse(): SetFixedBrowse ( lFixed ) --> nil
Nome | Tipo | Descrição | Obrigatório | Referência |
lFixed | Lógico | .T. - Fixa o Layer do Browse. Default .F. |
SetFixedDetails
Seta a fixação do Layer do Detalhes, não permitindo minimizar a tela de Detalhes do browse.
FWFormBrowse(): SetFixedDetails ( lFixed ) --> nil
Nome | Tipo | Descrição | Obrigatório | Referência |
lFixed | Lógico | .T. - Fixa o Layer do Detalhes. Default .F. |
#INCLUDE "FWBROWSE.CH"
User Function FormBrwTable()
Local oBrowseLocal oButtonLocal oColumnLocal oDlg
//-------------------------------------------------------------------
// Abertura da tabela
//-------------------------------------------------------------------
DbUseArea(.T.,,"SX2990","SX2",.T.,.F.)
DbSetOrder(1)
//-------------------------------------------------------------------
// Define a janela do Browse
//-------------------------------------------------------------------
DEFINE MSDIALOG oDlg FROM 0,0 TO 600,800 PIXEL
//-------------------------------------------------------------------
// Define o Browse
//-------------------------------------------------------------------
DEFINE FWFORMBROWSE oBrowse DATA TABLE ALIAS "SX2" OF oDlg
//--------------------------------------------------------
// Cria uma coluna de marca/desmarca
//--------------------------------------------------------
ADD MARKCOLUMN oColumn DATA { || If(.T./* Função com a regra*/,'LBOK','LBNO') } DOUBLECLICK { |oBrowse| /* Função que atualiza a regra*/ } HEADERCLICK { |oBrowse| /* Função executada no clique do header */ } OF oBrowse
//--------------------------------------------------------
// Cria uma coluna de status
//--------------------------------------------------------
ADD STATUSCOLUMN oColumn DATA { || If(.T./* Função com a regra*/,'BR_VERDE','BR_VERMELHO') } DOUBLECLICK { |oBrowse| /* Função executada no duplo clique na coluna*/ } OF oBrowse
//--------------------------------------------------------
// Adiciona legenda no Browse
//--------------------------------------------------------
ADD LEGEND DATA 'X2_CHAVE $ "AA1|AA2"' COLOR "GREEN" TITLE "Chave teste 1" OF oBrowse
ADD LEGEND DATA '!(X2_CHAVE $ "AA1|AA2")' COLOR "RED" TITLE "Chave teste 2" OF oBrowse
//-------------------------------------------------------------------
// Adiciona as colunas do Browse
//-------------------------------------------------------------------
ADD BUTTON oButton TITLE "Botão 1" ACTION { || MsgAlert(oBrowse:At()) } OF oBrowse
ADD BUTTON oButton TITLE "Botão 2" ACTION { || MsgAlert(oBrowse:At()) } OF oBrowse
//-------------------------------------------------------------------
// Adiciona as colunas do Browse
//-------------------------------------------------------------------
ADD COLUMN oColumn DATA { || X2_CHAVE } TITLE "Chave" SIZE 3 OF oBrowse
ADD COLUMN oColumn DATA { || X2_ARQUIVO } TITLE "Arquivo" SIZE 10 OF oBrowse
ADD COLUMN oColumn DATA { || X2_NOME } TITLE "Descrição" SIZE 40 OF oBrowse
ADD COLUMN oColumn DATA { || X2_MODO } TITLE "Modo" SIZE 1 OF oBrowse
//-------------------------------------------------------------------
// Ativação do Browse
//-------------------------------------------------------------------
ACTIVATE FWFORMBROWSE oBrowse
//-------------------------------------------------------------------
// Ativação do janela
//-------------------------------------------------------------------
ACTIVATE MSDIALOG oDlg CENTERED
Return