[delphi-br] Pegar destino de um atalho
Boa Tarde PessoALL, Gostaria de saber como faço para pegar a informação de destino na propriedade de um atalho. Por exemplo: Uma calculadora que campo destino está desta forma: Destino: c:\calculadora\calc.exe Eu gostaria de pegar este caminho: c:\calculadora\calc.exe. Obrigado pela atenção. Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Res: [delphi-br] Finalizar aplicação ao q uando uma Thread terminar.
Bom João, Vi o seu e-mail apenas hj ontem não estive no trabalho. Eu tinha alterado o meu código, excluindo as declarações de FOnTerminate e qdo declarar novamente para testar a sua sugestão... não estou conseguindo, está dando um monte de erro que não estou conseguindo resolver. Vou manter a solução do syncronize mesmo, visto que resolveu o meu problema. Obrigado pela atenção... qdo precisar... estaremos æ... para tentar ajudar. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Janeiro de 2008 16:49:23 Assunto: Re: Res: [delphi-br] Finalizar aplicação ao quando uma Thread terminar. Wilian Domingues - Analista de wrote: E a sua dica de usar o FOnTerminate no carregar eu não entendi. FOnTerminate := MetodoQueSeraExecut ado Tentei colocar: FOnTerminate := OnTerminate; Pode explicar melhor? Embora você já tenha resolvido o problema, vai a dica do OnTerminate. Da forma que você implementou inicialmente, ele será executado apenas quando: SuaThread.OnTermina te := AlgumMetodo; e isso nunca acontece. Para associar um método ao evento OnTerminate, você precisa: procedure TSuaThread.Encerrar (Sender: TObject); begin Application. Terminate; end; e no seu construtor: begin ... FOnTerminate := Encerrar; end; Talvez funcione, mas a sua idéia ficou melhor (maledeto Synchronize) -- Joao Morais !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Finalizar aplicação ao quando uma Thread terminar.
Boa Tarde Pessoal, Gostaria de uma ajuda de vocês, eu desenvolvendo uma aplicação que quando é iniciada eu chamo uma thread e gostaria de finalizar a aplicação quando a thread for finalizada. Abaixo o codigo da minha thread: Qdo eu crio a thread: constructor TCopArquivos.Carregar(_LstDiretorios: TStringList; _ArqCount: Integer); begin inherited Create(True); FreeOnTerminate := True; LstDiretorios := _LstDiretorios; ArqCount := _ArqCount; Priority := TpLower; Resume; end; Na propriedade eu coloquei: procedure TCopArquivos.SetOnTerminate(const Value: TNotifyEvent); begin FOnTerminate := Value; Application.Terminate; end; Eu chamo a minha thread da seguinte forma, no evento onshow do meu form principal: TCopArquivos.Carregar(LstDirAtualiza,F_ArqCount); Só que minha aplicação não está encerrando qdo a thread finaliza. Tenho duas questões... ou minha thread nao está finalizando depois que termina o execute... ou realmente desta forma não funciona. Agradeço a ajuda de todos. Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Finalizar aplicação ao quando u ma Thread terminar.
Obrigado Joao por sua dica, mas o Application.Terminate no final do código da thread eu já testei e não funcionou tbm. Estou utlizando thread pq o programa faz uma série de atividades que quando eu executo fora... atrapalha no funcionamento. E a sua dica de usar o FOnTerminate no carregar eu não entendi. FOnTerminate := MetodoQueSeraExecutado Tentei colocar: FOnTerminate := OnTerminate; Pode explicar melhor? Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Joao Morais [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Janeiro de 2008 15:11:59 Assunto: Re: [delphi-br] Finalizar aplicação ao quando uma Thread terminar. Wilian Domingues - Analista de wrote: Gostaria de uma ajuda de vocês, eu desenvolvendo uma aplicação que quando é iniciada eu chamo uma thread e gostaria de finalizar a aplicação quando a thread for finalizada. Neste caso, pra que a thread? O seu método SetOnTerminate não será chamado quando a thread encerrar, ele serve meramente para associar o evento que será disparado quando isto acontecer. Então... Abaixo o codigo da minha thread: Qdo eu crio a thread: constructor TCopArquivos. Carregar( _LstDiretorios: TStringList; _ArqCount: Integer); begin inherited Create(True) ; FreeOnTerminate := True; LstDiretorios := _LstDiretorios; ArqCount := _ArqCount; Priority := TpLower; Acrescente aqui: FOnTerminate := MetodoQueSeraExecut ado; Resume; end; Ou ao invés de setar o FOnTerminate, coloque um Application. Terminate no final do código da sua thread. -- Joao Morais Na propriedade eu coloquei: procedure TCopArquivos. SetOnTerminate( const Value: TNotifyEvent) ; begin FOnTerminate := Value; Application. Terminate; end; Eu chamo a minha thread da seguinte forma, no evento onshow do meu form principal: TCopArquivos. Carregar( LstDirAtualiza, F_ArqCount) ; Só que minha aplicação não está encerrando qdo a thread finaliza. Tenho duas questões... ou minha thread nao está finalizando depois que termina o execute... ou realmente desta forma não funciona. !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote
Res: Res: [delphi-br] Finalizar aplicação ao q uando uma Thread terminar. (Resolvido)
Seguinte, Eu criei uma procedure na thread desta forma: procedure encerrar begin application.terminate end; No final do código do execute eu dou o seguinte comando: Synchronize(Encerrar); Aí o sistema fecha... do jeito que eu preciso. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Wilian Domingues - Analista de [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 11 de Janeiro de 2008 15:27:47 Assunto: Res: [delphi-br] Finalizar aplicação ao quando uma Thread terminar. Obrigado Joao por sua dica, mas o Application. Terminate no final do código da thread eu já testei e não funcionou tbm. Estou utlizando thread pq o programa faz uma série de atividades que quando eu executo fora... atrapalha no funcionamento. E a sua dica de usar o FOnTerminate no carregar eu não entendi. FOnTerminate := MetodoQueSeraExecut ado Tentei colocar: FOnTerminate := OnTerminate; Pode explicar melhor? Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Joao Morais [EMAIL PROTECTED] com.br Para: [EMAIL PROTECTED] os.com.br Enviadas: Sexta-feira, 11 de Janeiro de 2008 15:11:59 Assunto: Re: [delphi-br] Finalizar aplicação ao quando uma Thread terminar. Wilian Domingues - Analista de wrote: Gostaria de uma ajuda de vocês, eu desenvolvendo uma aplicação que quando é iniciada eu chamo uma thread e gostaria de finalizar a aplicação quando a thread for finalizada. Neste caso, pra que a thread? O seu método SetOnTerminate não será chamado quando a thread encerrar, ele serve meramente para associar o evento que será disparado quando isto acontecer. Então... Abaixo o codigo da minha thread: Qdo eu crio a thread: constructor TCopArquivos. Carregar( _LstDiretorios: TStringList; _ArqCount: Integer); begin inherited Create(True) ; FreeOnTerminate := True; LstDiretorios := _LstDiretorios; ArqCount := _ArqCount; Priority := TpLower; Acrescente aqui: FOnTerminate := MetodoQueSeraExecut ado; Resume; end; Ou ao invés de setar o FOnTerminate, coloque um Application. Terminate no final do código da sua thread. -- Joao Morais Na propriedade eu coloquei: procedure TCopArquivos. SetOnTerminate( const Value: TNotifyEvent) ; begin FOnTerminate := Value; Application. Terminate; end; Eu chamo a minha thread da seguinte forma, no evento onshow do meu form principal: TCopArquivos. Carregar( LstDirAtualiza, F_ArqCount) ; Só que minha aplicação não está encerrando qdo a thread finaliza. Tenho duas questões... ou minha thread nao está finalizando depois que termina o execute... ou realmente desta forma não funciona. !-- #ygrp-mkp{ border:1px solid #d8d8d8;font- family:Arial; margin:14px 0px;padding: 0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a; font-size: 85%;font- weight:bold; line-height: 122%;margin: 10px 0px;} #ygrp-mkp #ads{ margin-bottom: 10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff; text-decoration: none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family: Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight: bold;font- size:78%; line-height: 122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom: 10px;padding: 0 0;} -- !-- #ygrp-mlmsg {font-size:13px; font-family: arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit; font:100% ;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height: 1.22em;} #ygrp-text{ font-family: Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family: Arial; clear:both;} #ygrp-vitnav{ padding-top: 10px;font- family:Verdana; font-size: 77%;margin: 0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin: 25px 0;white-space: nowrap;color: #666;text- align:right; } #ygrp-actbar .left{ float:left;white- space:nowrap; } .bld{font-weight: bold;} #ygrp-grft{ font-family: Verdana;font- size:77%; padding:15px 0;} #ygrp-ft{ font-family: verdana;font- size:77%; border-top: 1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom: 10px;} #ygrp-vital{ background-color: #e0ecee;margin- bottom:20px; padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77% ;font-family: Verdana;font- weight:bold; color:#333; text-transform: uppercase; } #ygrp-vital ul{ padding:0;margin: 2px 0;} #ygrp-vital ul li{ list-style-type: none;clear: both;border: 1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight: bold;color: #ff7900;float: right;width: 2em;text- align:right; padding-right: .5em;} #ygrp-vital ul li .cat{ font-weight: bold;} #ygrp-vital a{ text-decoration: none;} #ygrp-vital a:hover{ text-decoration: underline
[delphi-br] Mestre Detalhe dbxpress + quickreport + join
Bom tarde a todos. Estou recorrendo a ajuda de vocês pq já tentei de tudo que eu conheço para fazer isso funcionar, já segui o tutorial deste link: http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=58mode=threadorder=0thold=0 e tbm não funcionou, a diferença do exemplo usado por ele é que eu faço join entre as tabelas. Estou precisando de fazer um mestre detalhe em dbxpress no quickreport com as seguintes consultas: Consulta mestre: select telefones.id_telefone, telefones.num_telefone, contas_telefonicas.data_conta_telefonica from telefones inner join contas_telefonicas on (telefones.id_telefone = contas_telefonicas.id_telefone) where telefones.id_telefone = :id_telefone group by telefones.id_telefone, telefones.num_telefone, contas_telefonicas.data_conta_telefonica order by telefones.num_telefone Consulta detalhe: select telefones.id_telefone, contas_telefonicas.id_conta_telefone, contas_telefonicas.data_conta_telefonica from contas_telefonicas inner join telefones on (telefones.id_telefone = contas_telefonicas.id_telefone) where telefones.id_telefone = :telefones.id_telefone order by data_conta_telefonica O relacionamento das tabelas é de (TELEFONE)1 para N(CONTAS_TELEFONICAS). Estou usando o Delphi 7 e Quickreport 4.05. Agradeço a atenção de todos. Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Lista Encadeada - Delphi
Bom dia PessoALL, Resolvi usar um array mesmo. No mais, valeu pela atenção. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Guionardo Furlan [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 22 de Outubro de 2007 16:26:14 Assunto: Re: [delphi-br] Lista Encadeada - Delphi Qual o uso que vc vai fazer da lista? Em 22/10/07, Wilian Domingues - Analista de w1l14n_analista@ yahoo.com. br escreveu: Boa tarde, Estou querendo implementar Lista Duplamente Encadeada no Delphi, mas não consegui nenhum material. Alguém já usou??? Se possível, gostaria de um exemplo. -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo. blogspot. com !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Retornar o nome do componente
Bom dia PessoALL, Existe uma forma de retornar o nome do componente do foco atual? Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Retornar o nome do componente
Grande Ricardo, Vlw pela força... funcionou 100%. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Ricardo Kenji [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 23 de Outubro de 2007 11:29:23 Assunto: Re: [delphi-br] Retornar o nome do componente Fala Wilian ShowMessage( ActiveControl. Name); []s - Original Message - From: Wilian Domingues - Analista de To: Delphi BR Sent: Tuesday, October 23, 2007 10:55 AM Subject: [delphi-br] Retornar o nome do componente Bom dia PessoALL, Existe uma forma de retornar o nome do componente do foco atual? Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2609 (20071023) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset. com.br [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Lista Encadeada - Delphi
Boa tarde, Estou querendo implementar Lista Duplamente Encadeada no Delphi, mas não consegui nenhum material. Alguém já usou??? Se possível, gostaria de um exemplo. Ajudas serão bem vindas. Att. Wilian Domingues Analista de Sistemas Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Problema com Parâmetro em formato de Data
Mude a linha: ParamByName( 'par03'). AsString := pDATAANOTSERV; Para: ParamByName( 'par03'). AsString := FormatDateTime('mm/dd/',pDATAANOTSERV); Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Ricardo César Cardoso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 5 de Outubro de 2007 8:46:22 Assunto: [delphi-br] Problema com Parâmetro em formato de Data Bom dia companheiros de lista. Tenho a seguinte função: * * * ** Function PegaNUMANOTSERV( aNUMMAQCAMVEI, aNBOLANOTSERV: Integer; aDATAANOTSERV: TDate; aTIPOANOTSERV, aTROLEOANOTSERV: String): Integer; Var Temp : Integer; aSQL : TSQLQuery; Begin aSQL := TSQLQuery.Create( nil); with aSQL do begin SQLConnection := dm.ConSENPAR; with SQL do begin Add('Select NUMANOTSERV ' ); Add('From ANOTSERV '); Add('Where NUMMAQCAMVEI = :par01' ); Add(' And NBOLANOTSERV = :par02' ); Add(' And DATAANOTSERV = :par03' ); Add(' And TIPOANOTSERV = :par04' ); Add(' And TROLEOANOTSERV = :par05' ); end; ParamByName( 'par01'). AsInteger := aNUMMAQCAMVEI; ParamByName( 'par02'). AsInteger := aNBOLANOTSERV; ParamByName( 'par03'). AsString := pDATAANOTSERV; ParamByName( 'par04'). AsString := aTIPOANOTSERV; ParamByName( 'par05'). AsString := aTROLEOANOTSERV; Open; end; Temp := aSQL.Fields[ 0].AsInteger; aSQL.Free; Result := Temp; End; *** Sempre que tento passar a data para o banco de dados como parâmetro o banco não retorna os dados esperados. O campo DATAANOTSERV é do tipo DATE e o banco de dados é Firebird v1.5.2 Tentei passar o parâmetro como Date (AsDate e AsDateTime) e como String (AsString) mas mesmo tendo registros que atendam aos requisitos da consulta, nenhum dado é retornado quando a consulta é feita pela aplicação. Fazendo a mesma consulta num front-end (IBExpert) a consulta retorna os dados normalmente. Não tenho nenhuma mensagem de erro em nenhuma das adaptações que tentei. Grato, Ricardo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff;text-decoration:none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} -- !-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad
Res: Res: [delphi-br] Problema com Parâmetro em formato de Data
No Front-end o formato é o padrão, 'dd/mm/'. Pelo Delphi que vc tem que informar a data no formato 'mm/dd/'. Passei por este problemas tbm. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Ricardo César Cardoso [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 5 de Outubro de 2007 11:39:22 Assunto: Re: Res: [delphi-br] Problema com Parâmetro em formato de Data Obrigado pela sugestão Wilian, mas quando faço pesquisas no banco pelo front-end, a data vem no formato dd/mm/. Qual seria a influência em fazer como vc propôs? Desde já grato, Ricardo. Wilian Domingues - Analista de w1l14n_analista@ yahoo.com. br escreveu: Mude a linha: ParamByName( 'par03'). AsString := pDATAANOTSERV; Para: ParamByName( 'par03'). AsString := FormatDateTime( 'mm/dd/' ,pDATAANOTSERV) ; Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Ricardo César Cardoso ricardo_engsoft@ yahoo.com. br Para: [EMAIL PROTECTED] os.com.br Enviadas: Sexta-feira, 5 de Outubro de 2007 8:46:22 Assunto: [delphi-br] Problema com Parâmetro em formato de Data Bom dia companheiros de lista. Tenho a seguinte função: * * * ** Function PegaNUMANOTSERV( aNUMMAQCAMVEI, aNBOLANOTSERV: Integer; aDATAANOTSERV: TDate; aTIPOANOTSERV, aTROLEOANOTSERV: String): Integer; Var Temp : Integer; aSQL : TSQLQuery; Begin aSQL := TSQLQuery.Create( nil); with aSQL do begin SQLConnection := dm.ConSENPAR; with SQL do begin Add('Select NUMANOTSERV ' ); Add('From ANOTSERV '); Add('Where NUMMAQCAMVEI = :par01' ); Add(' And NBOLANOTSERV = :par02' ); Add(' And DATAANOTSERV = :par03' ); Add(' And TIPOANOTSERV = :par04' ); Add(' And TROLEOANOTSERV = :par05' ); end; ParamByName( 'par01'). AsInteger := aNUMMAQCAMVEI; ParamByName( 'par02'). AsInteger := aNBOLANOTSERV; ParamByName( 'par03'). AsString := pDATAANOTSERV; ParamByName( 'par04'). AsString := aTIPOANOTSERV; ParamByName( 'par05'). AsString := aTROLEOANOTSERV; Open; end; Temp := aSQL.Fields[ 0].AsInteger; aSQL.Free; Result := Temp; End; *** Sempre que tento passar a data para o banco de dados como parâmetro o banco não retorna os dados esperados. O campo DATAANOTSERV é do tipo DATE e o banco de dados é Firebird v1.5.2 Tentei passar o parâmetro como Date (AsDate e AsDateTime) e como String (AsString) mas mesmo tendo registros que atendam aos requisitos da consulta, nenhum dado é retornado quando a consulta é feita pela aplicação. Fazendo a mesma consulta num front-end (IBExpert) a consulta retorna os dados normalmente. Não tenho nenhuma mensagem de erro em nenhuma das adaptações que tentei. Grato, Ricardo. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mkp{ border:1px solid #d8d8d8;font- family:Arial; margin:14px 0px;padding: 0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a; font-size: 85%;font- weight:bold; line-height: 122%;margin: 10px 0px;} #ygrp-mkp #ads{ margin-bottom: 10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#ff; text-decoration: none;} -- !-- #ygrp-sponsor #ygrp-lc{ font-family: Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight: bold;font- size:78%; line-height: 122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom: 10px;padding: 0 0;} -- !-- #ygrp-mlmsg {font-size:13px; font-family: arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit; font:100% ;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height: 1.22em;} #ygrp-text{ font-family: Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family: Arial; clear:both;} #ygrp-vitnav{ padding-top: 10px;font- family:Verdana; font-size: 77%;margin: 0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin: 25px 0;white-space: nowrap;color: #666;text- align:right; } #ygrp-actbar .left{ float:left;white- space:nowrap; } .bld{font-weight: bold;} #ygrp-grft{ font-family: Verdana;font- size:77%; padding:15px 0;} #ygrp-ft{ font-family: verdana;font- size:77%; border-top: 1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom: 10px;} #ygrp-vital{ background-color: #e0ecee;margin- bottom:20px; padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77% ;font-family: Verdana;font- weight:bold; color:#333; text-transform: uppercase
[delphi-br] OFF Topic - Borland Together
Bom dia PessoALL, Estou fazendo um levantamento para adquirir uma ferramenta case e em cima das pesquisas encontrei esta da Borland. Gostaria de saber se alguém aqui utiliza e quais são os valores de licença e é claro... se tiver alguma reclamação. Grato pela atenção. Att. Wilian Domingues Analista de Sistemas Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda Thread
Bom dia PessoALL, Tenho uma Thread que auxilia na geração de gráficos. Quando executo esta thread o gráfico é apresentado no mesmo formulário. Por questões de qualidade na visualização do gráfico, modifiquei a minha aplicação para que o gráfico seja exibido em outro formulário, é aí que está o meu problema. Durante a execução, quando realizo o create do formulário que o gráfico será exibido, o meu programa trava e não funciona nada. Alguém poderia me dar umas dicas, sobre como trabalhar com thread com formulário diferentes. Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Trabalhando com Array em Procedure/Function
Bom dia PessoALL, Gostaria de saber se é possível passar como parâmetro para uma procedure/function um array. Por exemplo, numa aplicação onde vários registros são inseridos/atualizados de uma vez, gostaria de saber se poderia enviar um array como parâmetro para uma procedure/function, evitando chamar procedure/function para cada registro, desta forma manipulando o array dentro da procedure/function. Agradeço pela ajuda. Att. Wilian Domingues __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Gráfico no delphi 7
Existe o componente DBChart(Data Controls) É muito tranqüilo de utilizar. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: ca_programador007 [EMAIL PROTECTED] Para: delphi-br delphi-br@yahoogrupos.com.br Enviadas: Domingo, 25 de Fevereiro de 2007 21:39:46 Assunto: [delphi-br] Gráfico no delphi 7 Olá pessoal, Estou querendo montar um gráfico com os resultados de uma consulta. Por exemplo: Vou trazer um produto ou mais produtos mais vendidos.. independente se vou trazer as linhas ou vou colocar um count pra contar quero gerar um gráfico através desse produto Adicionando um componente TChart para montar um gráfico, como eu vinculo essa consulta para me gerar o gráfico? Desculpe a ignorancia.. alguém pode me ajudar num passo-a-passo? Valeu ca_programador007 _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mestre/Detalhe - ClientDataSet x IBDataSet
Bom dia PessoALL, Estou fazendo um relatório mestre detalhe, utilizando um IBDataSet como mestre e o ClientDataSet como detalhe. A situação é o seguinte: Eu tenho um procedimento que preenche os dados dentro do meu ClienteDataSet. O executar o relatório, para cada Mestre o clientdataset está trazendo todos os dados, qdo que deveria trazer somente os detalhes referentes ao mestre. Tipo Mestre: 1 Detalhes: 1,2,3 Mestre: 2 Detalhes: 1,2,3 Visto que o resultado esperado seria: Mestre: 1 Detalhes: 1,2 Mestre: 2 Detalhes: 3 No meu clientdataset eu tenho um ID que é igual ao ID do mestre, uso este campo como o parâmetro... alguém poderia me auxiliar??? Não posso usar no mesmo relatório dois IBDataSet.. Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: Fwd: [delphi-br] Acentução - Delphi + Mys ql 4.1 + Zeos 6.5.1 - Parte II
Eduardo, Primeiramenteo obrigado pela contribuição e mais um pequeno esclarecimento: Qdo alimentei a minha tabela com os dados, foi via console do Mysql. Nas linhas de inserção, as palavras estão acentuadas corretamente, ao realizar uma consulta na console do Mysql os registros são apresentados com os acentos corretos no banco. Qdo faço esta consulta através do Delphi, os acentos só veêm corretos, qdo a opção doOemTranslate está ativada. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: [EMAIL PROTECTED] Enviadas: Quarta-feira, 17 de Janeiro de 2007 12:41:04 Assunto: Fwd: [delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Parte II -- Forwarded message -- From: Eduardo Silva dos Santos [EMAIL PROTECTED] Date: 17/01/2007 11:30 Subject: Re: [delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Parte II To: delphi-br@yahoogrupos.com.br Willian, fiz um pequeno aplicativo que vai corrigir esse problema, isso acontece porque os dados foram inseridos no banco por uma querie com a opção doOEMTranslate ativada, dai os acentos são convertidos e inseridos no banco de forma Þ diferente, ao buscar via select, não são reconhecidos. a aplicação faz isso, abre a tabela, converte os acentos e insere os dados em outra tabela. ta la no meu site www.drdsistemas.com/util/oem_zeos.zip qualquer duvida estamos ae.. grande abraço. -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ Em 16/01/07, Wilian Domingues - Analista de [EMAIL PROTECTED] escreveu: Para não colocar muitas colunas... Pode usar uma simples estrutura de tabela, sendo: idEntidade int nmEntidade varchar(100) Minha busca sempre será pelo nome, com isso os outros campos não são importantes. Segue em anexo o script com a estrutura da tabela e os inserts. Grato pela ajuda. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 15 de Janeiro de 2007 18:08:07 Assunto: Re: [delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Parte II Oi Wilian, eu novamente, quando enviei o e-mail a ideia era desabilitar o doOEMTranslate, se os dados so estão vindo corretamento com ele habilitado significa que foram inseridos na tabela com ele habilitado tb, por isso sua busca fica assim, sem buscar com os acentos. tenho uma ideia de como resolver mas não sei se vai dar certo, será que você pode gerar o script de uma dessas tabelas e me enviar pra eu fazer um teste? fico no aguardo. Em 15/01/07, Wilian Domingues - Analista de [EMAIL PROTECTED] escreveu: Bom dia PessoALL, Tenho uma aplicação desenvolvida em Delphi + Mysql 4.1 + Zeos 6.5.1 Recentemente passei por um problema de acentuação, problema este, resolvido com a ajuda do Eduardo. A sua dica foi habilitar a opção do componente ZQuery: Options - doOemTranslate. Ao Habilitar, os dados do BD são carregados com os acentos corretos. Só que o meu problema está em cima disso. Quando vou realizar uma consulta com uma palavra acentuada não é localizado nada, estando a opção acima habilitada. Se eu desabilitar esta opção e trazer os dados com os caracteres malucos, ao realizar a consulta com as palavras acentuadas o resultado é feito com sucesso. Para realizar está consulta, eu carrego os dados em um combobox, seleciono um dos itens e mando localizar, assim o paramâtro da busca é exatamente a informação que está no BD. Exemplo: tabela FUNC ZQuery.SQL.Text := 'select * from func where nmfunc = :nmfunc'; O parâmetro nmfunc recebe o valor do COMBOBOX. Jos EstevÆo Braga - Sendo o parâmtro desta forma funciona José Estevão Braga - assim não funciona Já testei a consulta com doOemTranslate habilitado e desabilitado de ZQuery, mesmo assim o resultado é nulo qdo localizo com os acentos corretos. Alguém já passou por isso? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ -- create table entidades( identidade int not null auto_increment, nmentidade varchar(100), primary key (identidade) ); insert into entidades(nmentidade) values(SME); insert into entidades(nmentidade) values(Casa do
Res: [delphi-br] Acentução - Delphi + Mysql 4. 1 + Zeos 6.5.1 - Parte II
Para não colocar muitas colunas... Pode usar uma simples estrutura de tabela, sendo: idEntidade int nmEntidade varchar(100) Minha busca sempre será pelo nome, com isso os outros campos não são importantes. Segue em anexo o script com a estrutura da tabela e os inserts. Grato pela ajuda. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 15 de Janeiro de 2007 18:08:07 Assunto: Re: [delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Parte II Oi Wilian, eu novamente, quando enviei o e-mail a ideia era desabilitar o doOEMTranslate, se os dados so estão vindo corretamento com ele habilitado significa que foram inseridos na tabela com ele habilitado tb, por isso sua busca fica assim, sem buscar com os acentos. tenho uma ideia de como resolver mas não sei se vai dar certo, será que você pode gerar o script de uma dessas tabelas e me enviar pra eu fazer um teste? fico no aguardo. Em 15/01/07, Wilian Domingues - Analista de [EMAIL PROTECTED] escreveu: Bom dia PessoALL, Tenho uma aplicação desenvolvida em Delphi + Mysql 4.1 + Zeos 6.5.1 Recentemente passei por um problema de acentuação, problema este, resolvido com a ajuda do Eduardo. A sua dica foi habilitar a opção do componente ZQuery: Options - doOemTranslate. Ao Habilitar, os dados do BD são carregados com os acentos corretos. Só que o meu problema está em cima disso. Quando vou realizar uma consulta com uma palavra acentuada não é localizado nada, estando a opção acima habilitada. Se eu desabilitar esta opção e trazer os dados com os caracteres malucos, ao realizar a consulta com as palavras acentuadas o resultado é feito com sucesso. Para realizar está consulta, eu carrego os dados em um combobox, seleciono um dos itens e mando localizar, assim o paramâtro da busca é exatamente a informação que está no BD. Exemplo: tabela FUNC ZQuery.SQL.Text := 'select * from func where nmfunc = :nmfunc'; O parâmetro nmfunc recebe o valor do COMBOBOX. Jos EstevÆo Braga - Sendo o parâmtro desta forma funciona José Estevão Braga - assim não funciona Já testei a consulta com doOemTranslate habilitado e desabilitado de ZQuery, mesmo assim o resultado é nulo qdo localizo com os acentos corretos. Alguém já passou por isso? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ -- create table entidades( identidade int not null auto_increment, nmentidade varchar(100), primary key (identidade) ); insert into entidades(nmentidade) values(SME); insert into entidades(nmentidade) values(Casa do Professor); insert into entidades(nmentidade) values(Biblioteca P£blica); insert into entidades(nmentidade) values(E.M. Alfredo Bata); insert into entidades(nmentidade) values(E.M. Aleijadinho); insert into entidades(nmentidade) values(E.M. Ana Pereira de Lima); insert into entidades(nmentidade) values(E.M. Benedito Xavier); insert into entidades(nmentidade) values(E.M. Domingos Fleury da Rocha); insert into entidades(nmentidade) values(E.M. Dr. Alves de Brito); insert into entidades(nmentidade) values(E.M. Dr. Pedrosa); insert into entidades(nmentidade) values(E.M. Francisco de Araujo Silva); insert into entidades(nmentidade) values(E.M. Inacio de Souza); insert into entidades(nmentidade) values(E.M. Izaura Mendes); insert into entidades(nmentidade) values(E.M. Jos EstevÆo Braga); insert into entidades(nmentidade) values(E.M. Jos Sales Andrade); insert into entidades(nmentidade) values(E.M. Lavras Novas); insert into entidades(nmentidade) values(E.M. Major Raimundo Felic¡ssimo); insert into entidades(nmentidade) values(E.M. Monsenhor JoÆo Castilho Barbosa); insert into entidades(nmentidade) values(E.M. Monsenhor Rafael); insert into entidades(nmentidade) values(E.M. Nossa Senhora das Graas); insert into entidades(nmentidade) values(E.M. Padre Carmlo A. Teixera); insert into entidades(nmentidade) values(E.M. Padre Martins); insert into entidades(nmentidade) values(E.M. Professora Ana GuimarÆes); insert into entidades(nmentidade) values(E.M. Professora Celina Cruz); insert into entidades(nmentidade) values(E.M. Professora Efignia Meira); insert into entidades(nmentidade) values(E.M. Professora Hayde Antunes CAIC); insert into entidades(nmentidade) values(E.M
[delphi-br] Acentução - Delphi + Mysql 4.1 + Zeos 6.5.1 - Pa rte II
Bom dia PessoALL, Tenho uma aplicação desenvolvida em Delphi + Mysql 4.1 + Zeos 6.5.1 Recentemente passei por um problema de acentuação, problema este, resolvido com a ajuda do Eduardo. A sua dica foi habilitar a opção do componente ZQuery: Options - doOemTranslate. Ao Habilitar, os dados do BD são carregados com os acentos corretos. Só que o meu problema está em cima disso. Quando vou realizar uma consulta com uma palavra acentuada não é localizado nada, estando a opção acima habilitada. Se eu desabilitar esta opção e trazer os dados com os caracteres malucos, ao realizar a consulta com as palavras acentuadas o resultado é feito com sucesso. Para realizar está consulta, eu carrego os dados em um combobox, seleciono um dos itens e mando localizar, assim o paramâtro da busca é exatamente a informação que está no BD. Exemplo: tabela FUNC ZQuery.SQL.Text := 'select * from func where nmfunc = :nmfunc'; O parâmetro nmfunc recebe o valor do COMBOBOX. Jos EstevÆo Braga - Sendo o parâmtro desta forma funciona José Estevão Braga - assim não funciona Já testei a consulta com doOemTranslate habilitado e desabilitado de ZQuery, mesmo assim o resultado é nulo qdo localizo com os acentos corretos. Alguém já passou por isso? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Acentuação - Delphi + Mysql 4.1 + Zeos
Bom dia PessoALL, Resolvi cirar este tópico... pq tentei todas as soluções nos tópicos existentes e não funcionaram. Meu problema é o seguinte: Quando eu insiro uma palavra com acentuação na aplicação ( delphi ) com acentos... no DB ( mysql ) fica tudo trocado, e qdo insiro diretamente no banco, na aplicação fica toda trocada. Ja tentei: utf8, latin1 no default character No collate, já tentei latin1_general_ci e latin1_swedish_ci, não obtive sucesso. Coloquei tanto esta configurações para o BD e para a configuração de conexão do componete ( zeos ) Já rodei o comando: alter table 'tabela' default character set latin1 default collate latin1_general_ci, alter table 'tabela' default character set latin1 default collate latin1_swedish_ci E tbm não funcionou. Alguém se habilita?? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Acentuação - BD + Zeos + Delphi
Bom dia PessoALL, Meu problema é o seguinte: Quando eu insiro uma palavra com acentuação na aplicação ( delphi ) com acentos... no DB ( mysql ) fica tudo trocado, e qdo insiro diretamente no banco, na aplicação fica toda trocada. Ja tentei: utf8, latin1 no default character No collate, já tentei latin1_general_ci e latin1_swedish_ci, não obtive sucesso. Coloquei tanto esta configurações para o BD e para a configuração de conexão do componete ( zeos ) Já rodei o comando: alter table 'tabela' default character set latin1 default collate latin1_general_ci, alter table 'tabela' default character set latin1 default collate latin1_swedish_ci E tbm não funcionou. Alguém se habilita?? Att. Wilian Domingues Analista de Sistemas __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Acentuação - Delphi + Mysql 4 .1 + Zeos
Eduardo VC É O CARA! Essa dica: Option a opção doOEMtranslate Resolveu o meu problema. Vlw mesmo. A versão do Zeos é 6.5.1 Mais uma vez... vlw pela força. Att. Wilian Domingues Analista de Sistemas - Mensagem original De: Eduardo Silva dos Santos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 12 de Janeiro de 2007 9:55:09 Assunto: Re: [delphi-br] Acentuação - Delphi + Mysql 4.1 + Zeos use o Collate latin1_swedish_ ci que vai resolver, aqui eu uso e rodo normal. no componente ZQuery veja em Option a opção doOEMtranslate. .. pode ser isso. qual a versão do Zeos? Em 12/01/07, Wilian Domingues - Analista de w1l14n_analista@ yahoo.com. br escreveu: Bom dia PessoALL, Resolvi cirar este tópico... pq tentei todas as soluções nos tópicos existentes e não funcionaram. Meu problema é o seguinte: Quando eu insiro uma palavra com acentuação na aplicação ( delphi ) com acentos... no DB ( mysql ) fica tudo trocado, e qdo insiro diretamente no banco, na aplicação fica toda trocada. Ja tentei: utf8, latin1 no default character No collate, já tentei latin1_general_ ci e latin1_swedish_ ci, não obtive sucesso. Coloquei tanto esta configurações para o BD e para a configuração de conexão do componete ( zeos ) Já rodei o comando: alter table 'tabela' default character set latin1 default collate latin1_general_ ci, alter table 'tabela' default character set latin1 default collate latin1_swedish_ ci E tbm não funcionou. Alguém se habilita?? Att. Wilian Domingues Analista de Sistemas _ _ _ _ __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ gmail.com Site: http://www.drdsiste mas.com/ [As partes desta mensagem que não continham texto foram removidas] !-- #ygrp-mlmsg {font-size:13px;font-family:arial,helvetica,clean,sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial,helvetica,clean,sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0; } #ygrp-tpmsgs{ font-family:Arial; clear:both; } #ygrp-vitnav{ padding-top:10px; font-family:Verdana; font-size:77%; margin:0; } #ygrp-vitnav a{ padding:0 1px; } #ygrp-actbar{ clear:both; margin:25px 0; white-space:nowrap; color:#666; text-align:right; } #ygrp-actbar .left{ float:left; white-space:nowrap; } .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana; font-size:77%; padding:15px 0; } #ygrp-ft{ font-family:verdana; font-size:77%; border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px; } #ygrp-vital{ background-color:#e0ecee; margin-bottom:20px; padding:2px 0 8px 8px; } #ygrp-vital #vithd{ font-size:77%; font-family:Verdana; font-weight:bold; color:#333; text-transform:uppercase; } #ygrp-vital ul{ padding:0; margin:2px 0; } #ygrp-vital ul li{ list-style-type:none; clear:both; border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold; color:#ff7900; float:right; width:2em; text-align:right; padding-right:.5em; } #ygrp-vital ul li .cat{ font-weight:bold; } #ygrp-vital a { text-decoration:none; } #ygrp-vital a:hover{ text-decoration:underline; } #ygrp-sponsor #hd{ color:#999; font-size:77%; } #ygrp-sponsor #ov{ padding:6px 13px; background-color:#e0ecee; margin-bottom:20px; } #ygrp-sponsor #ov ul{ padding:0 0 0 8px; margin:0; } #ygrp-sponsor #ov li{ list-style-type:square; padding:6px 0; font-size:77%; } #ygrp-sponsor #ov li a{ text-decoration:none; font-size:130%; } #ygrp-sponsor #nc { background-color:#eee; margin-bottom:20px; padding:0 8px; } #ygrp-sponsor .ad{ padding:8px 0; } #ygrp-sponsor .ad #hd1{ font-family:Arial; font-weight:bold; color:#628c2a; font-size:100%; line-height:122%; } #ygrp-sponsor .ad a{ text-decoration:none; } #ygrp-sponsor .ad a:hover{ text-decoration:underline; } #ygrp-sponsor .ad p{ margin:0; } o {font-size:0;} .MsoNormal { margin:0 0 0 0; } #ygrp-text tt{ font-size:120%; } blockquote{margin:0 0 0 4px;} .replbq {margin:4;} -- __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida QuickReport
Boa Tarde PessoALL, Estou precisando de uma ajudinha. Seguinte, quando vou exportar um relatório para PDF, depois que informo o nome e mando gravar o arquivo, aparece a seguinte tela, disponível neste link: http://img134.imageshack.us/img134/2743/quickrepxu7.jpg Bom, queria que quando o usuário clicasse em cancelar fosse exibida uma mensagem de relatório cancelado. Alguém tem alguma dica??? O código esta desta forma: if SDlgPDF.Execute then begin QuickRep1.Prepare; QuickRep1.ExportToFilter(TQRPDFDocumentFilter.Create(SDlgPDF.FileName)); end Já tentei Quickrep.Cancelled e não funcionou. Eu uso o componente TQRPDFDocumentFilter da unit: QRPDFFilt. Também uso o Quick Report Pro 3.6.2. Att. Wilian Domingues Analista de Sistemas ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida QuickReport - SubDetail
Boa Tarde PessoALL, Estou desenvolvendo um relatorio com 3 Query, usando mestre detalhe. Sendo: Query 1 - Mestre Query 2 - Detalhe Query 3 - Detalhe Gostaria de Organizar da seguinte maneira o meu relatorio: | Janeiro(Campo da Query 1) | | Ligacoes(Campor da Query 2) | Serviços(Campor da Query 3) | Os campos ligacoes e servicos esta no mesmo SubDetail, só que eu tenho q ligar o SubDetail a uma Query. Gostaria de saber como faço para organizar um Subdetail ao lado do outro, como colunas. Senao for possivel, como faço esta formatação com apenas 1 subdetail e duas querys. Usando dois subdetails eu consigo formatar o relatorio corretamente, só que não quero as informações fiquem separadas e sim ao lado. Grato. Wilian Domingues - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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] 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
[delphi-br] Mestre Detalhe
Bom tarde PessoALL, Tenho que fazer um relatorio no QuickReport com uma tabela mestre e duas detalhes, as conexões eu já fiz. Gostaria de saber como faço para configurar os cabelhos. Para ficar da forma demonstrada abaixo. -- Secretaria: BLABLA Telefone: 31313131313 -- Departamento: LALALA SASASA -- Funcionarios: Joao Mario Joaquim A tabela mestre é SECRETARIA e as detalhes são: DEPARTAMENTO e FUNCIONARIOS. Não estou conseguindo configurar o cabeçalho de visualização das tabelas detalhes. Com apenas 1 tabela nao tive dificuldade... só q com duas... nao estou conseguindo fazer. Grato pela ajuda. Wilian - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [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] 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
[delphi-br] Dúvidas Consulta SQL
Boa Tarde PessoALL, Estou com dificuldades em uma consulta e vou tentar explicar para vcs a minha situação: A minha consulta é a seguinte, quero consultar as secretarias, somando as colunas vlr_chamada e vlr_servico, sendo que na coluna vlr_chamada está na tabela chamada e a coluna vlr_servico esta na tabela serviço. Com isso eu posso ter um número maior de chamadas do que serviços e vice-versa. Um exemplo, com um número maior de chamadas do que serviços: | secretaria | vlr_chamada | vlr_servico | |1 | 5,50 | 10,00| |1 | 0,50 | | No exemplo que eu colequei acima, tenho a situação de ter mais chamadas do que serviços, só que com a minha consulta quando eu a realizo, se o número de serviços é menor do que chamadas, ele repete o valor do serviço para as linhas a mais de chamada, ficando assim: | secretaria | vlr_chamada | vlr_servico | |1 | 5,50 | 10,00| |1 | 0,50 | 10,00* | * Valor repetido. Só que neste caso o segundo valor de serviço não existe, alterando desta forma o resultado da consulta quando eu mando somar os valores de serviços e chamadas. Na situação que eu tenho agora, o resultado da somas ficaria assim: - secretaria: 1 - vlr_chamada: 6,00 - vlr_servico: 20,00 Sendo que o resultado correto seria: - secretaria: 1 - vlr_chamada: 6,00 - vlr_servico: 10,00 Estou pedindo ajuda para vcs... pq ja tentei todos os meios que eu conheço, caso tenham tempo para me ajudar ficaria muito grato. Wilian Domingues. __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [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] 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