TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Danilo Coimbra Sigolo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcos L Cassarini Taranta

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
Classe MsBrGetDBase

...

Classe

...

MsBrGetDBase

Cria

...

um

...

objeto

...

do

...

tipo

...

grade com registros em linhas e informações em colunas.

Hierarquia

Construtores

Inclusão de trecho
Classe MsBrGetDBase - Construtores
Classe MsBrGetDBase - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe MsBrGetDBase - Propriedades
Classe MsBrGetDBase - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe MsBrGetDBase - Métodos
Classe MsBrGetDBase - Métodos
nopaneltrue

Exemplos

Retorno
    oObjeto()
  • Retorna o objeto criado.
Observações
Exemplos 
oBrowse := MsBrGetDBase():New( 0, 0, 260, 180,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )
Métodos
CallRefresh

CallRefresh

Força a atualização do browse.

Sintaxe

MsBrGetDBase(): CallRefresh ( ) -->

Observações
Exemplos 
oBrowse:CallRefresh()
GoBottom

GoBottom

Move o ponteiro do mouse para a última linha do browse.

Sintaxe

MsBrGetDBase(): GoBottom ( ) -->

Observações
Exemplos 
oBrowse:GoBottom()
GoDown

GoDown

Move o ponteiro do mouse uma célula abaixo.

Sintaxe

MsBrGetDBase(): GoDown ( ) -->

Observações
Exemplos 
oBrowse:GoDown()
GoLeft

GoLeft

Move o ponteiro do mouse para a célula adjacente à esquerda.

Sintaxe

MsBrGetDBase(): GoLeft ( ) -->

Observações
Exemplos 
oBrowse:GoLeft()
GoRight

GoRight

Move o ponteiro do mouse para a célula adjacente à direita.

Sintaxe

MsBrGetDBase(): GoRight ( ) -->

Observações
Exemplos 
oBrowse:GoRight()
GoTop

GoTop

Move o ponteiro do mouse para a primeira linha do browse.

Sintaxe

MsBrGetDBase(): GoTop ( ) -->

Observações
Exemplos 
oBrowse:GoTop()
GoUp

GoUp

Move o ponteiro do mouse uma célula acima.

Sintaxe

MsBrGetDBase(): GoUp ( ) -->

Observações
Exemplos 
oBrowse:GoUp()
PageDown

PageDown

Move o ponteiro do mouse para baixo, conforme o número de linha configurado.

Sintaxe

MsBrGetDBase(): PageDown ( < nLines> ) -->

Parâmetros
Observações

 

 

Exemplos 
oBrowse:PageDown(1)
PageUp

PageUp

Move o ponteiro do mouse para cima, conforme o número de linha configurado.

Sintaxe

MsBrGetDBase(): PageUp ( < nLines> ) -->

Parâmetros
Observações
Exemplos 
oBrowse:PageUp(1)
RecAdd

RecAdd

Inclui uma nova linha no browse.

Sintaxe

MsBrGetDBase(): RecAdd ( ) -->

Observações

Este método somente funciona quando o browse for utilizado com um array, no caso de ser utilizado com uma tabela ele será ignorado.

Exemplos 
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
Propriedade
Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#include "totvs.ch"

user function msBrGetDBase()

  local aDados := {}
  local oBrowse := nil

TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase

Construtores
New

New

Método construtor da classe.

Sintaxe

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

Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical.nColNuméricoIndica a coordenada horizontal.nWidthNuméricoIndica a largura em pixels do objeto.nHeigthNuméricoIndica a altura em pixels do objeto.bLineBloco de códigoIndica o bloco de código da lista de campos. Observação: Este parâmetro é utilizado quando o browse trabalha com array.aHeadersVetorIndica o título dos campos no cabeçalho.aColSizesVetorIndica a largura das colunas.oWndObjetoIndica a janela ou controle visual onde o objeto será criado.cFieldCaracterIndica os campos necessários para o filtro.uVal1CaracterIndica o início do intervalo para o filtro.uVal2CaracterIndica o fim do intervalo para o filtro.bChangeBloco de códigoIndica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual.bLDblClickBloco de códigoIndica o bloco de código que será executado quando clicar duas vezes, com o botão esquerdo do mouse, sobre o objeto.bRClickBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.oCursorObjetoIndica o tipo de ponteiro do mouse.nClrForeNuméricoIndica a cor do texto da janela.nClrBackNuméricoIndica a cor de fundo da janela.cMsgCaracterIndica a mensagem que será apresentada ao posicionar o ponteiro do mouse sobre o objeto.lUpdateLógicoCompatibilidade.cAliasCaracterIndica se o objeto é utilizado com array (opcional) ou tabela (obrigatório).lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada de dados, no objeto criado, estiver sendo realizada. Se o retorno for verdadeiro (.T.), o objeto continua habilitado; caso contrário, falso (.F.).lDesignLógicoCompatibilidade.bValidBloco de códigoIndica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.).aAlterVetorCompatibilidade.oMotherObjetoCompatibilidade.
NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X
NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X
PropriedadeDescriçãoTipo
bAddIndica o bloco de código que será executado quando incluir uma nova linha.Bloco de código
bCustomEditColIndica o bloco de código que será executado no momento de edição da célula.Bloco de código
bDeleteIndica o bloco de código que será executado quando excluir uma linha.Bloco de código
bEmptyIndica o bloco de código que será executado quando utilizar o método GoRight().Bloco de código
bMoveIndica o bloco de código que será executado quando utilizar o método GoUp().Bloco de código
bNoAlteredIndica o bloco de código que será executado quando movimentar o ponteiro do mouse entre as células.Bloco de código
nClickColCompatibilidade.Numérico
Observações
Exemplos
#include "TOTVS.CH"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():
New
new( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )

    // Define vetor para a browse
    oBrowse:
SetArray
setArray( aDados )


    // Cria colunas do browse
    oBrowse:
AddColumn
addColumn( TCColumn():
New
new( "Filial", { || aDados[oBrowse:nAt, 1] }
; 
,,,, "LEFT",, .F., .F.,,,, .F.
,
 ) )
    
oBrowse:
AddColumn
addColumn( TCColumn():
New
new( "Nome", { || aDados[oBrowse:nAt, 2] }
; 
,,,, "LEFT",, .F., .F.,,,, .F.
,
 ) )

    oBrowse:
AddColumn
addColumn( TCColumn():
New
new( "Descrição", { || aDados[oBrowse:nAt, 3] }
; 
,,,, "LEFT",, .F., .F.,,,, .F.
,
 ) )
    
oBrowse:
AddColumn
addColumn( TCColumn():
New
new( "Conteúdo", { || aDados[oBrowse:nAt, 4] }
; 
,,,, "LEFT",, .F., .F.,,,, .F.
,
 ) )
    
oBrowse:Refresh()


    // Cria Botões com métodos básicos
    TButton():
New
new( 172, 002, "
GoUp
goUp()"
, oDlg, { || oBrowse:
GoUp
goUp(),
; 
 
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    TButton():
New
new( 172, 052, "
GoDown
goDown()"
, oDlg, { || oBrowse:
GoDown
goDown(),
;
 
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    TButton():
New
new( 172, 102, "
GoTop
goTop()"
, oDlg, { || oBrowse:
GoTop
goTop(),
; 
 
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )
    TButton():
New
new( 172, 152, "
GoBottom
goBottom()", oDlg, { || oBrowse:
GoBottom
goBottom(),
;
 
oBrowse:setFocus() }, 40, 010,,, .F., .T., .F.,, .F.,,, .F. )

  ACTIVATE DIALOG oDlg CENTERED
Return
Preview
Exemplo da classe MsBrGetDBase


return

Resultado do Exemplo

Image Modified

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server