Classe: MsBrGetDBaseCria um objeto do tipo grade. 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. | Objeto | Compatibilidade. | | |
oObjeto()- Retorna o objeto criado.
oBrowse := MsBrGetDBase():New( 0, 0, 260, 180,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) CallRefreshForça a atualização do browse.MsBrGetDBase(): CallRefresh ( ) --> GoBottomMove o ponteiro do mouse para a última linha do browse.MsBrGetDBase(): GoBottom ( ) --> GoDownMove o ponteiro do mouse uma célula abaixo.MsBrGetDBase(): GoDown ( ) --> GoLeftMove o ponteiro do mouse para a célula adjacente à esquerda.MsBrGetDBase(): GoLeft ( ) --> GoRightMove o ponteiro do mouse para a célula adjacente à direita.MsBrGetDBase(): GoRight ( ) --> GoTopMove o ponteiro do mouse para a primeira linha do browse.MsBrGetDBase(): GoTop ( ) --> GoUpMove o ponteiro do mouse uma célula acima.MsBrGetDBase(): GoUp ( ) --> PageDownMsBrGetDBase(): PageDown ( < nLines> ) --> 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 | |
PageUpMsBrGetDBase(): PageUp ( < nLines> ) --> 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 | |
RecAddInclui 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 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 |
#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 ![](https://tdn.totvs.com/download/attachments/6063192/Mon+May+21+15%3A37%3A58+BRT+2012MsBrGetDBase.jpg?version=1&modificationDate=1337625478757) Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |