[delphi-br] Ajuda com sql
Prezados, tenho uma tabela que tem armazenado os seguintes dados: coddescricaoorigemqtde 1111A 1 1111A 1 1111C 1 2222A 1 2222A 1 3333B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1111A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1111C 1 2222A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3333B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com sql
select codproduto,origem, count(*) from tmov group by codproduto,origem order by codproduto,origem -- José Henrique (Zote) Analista de TI Bludata Software 2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] PRFWK - Framework para acesso a dados
Ola, Recentemente disponibilizei um framework simples que fiz e utilizo em alguns projetos meus. Para mais informaçoes, visite: http://www.prsolucoes.com/site/artigo/prfwk -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com Skype: paulo.prsolucoes Consultor Certificado Bindows [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tratamento de imagens - algumas dúvidas
Olá gigantes!, Estou comparando duas imagens byte a byte. Existe uma forma mais rápida de realizar esse processo? De uma imagem grande, desejo usar apenas parte da imagem. Isso é simples, mais preciso saber se é possível estabelecer relação entre uma subimagem com sua imagem original. Ou seja, preciso saber de qual imagem foi extraído uma parte. Alguém tem idéia de como fazer isso? Duas imagens idênticas podem por algum motivo serem diferentes se comparado byte a byte? Alguém conhece material compreensivo sobre check sum de imagem? Grato, Reinaldo Aparecido Pereira ( +55(45) 8426-4522 *mailto:reinaldoapere...@yahoo.com.br reinaldoapere...@yahoo.com.br Skype: reinaldoapereira Msn: lista_discus...@msn.com.br Ciscopar Consórcio Intermunicipal de Saúde Costa Oeste Analista de Sistemas ( +55(45) 3252-3524 Fag Faculdade Assis Gurgacz Professor de Graduação ( +55(45) 3321-3900 América Latina Tecnologia e Mercado Gerente Comercial ( +55(45) 3222-0631 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com sql
Olá José, deu certo, obrigado mesmo. Atenciosamente, Rafael - Original Message - From: José Henrique (Zote) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 25, 2010 8:44 PM Subject: Re: [delphi-br] Ajuda com sql select codproduto,origem, count(*) from tmov group by codproduto,origem order by codproduto,origem -- José Henrique (Zote) Analista de TI Bludata Software 2010/5/25 Allan GabrielAM alla...@americamoveiseletro.com.br Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] :::: Instalação Jedi x Delphi 2010 ::::
Olá pessoal. Estou tentando instalar o Jedi (JVCL338CompleteJCL201-Build3449) no delphi 2010. Primeiro fui instalar o JCL Logo após a pergunta Do you want to keep JCL expert settings clicando em sim ou não, tanto faz, dá o erro Range Check Error. Alguém já passou por isso, tem alguma idéia de como resolver? Obrigado [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] :::: Instalação Jedi x Delphi 201 0 ::::
Eu fiz a instalação e mesmo com essa mensagem de essa instalou corretamente. Reinaldo Aparecido Pereira ( +55(45) 8426-4522 *mailto:reinaldoapere...@yahoo.com.br reinaldoapere...@yahoo.com.br Skype: reinaldoapereira Msn: lista_discus...@msn.com.br Ciscopar Consórcio Intermunicipal de Saúde Costa Oeste Analista de Sistemas ( +55(45) 3252-3524 Fag Faculdade Assis Gurgacz Professor de Graduação ( +55(45) 3321-3900 América Latina Tecnologia e Mercado Gerente Comercial ( +55(45) 3222-0631 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de ## André ## Enviada em: terça-feira, 25 de maio de 2010 16:11 Para: delphi-br@yahoogrupos.com.br; lista-del...@yahoogrupos.com.br Assunto: [delphi-br] Instalação Jedi x Delphi 2010 Olá pessoal. Estou tentando instalar o Jedi (JVCL338CompleteJCL201-Build3449) no delphi 2010. Primeiro fui instalar o JCL Logo após a pergunta Do you want to keep JCL expert settings clicando em sim ou não, tanto faz, dá o erro Range Check Error. Alguém já passou por isso, tem alguma idéia de como resolver? Obrigado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 7 x JVCL x Windows 7
Algum colega teve sucesso com essa tríade? Sds. Rubem Nascimento da Rocha 92 8429 2865 rubem.ro...@digitalti.com.br assinatura email Digital TI - Coordenação de Automação Av. Carvalho Leal, 1330 - 1º Andar Cachoeirinha - 69065-001 Manaus/AM Call Center: 92 2101-0100 http://www.dtmanaus.com.br www.dtmanaus.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Nfe
galera, pode ser usado as duas dlls da flexdocs no delphi para enviar nfe, uma na versão atual e outra na versão que entrará em outubro ?? Dessa posso corrigir eventuais problemas nos clientes atuais e tbm desenvolver as funcionalidades novas da NFE
[delphi-br] FW: [DELPHI-Total] Oportunidade Delphi
-Original Message- From: delphi-to...@yahoogrupos.com.br [mailto:delphi-to...@yahoogrupos.com.br] On Behalf Of rachmednunes Sent: Tuesday, May 25, 2010 12:13 PM To: delphi-to...@yahoogrupos.com.br Subject: [DELPHI-Total] Oportunidade Delphi Bom dia, Gostaria de saber se alguém se interessa ou tem alguma indicação para uma vaga de desenvolvimento em Delphi 7 Contratação CLT Local: Vila Olimpia - SP Valor: R$2960 + benefícios --- Divulgue o Grupo Dephi-Total Um favor para todos! --- Responda sempre que souber, lembre-se: Um dia pode ser você --- Para cancelar sua assinatura, envie um e-mail para: delphi-total-unsubscr...@br.egroups.com --- Links do Yahoo! Grupos CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
RES: [delphi-br] :::: Instalação Jedi x Delphi 201 0 ::::
Pra mim não dá certo... Dá essa mensagem, clico em ok, e não acontece mais nada De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Reinaldo Aparecido Pereira Enviada em: terça-feira, 25 de maio de 2010 16:25 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Instalação Jedi x Delphi 2010 Eu fiz a instalação e mesmo com essa mensagem de essa instalou corretamente. Reinaldo Aparecido Pereira [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Tratamento de imagens - algumas dúv idas
2010/5/25 Reinaldo Aparecido Pereira ctocv...@yahoo.com.br: Olá gigantes!, Estou comparando duas imagens byte a byte. Existe uma forma mais rápida de realizar esse processo? De uma imagem grande, desejo usar apenas parte da imagem. Isso é simples, mais preciso saber se é possível estabelecer relação entre uma subimagem com sua imagem original. Ou seja, preciso saber de qual imagem foi extraído uma parte. Alguém tem idéia de como fazer isso? Duas imagens idênticas podem por algum motivo serem diferentes se comparado byte a byte? Alguém conhece material compreensivo sobre check sum de imagem? Eu sempre utilizo o ImageMagick para tratamento de imagens: http://www.imagemagick.com/ Ele possui aplicativos console que podem ser chamados a partir da sua aplicação. Marcos Douglas
[delphi-br] [OFF-TOPIC] Ao moderador
Moderador, Um colega da lista está banido e ele gostaria de participar novamente da lista. Falei sobre esse problema já faz tempo (diria até que mais de ano que isso foi falado pra vc) e vc disse que havia alguma coisa relacionada com o Yahoo. O ID do colega é silvio_silva2004. Veja o que pode ser feito, por favor! Grato! _ CANSADO DE ENTRAR EM TODAS AS SUAS DIFERENTES CONTAS DE EMAIL? JUNTE TODAS AGORA. http://www.windowslive.com.br/public/product.aspx/view/1?cname=agregadorocid=Hotmail:MSN:Messenger:Tagline:1x1:agregador:- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] FireBird Developers Day 2010
Galera! Está valendo agora, o FDD (http://tinyurl.com/2dbyb7r) deste ano é para mim um dos mais esperados, pois tem grandes mudanças na parte de segurança e é o aniversario do FB com muito sucesso na bagagem. O evento realmente está prometendo muito! Estamos com uma versão nova as portas e muito boa alem de n outros motivos como o suporte nativo ao FireBird pelo Delphi. Sem falar na oportunidade impar de poder rever os amigos e trocar experiências e conseguir várias consultorias na faixa com os melhores especialistas da área. Sem falar que o lugar do evento é incrível! Eu estarei lá com certeza, quem aqui da lista for para o evento, manda um sinal de fumaça que nos encontramos lá! Grande abraço! Bruno [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Como vocês comparam o banco de dados oficial com os dos seus clientes?
Bom dia! Eu trabalho da seguinte forma: 1. Para cada alteração de DDL no banco de dados eu crio um script 2. Coloco o nome do script como número de versão do sistema, exemplo 1.7.72.0. 3. Altero a versão do executável para 1.7.72.0, combinando desda forma com a última atualização. 4. Guardo no banco de dados em um registro o número da versão do sistema, no último comando do arquivo de script, exemplo update empresa set nuversao = '1.7.72.0'; commit work; Desda forma tenho trabalhado tranquilamente mas ainda tenho um problema. Criei um executor do script que pega cada comando sql e então executa no banco de dados com o comando ExecuteDirect do sqlconnection. E quando ele encontra uma situação como a debaixo SET TERM ^ ; ALTER TRIGGER pedido_before_delete active before delete position 0 AS BEGIN DELETE FROM ITPEDIDO WHERE ITPEDIDO.CDPEDIDO = OLD.CDPEDIDO; delete from aprovacao where aprovacao.cdpedido = old.cdpedido; END ^ SET TERM ; ^ dá o seguinte erro: Project Atualizador.exe raised exception class EDatabaseError with message 'Token unknown - line 1, char 5 TERM Alguém poderia me ajudar? Lembrando que um cliente pode ficar muito tempo sem atualizar o sistema e então ter que rodar vários scripts. Desde já agradeço. Em 9 de março de 2010 11:08, Nazareno Neto nazareno.nobr...@gmail.comescreveu: Se vc for direto no cliente, tu pode levar uma copia do banco mais atual e usar um comparador de banco, tipo o DataBaseComparer, lembrando q este nao eh free para uso comercial! Em 9 de março de 2010 09:23, Dirlei dir...@gmail.com escreveu: Eu resolvo esta questão versionando os databases. À cada alteração no Database, incremento a versão e gero um script de upgrade, que é executado automaticamente pelo sistema nos clientes quando libero uma atualização de versão. Há um email onde expliquei mais detalhadamente como faço isso, procure pelo assunto Atualização de software. Dirlei. Felipe Lopes escreveu: Gostaria muito de sugestões ao assunto relacionado Alguém possui? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br] Em nome de Fellipe Henrique Enviada em: terça-feira, 2 de março de 2010 11:41 Assunto: [delphi-br] Como vocês comparam o banco de dados oficial com os dos seus clientes? Amigos, aqui nós usávamos o Clever Components DBComparer onde ele comparava o script da versão oficial do sistema, com a que o cliente tem, e fazia as modificações necessárias... o problema é que este componente está parado desde 2006, ou seja, com o firebird novo, muita coisa está de fora.. o que vez e outra, está trazendo problemas nas atualizações... Então venho perguntar aos amigos.. como vocês realizam os updates dos bancos nos clientes? como controlam isso? Att. -- _ T.·.F.·.A.·. Fellipe Henrique -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Atualizar GroupBox com foco no RadioGroup
Num GroupBox há 5 edits, todos CurrencyEdit. Num RadioGroup há 3 items. Dependendo de cada opção clicada no RadioGroup durante a execução os 5 CurrencyEdit´s do Group realizam cálculos entre eles. Até aqui está tudo certo. (já debugado e conferido) Porém não estou conseguindo exibir o GroupBox com os valores dos 5 edits atualizados após o click no RadioGroup. Como faço para atualizar o GroupBox estando o foco no RadioGroup ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com a combinação XPmanifest + UAC no Del phi 2009
Olá amigos, bom dia Estou desenvolvendo um software que recentemente tive que mexer com o registro do windows, para isso funcionar sem ficar dando galhos tive que usar o recurso de UAC, adicionando o arquivo UAC.RES que gerei junto a minha unit principal. Até ai tudo bem, as rotinas que manipulam o registro funcionaram perfeitamente, porem, após ter adicionado o UAC.RES parou de funcionar o XPmanifest, deixando aquela cara de win98 no aplicativo. Googando achei este link http://borland.newsgroups.archived.at/public.delphi.rtl.win32/200612/0612091582.html mas não consegui botar para funcionar. Alguém tem alguma informação que poderia me ajudar? Abraços. *Diego Garcia* [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Firebird Corrompendo apos criar SP e Tiggers
Então, tenta passar o gfix, verifique se os dados incluindo o charset são os mesmos e se na sua aplicação, vc chama com o charset correto do banco. Não sei o pq, mas o firebird 2.1 está dando estes problemas, inclusive usando trigger, pode ser algum problema da versão, nao tenho certeza do que estou falando, seria interessante procurar o fórum do firebase.com.br para ver sobre isso. Obrigado, Fabiano Em 24 de maio de 2010 15:41, Iran Lima i...@sgisolution.com.br escreveu: Opa foi mau ai. Seguinte... ta corrompendo apenas a tabela de movimentação do produto, nela tem as triggers que alteram o estoque, e ela é povoada com SP que pegam o pedido passado por parâmetro, e lança o movimento de estoque, é simples, já tenhu outros bancos q funcionam assim e não da problema, só que neste após ums 50 registros na tabela de movimento ela corrompe. Quando corrompe so da pra recuperar com gbak se eu excluir a tabela. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Roni Rodrigo Enviada em: sábado, 22 de maio de 2010 19:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Firebird Corrompendo apos criar SP e Tiggers mas tem q ter tempo pra ler td isso né?? pq vc nao manda soh a procedure ou trigger q ta dando problema... e explica direito esse negócio de corrompendo.. corromprendo como? o problema é com a integridade dos dados ou com a estrutura da tabela?? o/ Em 22/05/2010 10:56, Iran Lima escreveu: Olá Pessoal, Estou com um problema aqui que começou após criar umas Procedures e Triggers para controle de Estoque. Criei uma tabela de movimentação de produtos e nela as triggers de atualização de estoque na tabela do produto. Para gravar a movimentação do produto uso uma SP que passado um pedido como parâmetro lança todos os itens do mesmo na tabela de movimentação Funcionou tudo certo como eu desejava porem a tabela de movimentação do produto começou a corromper. Se alguém poder me ajudar serei muito grato. /*** ***/ / Stored Procedures / /*** ***/ CREATE PROCEDURE SP_EXTB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_EXTB_LOTE ( COD_EMP INTEGER, COD_LOTE VARCHAR(6)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_EXTB_VENDA ( COD_EMP INTEGER, COD_PED INTEGER) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_COMPRA ( NR_DOC VARCHAR(10), COD_FORN VARCHAR(5)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_LOTE ( COD_EMP INTEGER, COD_LOTE VARCHAR(6)) AS BEGIN EXIT; END^ CREATE PROCEDURE SP_MOVB_VENDA ( COD_EMP INTEGER, COD_PED INTEGER) AS BEGIN EXIT; END^ SET TERM ; ^ /*** ***/ / Tables / /*** ***/ CREATE TABLE MOV_B ( COD_MPROD INTEGER NOT NULL, COD_PROD VARCHAR(5) NOT NULL, TELA CHAR(1) NOT NULL, DATA_MOVI TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL, QTD_MOV NUMERIC(12,3) DEFAULT 0 NOT NULL, COD_EMP INTEGER NOT NULL, COD_PED INTEGER, COD_FORN VARCHAR(5), NR_DOC VARCHAR(10), NR_PRO VARCHAR(6), COD_DEV VARCHAR(5), TIPO_SAI CHAR(1), COD_LOTE VARCHAR(6) ); /*** ***/ / Triggers for tables / /*** ***/ /* Trigger: TG_ADD_ESTOQUE */ CREATE TRIGGER TG_ADD_ESTOQUE FOR MOV_B ACTIVE BEFORE INSERT POSITION 0 AS declare variable VQTDE NUMERIC(12,3); begin /* Adiciona Movimento ao estoque */ IF(NEW.TIPO_SAI = 'S') THEN VQTDE = -NEW.QTD_MOV; ELSE IF(NEW.TIPO_SAI = 'E') THEN VQTDE = +NEW.QTD_MOV; IF ((NEW.TIPO_SAI = 'S') OR (NEW.TIPO_SAI = 'E')) THEN UPDATE EST_PROD SET QTD_ATU_B = QTD_ATU_B + :VQTDE WHERE COD_PROD = NEW.COD_PROD; end ^ /* Trigger: TG_REM_ESTOQUE */ CREATE TRIGGER TG_REM_ESTOQUE FOR MOV_B ACTIVE AFTER DELETE POSITION 0 AS declare variable VQTDE NUMERIC(12,3); begin /* Adiciona Movimento ao estoque */ IF(OLD.TIPO_SAI = 'S') THEN VQTDE = +OLD.QTD_MOV; ELSE IF(OLD.TIPO_SAI = 'E') THEN VQTDE = -OLD.QTD_MOV; IF ((OLD.TIPO_SAI = 'S') OR (OLD.TIPO_SAI = 'E')) THEN UPDATE EST_PROD SET QTD_ATU_B = QTD_ATU_B + :VQTDE WHERE COD_PROD = OLD.COD_PROD; end ^ SET TERM ; ^ /*** ***/ / Stored Procedures /
[delphi-br] MVC + Delphi
Boa tarde. Estou a desenvolver uma aplicação comercial e estou com muitas dúvidas sobre como fazer este projeto, eis alguns requisitos que levantei: * Deve haver a possibilidade de trabalho Client/Server * Utilizará banco de dados relacional - Firebird 2.0 * Padrão MVC Orientado a objetos. * IDE Delphi 2010 Meu questionamento está no último requisito, é possivel se fazer um trabalho em delphi utilizando seus componentes SQLConnection, DataSource, etc, separando isso em camadas? Pois até onde eu sei se eu colocar um componente SQLQuery em um form eu to fazendo referência direta ao banco de dados. Como resolveria este problema. Este projeto é pessoal. Tenho poucos conhecimentos em delphi. Há... estava até pensando em devenvolver em Java pois lá tenho uma visão melhor dessa separação em camadas, sei que ia pecar um pouco na parte visual e também na parte Client/Server já que o Delphi tem o DataSnap. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR
RES: [delphi-br] Ajuda com sql
Alan, Pelo que eu entendi é so somar as quantidade e dar um group by nos itens que quer agrupar .. desta forma: select codproduto,Descricao,origem, SUM(Quantidade)AS Quantidade from tmov Group by codproduto,Descricao,origem order by codproduto,origem http://www.gecon.inf.br/ Gecon Cons. e Desen. de Sistemas Ltda. Filippe Maymone fili...@gecon.inf.br fone: 11-22423065 / 11-41192856 Cel: 11-81663158 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Allan GabrielAM Enviada em: terça-feira, 25 de maio de 2010 05:02 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda com sql Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] RE: [lista-delphi] ERRO DELPHI 2010 (SYSTEM.PAS)
A unit se chama SYSTEM.PAS, no seu email está faltando um S, está SYTEM.PAs -Original Message- From: lista-del...@yahoogrupos.com.br [mailto:lista-del...@yahoogrupos.com.br] On Behalf Of Jose Aparecido Sent: Tuesday, May 25, 2010 1:22 PM To: Grupos; Grupos; Grupos; Grupos Subject: [lista-delphi] ERRO DELPHI 2010 (SYSTEM.PAS) PREZADOS, TENHO UM ERP FUNCIONANDO SEM NENHUM ERRO DE COMPILAÇÃO NO DELPHI 2007, PORÉM ESTOU TENTANDO MIGRAR PARA O DELPHI 2010, ABRO O PROJETO NORMALMENTE, MAS QUANDO TENTO COMPILAR AI VEM UM MENSAGEM DE ERRO: F2063 COULD NOT COMPILE USED UNIT SYTEM.PAS. MAS ATÉ AGORA NÃO CONSEGUI SOLUCIONAR O PROBLEMA. SE ALGUÉM PUDER ME AJUDAR, AGRADEÇO. JOSÉ APARECIDO [As partes desta mensagem que não continham texto foram removidas] Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Não deixe de visitar o site oficial da lista: http://www.delphibr.com.br Comunidade Delphibr no Orkut: http://www.orkut.com/Community.aspx?cmm=753495 Para falar com o moderador, envie um e-mail para: lista-delphi-ow...@yahoogrupos.com.br Links do Yahoo! Grupos CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
RE: RES: [delphi-br] Como vocês comparam o banco de dado s oficial com os dos seus clientes?
Já deu uma olhadinha no Change Manager? Veja o vídeo - Sincronizando bases de dados com Change Manager - http://edn.embarcadero.com/br/article/39527 []'s Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Paulo Aquino Sent: Tuesday, May 25, 2010 8:13 AM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Como vocês comparam o banco de dados oficial com os dos seus clientes? Bom dia! Eu trabalho da seguinte forma: 1. Para cada alteração de DDL no banco de dados eu crio um script 2. Coloco o nome do script como número de versão do sistema, exemplo 1.7.72.0. 3. Altero a versão do executável para 1.7.72.0, combinando desda forma com a última atualização. 4. Guardo no banco de dados em um registro o número da versão do sistema, no último comando do arquivo de script, exemplo update empresa set nuversao = '1.7.72.0'; commit work; Desda forma tenho trabalhado tranquilamente mas ainda tenho um problema. Criei um executor do script que pega cada comando sql e então executa no banco de dados com o comando ExecuteDirect do sqlconnection. E quando ele encontra uma situação como a debaixo SET TERM ^ ; ALTER TRIGGER pedido_before_delete active before delete position 0 AS BEGIN DELETE FROM ITPEDIDO WHERE ITPEDIDO.CDPEDIDO = OLD.CDPEDIDO; delete from aprovacao where aprovacao.cdpedido = old.cdpedido; END ^ SET TERM ; ^ dá o seguinte erro: Project Atualizador.exe raised exception class EDatabaseError with message 'Token unknown - line 1, char 5 TERM Alguém poderia me ajudar? Lembrando que um cliente pode ficar muito tempo sem atualizar o sistema e então ter que rodar vários scripts. Desde já agradeço. Em 9 de março de 2010 11:08, Nazareno Neto nazareno.nobr...@gmail.comescreveu: Se vc for direto no cliente, tu pode levar uma copia do banco mais atual e usar um comparador de banco, tipo o DataBaseComparer, lembrando q este nao eh free para uso comercial! Em 9 de março de 2010 09:23, Dirlei dir...@gmail.com escreveu: Eu resolvo esta questão versionando os databases. À cada alteração no Database, incremento a versão e gero um script de upgrade, que é executado automaticamente pelo sistema nos clientes quando libero uma atualização de versão. Há um email onde expliquei mais detalhadamente como faço isso, procure pelo assunto Atualização de software. Dirlei. Felipe Lopes escreveu: Gostaria muito de sugestões ao assunto relacionado Alguém possui? De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.brdelphi-br%2540yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br] Em nome de Fellipe Henrique Enviada em: terça-feira, 2 de março de 2010 11:41 Assunto: [delphi-br] Como vocês comparam o banco de dados oficial com os dos seus clientes? Amigos, aqui nós usávamos o Clever Components DBComparer onde ele comparava o script da versão oficial do sistema, com a que o cliente tem, e fazia as modificações necessárias... o problema é que este componente está parado desde 2006, ou seja, com o firebird novo, muita coisa está de fora.. o que vez e outra, está trazendo problemas nas atualizações... Então venho perguntar aos amigos.. como vocês realizam os updates dos bancos nos clientes? como controlam isso? Att. -- _ T.·.F.·.A.·. Fellipe Henrique -- Nazareno Neto Desenvolvedor Delphi e Firebird http://www.delphisistemas.com.br nazarenon...@delphisistemas.com.br nazareno.nobr...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.
Re: [delphi-br] Ajuda com sql
SELECT CAMPO1, CAMPO2, CAMPO3, SUM(CAMPO4) AS SOMA FROM TMOV GROUP BY CAMPO1, CAMPO2, CAMPO3 ORDER BY CODPRODUTO, ORIGEM O SUM irá somar os valores do seu campo. o GROUP BY irá agrupar pelos demais campos... o/ Em 25/05/2010 05:02, Allan GabrielAM escreveu: Prezados, tenho uma tabela que tem armazenado os seguintes dados: cod descricao origem qtde 1 111 A 1 1 111 A 1 1 111 C 1 2 222 A 1 2 222 A 1 3 333 B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1 111 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1 111 C 1 2 222 A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3 333 B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso? Obrigado. Rafael.
[delphi-br] Re: Ajuda com sql
Tente assim: select cod, descricao, origem, sum(qtde) as soma from tmov group by cod, descricao, origem order by codproduto,origem Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Allan GabrielAM alla...@... escreveu Prezados, tenho uma tabela que tem armazenado os seguintes dados: coddescricaoorigemqtde 1111A 1 1111A 1 1111C 1 2222A 1 2222A 1 3333B 1 No gerador de relatórios que uso (fortes report) ele aparece da forma citada acima, mas estou precisando fazer aparecer agrupado por cod,origem somando a quantidade ficaria assim: 1111A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (1) 1111C 1 2222A 2 aqui soma as duas quantidades da mesma origem (A) e mesmo produto (2) 3333B 1 No filtro antes de imprimir estou fazendo assim: DatAM.ibqMov.close; DatAM.IbqMov.sql.clear; DataM.ibqmov.sql.add('select * from tmov order by codproduto,origem'); DataM.ibqmov.open; Como faço pra sair como eu preciso?
[delphi-br] Re: Excluindo serviço do Windows - WinSvc.DeleteService
Problema resolvido. Logo após o DeleteService, usar CloseServiceHandle. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, simoesluciano simoesluci...@... escreveu Usando o método WinSvc.DeleteService: function DeleteService(hService: SC_HANDLE): BOOL; stdcall; O serviço do windows só é excluído ao fechar a aplicação. Enquanto a aplicação estiver aberta ele fica com status disabled. Outros recursos como criar, parar e iniciar funcionam perfeitamente. Alguma dica? Obrigado Luciano C. Simões
[delphi-br] MVC + Delphi
Boa tarde. Estou a desenvolver uma aplicação comercial e estou com muitas dúvidas sobre como fazer este projeto, eis alguns requisitos que levantei: * Deve haver a possibilidade de trabalho Client/Server * Utilizará banco de dados relacional - Firebird 2.0 * Padrão MVC Orientado a objetos. * IDE Delphi 2010 Meu questionamento está no último requisito, é possivel se fazer um trabalho em delphi utilizando seus componentes SQLConnection, DataSource, etc, separando isso em camadas? Pois até onde eu sei se eu colocar um componente SQLQuery em um form eu to fazendo referência direta ao banco de dados. Como resolveria este problema. Este projeto é pessoal. Tenho poucos conhecimentos em delphi. Há... estava até pensando em devenvolver em Java pois lá tenho uma visão melhor dessa separação em camadas, sei que ia pecar um pouco na parte visual e também na parte Client/Server já que o Delphi tem o DataSnap. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] MVC + Delphi
estou com a mesma dúvida sua Em 5/25/2010 4:04 PM, Rodrigo Rossi escreveu: Boa tarde. Estou a desenvolver uma aplicação comercial e estou com muitas dúvidas sobre como fazer este projeto, eis alguns requisitos que levantei: * Deve haver a possibilidade de trabalho Client/Server * Utilizará banco de dados relacional - Firebird 2.0 * Padrão MVC Orientado a objetos. * IDE Delphi 2010 Meu questionamento está no último requisito, é possivel se fazer um trabalho em delphi utilizando seus componentes SQLConnection, DataSource, etc, separando isso em camadas? Pois até onde eu sei se eu colocar um componente SQLQuery em um form eu to fazendo referência direta ao banco de dados. Como resolveria este problema. Este projeto é pessoal. Tenho poucos conhecimentos em delphi. Há... estava até pensando em devenvolver em Java pois lá tenho uma visão melhor dessa separação em camadas, sei que ia pecar um pouco na parte visual e também na parte Client/Server já que o Delphi tem o DataSnap. -- Att. Rodrigo Rossi rdrg_ro...@hotmail.com mailto:rdrg_rossi%40hotmail.com (45) 9963-1897 Cascavel - PR [As partes desta mensagem que não continham texto foram removidas] -- Uberdam Cavaletti Programador Delphi Formado em Tecnologia da Informação Pós-graduado em desenvolvimento Java. Professor Tópicos Especias em BD - Unoesc Xanxerê Professor Estruturas de Dados- Unoesc Xanxerê http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2011
Alguém tem idéia de quando será lançado do Delphi 2011? Obrigado Luciano C. Simões
RE: [delphi-br] Delphi 2011
Luciano, O RoadMap está disponível em http://edn.embarcadero.com/article/39934, neste momento o que podemos divulgar é isso, além disso não temos datas definidas. -- -- Andreano Lanusse Product Line Manager Lead Evangelist Latin America Embarcadero Technologies Blog: http://www.andreanolanusse.com Twitter: http://twitter.com/andreanolanusse -Original Message- From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of simoesluciano Sent: Tuesday, May 25, 2010 9:21 AM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Delphi 2011 Alguém tem idéia de quando será lançado do Delphi 2011? Obrigado Luciano C. Simões -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message.