Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
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 | ||||||||||
Nome | Tipo | Descrição | Obrigatório | Referência | nRow | Numérico | Indica a coordenada vertical. | nCol | Numérico | Indica a coordenada horizontal. | nWidth | Numérico | Indica a largura em pixels do objeto. | nHeigth | Numérico | Indica a altura em pixels do objeto. | bLine | Bloco de código | Indica o bloco de código da lista de campos. Observação: Este parâmetro é utilizado quando o browse trabalha com array. | aHeaders | Vetor | Indica o título dos campos no cabeçalho. | aColSizes | Vetor | Indica a largura das colunas. | oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | cField | Caracter | Indica os campos necessários para o filtro. | uVal1 | Caracter | Indica o início do intervalo para o filtro. | uVal2 | Caracter | Indica o fim do intervalo para o filtro. | bChange | Bloco de código | Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual. | bLDblClick | Bloco de código | Indica o bloco de código que será executado quando clicar duas vezes, com o botão esquerdo do mouse, sobre o objeto. | bRClick | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto. | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | oCursor | Objeto | Indica o tipo de ponteiro do mouse. | nClrFore | Numérico | Indica a cor do texto da janela. | nClrBack | Numérico | Indica a cor de fundo da janela. | cMsg | Caracter | Indica a mensagem que será apresentada ao posicionar o ponteiro do mouse sobre o objeto. | lUpdate | Lógico | Compatibilidade. | cAlias | Caracter | Indica se o objeto é utilizado com array (opcional) ou tabela (obrigatório). | lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | bWhen | Bloco de código | Indica 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.). | lDesign | Lógico | Compatibilidade. | bValid | Bloco de código | Indica 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.). | aAlter | Vetor | Compatibilidade. | oMother | Objeto | Compatibilidade. |
Nome | Tipo | Descrição | Obrigatório | Referência | nLines | Numérico | Indica o número de linhas que o ponteiro do mouse irá saltar. | X | ||
Nome | Tipo | Descrição | Obrigatório | Referência | nLines | Numérico | Indica o número de linhas que o ponteiro do mouse irá saltar. | X |
Propriedade | Descrição | Tipo |
bAdd | Indica o bloco de código que será executado quando incluir uma nova linha. | Bloco de código |
bCustomEditCol | Indica o bloco de código que será executado no momento de edição da célula. | Bloco de código |
bDelete | Indica o bloco de código que será executado quando excluir uma linha. | Bloco de código |
bEmpty | Indica o bloco de código que será executado quando utilizar o método GoRight(). | Bloco de código |
bMove | Indica o bloco de código que será executado quando utilizar o método GoUp(). | Bloco de código |
bNoAltered | Indica o bloco de código que será executado quando movimentar o ponteiro do mouse entre as células. | Bloco de código |
nClickCol | Compatibilidade. | Numérico |
DEFINE DIALOG oDlg TITLE "Exemplo MsBrGetDBase" FROM 180, 180 TO 550, 700 PIXEL // Cria array com dadosaDados := {} 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:
AddColumnaddColumn( 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 CENTEREDReturnExemplo 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