Ivano

Olá amigos! Tenho um sistema imprimindo em uma matricial LX-300. A impressão sai legal e tudo bem. Fiz No RaveReport do delphi7. O único problema é que quando termina de imprimir o Windows ejeta o papel ao invez de simplesmente ir para a proxima pág. Assim, se mandarmos imprimir outra coisa, ela vai desperdiçar papel e começar a imprimir no meio da pagina. o que vocês me aconselham? Será que existe alguma configuração da impressora ou no Rave para sanar isso? Ou eu tenho de fazer um trabalho como aqueles de sistema em Clipper? :blink: Seria bom usar esse mesmo que já está feito e funciona bem em outras impressoras né? Opinem aí, qual será a melhor alternativa? :)

É assim: Posteriormente eu irei carregar informações de minha base de dados em duas árvores. Daí alguns pontos deverão aparecer a direita e outros a esquerda, dependendo do "status" dela na tabela. Então alguns pontos "filhos" irão aparecer só na arvore da direita ou só na arvore da esquerda. Até aí tudo bem. Depois o usuario irá clicar em um item da esquerda e enviar para a direita. Nesse momento eu vou mudar o status desse item na tabela, o que é tranquilo. Mas eu tenho de verificar se o pai dele já está na arvore de destino. Se já estiver eu coloco ele lá. Se não estiver tenho de colocar antes o pai dele, ok? Até qui eu consegui comparar se o nó já existe atraves do parâmetro: NodeOri := PInteger( arvore.Selected.Data )^; Mas eu tenho de clicar no item na arvore de destino, se não ele não encontra! Meu "For" não funciona! olha como esle está nesse momento: -------------------- var nodeori, nodedes: integer; //TTreeNode; i: Integer; nodesel: TTreeNode; begin NodeOri := PInteger( arvore.Selected.Data )^;//arvore.Selected; for i := 0 to arvore2.Items.Count-1 do Nodedes:= PInteger( arvore2.Selected.Data )^; if NodeOri = Nodedes then begin showmessage('Achei! É: '+IntToStr(Nodedes)); i:=i+1; end; ------------------- Se eu conseguir correr todos os níveis procurando o pai, e se não encontrar procurar pelo avô, daí eu coloco eles lá. Se eu não fizer isso terei de carregar o Select várias vezes e vai ficar muito pesado :( Consegui explicar o problema agora? Entenderem o que eu quero fazer e para que?

Amigos, Eu sei está confuso, mas também porque realmente é complicada a coisa. Estou tentando fazer agora, de forma mais simples. O que preciso nesse momento agora é saber como avançar um nó. Tentei encontrar isso nos axemplos acima mas não encontrei. Fazer algo do tipo: arvore2.nó.next; Com isso já consigo fazer funcionar o FOR que preciso e a coisa anda. Isso porque entendo que assim "Selected" irá passar para o próximo, correto? Obrigado pela atenção e paciência de vocês.

Pessoal, pensei que iria ser fácil, mas está cada vez mais confuso :( Como eu faço para verificar se o nó Pai correspondente existe na outra árvore e, se não, criar a estrutura e copiar o nó, ou se não copiar apenas o nó pra lá? Detalhe: Eu posso ter o pai A com os filhos A1 e A3 a esquerda e já ter o Pai "A" correspondente na árvore com o nó filho A2. Então eu querer copiar o A2 para a direita. O que eu não estou conseguindo fazer: 1-Verificar se já existe esse nó, pegando um "endereço". Assim: Pega o nome do Pai: "A" 2-Compara na "arvore 2" se existe um pai "A" (isso eu acho que sabendo pegar esse endereço fica mais fácil, usando um count e comparando TODOS, porque o nó não terá a mesma posição "count" ) 3- Se for criar a estrutura, verificar se já existe o avô e etc... O problema maior é pegar esse endereço :(, estou ficando loco com isso! Isso é difícil assim mesmo de fazer ou eu é que estou marcando touca?

testei ele aqui, ficou bem legal! :)) Não precisa multselect não, a unica coisa que vai ter de mudar é que ele gerar um "nível 0" a cada vez que chamamos a função. Acho que se comparar antes se o Pai já existe na árvore, daí ele encontra e já copia lá, né? Cara muito obrigado pela ajuda, você é muito gente boa! :-)

ok amigos, respondendo as perguntas: 1) Sim, é isso mesmo. Exatamente. 2) Não isso já não é necessário nesso momento, embora seja interessante eu aprender isso também.

Olá Churc, Não sei se entendi bem, mas assim elas ficarão exatamente iguais, não é? Eu vou precisar jogar apenas um nó de cada vez, de acordo com o que o usuario selecionar... []´s

Olá amigos, Estou precisando copiar "nós" de uma treeView para outra. Só que tem de ser na mesma posição que estava, porque as arvores são iguais... Alguém sabe me dizer como pegar e passar esse 'caminho'? Desde já agradeço a ajuda dos amigos! ;-)

Já descobri, é assim: while i <= tvp.Items.Count-1 do begin if tvp.Items.Level > 2 then begin Dispose(tvp.Items.Data); tvp.Items.delete; end; i:=i+1; //tvp.Items.Clear; end;

Olá amigos, estou tentando apagar todos os subníveis de uam treview, que estiverem acima do 2º nível, mas está dando erro. tentei fazer assim: for i := 0 to tvp.Items.Count-1 do if tvp.Items.Level > 0 then Dispose(tvp.Items.Data); tvp.Items.Clear; Só que assim apaga tudo! Alguém sabe me dizer o que ocorre? Lembrando que eu quero apagar todos os níveis do 3º pra frente. Ajudem aí! Obrigado. :)

Olá amigos, Estou tentando fazer uma procedure no Oracle mais ainda estou meio perdido. Dá erro nessa linha do "select" e fala que era esperado um "into". Por que será? Eu estava querendo calcular isso só pra testar. Sozinho o select funciona. O cod abaixo está salvo no oracle. Estou chamando ele assim: SELECT CALCOVERRAL(5) FROM DUAL; ----------------------------------------------------------------------------- CREATE OR REPLACE FUNCTION CALCOVERRAL(p_number IN NUMBER) RETURN VARCHAR2 IS v_result VARCHAR2(10); i Integer; soma NUMBER; eq NUMBER; y NUMBER; BEGIN WHILE i < 1100 LOOP i := i + 1; SELECT SQRT(p_number) FROM DUAL; END LOOP; --COMMIT; --RETURN RMS; END CALCOVERRAL;

Muito obrigado! :)

Como faço para limpar o conteúdo de uma TreeView? Eu carrego ela com vários nívei, e para zerar ela? Como faço?

Olá amigos. Consegui fazer funcionar, é o seguinte: Não fui eu quem fez o programa, por isso a confusão. Eu estava tentando usar um parâmetro que ainda não tinha sido criado na query, que é feito tudo via cógido. Acho que apanhei mais porque não estou acostumado a fazer esse tipo de coisa via código ainda :) Mas obrigado pela ajuda mesmo assim!

Sim, passa.

Sim, já tentei. Funciona normal. Só que eu preciso passar a data em uma veriavel.

Olá, estou usando Oracle. Delphi 6

Olá amigos, estou com problemas para passar uma data dentro de uma consulta SQL. Assim: ' AND c.status = ''F''' + #13#10 + ' AND ios.data_real BETWEEN to_date(:data_medida_inicio, ''DD/MM/YYYY hh24:mi'')'+ #13#10 + ' AND to_date(:data_medida_fim, ''DD/MM/YYYY hh24:mi'')'+ #13#10 + Esse ":data_medida_inicio" não é reconhecido e dá erro "No value for parameter". O que estou fazendo de errado? isso está barrando meu trabalho :( Desde já agradeço vossa ajuda! :) --------------------- Ah, uma outra coisa: data_medida_inicio:=DateToStr(date())+' 00:00'; data_medida_fim:=DateToStr(date())+' 23:59'; label1.Caption:=data_medida_inicio;