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
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. User Function TstRecAdd()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 CENTEREDReturnStatic 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