Árvore de páginas

Versões comparadas

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

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#include "TOTVS.CH"
grade.

TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase

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 CENTERED
Return
Static 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
lAutoEditIndica se permite (.T.) ou não (.F.) a chamada do (bCustomEditCol) com a tecla F3.Lógico

 

#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

Resultado do Exemplo

Image Modified

Abrangência

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

...