TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

Classe: MsBrGetDBase

Cria um objeto do tipo grade.


Hierarquia

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.
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
NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X

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
NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X

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
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(aDados, {"01","Nome 01","Descrição 01","Conteudo 01"})    aadd(aDados, {"02","Nome 02","Descrição 02","Conteudo 02"})    aadd(aDados, {"03","Nome 03","Descrição 03","Conteudo 03"})    aadd(aDados, {"04","Nome 04","Descrição 04","Conteudo 04"})    aadd(aDados, {"05","Nome 05","Descrição 05","Conteudo 05"})		    // Cria browse    oBrowse := MsBrGetDBase():New( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )    // Define vetor para a browse    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()	    // Cria Botões com métodos básicos    TButton():New( 172, 002, "GoUp()"	, oDlg,{|| oBrowse:GoUp(),;                  oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 052, "GoDown()"	, oDlg,{|| oBrowse:GoDown(),;                   oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 102, "GoTop()"	, oDlg,{|| oBrowse:GoTop(),;                   oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 152, "GoBottom()", oDlg,{|| oBrowse:GoBottom(),;                   oBrowse:setFocus() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. )  ACTIVATE DIALOG oDlg CENTERED Return

Preview
Exemplo da classe MsBrGetDBase

Abrangência
Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos