Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: FWFormBrowseO FWFOrmBrowse fornece um objeto do tipo grid, que possibilita a inclusão de botões laterais e detalhes das colunas. NewConstrutor da classe.FWFormBrowse(): New ( [ ] ) --> oSelf
oSelf
ActivateAtivação da classe.FWFormBrowse(): Activate ( [ oOwner] ) -->
AddButtonAdiciona um botão na área lateral do Browse.FWFormBrowse(): AddButton ( < cTitle>, [ xAction], [ uParam1], [ nOption], [ nVerify], [ lNeedFind], [ nRealOpc], [ cOperatId], [ cToolBar] ) -->
AfterOptionPermite realizar tratamentos após a execução da ação do botão.FWFormBrowse(): AfterOption ( < cFunction>, < nOption>, [ nVerify] ) -->
BeforeOptionPermite realizar tratamentos antes da execução da ação do botão.FWFormBrowse(): BeforeOption ( < cFunction>, < nOption>, [ nVerify], [ cTitle], [ nRealOpc] ) --> lReturn
lReturn
ClassNameRetorna o nome da classe (FWFORMBROWSE)FWFormBrowse(): ClassName ( ) --> cClassName cClassName
CleanFilterRealiza a limpeza dos filtros utilizados no Browse.FWFormBrowse(): CleanFilter ( ) --> DeActivateMétodo que permite destruir a classe.FWFormBrowse(): DeActivate ( [ lFreeChildren] ) -->
DisableDetailsDesabilita a apresentação dos detalhes no Browse.FWFormBrowse(): DisableDetails ( ) --> ExecuteFilterRealiza a aplicação dos filtros realizados no Browse.FWFormBrowse(): ExecuteFilter ( [ lBrwUpdate] ) -->
ForceQuitButtonForça a exibição sair para Browses não ancorados diretamente em alguns containers.FWFormBrowse(): ForceQuitButton ( [ lSet] ) -->
FWBrowseRetorna o objeto Browse (FWBROWSE)FWFormBrowse(): FWBrowse ( ) --> oBrowse oBrowse
GetButtonRetorna os botões disponíveis no menu lateral do Browse.FWFormBrowse(): GetButton ( [ nButton] ) --> aButtons
aButtons
GetOwnerRetorna o container de criação do Browse.FWFormBrowse(): GetOwner ( ) --> oOwner oOwner
SetAfterExecIndica o Code-Block executado após a execução da operação definida para o botão.FWFormBrowse(): SetAfterExec ( < bAfterExec> ) -->
SetBeforeExecIndica o Code-Block executado antes a execução da operação definida para o botão.FWFormBrowse(): SetBeforeExec ( < bBeforeExec> ) -->
SetbOKMVCWindowIndica o Code-Block executado ao clicar na opção OK da MVCWINDOW.FWFormBrowse(): SetbOKMVCWindow ( < bOKMVCWindow> ) -->
SetCacheViewDefine 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] ) -->
SetCheckLoopIndica o Code-Block executado na verificação do Loop da execução da rotina.FWFormBrowse(): SetCheckLoop ( < bCheckLoop> ) -->
SetDetailsIndica que deve ser disponibilizada a barra de detalhes no Browse.FWFormBrowse(): SetDetails ( [ lDetails], [ bDetails] ) -->
SetEditDetailIndica que deve ser disponibilizada a edição no detalhes do browse.FWFormBrowse(): SetEditDetail ( [ lEditDetail], [ oModel] ) -->
SetMenuDefIndica o programa que é utilizado para a carga do menu funcional.FWFormBrowse(): SetMenuDef ( [ cMenuDef] ) -->
SetNoBrowseIndica que a execução das operações dos botões não deverão atualizar o Browse.FWFormBrowse(): SetNoBrowse ( [ lNoBrowse] ) -->
SetOwnerIndica o container para criação do Browse.FWFormBrowse(): SetOwner ( [ oOwner] ) -->
SetParamIndica o Code-Block executado ao pressionar a tecla F12.FWFormBrowse(): SetParam ( < bParam> ) -->
SetSizeBrowseIndica o tamanho em percentual do Browse na tela.FWFormBrowse(): SetSizeBrowse ( < nPerc> ) -->
SetSizeDetailsIndica o tamanho em percentual dos detalhes do Browse na tela.FWFormBrowse(): SetSizeDetails ( < nPerc> ) -->
SetTemporaryIndica que o Browse utiliza tabela temporária.FWFormBrowse(): SetTemporary ( [ lTemporary] ) -->
SetUseCaseFilterIndica que é permitido o filtro case-sensitive no Browse.FWFormBrowse(): SetUseCaseFilter ( [ lFilter] ) -->
SetUseCursorDefine se as rotinas em MVC tem os botões de navegação.FWFormBrowse(): SetUseCursor ( [ lUseCursor] ) -->
SetUseFilterIndica que é permitido o filtro no Browse.FWFormBrowse(): SetUseFilter ( [ lFilter], [ bOnStart] ) -->
TemporaryRetorna se o Browse utiliza tabela temporária.FWFormBrowse(): Temporary ( ) --> lTemporary lTemporary
UpdateDetailsExecuta a atualização das informações nos detalhes do Browse.FWFormBrowse(): UpdateDetails ( ) -->
SetFixedDetailsSeta a fixação do Layer de detalhes, não permitindo minimizar a tela de detalhes do browse.FWFormBrowse(): SetFixedDetails ( lFixed ) -->
#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 CENTEREDReturn Microsiga Protheus 11 , Protheus 10
|