Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Portuguese |
Pagetitle | ||
---|---|---|
|
...
|
...
|
Cria
...
um
...
objeto
...
do
...
tipo grade com registros em linhas e informações em colunas.
Hierarquia
- TCBrowse
- MsBrGetDBase
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "totvs.ch"
user function msBrGetDBase()
local aDados := {}
local oBrowse := nil
grade.TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase NewMétodo construtor da classe.MsBrGetDBase(): New ( [ nRow], [ nCol], [ nWidth], [ nHeigth], [ bLine], [ aHeaders], [ aColSizes], [ oWnd], [ cField], [ uVal1], [ uVal2], [ bChange], [ bLDblClick], [ bRClick], [ oFont], [ oCursor], [ nClrFore], [ nClrBack], [ cMsg], [ lUpdate], [ cAlias], [ lPixel], [ bWhen], [ lDesign], [ bValid], [ aAlter], [ oMother] ) --> oObjeto
oObjeto
oBrowse := MsBrGetDBase():New( 0, 0, 260, 180,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) CallRefreshForça a atualização do browse.MsBrGetDBase(): CallRefresh ( ) --> oBrowse:CallRefresh() GoBottomMove o ponteiro do mouse para a última linha do browse.MsBrGetDBase(): GoBottom ( ) --> oBrowse:GoBottom() GoDownMove o ponteiro do mouse uma célula abaixo.MsBrGetDBase(): GoDown ( ) --> oBrowse:GoDown() GoLeftMove o ponteiro do mouse para a célula adjacente à esquerda.MsBrGetDBase(): GoLeft ( ) --> oBrowse:GoLeft() GoRightMove o ponteiro do mouse para a célula adjacente à direita.MsBrGetDBase(): GoRight ( ) --> oBrowse:GoRight() GoTopMove o ponteiro do mouse para a primeira linha do browse.MsBrGetDBase(): GoTop ( ) --> oBrowse:GoTop() GoUpMove o ponteiro do mouse uma célula acima.MsBrGetDBase(): GoUp ( ) --> oBrowse:GoUp() PageDownMove o ponteiro do mouse para baixo, conforme o número de linha configurado.MsBrGetDBase(): PageDown ( < nLines> ) -->
oBrowse:PageDown(1) PageUpMove o ponteiro do mouse para cima, conforme o número de linha configurado.MsBrGetDBase(): PageUp ( < nLines> ) -->
oBrowse:PageUp(1) RecAddInclui uma nova linha no browse.MsBrGetDBase(): RecAdd ( ) --> Este método somente funciona quando o browse for utilizado com um array, no caso de ser utilizado com uma tabela ele será ignorado. Local nXDEFINE DIALOG oDlg TITLE "Exemplo RecAdd" FROM 180,180 TO 550,700 PIXEL // Cria array com dados aDados := {} aadd(aDados, {"01","Nome 01","Descrição 01","Conteudo 01"}) aadd(aDados, {"02","Nome 02","Descrição 02","Conteudo 02"}) // Cria browse oBrowse := MsBrGetDBase():New( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) oBrowse:SetArray(aDados) // Cria colunas do browse oBrowse:AddColumn(TCColumn():New("Filial" ,{ || aDados[oBrowse:nAt,1] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Nome" ,{ || aDados[oBrowse:nAt,2] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Descrição",{ || aDados[oBrowse:nAt,3] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Conteúdo" ,{ || aDados[oBrowse:nAt,4] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:Refresh() // Define o bloco de código para inserção de registros oBrowse:bAdd := {|| _AddLine(), oBrowse:setFocus() } // botão para adição de registro TButton():New( 172, 002, "RecAdd()", oDlg, {|| oBrowse:RecAdd() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) ACTIVATE DIALOG oDlg CENTERED Return Static Function _AddLine() aadd(aDados, {"03","Nome 03","Descrição 03","Conteudo 03"}) oBrowse:Refresh() Return
User Function msBrGetDBase() DEFINE DIALOG oDlg TITLE "Exemplo MsBrGetDBase" FROM 180, 180 TO 550, 700 PIXEL // Cria array com dados aDados := {} aadd( aAdd( aDados, { "01", "Nome 01", "Descrição 01", "Conteudo 01" } ) aadd aAdd( aDados, { "02", "Nome 02", "Descrição 02", "Conteudo 02" } ) aadd aAdd( aDados, { "03", "Nome 03", "Descrição 03", "Conteudo 03" } ) aadd aAdd( aDados, { "04", "Nome 04", "Descrição 04", "Conteudo 04" } ) aadd aAdd( aDados, { "05", "Nome 05", "Descrição 05", "Conteudo 05" } ) // Cria browse oBrowse := MsBrGetDBase(): Newnew( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) // Define vetor para a browse oBrowse: SetArraysetArray( aDados ) // Cria colunas do browse oBrowse: AddColumnaddColumn( TCColumn():New new( "Filial", { || aDados[oBrowse:nAt, 1] }; ,,,, "LEFT",, .F., .F.,,,, .F., ) ) oBrowse: AddColumnaddColumn( TCColumn():New new( "Nome", { || aDados[oBrowse:nAt, 2] }; ,,,, "LEFT",, .F., .F.,,,, .F., ) ) oBrowse: AddColumnaddColumn( TCColumn():New new( "Descrição", { || aDados[oBrowse:nAt, 3] }; ,,,, "LEFT",, .F., .F.,,,, .F., ) ) oBrowse: AddColumnaddColumn( TCColumn():New new( "Conteúdo", { || aDados[oBrowse:nAt, 4] }; ,,,, "LEFT",, .F., .F.,,,, .F., ) ) oBrowse:Refresh() // Cria Botões com métodos básicos TButton(): Newnew( 172, 002, "GoUp goUp()" , oDlg, { || oBrowse:GoUp goUp(),; oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. ) TButton(): Newnew( 172, 052, "GoDown goDown()" , oDlg, { || oBrowse:GoDown goDown(),; oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. ) TButton(): Newnew( 172, 102, "GoTop goTop()" , oDlg, { || oBrowse:GoTop goTop(),; oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. ) TButton(): Newnew( 172, 152, "GoBottom goBottom()", oDlg, { || oBrowse:GoBottom goBottom(),; oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. ) ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe MsBrGetDBase
return
|
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server