Re: [delphi-br] InstantObject, Infra, Press, Bold e etc... e agora?
Olá João, bom depois de explanação - muito bem dada por sinal - irei sim rever todos os projetos...consegui a última versão do IO, e baixei os outros... vou começar a brincar com eles, e qualquer coisa volto à lista pra dizer minha experiência. []s 2008/6/12 Joao Morais [EMAIL PROTECTED]: Fellipe Henrique wrote: Olá João, Seguinte, me falaram muito mal do IO, e além dele estar descontinuado, pesa na hora de fazer algo oficial com ele, e já me falaram (não sei se foi você :o)) que ele é muito lento também. Não posso dizer quanto a isso, pois ainda não consegui fazer nada em nenhum deles, a não ser o IO. Tentei achar na internet sobre esses frameworks, e não vi ninguém usando ele, deduzi o seguinte: ou tem muita gente usando, e não fala ou comenta. Ou realmente programação OO deste tipo não é usada ou não é boa para com Delphi. Eu diria que é por comodidade. A maioria dos desenvolvedores Delphi está habituado com arrasto de componente, e nisso inclui projetos fáceis de aprender e usar. IO por exemplo é muito fácil, até o momento que você precisa de algo peculiar. Daí você tem que aprender um pouco mais sobre o framework e sobre oo, e boa parte dos programadores Delphi não têm paciência pra isso. Pessoas como o Marcos, Cesar, Peter, Grahame, Nando e eu somos exceções. Todos aqueles que sentem falta de mapeamento OR e um pouco mais de orientação a objetos em pascal acabam trocando de time e partem para Java ou alguma ferramenta da moda. Como eu sou meio teimoso, preferi escrever minhas próprias classes do que esperar que alguém fizesse algo da forma que eu gostasse. E como tenho um caso extra conjugal com pascal... Quanto aos problemas do IO tem um pouco de exageiro nessa história. Falar mal é fácil, dizer que é pesado é relativo. Na verdade ele é bem leve, mal possui 40 mil linhas de código. No entanto você pode acreditar em 3 coisas sobre ele quando te falarem: 1. é difícil de aproveitar base legada -- ele precisa de alguns campos de controle que não tem como tirar; 2. a persistência dele não é bem polida -- ou você usa containeres embedded ou você tem certa lentidão em modelos com algum grau de complexidade; 3. apresentação apenas via dbware -- ou seja, um raio de um tdatasource e outro raio de tinstantexposer ou selector para cada relacionamento (o que não é novidade pra quem vem do tdataset). Por outro lado você tem uma grande vantagem com ele: eu sou um dos mantenedores do projeto, se você encontrar um bug e conseguir criar um projeto que reproduza o problema, eu removo esse bug em algumas horas e atualizo o repositório -- o que mostra que ele está meio parado mas não está morto. O que quero na realidade, é algo que eu não precise ficar procurando erros, debungando, descrobrindo se usou o OnExit ou OnValidate pra validar algum campo, entende onde quero chegar? Queria algo mais forte, no sentido de priorizar as mudanças e facilitar elas, mesmo que não seja tão produtivo quanto ao DataSet, mas que quando um cliente pedir uma coisa, eu não ficar igual doido procurando onde tem amarrações e rezar pra não mudar algo que vá atrapalhar algo em outro lugar. Entendo, você quer exatamente o que a orientação a objetos propõe. Saiba que isto tem um preço a ser pago: abrir mão do que você conhece como tdataset, e uma curva de aprendizado relevante. A propósito olha a sua contradição: você quer algo mais produtivo do que tdataset, mesmo que não seja tão produtivo quanto tdataset. Vale destacar o fato de que um sdk possuir um expert não o torna nem melhor nem mais fácil de usar. A produtividade real virá com o fato de você conhecer como o produto funciona, bem como o produto ser flexível suficiente para conseguir concretizar os seus projetos, e não com o fato do produto escrever algumas classes por você. E então comece escolhendo por eliminação. Como eu havia colocado antes, ninguém além de você, e talvez mais algum colaborador que trabalhe junto, poderá decidir o que é melhor. Isso é opinião pessoal, e elas são tão divergentes quanto a quantidade de opções que existem. Eu posso tirar suas dúvidas em IO e Press, estou certo de que o Marcos e o Cesar poderão te ajudar com Infra e Jazz respectivamente. Bold eu conheço lhufas, e talvez o Marcos ou o Cesar conheçam tiOPF suficiente para fazer alguns comentários também, mas suporte pra valer que eu saiba, só em inglês. Risque alguns, tire alguns dias para testar outros. Isso não é tão difícil, diga-se de passagem é até bem divertido. Depois não esqueça de contar para a lista como foi a experiência. -- Joao Morais -- _ T.·.F.·.A.·. Fellipe Henrique [EMAIL PROTECTED] Sou a favor da lei LEI 607/2007 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Edit
Olha pessoal ! Imaginem uma tela com 15 campos Edit (edit1, edit2, edit3...edit15). O problema é o seguinte: Como eu posso, por exemplo, colocar edit.enable:=false nos edit´s de 5 até 14 sem ter que fozer um por um ? Daria para fazer através de um loop ? Abraços, Ricardo Cabral Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/
Re: [delphi-br] Edit
Eu faria assim.. Colocaria na propiedde TAG=1 dos edit's que queira alterar... depois usava a Seguinte procedure.. procedure ADEdits ( Ativa : Boolean ); var x:Integer; begin for x:= 0 to componentCount - 1 do if Components[x] is Tedit then if TEdit(Components[x]).tag = 1 then Tedit(Coponents[x]).enabled:= Ativa; end; Wesley From: Ricardo Cabral Sent: Friday, June 13, 2008 8:27 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Edit Olha pessoal ! Imaginem uma tela com 15 campos Edit (edit1, edit2, edit3...edit15). O problema é o seguinte: Como eu posso, por exemplo, colocar edit.enable:=false nos edit´s de 5 até 14 sem ter que fozer um por um ? Daria para fazer através de um loop ? Abraços, Ricardo Cabral Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ __ Information from ESET NOD32 Antivirus, version of virus signature database 3183 (20080613) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Edit
Sim, for i:=5 to 14 do begin TEdit(FindComponent('edit'+IntToStr(i))).Enabled:=False; end; Até mais, Renan Serrano. Ricardo Cabral escreveu: Olha pessoal ! Imaginem uma tela com 15 campos Edit (edit1, edit2, edit3...edit15). O problema é o seguinte: Como eu posso, por exemplo, colocar edit.enable:=false nos edit´s de 5 até 14 sem ter que fozer um por um ? Daria para fazer através de um loop ? Abraços, Ricardo Cabral
[OT] Re: [delphi-br] InstantObject, Infra, Press, Bold e etc... e agora?
Só para tirar minha dúvida, o João Morais que está aqui é o mesmo da Lista [EMAIL PROTECTED]? Robson (Onjahyr) Joao Morais escreveu: Fellipe Henrique wrote: Olá João, ...
Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] davi.wall%40mult.com.br Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [OT] Re: [delphi-br] InstantObject, Infra, Press, Bold e etc... e agora?
Onjahyr - GMAIL wrote: Só para tirar minha dúvida, o João Morais que está aqui é o mesmo da Lista [EMAIL PROTECTED]? Mundo pequeno hein, Robson. E que saudade dos bons tempos dos fóruns da Info. Joao Morais Joao Morais escreveu: Fellipe Henrique wrote: Olá João, ...
[delphi-br] [OFF-Topic]-Salário
E ae galera... to meio q fazendo uma pesquisa, moro em porto alegre.. Álguem sabe mais ou menos a média de salário de um programador com experiência de 5 anos mais ou menos? Tipo, eu programo a bastante tempo, em Delphi e PHP, não me considero um programador Senior, mas pra master eu sirvo... Enfim...acho q é um bom tópico pra discutirmos.. Abraço a todos Alan
[delphi-br] Word
Lista Procurei mas não achei preciso abrir um documento do Word somente para visualização no meu formulário.. O Documento tem tabelas e td mais... alguem sabe como posso fazer... achei algo sobre o OLEContainer... mas ele ñ mostra o documento inteiro ... apenas a primeira pagina... Vlw... Wesley [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] select com case
'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+'' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ADT FROM FORNECE '; Galera, estou executando este sql Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com 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] delphiXunion
existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8), null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8), null, '4' union select left(conta,5), null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5), null, '3' union select left(conta,2), null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2), null, '2' union select left(conta,1), null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1), null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] delphiXunion
Estranho, eu tenho vários selects que tem mais de 2 unions. Lembrando que as colunas de TODOS os selects devem ter o mesmo nome. Me parece que o seu select há difença já do primeiro para o segundo. Quando você usar uma função, exemplo left(), lembre-se de renomear a columa para um nome igual ao do primeiro select, neste caso Conta. Luciano Calenzani Simões - Mensagem original De: Ioney Hotmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:32:31 Assunto: [delphi-br] delphiXunion existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8) , null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8) , null, '4' union select left(conta,5) , null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5) , null, '3' union select left(conta,2) , null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2) , null, '2' union select left(conta,1) , null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1) , null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS 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]
Re: [delphi-br] delphiXunion
Claro que aceita ! Eu já fiz querys com mais de 8 unions... []s - Original Message - From: Ioney Hotmail To: delphi-br@yahoogrupos.com.br Sent: Friday, June 13, 2008 10:32 AM Subject: [delphi-br] delphiXunion existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8), null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8), null, '4' union select left(conta,5), null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5), null, '3' union select left(conta,2), null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2), null, '2' union select left(conta,1), null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1), null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG. Version: 8.0.100 / Virus Database: 270.3.0/1501 - Release Date: 13/6/2008 06:33 [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] select com case
Tá, e daí? Qual é o problema? Luciano Calenzani Simões - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:38:03 Assunto: [delphi-br] select com case 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ ADT FROM FORNECE '; Galera, estou executando este sql 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] Re: select com case
--- Em delphi-br@yahoogrupos.com.br, Berdam [EMAIL PROTECTED] escreveu 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+'' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ADT FROM FORNECE '; Galera, estou executando este sql Mas, qual o problema.? Se te ajudar faça assim case when (Tipo = ' + #39 + 'J'+ #39 + ') then ' + #39 + 'Juridica' + #39 else '+ #39 + 'Fisica'+ #39 + ' end as tipox; Zucchi Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com 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]
Re: [delphi-br] delphiXunion
Eu tenho vários usando dbx e sql server em d2007 e d7, com ibx em d6 e interbase/firebird 1(estes bem antigos, heh) e zeos e postgres com d2007. Este SQL é executado corretamente no seu SGDB? 2008/6/13 Luciano Calenzani Simões [EMAIL PROTECTED]: Estranho, eu tenho vários selects que tem mais de 2 unions. Lembrando que as colunas de TODOS os selects devem ter o mesmo nome. Me parece que o seu select há difença já do primeiro para o segundo. Quando você usar uma função, exemplo left(), lembre-se de renomear a columa para um nome igual ao do primeiro select, neste caso Conta. Luciano Calenzani Simões - Mensagem original De: Ioney Hotmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:32:31 Assunto: [delphi-br] delphiXunion existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8) , null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8) , null, '4' union select left(conta,5) , null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5) , null, '3' union select left(conta,2) , null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2) , null, '2' union select left(conta,1) , null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1) , null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS 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] -- Abs Daniel A. Bastos
Res: Res: [delphi-br] select com case
Cara, esse teu case está meio doidão. A sintaxe correta dele seria: CASE tipo WHEN 'J' THEN 'Juridica' WHEN 'F' THEN 'Fisica' END AS tipo Sem esse monte de + e aspas. Luciano Calenzani Simões - Mensagem original De: Luciano Calenzani Simões [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:56:08 Assunto: Res: [delphi-br] select com case Tá, e daí? Qual é o problema? Luciano Calenzani Simões - Mensagem original De: Berdam berdamzinho@ yahoo.com. br Para: Delphi [EMAIL PROTECTED] os.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:38:03 Assunto: [delphi-br] select com case 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ ADT FROM FORNECE '; Galera, estou executando este sql 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]
RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi
Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
RE: Res: Res: [delphi-br] select com case
De fato, está maluco mesmo! Mas o cara só fez postar o SQL e num disse exatamente qual é o problema. Adivinhar por osmose é meio flórida, né não? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 13 Jun 2008 07:02:56 -0700 Subject: Res: Res: [delphi-br] select com case Cara, esse teu case está meio doidão. A sintaxe correta dele seria: CASE tipo WHEN 'J' THEN 'Juridica' WHEN 'F' THEN 'Fisica' END AS tipo Sem esse monte de + e aspas. Luciano Calenzani Simões - Mensagem original De: Luciano Calenzani Simões [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:56:08 Assunto: Res: [delphi-br] select com case Tá, e daí? Qual é o problema? Luciano Calenzani Simões - Mensagem original De: Berdam Para: Delphi Enviadas: Sexta-feira, 13 de Junho de 2008 10:38:03 Assunto: [delphi-br] select com case 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ ADT FROM FORNECE '; Galera, estou executando este sql _ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack
RE: [delphi-br] delphiXunion
Duas coisas: 1) Daniel A. Bastos, quem tem que aceitar UNIONS não é o Delphi, e sim o mecanismo SQL do SGBD que vc está utilizando! 2) UNION só funcionará se, e somente se, vc definir os SELECTs envolvidos no UNION com o mesmo número de campos em cada SELECT, e os tipos de dados de todas as colunas serem idênticos! Essa é a regra pra usar UNION! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 13 Jun 2008 10:59:47 -0300 Subject: Re: [delphi-br] delphiXunion Eu tenho vários usando dbx e sql server em d2007 e d7, com ibx em d6 e interbase/firebird 1(estes bem antigos, heh) e zeos e postgres com d2007. Este SQL é executado corretamente no seu SGDB? 2008/6/13 Luciano Calenzani Simões [EMAIL PROTECTED]: Estranho, eu tenho vários selects que tem mais de 2 unions. Lembrando que as colunas de TODOS os selects devem ter o mesmo nome. Me parece que o seu select há difença já do primeiro para o segundo. Quando você usar uma função, exemplo left(), lembre-se de renomear a columa para um nome igual ao do primeiro select, neste caso Conta. Luciano Calenzani Simões - Mensagem original De: Ioney Hotmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:32:31 Assunto: [delphi-br] delphiXunion existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8) , null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8) , null, '4' union select left(conta,5) , null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5) , null, '3' union select left(conta,2) , null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2) , null, '2' union select left(conta,1) , null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1) , null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ -- Abs Daniel A. Bastos _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] urgente - sobre componentes para gerar relatorios
Que eu saiba, por padrão não existe. Mas é relativamente fácil de implementar baseado na maioria dos geradores de relatórios disponíveis no mercado. Já fiz isso em Fortes e Report Builder. 2008/6/12 Leonardo Baldino [EMAIL PROTECTED]: por acaso alguem conhece algum componente que eu possa usar para criar um relatorio sem que eu tenha que criar o layout do relatorio, eu quero dizer que eu estou procurando um componente em que eu só precise criar o select que vai trazer as informações e campos do relatorio sem ter que criar o layout. Po acaso alguem conhece um componente que possa fazer isso. -- Leonardo Carlos Baldino - The Highlander [As partes desta mensagem que não continham texto foram removidas] -- Abs Daniel A. Bastos
[delphi-br] Colocar ip em placa wireless
Alguem sabe como adicionar IP .. mascara .. gateway .. dns pelo delphi7 ... em uma placa wireless 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] Re: select com case
Vc esta fazendo este sql direto no Delphi ou Banco msm ? - Mensagem original De: lidio.zucchi [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:59:20 Assunto: [delphi-br] Re: select com case --- Em [EMAIL PROTECTED] os.com.br, Berdam berdamzinho@ ... escreveu 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ ADT FROM FORNECE '; Galera, estou executando este sql Mas, qual o problema .? Se te ajudar faça assim case when (Tipo = ' + #39 + 'J'+ #39 + ') then ' + #39 + 'Juridica' + #39 else '+ #39 + 'Fisica'+ #39 + ' end as tipox; Zucchi - - - - - - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com - - - - - - 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] 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] URGENTE: Registrar DLL pelo delphi
Aí! 500 pila a solução pronta. Aproveita que hoje estou generoso! Pode depositar nessa conta HSBC - 018-112888-8 function TFormMain.RegisterActiveXServer(const ServerLocation: string; Register: Boolean): Boolean; var ServerDllRegisterServer: function: HResult; stdcall; ServerDllUnregisterServer: function: HResult; stdcall; ServerHandle: THandle; procedure UnloadServerFunctions; begin @ServerDllRegisterServer := nil; @ServerDllUnregisterServer := nil; FreeLibrary(ServerHandle); end; function LoadServerFunctions: Boolean; begin Result := False; ServerHandle := SafeLoadLibrary(ServerLocation); if (ServerHandle 0) then begin @ServerDllRegisterServer := GetProcAddress(ServerHandle, 'DllRegisterServer'); @ServerDllUnregisterServer := GetProcAddress(ServerHandle, 'DllUnregisterServer'); if (@ServerDllRegisterServer = nil) or (@ServerDllUnregisterServer = nil) then UnloadServerFunctions else Result := True; end; end; begin Result := False; try if (LoadServerFunctions) then try case (Register) of False: Result := ServerDllUnregisterServer = S_OK; True: Result := ServerDllRegisterServer = S_OK; end; finally UnloadServerFunctions; end; except end; end; De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: sexta-feira, 13 de junho de 2008 11:04 Para: delphi-br@yahoogrupos.com.br Assunto: RE: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Prioridade: Alta Então, verifique um projeto de exemplo na pasta $(DELPHI)\Demos\ActiveX chamadp TRegExpr.dpr. O código fonte desse projeto tem o que vc precisa pra fazer o registro de DLLs (lógico, desde que as DLLs sejam do tipo COM!). Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:jericssonsup%40gmail.com Date: Fri, 13 Jun 2008 01:10:14 -0300 Subject: Re: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Eu já estou usando dessa forma, mas como são 4 DLL e estou usando o registro simultâneo em vários processos, está apresentando problemas e em algumas não sei porque mesmo usando o /s esta aparecendo a msg para o usuário confirma. 2008/6/12 Rubem Nascimento da Rocha [EMAIL PROTECTED] mailto:djpardalrocha%40hotmail.com : Mas se ele fizer assim: WinExec(pchar('regsvr32.exe /s ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); registra de forma silenciosa, sem pedir confirmação ou mostrar caixa de diálogo! Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br Date: Thu, 12 Jun 2008 17:58:58 -0300 Subject: RES: [delphi-br] URGENTE: Registrar DLL pelo delphi Para fazer isso sem chamar o executável vc tem que chamar o procaddress referente ao método DLLRegisterServer da DLL que vc quer registrar. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: quinta-feira, 12 de junho de 2008 17:01 Assunto: [delphi-br] URGENTE: Registrar DLL pelo delphi Olá amigos, eu preciso registrar algumas DLL na instalação de meu programa, mas não gostaria de utilizar o comando WinExec(pchar('regsvr32.exe ' + drive + '\WINNT\SYSTEM32\midas.dll'), SW_NORMAL); Porque nesse caso registra mais fica a tela de confirmação pro usuário. Se não me engano tem uma utni que faz isso, mas não estou encontrando a danada... Alguém já passou por esse problema e poderia ajudar-me ??? Valew, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF -- Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF __ Instale a Barra de Ferramentas com Desktop Search e ganhe EMOTICONS para o Messenger! É GRÁTIS! http://www.msn.com.br/emoticonpack [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Colocar ip em placa wireless
Um chute ... vc tentou mudar com o Netsh? 2008/6/13 Delphi Sql [EMAIL PROTECTED]: Alguem sabe como adicionar IP .. mascara .. gateway .. dns pelo delphi7 ... em uma placa wireless 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] -- Abs Daniel A. Bastos
Re: [delphi-br] delphiXunion
Sim, eu sabia :-) mas já tive situações onde um determinado sql não é suportado pelo mecanismo de conexão. Tive problemas com d7, dbexpress e SQL Server 2000, onde um parâmetro dentro do on do Inner Join dava erro por não conseguir resolver os Parametros. Eu tenhp um SQL que reprodizia esta situação, mas to sem máquina em casa :( 2008/6/13 Rubem Nascimento da Rocha [EMAIL PROTECTED]: Duas coisas: 1) Daniel A. Bastos, quem tem que aceitar UNIONS não é o Delphi, e sim o mecanismo SQL do SGBD que vc está utilizando! 2) UNION só funcionará se, e somente se, vc definir os SELECTs envolvidos no UNION com o mesmo número de campos em cada SELECT, e os tipos de dados de todas as colunas serem idênticos! Essa é a regra pra usar UNION! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Fri, 13 Jun 2008 10:59:47 -0300 Subject: Re: [delphi-br] delphiXunion Eu tenho vários usando dbx e sql server em d2007 e d7, com ibx em d6 e interbase/firebird 1(estes bem antigos, heh) e zeos e postgres com d2007. Este SQL é executado corretamente no seu SGDB? 2008/6/13 Luciano Calenzani Simões [EMAIL PROTECTED]: Estranho, eu tenho vários selects que tem mais de 2 unions. Lembrando que as colunas de TODOS os selects devem ter o mesmo nome. Me parece que o seu select há difença já do primeiro para o segundo. Quando você usar uma função, exemplo left(), lembre-se de renomear a columa para um nome igual ao do primeiro select, neste caso Conta. Luciano Calenzani Simões - Mensagem original De: Ioney Hotmail [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:32:31 Assunto: [delphi-br] delphiXunion existe alguma outra maneira de unir 2 dois selects sem usar o UNION, pois o delphi nao aceita a uniao com mais de 2 dois selects ex: select conta, DESCRICAO , sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by CONTA, DESCRICAO, GR union select left(conta,8) , null, '4', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,8) , null, '4' union select left(conta,5) , null, '3', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,5) , null, '3' union select left(conta,2) , null, '2', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,2) , null, '2' union select left(conta,1) , null, '1', sum(case when valor 0 and cd = 'D' then 0 else 0 end) valoranterior, sum(case when valor 0 and cd = 'D' then 0 else valor end) valordeb, sum(case when valor 0 and cd = 'C' then 0 else valor end) valorCred, sum((case when valor 0 and cd = 'D' then 0 else valor end) - (case when valor 0 and cd = 'C' then 0 else valor end)) valoratual from lancamentos l, planocontas p where l.codred = p.codred and cliente = '2' group by left(conta,1) , null, '1' O DELPHI NAO ACEITA A UNIAO COM MAIS DE 2 DOIS SELECTS Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ -- Abs Daniel A. Bastos __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br -- Abs Daniel A. Bastos
[delphi-br] DBRichEdit OnChange e OnSelectionChange
Salve! Seguinte: tenho um DBRichEdit e quero fazer um insert do conteúdo dele no DB sempre que o texto dele mudar ou o usuário mudar o SelStart, SelLength. Só que se eu disparar os eventos OnChange e OnSelectionChange eles entram em loop e dá overflow. Ou seja, um chama o outro e vice-versa até estourar. Alguém conhece alguma forma de eu fazer isso que preciso? Valeu! Barbosa 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] EXPORTAR E IMPORTAR ARQUIVOS SQLSERVER (TXT)
Boa tarde SE ALGUME TIVER ALGUM LINK OU DICA FICO AGRADECIDO - Mensagem original De: Marcelo Barbosa Araujo [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 14:30:10 Assunto: [delphi-br] DBRichEdit OnChange e OnSelectionChange Salve! Seguinte: tenho um DBRichEdit e quero fazer um insert do conteúdo dele no DB sempre que o texto dele mudar ou o usuário mudar o SelStart, SelLength. Só que se eu disparar os eventos OnChange e OnSelectionChange eles entram em loop e dá overflow. Ou seja, um chama o outro e vice-versa até estourar. Alguém conhece alguma forma de eu fazer isso que preciso? Valeu! Barbosa 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] 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]
Re: [delphi-br] DBRichEdit OnChange e OnSelectionChange
Cara, isso não faz sentido algum ! Se vc já usa um DBRichEdit, teoricamente não precisa dar o INSERT na unha... Qual é o seu problema ??? Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: Marcelo Barbosa Araujo To: delphi-br@yahoogrupos.com.br Sent: Friday, June 13, 2008 2:30 PM Subject: [delphi-br] DBRichEdit OnChange e OnSelectionChange Salve! Seguinte: tenho um DBRichEdit e quero fazer um insert do conteúdo dele no DB sempre que o texto dele mudar ou o usuário mudar o SelStart, SelLength. Só que se eu disparar os eventos OnChange e OnSelectionChange eles entram em loop e dá overflow. Ou seja, um chama o outro e vice-versa até estourar. Alguém conhece alguma forma de eu fazer isso que preciso? Valeu! Barbosa 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] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Re: select com case
já consegui resolver, eu tinha esquecido de declarar no select, o campo, pensava que o case já mostrava, e um detalhe, n coloquei nada de string comando, fiz diretamenteno delhpi Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe http://www.curricular.com.br/berdam Visite http://passandoveneno.blogspot.com --- Em sex, 13/6/08, Delphi Sql lt;[EMAIL PROTECTED]gt; escreveu: De: Delphi Sql lt;[EMAIL PROTECTED]gt; Assunto: Res: [delphi-br] Re: select com case Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 13 de Junho de 2008, 11:09 Vc esta fazendo este sql direto no Delphi ou Banco msm ? - Mensagem original De: lidio.zucchi lt;lidio.zucchi@ gmail.comgt; Para: [EMAIL PROTECTED] os.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 10:59:20 Assunto: [delphi-br] Re: select com case --- Em [EMAIL PROTECTED] os.com.br, Berdam lt;berdamzinho@ ...gt; escreveu gt; gt; 'SELECT CODIGO_FOR, NOME_FOR, CASE Tipo WHEN ''+J+'' THEN ''+Juridica+ '' WHEN ''+F+'' THEN ''+Fisica+'' END AS tipo, SALDO_ATUAL_ ADT FROM FORNECE '; gt; gt; Galera, estou executando este sql Mas, qual o problema .? Se te ajudar faça assim case when (Tipo = ' + #39 + 'J'+ #39 + ') then ' + #39 + 'Juridica' + #39 else '+ #39 + 'Fisica'+ #39 + ' end as tipox; Zucchi gt; gt; - - - - - - gt; Uberdam Cavaletti gt; Formado em Tecnologia da Informação - Unoesc - Xxe gt; Pós-graduado em desenvolvimento Java - Unoesc - Xxe gt; gt; http://www.curricul ar.com.br/ berdam gt; gt; Visite gt; http://passandovene no.blogspot. com gt; - - - - - - gt; gt; gt; gt; Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! gt; http://br.mail. yahoo.com/ gt; gt; [As partes desta mensagem que não continham texto foram removidas] gt; 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] 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] Reindexar índices em DBf
Boa tarde senhores! Gostaria de saber se existe algum comando em SQL para reindexar arquivo DBF ? Estou trabalhando com dois banco de dados, Interbase e DBF. Estou migrando o sistema feito em Clipper para Delphi. Preciso manter essa estrutura por enquanto até fazer a migração para o sistema em Delphi. Grato. Fabrício Veiga
Res: [delphi-br] Colocar ip em placa wireless
Blz cara .. deu certo com o Netsh se alguem interessar o codigo fica assim WinExec(PChar('netsh interface ip set dns wireless source=static addr=201.38.214.10 register=PRIMARY'),SW_HIDE); ou veja no link http://www.microsoft.com/brasil/technet/Colunas/GuilhermeCarnevale/FerramentaNETSH.mspx - Mensagem original De: Daniel Bastos [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 13 de Junho de 2008 14:15:00 Assunto: Re: [delphi-br] Colocar ip em placa wireless Um chute ... vc tentou mudar com o Netsh? 2008/6/13 Delphi Sql [EMAIL PROTECTED] com.br: Alguem sabe como adicionar IP .. mascara .. gateway .. dns pelo delphi7 ... em uma placa wireless 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] -- Abs Daniel A. Bastos 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]
Re: [delphi-br] Reindexar índices em DBf
Comando SQL não. a única forma e manter atualizado os indices NTX é atravéz do componente VKDBF, que acessa o arquivo DBF e seus Indices NTX, com SQL não tem como, melhor continuar usando o sistema em clipper até concluir a migração. 2008/6/13 Fabrício | PrismaFive [EMAIL PROTECTED]: Boa tarde senhores! Gostaria de saber se existe algum comando em SQL para reindexar arquivo DBF ? Estou trabalhando com dois banco de dados, Interbase e DBF. Estou migrando o sistema feito em Clipper para Delphi. Preciso manter essa estrutura por enquanto até fazer a migração para o sistema em Delphi. Grato. Fabrício Veiga -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar campos em tempo de execução
Estou usando o esquema SqlConnection, SqlDataset, DataSetProvider e ClientDataset. Crio os campos no SqlDataset em tempo de execução. Os campos são criados e estão funcionando, exceto quando existem campos que não pertencem à tabela principal, ou seja, campos que são trazidos através de Join e não serão gravados. Ao tentar gravar o registro aparece mensagem Column unknow. É como se a propriedade ProvidersFlags não estivesse configurada. Abaixo o código, o que está faltando? precedure CriaCampos; var i : Integer; Campos : Array of TField; begin with SQLDataset1 do begin CommandText := 'SELECT CAMPOS FROM TABELA WHERE 1 = 0' Open; Setlength(Campos, FieldCount); for i := 0 to FieldCount-1 do begin if (Fields[i].DataType = ftSmallInt) then Campos[i] := TSmallIntField.Create(MeuDataset) else if (Fields[i].DataType = ftInteger) then Campos[i] := TIntegerField.Create(MeuDataset) else ... MeuDataset.Fields.Add(Campos[i]); MeuDataset.Fields[i].Create(MeuDataset); MeuDataset.Fields[i].FieldName := Fields[i].FieldName; MeuDataset.Fields[i].Name := 'MeuDataset' + Fields[i].FieldName; MeuDataset.Fields[i].FieldKind := fkData; MeuDataset.Fields[i].Required := Fields[i].Required; MeuDataset.FieldDefs.AddFieldDef; MeuDataset.FieldDefs.Items[i].Name := Campos[i].FieldName; MeuDataset.FieldDefs.Items[i].Required := Campos[i].Required; MeuDataset.FieldDefs.Items[i].DataType := Campos[i].DataType; end; end; //Definindo campo chave MeuDataset.FieldByName('CAMPO').ProviderFlags := [pfInUpdate, pfInWhere, pfInKey]; //Definindo campos que não pertencem a tabela principal e não será salvo MeuDataset.FieldByName('NUMCONTA').ProviderFlags := []; MeuDataset.FieldDefList.Create(MeuDataset); end; ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Reindexar índices em DBf
Eu uso o componente Halcyon 6 no Delphi e com ele faço reindexão em CDX/.MDX/.NDX/.NTX. Veja em: http://www.griffinsolutions.com/halcyon6.php# nbsp; Gerson --- Em sex, 13/6/08, Fabrício | PrismaFive lt;[EMAIL PROTECTED]gt; escreveu: De: Fabrício | PrismaFive lt;[EMAIL PROTECTED]gt; Assunto: [delphi-br] Reindexar índices em DBf Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 13 de Junho de 2008, 17:05 Boa tarde senhores! Gostaria de saber se existe algum comando em SQL para reindexar arquivo DBF ? Estou trabalhando com dois banco de dados, Interbase e DBF. Estou migrando o sistema feito em Clipper para Delphi. Preciso manter essa estrutura por enquanto até fazer a migração para o sistema em Delphi. Grato. Fabrício Veiga 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]