Á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.


TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase


New

New

Mé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


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.
    oObjeto()
  • Retorna o objeto criado.



oBrowse := MsBrGetDBase():New( 0, 0, 260, 180,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, )

CallRefresh

Força a atualização do browse.


MsBrGetDBase(): CallRefresh ( ) -->




oBrowse:CallRefresh()

GoBottom

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


MsBrGetDBase(): GoBottom ( ) -->




oBrowse:GoBottom()

GoDown

Move o ponteiro do mouse uma célula abaixo.


MsBrGetDBase(): GoDown ( ) -->




oBrowse:GoDown()

GoLeft

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


MsBrGetDBase(): GoLeft ( ) -->




oBrowse:GoLeft()

GoRight

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


MsBrGetDBase(): GoRight ( ) -->




oBrowse:GoRight()

GoTop

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


MsBrGetDBase(): GoTop ( ) -->




oBrowse:GoTop()

GoUp

Move o ponteiro do mouse uma célula acima.


MsBrGetDBase(): GoUp ( ) -->




oBrowse:GoUp()

PageDown

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


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


NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X

 

 


oBrowse:PageDown(1)

PageUp

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


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


NomeTipoDescriçãoObrigatórioReferência
nLinesNuméricoIndica o número de linhas que o ponteiro do mouse irá saltar. X



oBrowse:PageUp(1)

RecAdd

Inclui 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

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



#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

Exemplo da classe MsBrGetDBase

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

  • Sem rótulos