Acho que nao me expressei direito...
Não preciso preencher um Treeview...
Coloquei um Treeview como exemplo...
O que preciso é montar essa estrutura em um Memo para a visualização.
E junto com isso fazer o calculo de valores tipo:
MARCELO - 100,00 (que é o % sobre quem esta abaixo dele)
JOAO - 50,00 (idem)
EPTAFIO - 40,00 (idem)
MARCIO - 30,00 (idem)
JOAQUIM - 20,00 (idem)
ROBERTO - 10,00 (idem)
FERNANDO - 0,00 (idem)
Entendeu ?
A minha dificuldade é fazer o calculo de comissões, já que quanto ao treeview
eu posso usar um DBTreeview da suite JEDI
*Mas estou analizando sua dica, pois parece muito boa
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
----- Original Message -----
From: Gabriel Ferrarini
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, April 07, 2005 10:20 AM
Subject: Re: [delphi-br] Realmente preciso de ajuda com a logica de
dependencias
Olá, Marcelo. Pelo que você passou, acho que você poderia usar uma matriz de
adjacências e fazer uma função recursiva para montar o Treeview. Seria algo
assim:
Você tem uma matriz NxN onde N é seu número de vendedores. No seu exemplo
são 7.
Então você poderia fazer o seguinte:
- Após declarar a matriz e preencher todos os seus elementos com 0 faça o
laço abaixo.
for I := 1 to DataSet.RecordCount do
Matriz[DataSetVEN_PAI][DataSetVEN_COD] := 1;
A matriz ficaria assim:
1 2 3 4 5 6 7
1 0 1 1 0 0 0 0
2 0 0 0 0 1 0 0
3 0 0 0 1 0 1 0
4 0 0 0 0 0 0 0
5 0 0 0 0 0 0 0
6 0 0 0 0 0 0 1
7 0 0 0 0 0 0 0
Os campos onde tem um, são os campos que indicam que o índice da linha é pai
do índice da coluna.
Daí você pode montar uma função recursiva a partir do primeiro registro
chamando-a assim:
MontaTreeView(TreeView, nil, DataSetVEN_COD.AsInteger);
Não sembro dos métodos do treeview mas creio que seja algo assim:
procedure MontaTreeView(TreeView: TTreeView; Node: TNode; Codigo: integer);
begin
// Aqui você cria o primeiro node,
// adiciona o primeiro código,
// verifica se ele possui filhos fazendo um for na linha correspondente ao
número passado como parâmetro.
// Se tiver você chama a função de novo, passando o mesmo treeview, o node
criado e o código do filhos como parâmetro. Isso para cada filho
end;
Espero ter ajudado.
Flw.
Gabriel
----- Original Message -----
From: Marcelo Silva
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, April 07, 2005 9:34 AM
Subject: [delphi-br] Realmente preciso de ajuda com a logica de dependencias
Pessoal, voces sabem que não costumo recorrer a lista dessa maneira, mas é
que a cabeça vai fundir :-)
Tenho uma tabela assim:
VENDEDORES
VEN_COD (PK)
VEN_PAI
VEN_NOME
Atravez dessa tabela preciso montar uma rotina que me traga a descendencia
(tipo arvore) como abaixo
CODIGO CODIGO-PAI NOME
001 000 MARCELO
002 001 JOAO
003 001 MARCIO
004 003 JOAQUIM
005 002 EPITAFIO
006 003 ROBERTO
007 006 FERNANDO
O resultado deve sair mais ou menos assim:
MARCELO
JOAO
EPTAFIO
MARCIO
JOAQUIM
ROBERTO
FERNANDO
Preciso montar esse treeview na mão... pois preciso calcular o ganhos de
cada vendedor para saber quanto o superior dele tem a ganhar.
* Se estiver faltando alguma coisa na estrutura de tabelas estou atento as
dicas do colegas
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.1 - Release Date: 01/04/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
