Frameworksp

Páginas filhas
  • DBTree

Versões comparadas

Versão antiga 11

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Danilo Basilio Medeiros

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
DBTree
DBTree

Classe: DBTree

Cria um objeto do tipo árvore de itens.

Hierarquia

TSrvObject -> TControl -> TTree -> DBTree


Construtores
New

New

Método construtor da classe.


Sintaxe

DBTree(): New ( [ nTop], [ nLeft], [ nBottom], [ nRight], [ oWnd], [ bChange], [ bRClick], [ lCargo], [ lDisable], [ oFont], [ cHeaders] ) --> oObjeto


Parâmetros


 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical superior do objeto.
 
 


nLeftNuméricoIndica a coordenada horizontal à esquerda do objeto.
  


nBottomNuméricoIndica a coordenada vertical inferior do objeto.
  


nRightNuméricoIndica a coordenada horizontal à direita do objeto.
  


oWndObjetoIndica a janela ou controle visual onde o objeto será criado.
  


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.
  


bRClickBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.
 
 


lCargoLógicoIndica se, verdadeiro (.T.), os elementos da Tree utilizarão a propriedade cCargo, do método AddItem(), que armazena uma string identificadora, para cada elemento e item da árvore; caso contrário, falso (.F.).
 
 


lDisableLógicoIndica se, verdadeiro (.T.), cria o objeto da Tree desabilitado, ou seja, não permitindo foco e navegação no mesmo até que seja habilitado; caso contrário, falso (.F.).
  


oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.
  


cHeadersCaracterIndica o texto que será exibido no(s) cabeçalho(s), também definindo a quantidade de colunas que a árvore conterá. Para mais de uma coluna utilize valores separados por ponto e vírgula.
  
 



Retorno
oObjeto
    ()
  • Retorna o objeto criado.

Observações
O parâmetro cHeaders está disponível somente em builds superiores à 7.00.120420A

Exemplos
oTree := DbTree():New(0,0,160,260,oDlg,,,.T.,'Tree header')

Métodos
AddItem

AddItem

Adiciona um item ou subitem na árvore.


Sintaxe

DBTree(): AddItem ( [ cPrompt], [ cCargo], [ cRes1], [ cRes2], [ cFile1], [ cFile2], [ nTipo] ) -->


Parâmetros


 

NomeTipoDescriçãoObrigatórioReferência
cPromptCaracterIndica a descrição do novo item. Para mais de uma coluna utilize valores separados por ponto e vírgula.
 
 


cCargoCaracterIndica a chave de identificação do item na árvore.
  


cRes1CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver fechado.
  


cRes2CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver aberto.
  


cFile1CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver fechado.
 
 


cFile2CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver aberto.
 
 


nTipoCaracterIndica o nível que o item ou subitem será adicionado, sendo: 1=No mesmo nível ou 2=Abaixo.
  

 





Observações
  • A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

 

 




ExemplosExemplos
// Localiza o nível abaixo do qual // estes subitens deverão ser criados // -----------------------------------if oTree:TreeSeek("006")   oTree:AddItem("Subnível 01","007", "FOLDER6",,,,2)	  oTree:AddItem("Subnível 02","008", "FOLDER6",,,,2)	endif
AddTree

AddTree

Adiciona um item, com nível 1, na árvore.


Sintaxe

DBTree(): AddTree ( [ cPrompt], [ lOpened*], [ cRes1], [ cRes2], [ cFile1], [ cFile2], [ cCargo] ) -->


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cPromptCaracterIndica a descrição do novo item.Para mais de uma coluna utilize valores separados por ponto e vírgula.
  


lOpenedLógicoIndica que, verdadeiro (.T.), o item será iniciado aberto; caso contrário, falso (.F.).
  
*(Parâmetro descontinuado)

cRes1CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver fechado.
  


cRes2CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver aberto.
  


cFile1CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver fechado.
  


cFile2CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver aberto.
  


cCargoCaracterIndica a chave de identificação do item na árvore.
  
 




Observações
  • A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

Exemplos
oTree:AddTree("Nível 02","010", "FOLDER6")
AddTreeItem

AddTreeItem

Adiciona um item, com nível 1, na árvore.


Sintaxe

DBTree(): AddTreeItem ( [ cPrompt], [ cRes], [ cFile], [ cCargo] ) -->


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cPromptCaracterIndica a descrição do novo item.Para mais de uma coluna utilize valores separados por ponto e vírgula.
  


cResCaracterIndica o nome da imagem no repositório.
  


cFileCaracterIndica o caminho para o arquivo de imagem.
  


cCargoCaracterIndica a chave de identificação do elemento na árvore.
  
 




Observações
  • A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

 

 

 





Exemplos
oTree:AddTreeItem("Novo Item","FOLDER7",,"006")
BeginUpdate

BeginUpdate

Prepara a árvore para receber os itens.


Sintaxe

DBTree(): BeginUpdate ( ) -->


Observações

Este método é muito importante na criação do objeto para que os ajustes de criação e performance sejam realizados corretamente.

 

 




Exemplos
oTree:BeginUpdate()
ChangeBmp

ChangeBmp

Altera as imagens definidas para a árvore.


Sintaxe

DBTree(): ChangeBmp ( [ cBmp1], [ cBmp2], [ cFile1], [ cFile2], [ cCargo] ) -->


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cBmp1CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver fechado.
  


cBmp2CaracterIndica o nome da imagem, no repositório, que será apresentada quando o item estiver aberto.
  


cFile1CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver fechado.
  


cFile2CaracterIndica o nome da imagem, no diretório, que será apresentada quando o item estiver aberto.
  


cCargoCaracterIndica a chave de identificação do item na árvore
.  
 
.



Observações

Exemplos
oTree:ChangeBmp("LBNO","LBTIK",,,"001")
ChangePrompt

ChangePrompt

Altera a descrição de um item da árvore.


Sintaxe

DBTree(): ChangePrompt ( [ cPrompt], [ cCargo] ) -->


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cPromptCaracterIndica a nova descrição do item. Para mais de uma coluna utilize valores separados por ponto e vírgula.
  


cCargoCaracterIndica a chave de identificação do item na árvore.
  

 





Observações
  • A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

Exemplos
oTree:ChangePrompt("Novo Texto Item 001","001")
DelItem

DelItem

Exclui o item selecionado e, consequentemente, todos os seus subitens.


Sintaxe

DBTree(): DelItem ( ) -->


Observações


 


Exemplos
oTree:DelItem()
EndTree

EndTree

Indica o término da contrução da árvore.


Sintaxe

DBTree(): EndTree ( ) -->


Observações


 


Exemplos
oTree:EndTree()
EndUpdate

EndUpdate

Encerra a criação dos itens.


Sintaxe

DBTree(): EndUpdate ( ) -->


Observações

Este método é muito importante na criação do objeto para que os ajustes de criação e performance sejam realizados corretamente.


Exemplos
oTree:EndUpdate()
GetCargo

GetCargo

Retorna a chave de identificação do item selecionado.


Sintaxe

DBTree(): GetCargo ( ) --> cCargo

Retorno
cCargo
    (caracter)
  • Indica a chave de identificação do item selecionado na árvore.

Observações


 


Exemplos
oTree:GetCargo()
GetPrompt

GetPrompt

Retorna a descrição do item selecionado.


Sintaxe

DBTree(): GetPrompt ( [ lSpace] ) --> cPrompt


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
lSpaceLógicoIndica se, verdadeiro (.T.), retorna a descrição com os espaços ou, falso (.F.), se retira os espaços à direita e à esquerda da descrição.
  

 




Retorno
cPrompt
    (caracter)
  • Retorna a descrição do item selecionado.

Observações
  • A opção de múltiplas colunas definidas pelo parâmetro cHeaders do construtor New do objeto e alimentadas por valores separados por ponto e vírgula do parâmetro cPrompt deste método, está disponível somente em builds superiores à 7.00.120420A.

Exemplos
oTree:GetPrompt(.T.) // Result: "Subnível 01"
IsEmpty

IsEmpty

Indica se existem itens na árvore.


Sintaxe

DBTree(): IsEmpty ( ) --> lIsEmpty

Retorno
lIsEmpty
    (logico)
  • Retorna, verdadeiro (.T.), se a árvore estiver vazia; caso contrário, retornará falso (.F.).

Observações


 


Exemplos
oTree:IsEmpty() // Result: .F.
Nivel

Nivel

Retorna o nível do item selecionado.


Sintaxe

DBTree(): Nivel ( ) --> nNivel

Retorno
nNivel
    ()
  • Retorna o nível do item selecionado, sendo que o primeiro item estará no nível 1, seus filhos no nível 2 e assim sucessivamente.

Observações

Exemplos
oTree:Nivel() // Result: 3

Preview
Exemplo do método Nivel
PTRefresh

PTRefresh

Atualiza todos os níveis da árvore.


Sintaxe

DBTree(): PTRefresh ( ) -->


Observações


 


Exemplos
oTree:PTRefresh()
PTSendTree

PTSendTree

Permite realizar a construção inicial, da classe DBTree(), a partir de um array pré-definido.


Sintaxe

DBTree(): PTSendTree ( < aNodes> ) -->


Parâmetros


 

NomeTipoDescriçãoObrigatórioReferência
aNodesVetorIndica o array pré-definido com informações para criar a árvore. Para mais informações referente ao formato do array, consulte a área Observações.X
 

 




Observações
 


Disponibilidade

Método disponível a partir da build 7.00.080806P.

 


Formato do array para criação dos itens da classe DBTree()

  1. Nível do item (Caracter).
  2. ID que identificará este item (Caracter).
  3. Compatibilidade. Configure sempre com aspas "" (Caracter).
  4. Descrição que será apresentada no item (Caracter).
  5. Imagem quando o item da árvore estiver fechado (Caracter).
  6. Imagem quando o item da árvore estiver aberto (Caracter).

 
 

Dicas de utilização do método

Este método foi desenvolvido para acelerar a criação da árvore. No entanto, para que funcione corretamente, é necessário seguir as seguintes regras na criação do array:

  • Os itens devem ser criados na ordem exata que serão apresentados.
  • Os níveis devem ser inseridos de acordo com a posição do item.

 


No exemplo abaixo, observe a maneira correta de alimentar o array:
 


 

// ExemploDEFINE DIALOG oDlg TITLE "Exemplo do PTSendTree" FROM 180,180 TO 550,700 PIXELIMAGE1 := "FOLDER5"IMAGE2 := "FOLDER6"aNodes := {}aadd(aNodes,{'00',"001","","Descrição Raiz",IMAGE1,IMAGE2})         // Raizaadd(aNodes,{'01',"002","","Descrição Subnível 01",IMAGE1,IMAGE2}) // Segundo nívelaadd(aNodes,{'02',"003","","Descrição Subnível 02",IMAGE1,IMAGE2}) // Terceiro nívelaadd(aNodes,{'01',"004","","Descrição Subnível 01",IMAGE1,IMAGE2}) // Segundo nívelaadd(aNodes,{'02',"005","","Descrição Subnível 02",IMAGE1,IMAGE2}) // Terceiro nível// Cria o objeto Tree e carrega os itensoTree := DbTree():New(0,0,160,260,oDlg,,,.T.)oTree:PTSendTree( aNodes )ACTIVATE DIALOG oDlg CENTERED

 

Visualização

 


Exemplos
#include "TOTVS.CH"User Function PTSendTree()Local nX,nY,nZDEFINE DIALOG oDlg TITLE "Exemplo do PTSendTree" FROM 180,180 TO 550,700 PIXELaNodes := {}IMAGE1  := "" 	// Imagem quando nível estiver fechadoIMAGE2  := "" 	// Imagem quando nível estiver abertonLoop   := 690  // Quantidade de Loops - irá gerar 20010 ItensnCount	:= 0	// Simula ID dos itens da Tree//cTime1 := Time()// PRIMEIRO NÍVELfor nX := 1 to nLoop		nCount++	IMAGE1 := "FOLDER5"	aadd( aNodes, {'00', StrZero(nCount,7), "", "Primeiro Nível->ID: "+;	StrZero(nCount,7), IMAGE1, IMAGE2} )		// SEGUNDO NÍVEL	for nY := 1 to 7				nCount++		IMAGE1 := "FOLDER6"		aadd( aNodes, {'01', StrZero(nCount,7), "", "Segundo Nível->ID: "+;		StrZero(nCount,7), IMAGE1, IMAGE2} )				// TERCEIRO NÍVEL		for nZ := 1 to 3						nCount++			IMAGE1 := "FOLDER10"			aadd( aNodes, {'02',StrZero(nCount,7),"","Terceiro Nível->ID: "+;			StrZero(nCount,7), IMAGE1, IMAGE2} )					next nZ			next nY	next nX// Cria o objeto TreeoTree := DbTree():New(0,0,160,260,oDlg,,,.T.)// Método para carga dos itens da TreeoTree:PTSendTree( aNodes )ACTIVATE DIALOG oDlg CENTEREDReturn
PTSrvUpdatePosition

PTSrvUpdatePosition

Sincroniza as informações entre o objeto Tree, no Smart Client, e o Application Server.


Sintaxe

DBTree(): PTSrvUpdatePosition ( ) -->


Observações


 


Exemplos
oTree:PTSrvUpdatePosition()
PTUpdateNodes

PTUpdateNodes

Atualiza o item e seus subitens.


Sintaxe

DBTree(): PTUpdateNodes ( < cNivel> ) -->


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cNivelCaracterIndica o nível que será atualizado.X
 

 




Observações


 


Exemplos
oTree:PTUpdateNodes( "005" )
Reset

Reset

Limpa todos os itens da árvore.


Sintaxe

DBTree(): Reset ( ) -->


Observações


 


Exemplos
oTree:Reset()
SetDisable

SetDisable

Desabilita a utilização da árvore.


Sintaxe

DBTree(): SetDisable ( ) -->


Observações


 


Exemplos
oTree:SetDisable()
SetEnable

SetEnable

Habilita a utilização da árvore.


Sintaxe

DBTree(): SetEnable ( ) -->


Observações


 


Exemplos
oTree:SetEnable()
SetFlags

SetFlags

Habilita/Desabilita certas funcionalidades do componente.


Sintaxe

DBTree(): SetFlags( <nFlags> ) -->


Parâmetros


 

NomeTipoDescriçãoObrigatórioReferência
nFlagsNumérico

Valor que representa a(s) funcionalidade(s) a ser(em) habilitada(s). Valores de flags podem ser somados para que mais de uma funcionalidade seja habilitada ao mesmo tempo.

X
 
 



Observações


 

ComandosDescrição
1 (TTREE_ISEDITABLE)Habilita edição do texto (prompt) dos itens.
 


  • Este método está disponível somente em builds superiores à build 7.00.120420A
 



Exemplos
#define TTREE_ISEDITABLE     1
oTree:SetFlags( TTREE_ISEDITABLE ) // Habilita possibilidade de edição do Prompt de cada item da árvore
SetScroll

SetScroll

Define a barra de rolagem da árvore.


Sintaxe

DBTree(): SetScroll ( < nTipo>, < lHabilita> ) -->


Parâmetros


 

NomeTipoDescriçãoObrigatórioReferência
nTipoNuméricoIndica o tipo (1=horizontal e 2=vertical) da barra de rolagem.X
 

lHabilitaLógicoIndica se habilita (.T.) ou desabilita (.F.) a barra de rolagem.X
 
 



Observações

Exemplos
oTree:SetScroll(1,.T.) // Habilita barra de rolagem horizontaloTree:SetScroll(2,.T.) // Habilita barra de rolagem vertical
Total

Total

Retorna o número de itens na árvore.


Sintaxe

DBTree(): Total ( ) --> nItens

Retorno
nItens
    ()
  • Retorna o número de itens na árvore.

Observações

Exemplos
oTree:Total() // Result: 8
TreeSeek

TreeSeek

Localiza e posiciona o cursor em um determinado elemento.


Sintaxe

DBTree(): TreeSeek ( < cCargo> ) --> lFind


Parâmetros
 


NomeTipoDescriçãoObrigatórioReferência
cCargoCaracterIndica a chave de identificação do elemento na árvore.X
 
 


Retorno
lFind
    (logico)
  • Retorna, verdadeiro (.T.), se o cargo for localizado; caso contrário, retornará falso (.F.)

Observações

 

 

 

 






Exemplos
// Localiza o Cargo 001 e posiciona o cursor// para que o segundo nível seja criado abaixo dele// -----------------------------------------------------if oTree:TreeSeek("001")   oTree:AddItem("Segundo nível da DBTree","002", "FOLDER10",,,,2)	endif

Propriedade
 


PropriedadeDescriçãoTipo
aBmpsIndica o array que contêm as imagens dos itens do objeto.Vetor
bInitIndica o bloco de código que será executado na inicialização do objeto.Bloco de código
lActivatedIndica se, verdadeiro (.T.), o objeto está ativo; caso contrário, falso (.F.).Lógico
lCargoIndica se, verdadeiro (.T.), os elementos da Tree utilizarão a propriedade cCargo, do método AddItem(), que armazena uma string identificadora, para cada elemento e item da árvore; caso contrário, falso (.F.).Lógico
lEnableIndica se, verdadeiro (.T.), o objeto está habilitado; caso contrário, falso (.F.).Lógico
lProcessIndica se, verdadeiro (.T.), o objeto está sendo atualizado; caso contrário, falso (.F.).Lógico
lRefreshingIndica se, verdadeiro (.T.), o objeto está sendo atualizado; caso contrário, falso (.F.).Lógico
nTotalIndica o total de itens do objeto.Numérico
bPromptChangedIndica o bloco de código, no formato {|cID, nColumn, cNewPrompt| }, que será executado quando um prompt for editado na Tree pelo usuário. O cID conterá o Cargo (valor identificador do item), nColumn a coluna e cNewPrompt o novo prompt do item. Disponível somente em builds superiores à build 7.00.120420A.Bloco de código
nColumnsRetorna a quantidade de colunas do objeto. Disponível somente em builds superiores à build 7.00.120420A.Numérico

 



Observações
  • Caso seja informada uma quantidade menor de colunas para um item do que a quantidade determinada no construtor do objeto, as colunas serão criadas automaticamente em branco, para que o item respeite a quantidade definida no construtor. Colunas excedentes de um item serão descartadas.
  • É possível definir a quantidade de colunas do objeto sem que o cabeçalho seja exibido. Para isto, basta informar somente os delimitadores, como por exemplo ";;;" para quatro colunas.
  • É importante utilizar os métodos BeginUpdate(), para iniciar a criação do objeto, e EndUpdate(), ao término, para que os ajustes de performance e criação sejam realizados corretamente.

A seguir, veja o código fonte exemplo:

oTree := DbTree():New(0,0,160,260,oDlg,,,.T.,,) // Cria a TreeoTree:BeginUpdate()    // Prepara o objeto para receber os itensoTree:SetScroll(1,.T.) // Habilita a barra de rolagem horizontaloTree:SetScroll(2,.T.) // Habilita a barra de rolagem vertical  for nX := 1 to 5    id++                             cId := strZero(id,7)    oTree:AddItem("Primeiro Nível: "+cId,cId, "FOLDER5" ,"FOLDER6",,,1)    If oTree:TreeSeek(cId)       for nY := 1 to 10	      id++                         	      cId := strZero(id,7)   		  oTree:AddItem("Subnível:"+cId,cId, "FOLDER10",,,,2)	  	  next                      endif     next  oTree:EndUpdate() // Finaliza a criação dos itens

Exemplos
#include "TOTVS.CH"User Function DbTree()            DEFINE DIALOG oDlg TITLE "Exemplo de DBTree" FROM 180,180 TO 550,700 PIXEL	    // Cria a Tree    oTree := DbTree():New(0,0,160,260,oDlg,,,.T.)		    // Insere itens    oTree:AddItem("Primeiro nível da DBTree","001", "FOLDER5" ,,,,1)    If oTree:TreeSeek("001")       oTree:AddItem("Segundo nível da DBTree","002", "FOLDER10",,,,2)	      If oTree:TreeSeek("002")         oTree:AddItem("Subnível 01","003", "FOLDER6",,,,2)	        oTree:AddItem("Subnível 02","004", "FOLDER6",,,,2)	        oTree:AddItem("Subnível 03","005", "FOLDER6",,,,2)	      endif    endif                         oTree:TreeSeek("001") // Retorna ao primeiro nível        // Cria botões com métodos básicos    TButton():New( 160, 002, "Seek Item 4", oDlg,{|| oTree:TreeSeek("004")};       ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 160, 052, "Enable"	, oDlg,{|| oTree:SetEnable() };       ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 160, 102, "Disable"	, oDlg,{|| oTree:SetDisable() };       ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 160, 152, "Novo Item", oDlg,{|| TreeNewIt() };       ,40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172,02,"Dados do item", oDlg,{|| ;         Alert("Cargo: "+oTree:GetCargo()+chr(13)+"Texto: "+oTree:GetPrompt(.T.)) },;		 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 052, "Muda Texto", oDlg,{|| ;         oTree:ChangePrompt("Novo Texto Item 001","001") },;         40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 102, "Muda Imagem", oDlg,{||;         oTree:ChangeBmp("LBNO","LBTIK",,,"001") },;         40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    TButton():New( 172, 152, "Apaga Item", oDlg,{|| ;         if(oTree:TreeSeek("006"),oTree:DelItem(),) },;         40,010,,,.F.,.T.,.F.,,.F.,,,.F. )    // Indica o término da contrução da Tree    oTree:EndTree()  ACTIVATE DIALOG oDlg CENTERED Return                                             //----------------------------------------// Função auxiliar para inserção de item//----------------------------------------Static Function TreeNewIt()  // Cria novo item na Tree  oTree:AddTreeItem("Novo Item","FOLDER7",,"006")  if oTree:TreeSeek("006")     oTree:AddItem("Sub-nivel 01","007", "FOLDER6",,,,2)	    oTree:AddItem("Sub-nivel 02","008", "FOLDER6",,,,2)	  endifReturn

Preview
Exemplo da classe DBTree()

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