[delphi-br] RES: Re: Programa e' cancelado quando usuario entra no site do Bradesco/Pessoa Juridica
O seu sistema utiliza algum tipo de hook? Possivelmente um componente activex do bradesco cancela o hook causando algum problema no seu programa. -- informe qual é o seu Windows, e verifique se no diretório win/system32 voce tem um arquivo AUTOEXEC.nt - Original Message - From: Paulo Sérgio Dias To: delphi-br@yahoogrupos.com.br Sent: Monday, June 20, 2005 3:43 PM Subject: [delphi-br] Programa e' cancelado quando usuario entra no site do Bradesco/Pessoa Juridica Pessoal: Alguem ja' passou por algo semelhante ao que descrevo abaixo ? Tenho um sistema feito em Delphi 3, com BDE 5.202, que acessa o InterBase 6, via TCP/IP. Se meu programa esta' aberto e a usuaria entra no site do Bradesco, no momento exato em que ela clica no link de acesso de Pessoa Juridica, acontece alguma coisa que arranca o meu sistema da memoria (como se fosse um CTRL+ALT+DEL), mas sem exibir mensagem alguma. Se a usuaria tenta entrar no meu sistema DEPOIS que ela entrou no site do Bradesco e clicou no link de Pessoa Juridica, o meu programa tambem e' abortado (sem mensagem alguma), tao logo aparece a tela principal. Estou tentando falar com alguem do Bradesco, mas ainda nao consegui. Obs.: Se a usuaria entra em qualquer outro site, ou mesmo no site do Bradesco, mas nao clica no link de Pessoa Juridica, o meu sistema funciona normalmente. Grato pela atencao de todos Paulo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] EDatabaseError: Invalid Variant Type Delphi 2005 Windows 98
Tenho uma aplicação que roda em windows xp e windows 98 onde ela busca um dado em uma stored procedure do Sql Server e insere com base nesta pesquisa, no windows xp o cadastro é realizado normalmente, no windows 98 dá um erro de banco de dados Invalid Variant Type a aplicação não chega nem a enviar o comando para o banco de dados pois jah olhei pelo profiler e não chega nada. Algueim jah passou por isso? Tentei recria uma aplicaçãozinha nova pensando que seria algum problema no meu aplicativo mas aconteceu a mesma coisa. -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.6.2 - Release Date: 4/3/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] DESAFIO: Grade de Horário Escolar
Como faço uma grade de horários para não ficar quebrada nos horários ou seja, dispor na melhor forma possível os períodos, tentei começar mas não consegui terminar pois acontece o seguinte, na 3ª e quartas turmas falta horários pq o sistema joga todas aulas conforme exemplo: Segunda Terça Quarta Quinta Sexta Português Matemática HistóriaInglês Geografia Português Matemática HistóriaInglês Geografia Matemática Português CiênciasEd. Física Religião Matemática Português CiênciasEd. Física Ed. Artística Matemática Português CiênciasEd. Física Religião Matemática Português CiênciasEd. Física Ed. Artística Português Matemática HistóriaInglês Geografia Português Matemática HistóriaInglês Geografia HistóriaInglês Português Matemática - HistóriaInglês Português Matemática - CiênciasEd. Física Matemática Português Religião CiênciasEd. Física Matemática Português Ed. Artística CiênciasEd. Física Matemática Português Religião CiênciasEd. Física Matemática Português Ed. Artística HistóriaInglês Português Matemática - HistóriaInglês Português Matemática - Nota-se que os professores não estarão em turmas diferentes no mesmo horário Pode se ministrar no máximo 2 horários por dia por matéria Períodos por semana: Port. 4 Mat 4 Religião 1 Ed. Artística 1 O resto das matérias são 2 periodos por semana Ou seja, ele maneja os horários da primeira forma que vier e não da melhor forma que tiver. Alguém já fez algum programa similar? Ou tem alguma idéia de como resolver o problema? -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 14/2/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] campo memo, savetofile nao salva todo texto no win98
Venho enfrentando dificuldades em um programa desenvolvido por mim no comando memo1.lines.savetofile(arquivo.txt); Onde no windows 98 ele grava somente parte do arquivo sendo que no windows xp grava normal. Teria algum limite de tamanho de arquivo no windows 98? Ou como modificar isto? Grato, Edgar Zavareze da Silva, Programador. -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Re: SQL muito complexa, unir 2 select
:56 -0300 De: Eolos \(Yahoo\) [EMAIL PROTECTED] Assunto: Re: Usar a tecla ESC para sair Coloque KeyPreview = True procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case Key Of VK_ESCAPE : Close; end; end; Abraço - Original Message - From: Eduardo Silva ® To: [EMAIL PROTECTED] Sent: Friday, January 28, 2005 10:54 AM Subject: [delphi-br] Usar a tecla ESC para sair Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet. Estou usando o código abaixo no evento onKeyDown do form para fechar o mesmo com a tecla ESC, mas não esta funcionando. Alguém pode me dar uma mão ? if Key = 27 then begin Tabela.Cancel; Close; end; _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[EMAIL PROTECTED] _ | _) )_ (((\ \)|_/ )___( \_|(/ /))) ( \_/ / \ \_/ ) \ / \ / \_/ \_/ / / \ \ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] Mensagem: 19 Data: Fri, 28 Jan 2005 11:01:16 -0300 De: CEJUS [EMAIL PROTECTED] Assunto: campo memo, savetofile nao salva todo texto no win98 Venho enfrentando dificuldades em um programa desenvolvido por mim no comando memo1.lines.savetofile(arquivo.txt); Onde no windows 98 ele grava somente parte do arquivo sendo que no windows xp grava normal. Teria algum limite de tamanho de arquivo no windows 98? Ou como modificar isto? Grato, Edgar Zavareze da Silva, Programador. -- Internal Virus Database is out-of-date. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/1/2005 Mensagem: 20 Data: Fri, 28 Jan 2005 11:06:01 -0300 De: Eduardo Silva ® [EMAIL PROTECTED] Assunto: RES: Usar a tecla ESC para sair Esqueci de dizer, o key preview já esta true. -Mensagem original- De: Eolos (Yahoo) [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 28 de janeiro de 2005 11:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Usar a tecla ESC para sair Coloque KeyPreview = True procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Case Key Of VK_ESCAPE : Close; end; end; Abraço - Original Message - From: Eduardo Silva ® To: [EMAIL PROTECTED] Sent: Friday, January 28, 2005 10:54 AM Subject: [delphi-br] Usar a tecla ESC para sair Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet. Estou usando o código abaixo no evento onKeyDown do form para fechar o mesmo com a tecla ESC, mas não esta funcionando. Alguém pode me dar uma mão ? if Key = 27 then begin Tabela.Cancel; Close; end; _ ___ _ / )| |( \ / / | Eduardo de Almeida Silva | \ \ _( (_ | _[EMAIL PROTECTED] _ | _) )_ (((\ \)|_/ )___( \_|(/ /))) ( \_/ / \ \_/ ) \ / \ / \_/ \_/ / / \ \ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por
[delphi-br] Re: Re: SQL muito complexa, unir 2 select
eh mais ou menos por ae, neste caso usei a relação: ON Cq_Ativ1.NomeAtividade = Cq_Ativ2.NomeAtividade No SQLserver funciona no paradox não sei mas acho q funciona beleza. Qualquer duvida falae :P SELECT Cq_dd1.CodCQ_MOEDA ,Cq_dd1.CodCQ_CLASS , (Cq_insum1.Descricao) as Insumo1, (Cq_Ativ1.NomeAtividade), (Cq_Ativ1.IndiceOutLine), (Cq_Ativ1.IndicePaterno), (sum(Cq_fatpl1.QuantidadeNaoAcumulada * Cq_dd1.QuantInsumo * Cq_dd1.CustoUnitario)) as CustoAte1, Cq_dd2.CodCQ_MOEDA ,Cq_dd2.CodCQ_CLASS , (Cq_insum2.Descricao) as Insumo2, (Cq_Ativ2.NomeAtividade), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ2.IndicePaterno), (sum(Cq_fatpl2.QuantidadeNaoAcumulada * Cq_dd2.QuantInsumo * Cq_dd2.CustoUnitario)) as CustoAte2 FROM Cq_fatpl.DB Cq_fatpl1 , Cq_dd.DB Cq_dd1, Cq_Ativ.DB Cq_Ativ1, Cq_insum.DB Cq_insum1 FULL JOIN ( SELECT Cq_dd2.CodCQ_MOEDA ,Cq_dd2.CodCQ_CLASS , (Cq_insum2.Descricao) as Insumo2, (Cq_Ativ2.NomeAtividade), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ2.IndicePaterno), (sum(Cq_fatpl2.QuantidadeNaoAcumulada * Cq_dd2.QuantInsumo * Cq_dd2.CustoUnitario)) as CustoAte2 FROM Cq_fatpl.DB Cq_fatpl2 , Cq_dd.DB Cq_dd2, Cq_Ativ.DB Cq_Ativ2, Cq_insum.DB Cq_insum2 ) ON Cq_Ativ1.NomeAtividade = Cq_Ativ2.NomeAtividade WHERE ( (Cq_fatpl1.CodCQ_ATIV = Cq_dd1.CodCQ_ATIV) AND (Cq_fatpl1.CodCQ_ATIV = Cq_Ativ1.CodCQ_ATIV) AND (Cq_dd1.CodCQ_INSUM = Cq_insum1.CodCQ_INSUM) AND ( (Cq_fatpl1.Periodo = '10') AND (Cq_dd1.CodCQ_CLASS = '7') ) ) AND ( (Cq_fatpl2.CodCQ_ATIV = Cq_dd2.CodCQ_ATIV) AND (Cq_fatpl2.CodCQ_ATIV = Cq_Ativ2.CodCQ_ATIV) AND (Cq_dd2.CodCQ_INSUM = Cq_insum2.CodCQ_INSUM) AND ( (Cq_fatpl2.Periodo = '10') AND (Cq_dd2.CodCQ_CLASS = '7') ) ) GROUP BY (Cq_Ativ1.NomeAtividade), (Cq_Ativ2.NomeAtividade), (Cq_Ativ1.IndiceOutLine), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ1.IndicePaterno), (Cq_Ativ2.IndicePaterno), (Cq_insum1.Descricao), (Cq_insum2.Descricao), Cq_dd1.CodCQ_CLASS, Cq_dd2.CodCQ_CLASS, Cq_dd1.CodCQ_MOEDA, Cq_dd2.CodCQ_MOEDA ORDER BY 5, 6 ou entao SELECT Cq_dd1.CodCQ_MOEDA ,Cq_dd1.CodCQ_CLASS , (Cq_insum1.Descricao) as Insumo1, (Cq_Ativ1.NomeAtividade), (Cq_Ativ1.IndiceOutLine), (Cq_Ativ1.IndicePaterno), (sum(Cq_fatpl1.QuantidadeNaoAcumulada * Cq_dd1.QuantInsumo * Cq_dd1.CustoUnitario)) as CustoAte1, Cq_dd2.CodCQ_MOEDA ,Cq_dd2.CodCQ_CLASS , (Cq_insum2.Descricao) as Insumo2, (Cq_Ativ2.NomeAtividade), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ2.IndicePaterno), (sum(Cq_fatpl2.QuantidadeNaoAcumulada * Cq_dd2.QuantInsumo * Cq_dd2.CustoUnitario)) as CustoAte2 FROM Cq_fatpl.DB Cq_fatpl1 , Cq_dd.DB Cq_dd1, Cq_Ativ.DB Cq_Ativ1, Cq_insum.DB Cq_insum1 FULL JOIN ( SELECT Cq_dd2.CodCQ_MOEDA ,Cq_dd2.CodCQ_CLASS , (Cq_insum2.Descricao) as Insumo2, (Cq_Ativ2.NomeAtividade), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ2.IndicePaterno), (sum(Cq_fatpl2.QuantidadeNaoAcumulada * Cq_dd2.QuantInsumo * Cq_dd2.CustoUnitario)) as CustoAte2 FROM Cq_fatpl.DB Cq_fatpl2 , Cq_dd.DB Cq_dd2, Cq_Ativ.DB Cq_Ativ2, Cq_insum.DB Cq_insum2 WHERE ( (Cq_fatpl2.CodCQ_ATIV = Cq_dd2.CodCQ_ATIV) AND (Cq_fatpl2.CodCQ_ATIV = Cq_Ativ2.CodCQ_ATIV) AND (Cq_dd2.CodCQ_INSUM = Cq_insum2.CodCQ_INSUM) AND ( (Cq_fatpl2.Periodo = '10') AND (Cq_dd2.CodCQ_CLASS = '7') ) ) GROUP BY (Cq_Ativ2.NomeAtividade), (Cq_Ativ2.IndiceOutLine), (Cq_Ativ2.IndicePaterno), (Cq_insum2.Descricao), Cq_dd2.CodCQ_CLASS, Cq_dd2.CodCQ_MOEDA) ON Cq_Ativ1.NomeAtividade = Cq_Ativ2.NomeAtividade WHERE ( (Cq_fatpl1.CodCQ_ATIV = Cq_dd1.CodCQ_ATIV) AND (Cq_fatpl1.CodCQ_ATIV = Cq_Ativ1.CodCQ_ATIV) AND (Cq_dd1.CodCQ_INSUM = Cq_insum1.CodCQ_INSUM) AND ( (Cq_fatpl1.Periodo = '10') AND (Cq_dd1.CodCQ_CLASS = '7') ) ) GROUP BY (Cq_Ativ1.NomeAtividade), (Cq_Ativ1.IndiceOutLine), (Cq_Ativ1.IndicePaterno), (Cq_insum1.Descricao), Cq_dd1.CodCQ_CLASS, Cq_dd1.CodCQ_MOEDA ORDER BY 5, 6 -Mensagem original- De: CEJUS [mailto:[EMAIL PROTECTED] Enviada em: sexta-feira, 28 de janeiro de 2005 12:21 Para: 'delphi-br@yahoogrupos.com.br' Assunto: Re: Re: SQL muito complexa, unir 2 select Prioridade: Alta Group by não funciona com numeros, soh com nome dos campos O order by que funciona com números de colunas, tu deve ter te confundido. Sobre juntar as duas consultas lado a lado só é possível caso elas tenham relação entre si no caso acho q o campo que poderia relacionar eh o nome da atividade. Logo a consulta ficaria assim: CONSULTA1 as c1 FULL JOIN (CONSULTA2) AS c2 on c1.NomeAtividade = c2.NomeAtividade Claro q esse exemplo com uma tabela
