Plano de Contas com Treeview (Arvore)
Ola pessoal
Preciso urgentemente, da ajuda de voces...
Estou desenvolvento um [b:c4b9369f25]plano de contas[/b:c4b9369f25] e Tenho uma tabela (interbase)com seguinte estrutura:
Plano
________________________________________________________
codigo-----conta--------pai--------descrição---------------nivel-------Especie
1-----------1------------------------Entrada----------------- -0---------Credito
3-----------1.01----------1---------Vendas vista-------------1---------Credito
4------------1.02---------1----------Vendas prazo------------1--------Credito
2-----------2------------------------Saida---------------------0---------Debito
5-----------2.01--------- 2---------Pagamentos-------------1---------Debito
6-----------2.01.01------2.01------Pagamentos div---------2---------Debito
_____________________________________________________________
Estou tentando utlilizar o[b:c4b9369f25] treeview pra que apareca a arvore[/b:c4b9369f25], mas nao
consigo fazer carregar os dados da tabela como quero. Gostaria que
ficasse com a seguinte estrutura, mas nao sei como fazer :
___________________________________________________
1 - entrada
---------------1.01- Venda Vista
---------------1.02- Venda Prazo
2 - Saidas
---------------2.01- pagamentos
------------------------------------2.01.01- pagamentos Diversos
____________________________________________________
Desde já agradeço
Abraços a todos
Preciso urgentemente, da ajuda de voces...
Estou desenvolvento um [b:c4b9369f25]plano de contas[/b:c4b9369f25] e Tenho uma tabela (interbase)com seguinte estrutura:
Plano
________________________________________________________
codigo-----conta--------pai--------descrição---------------nivel-------Especie
1-----------1------------------------Entrada----------------- -0---------Credito
3-----------1.01----------1---------Vendas vista-------------1---------Credito
4------------1.02---------1----------Vendas prazo------------1--------Credito
2-----------2------------------------Saida---------------------0---------Debito
5-----------2.01--------- 2---------Pagamentos-------------1---------Debito
6-----------2.01.01------2.01------Pagamentos div---------2---------Debito
_____________________________________________________________
Estou tentando utlilizar o[b:c4b9369f25] treeview pra que apareca a arvore[/b:c4b9369f25], mas nao
consigo fazer carregar os dados da tabela como quero. Gostaria que
ficasse com a seguinte estrutura, mas nao sei como fazer :
___________________________________________________
1 - entrada
---------------1.01- Venda Vista
---------------1.02- Venda Prazo
2 - Saidas
---------------2.01- pagamentos
------------------------------------2.01.01- pagamentos Diversos
____________________________________________________
Desde já agradeço
Abraços a todos
Siro
Curtidas 0
Respostas
Carnette
16/02/2003
procedure TForm1.Button1Click(Sender: TObject);
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove qualquer node existente }
MyTreeNode1 := Add(nil, ´RootTreeNode1´); { Adiciona o node raiz }
{ Adiciona um sub item no node adiciona anteriormente }
AddChild(MyTreeNode1,´ChildNode1´);
{Adiciona outro node raiz}
MyTreeNode2 := Add(MyTreeNode1, ´RootTreeNode2´);
AddChild(MyTreeNode2,´ChildNode2´);
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,´ChildNode2a´);
Add(MyTreeNode2,´ChildNode2b´);
Add(MyTreeNode1, ´RootTreeNode3´);
end;
end;
var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { Remove qualquer node existente }
MyTreeNode1 := Add(nil, ´RootTreeNode1´); { Adiciona o node raiz }
{ Adiciona um sub item no node adiciona anteriormente }
AddChild(MyTreeNode1,´ChildNode1´);
{Adiciona outro node raiz}
MyTreeNode2 := Add(MyTreeNode1, ´RootTreeNode2´);
AddChild(MyTreeNode2,´ChildNode2´);
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,´ChildNode2a´);
Add(MyTreeNode2,´ChildNode2b´);
Add(MyTreeNode1, ´RootTreeNode3´);
end;
end;
GOSTEI 0
Anonymous
16/02/2003
Veja esta mensagem que vi no forum
do Ramos
´
--------------------------------------------------------------------------------
Na semana passada, em outro grupo de discussões, prometi que ia colocar um código fonte para inclusão e edição de um plano de contas, para programas de contabilidade, orçamento, controle patrimonial ou qualquer outra coisa que utilize estruturação de códigos de forma hierárquica.
Como sempre tive simpatia pelo pessoal desse grupo, resolvi colocar aqui também.
É possível baixá-lo de duas formas, com e sem o executável:
a) Com o .EXE http://kylix.virtualave.net/forum/ctbexe.zip [433k]
b) Sem o .EXE http://kylix.virtualave.net/forum/ctb.zip [22k]
O executável foi gerado pelo Delphi 6.02, e o plano de contas de exemplo é uma tabela Paradox (o programa original usa DBISAM).
O código fonte que estou disponibilizando faz parte de um programa de contabilidade que desenvolvi há alguns anos, com o qual nunca ganhei dinheiro, mas foi interessante de desenvolver e ainda é utilizado por uma estatal do Governo de Rondônia. Foi enxugado, sendo eliminado tudo que não tem relação com a edição do plano de contas.
Se alguém se interessar e achar que o código presta para alguma coisa, utilize-o a vontade, desde que eu não seja responsabilidado por nenhum desastre
Dá pra pensar em liberar os fontes de todo o programa de contabilidade, caso alguém queira.
Responderei quaisquer comentários que estiverem neste mesmo tópico. E, se eu for novamente citado no e-zine, por favor alguém tenha a bondade de me avisar.
--
\\|// \\\|/// ( Q Q ) --------o00o-(_)-o00o------- Junior/RO pascal@intermega.com.br ---------------------------- oooo0 0oooo ( ) ( ) \ ( ) / \ ) ( / -- --
do Ramos
´
--------------------------------------------------------------------------------
Na semana passada, em outro grupo de discussões, prometi que ia colocar um código fonte para inclusão e edição de um plano de contas, para programas de contabilidade, orçamento, controle patrimonial ou qualquer outra coisa que utilize estruturação de códigos de forma hierárquica.
Como sempre tive simpatia pelo pessoal desse grupo, resolvi colocar aqui também.
É possível baixá-lo de duas formas, com e sem o executável:
a) Com o .EXE http://kylix.virtualave.net/forum/ctbexe.zip [433k]
b) Sem o .EXE http://kylix.virtualave.net/forum/ctb.zip [22k]
O executável foi gerado pelo Delphi 6.02, e o plano de contas de exemplo é uma tabela Paradox (o programa original usa DBISAM).
O código fonte que estou disponibilizando faz parte de um programa de contabilidade que desenvolvi há alguns anos, com o qual nunca ganhei dinheiro, mas foi interessante de desenvolver e ainda é utilizado por uma estatal do Governo de Rondônia. Foi enxugado, sendo eliminado tudo que não tem relação com a edição do plano de contas.
Se alguém se interessar e achar que o código presta para alguma coisa, utilize-o a vontade, desde que eu não seja responsabilidado por nenhum desastre
Dá pra pensar em liberar os fontes de todo o programa de contabilidade, caso alguém queira.
Responderei quaisquer comentários que estiverem neste mesmo tópico. E, se eu for novamente citado no e-zine, por favor alguém tenha a bondade de me avisar.
--
\\|// \\\|/// ( Q Q ) --------o00o-(_)-o00o------- Junior/RO pascal@intermega.com.br ---------------------------- oooo0 0oooo ( ) ( ) \ ( ) / \ ) ( / -- --
GOSTEI 0
Siro
16/02/2003
Valeu, mas ja tinha visto.
Ocorre que preciso de um plano de facil entendimento pra os clientes e que possa ser criados os sub niveis quase que automaticos, bastando apenas que o cliente informe a descrição, pois o codigo e criado automaticamente, porque muitos nao sabem o que é um plano de contas e pode dar muita dor de cabeça.
Grato
Ocorre que preciso de um plano de facil entendimento pra os clientes e que possa ser criados os sub niveis quase que automaticos, bastando apenas que o cliente informe a descrição, pois o codigo e criado automaticamente, porque muitos nao sabem o que é um plano de contas e pode dar muita dor de cabeça.
Grato
GOSTEI 0
Alexsandro
16/02/2003
PESSOAL,
Vocês saberiam onde posso encontrar o Exemplo acima? Estou precisando fazer justamente isso.
Muito Obrg.
Alex
Vocês saberiam onde posso encontrar o Exemplo acima? Estou precisando fazer justamente isso.
Muito Obrg.
Alex
GOSTEI 0