RES: [delphi-br] Erro de DeadLock, me matando. . alguém teria alguma solução?
Eu falo, falo e parece que to falando com as paredes Aí não tem humildade que agüente!!! Vou falar denovo, USE TRANSAÇÃO MANUAL! Procura uma apostila sobre acesso concorrente a tabelas. Ou como utilizar transações. Se você usar transação manual resolverá seus problemas de usuários editarem mesmo registro. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: sexta-feira, 16 de novembro de 2007 14:47 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro de DeadLock, me matando.. alguém teria alguma solução? Cara... descobri o meu problema... eu tenho uma funcao que trava o cadastro, pra ninguem alterar o mesmo cadastro ao mesmo tempo, consequentemente, trava o registro do produto... :o( Removendo esta funcao, dá certo... mas aí gera outro problema... 2 pessoas alterando o mesmo produto ao mesmo tempo... como tratar isso? []s Em 16/11/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br escreveu: Qual mensagem gerar quando vc da um Edit na table sem iniciar uma transação? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Davi Eduardo Borges Wall Enviada em: sexta-feira, 16 de novembro de 2007 14:41 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: RES: [delphi-br] Erro de DeadLock, me matando.. alguém teria alguma solução? Qual a mensagem gerada qual vc da um Edit sem iniciar uma transação? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br ] Em nome de Fellipe Henrique Enviada em: sexta-feira, 16 de novembro de 2007 14:36 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro de DeadLock, me matando.. alguém teria alguma solução? Eu vi lá.. na verdade não estou usando AutoCommit, e sim AutoTransaction, ou seja, minhas IBTransaction estão como AllowAutoStart como True... tentei passar isso pra false, e incluir um StartTransaction ao gravar, mas o IBX não deixa, ele precisa de uma transação ativa até para mostrar os dados. E pelo que vi, não há como separar a transacao do Update com a de um simples View... :o( E agora? Fiquei preso.. hehe []s Em 16/11/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br davi.wall%40mult.com.brmailto: davi.wall%40mult.com.br mailto:davi.wall%40mult.com.br escreveu: Eu não uso IBx, mas no tal IBDatabase tem uma propriedade Params, onde provavelmente vão os parâmetros de conexão. Provavelmente, há um parâmetro conexão chamado AutoCommit, coloque esse parâmetro para False e faça os testes. Se alguém mais conhece conexões com IBx e poderia ajudar o Felipe em como configurar uma conexão sem auto commit. []'s De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Fellipe Henrique Enviada em: sexta-feira, 16 de novembro de 2007 14:13 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro de DeadLock, me matando.. alguém teria alguma solução? IBX... IBExpress... []s Em 16/11/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] mailto:davi.wall%40mult.com.br davi.wall%40mult.com.brmailto: davi.wall%40mult.com.br mailto:davi.wall%40mult.com.br davi.wall%40mult.com.brmailto: davi.wall%40mult.com.br escreveu: O que você está usando como conexão? Bde ou DBExpress ??? De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.brmailto: delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto:
RES: [delphi-br] Erro de DeadLock, me matando. . alguém teria alguma solução?
O último usuário que incluir não vai conseguir salvar as alterações. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Fellipe Henrique Enviada em: sexta-feira, 16 de novembro de 2007 15:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro de DeadLock, me matando.. alguém teria alguma solução? Ué, mais aí pode haver perda de informações... imagina um usuario, incluiu um valor de preco, e outro foi lá e incluiu outro.. como fica? []s Em 16/11/07, MiNuTo [EMAIL PROTECTED] mailto:apoio%40apoioinfor.com.br escreveu: eu aqui nao me preocupo com isso ... deixo que o banco de dados administre se 2 pessoas ao mesmo tempo estiver alterando o mesmo registro , nao da erro aqui eu uso sql server [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Alterar DBGrid sem afetar a tabela
Sim, já usou o calfield ? Procure no help do delphi sobre TCalcField ou evento onCalcField. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Yoshio Iwamoto Enviada em: sexta-feira, 16 de novembro de 2007 00:41 Para: Delphi-BR Assunto: [delphi-br] Alterar DBGrid sem afetar a tabela Como eu faço para alterar um dado do DBGrid (ADOTable) sem que ele altere realmente na tabela do banco de dados, por exemplo, subtrair 1 no campo quantidade do registro exibido? Isso é possível? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Function validação de cpf/cnpj
Pessoal, A virgula não foi feita somente para separar parâmetros e o ponto não serve somente como separador decimal, eles também podem e devem ser utilizados no português !!! E não se abaixa coisas da internet, se baixa coisas/rotinas da internet, ok? E quando se realiza, se realiza alguns testes ou algum teste e não alguns teste. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de mclpaltrin Enviada em: sexta-feira, 16 de novembro de 2007 13:53 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Function validação de cpf/cnpj Prezados Alguém pode me passar uma validação de Cpf/Cnpj que esta 100% - Abaixei algumas mas realizei alguns teste mas sempre encontrei algum detalhe errado Grato [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Function validação de cpf/cnpj
O povo que gosta de criar caso, em vez de ajudar só ta na lista para criticar, Um sábio uma vez disse se não tem nada pra falar fique quieto. Segue duas Functions para validação vê se te ajuda function cpf(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1=10 then d1:=0; d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[10]+num[11]; if calculado=digitado then cpf:=true else cpf:=false; end; function cgc(num: string): boolean; var n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); n2:=StrToInt(num[2]); n3:=StrToInt(num[3]); n4:=StrToInt(num[4]); n5:=StrToInt(num[5]); n6:=StrToInt(num[6]); n7:=StrToInt(num[7]); n8:=StrToInt(num[8]); n9:=StrToInt(num[9]); n10:=StrToInt(num[10]); n11:=StrToInt(num[11]); n12:=StrToInt(num[12]); d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5; d1:=11-(d1 mod 11); if d1=10 then d1:=0; d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6; d2:=11-(d2 mod 11); if d2=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[13]+num[14]; if calculado=digitado then cgc:=true else cgc:=false; end; end. Marcelo Mendes de Oliveira Analista de Informática Tel.: + 49 3551-0177 Fax: + 49 3541-0423 IGUAÇU - celulose, papel s.a www.iguacucelulose.com.br http://www.iguacucelulose.com.br/ P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE! Before printing this document, think about your responsibility and care for the ENVIRONMENT! _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Gerhard Roger Nack Enviada em: sexta-feira, 16 de novembro de 2007 15:14 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Function validação de cpf/cnpj Pessoal, A virgula não foi feita somente para separar parâmetros e o ponto não serve somente como separador decimal, eles também podem e devem ser utilizados no português !!! E não se abaixa coisas da internet, se baixa coisas/rotinas da internet, ok? E quando se realiza, se realiza alguns testes ou algum teste e não alguns teste. De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de mclpaltrin Enviada em: sexta-feira, 16 de novembro de 2007 13:53 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Function validação de cpf/cnpj Prezados Alguém pode me passar uma validação de Cpf/Cnpj que esta 100% - Abaixei algumas mas realizei alguns teste mas sempre encontrei algum detalhe errado Grato [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: Cannot focus a disable or invisible window
Desculpe a demora galera quero dizer que entendi a explicação de todos e consegui resolver. Mas vou explicar melhor a dúvida que eu tinha. Sempre quando mando chamar o Form de Cadastro, já chamava com o Edit1.text(ID_CLIENTE) em foco (SetFocus) e funcionanva normal, mas sempre quando eu mandava fechar esse form, dava esse erro Cannot focus a disable or invisible window. Aí eu vcs me ajudaram a descobrir que o erro dava por causa do Edit1 Focado. Taí o Código que eu usava para chamar o Form (FCadCliente): begin FCadCliente.ShowModal; Edit.SetFocus; end; Pronto, aprendi a lição e passei a implementar esse código sempre no evento onShow do Form e não deu mas este erro. Consegui explicar melhor Qualquer coisa, Obrigado!! --- Em delphi-br@yahoogrupos.com.br, MiNuTo [EMAIL PROTECTED] escreveu um exemplo simples do erro e vc adicionar num novo projeto um form (form2) e do form 1 tentar dar un setfocus sem anter dar um show nele : procedure TForm1.Button1Click(Sender: TObject); begin form2.SetFocus; end; ae da esse erro !! se quiser resposta melhor c vai ter q melhorar sua pergunta! T+ - Original Message - From: MiNuTo To: delphi-br@yahoogrupos.com.br Sent: Friday, November 16, 2007 5:14 PM Subject: Re: [delphi-br] Cannot focus a disable or invisible window nao me lembro direito mas ja tive esse erro em algum form com visible = false a mensagem quer dizer que vc esta tentando focar um form que nao esta disponivel na tela. - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br Sent: Friday, November 16, 2007 4:58 PM Subject: [delphi-br] Cannot focus a disable or invisible window Por que é que quando vou parar de compilar a aplicação, dá este erro??? Cannot focus a disable or invisible window [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Cannot focus a disable or invisible window
Agora sim. rsrsrs Vc focava o Edit depois de fechar o form dele. rsrsrs Acontece nas melhores familias de desenvolvedores. rsrsrs []s Em 19/11/07, rafaelpinto19 [EMAIL PROTECTED] escreveu: Desculpe a demora galera quero dizer que entendi a explicação de todos e consegui resolver. Mas vou explicar melhor a dúvida que eu tinha. Sempre quando mando chamar o Form de Cadastro, já chamava com o Edit1.text(ID_CLIENTE) em foco (SetFocus) e funcionanva normal, mas sempre quando eu mandava fechar esse form, dava esse erro Cannot focus a disable or invisible window. Aí eu vcs me ajudaram a descobrir que o erro dava por causa do Edit1 Focado. Taí o Código que eu usava para chamar o Form (FCadCliente): begin FCadCliente.ShowModal; Edit.SetFocus; end; Pronto, aprendi a lição e passei a implementar esse código sempre no evento onShow do Form e não deu mas este erro. Consegui explicar melhor Qualquer coisa, Obrigado!! --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, MiNuTo [EMAIL PROTECTED] escreveu um exemplo simples do erro e vc adicionar num novo projeto um form (form2) e do form 1 tentar dar un setfocus sem anter dar um show nele : procedure TForm1.Button1Click(Sender: TObject); begin form2.SetFocus; end; ae da esse erro !! se quiser resposta melhor c vai ter q melhorar sua pergunta! T+ - Original Message - From: MiNuTo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, November 16, 2007 5:14 PM Subject: Re: [delphi-br] Cannot focus a disable or invisible window nao me lembro direito mas ja tive esse erro em algum form com visible = false a mensagem quer dizer que vc esta tentando focar um form que nao esta disponivel na tela. - Original Message - From: rafaelpinto19 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Friday, November 16, 2007 4:58 PM Subject: [delphi-br] Cannot focus a disable or invisible window Por que é que quando vou parar de compilar a aplicação, dá este erro??? Cannot focus a disable or invisible window [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Visite: Fundamental: www.amados.com.br Dúvidas:http://nilsoftware.blogspot.com/ Obrigatório: www.saopaulofc.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como exibir caracteres normais e japoneses nos TEdits
Bom dia! Eu tinha o link para uma suíte de componentes que servia para traablhar com UniCODE, mas não consegui localizar novamente. Não sei se somente isso resolveria seu problema, mas pode ser um caminho, sim. Pesquisando no Google, achei este link [ http://www.nikse.dk/delphi.html#unicode ] parece ser bem interessante a abordagem e pode atender a sua necessidade. Sds, Ricardo. Rafael Jorge [EMAIL PROTECTED] escreveu: pq vc nao trabalha sem acentos? ai resolveria ja uma bronca. crie um edit descendente do tedit e na rotina keypress rode alguma funcao que retire acento. ja sobre as outras perguntas nao sei te responder pois nunca mexi com esse idioma. caso nao saiba como cria um compomente desses procura no goole.. deve ter de bolo.. t+ Em 15/11/07, Yoshio Iwamoto [EMAIL PROTECTED] escreveu: Olá pessoal, este é minha primeira mensagem na lista. Estou desenvolvendo um programa para rodar em uma versão japonesa do Windows XP. Preferencialmente o programa precisa aceitar tanto caracteres normais(a, A, Ã, ç...) quanto caracteres japoneses. O programa é bem simples e estou utilizando o Access como banco de dados. Mas não estou conseguindo fazer com que os TEdits aceitem tanto caracteres normais com acentos quanto caracteres japoneses. O mais próximo que eu consegui disso foi utilizando a fonte MS Gothic com script japonês. -Na versão japonesa do Windows ele exibe os caracteres japoneses corretamente, mas ele não exibe os caracteres normais que possuem acentos. -Na versão brasileira(em português) do Windows ele exibe corretamente os caracteres normais (com e sem acento), mas o caracteres japoneses aparecem todos trocados por ?. A pergunta é: Como fazer o sistema de forma que os TEdits exibissem/aceitassem tanto caracteres japoneses e caracters normais com e sem acentos? Pensei em utilizar só caracteres UNICODE, pois acredito que seria idenpendente da versão do Windows XP (japonês, português) e aceitaria qualquer tipo de caracter. Mas não sei como mudar o sistema para aceitar caracteres UNICODE. Não sei se isso é feito mudando a fonte dos TEdits, alguma configuração do Delphi ou no próprio Windows XP. Gostaria de pergunta também qual o sistema de Reports eu devo usar, pois estou utilizando o Rave Report mas ele também está exibindo ? nos caracteres japoneses, até mesmo na versão japonesa do Windows. Por exemplo, no Rave Report eu mudo a fonte para MS Gothic, mas ele não salva com script japonês, sempre volta pro script ocidental da fonte. Agradeço a todos que puderem ajudar. -- Rafael jorge alves Analista/desenvolvedor www.sistemafocus.com.br -- ERP completo www.acinformatica.org -- Empresa [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! [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Mensagens Via Rede
Tenta esse link aqui [ http://www.google.com.br/search?hl=pt-BRq=sockets+em+delphibtnG=Pesquisarmeta= ] . Os tres primeiros links fazem exatamente o que vc precisa. Sds, Ricardo. Felipe Nunes [EMAIL PROTECTED] escreveu: Alguem ja trabalhou com SOCKET no Delphi _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Felipe Nunes Enviada em: sexta-feira, 16 de novembro de 2007 16:09 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Mensagens Via Rede eu consigo acoplar ele no meu sistema? _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de Adriano Santos (Yahoo) Enviada em: sexta-feira, 16 de novembro de 2007 14:46 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Cc: lista-delphi@ mailto:lista-delphi%40yahoogrupos.com.br yahoogrupos.com.br Assunto: Re: [delphi-br] Mensagens Via Rede Procure o componente MailSlot, muito bom. -- Adriano Santos -- Editor Técnico Revista ClubeDelphi www.delphitodelphi.blogspot.com www.devmedia.com.br www.devmedia.com.br/clubedelphi/pagina.asp Felipe Nunes respondeu: Ola Pessoal, Estou querenu desenvolver uma rotina no sistema que eu trabalho aki, é uma sistema de frente de caixa onde são vários usuários diferentes, as pessoas os caixas precisam se comunicar, e eu estava pensado em criar tipo envio de mens de celular para os usuários Por exemplo usuario felipe mensagem : teste teste destino: tiago (ou mais de um usuário) tem algum componente ou algum procedimento ja pronto que faz isso? obrigado [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.15.33/1133 - Release Date: 15/11/2007 20:57 [As partes desta mensagem que não continham texto foram removidas] [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! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Etiquetas
Pessoal, gostaria de saber se alguem ja passou por algo pareceido. Tenho um formulario de etiquetas 1 Coluna que contem 20 etiquetas. Quando mando imprimir 1 etiqueta beleza imprime normalmente, mas quando mando imprimir 15 a cada etiqueta esta baixando 1 milimetro a impressão entao a primeira fica correta a segunda baixa 1 milimitro a proxima mais um e assim sucessivamente ficando a ultima um impressão toda errada muito pra baixo. Como posso corrigir isso ? Valeu
[delphi-br] Erro usando o dbExpress...
Bom dia !!! Estou usando o delphi7 c/ dbExpress para fazer IO no mssql 2000. Em determinada situação o sistema gera o seguinte erro: Não é possivel criar uma nova transação porque a capacidade foi excedida. alguém tem alguma dica: Abraço Doretto. [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Etiquetas
Caro colega (sem nome): Qual o modelo de etiqueta q vc ta usando e qual o componente/metodo de impressão? Kaputz, Robson Skype: kaputz_gri Keep the Dream Alive - Mensagem original De: dhsb [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 19 de Novembro de 2007 10:03:33 Assunto: [delphi-br] Etiquetas Pessoal, gostaria de saber se alguem ja passou por algo pareceido. Tenho um formulario de etiquetas 1 Coluna que contem 20 etiquetas. Quando mando imprimir 1 etiqueta beleza imprime normalmente, mas quando mando imprimir 15 a cada etiqueta esta baixando 1 milimetro a impressão entao a primeira fica correta a segunda baixa 1 milimitro a proxima mais um e assim sucessivamente ficando a ultima um impressão toda errada muito pra baixo. Como posso corrigir isso ? Valeu 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] Delphi Travando
Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [OFF-TOPIC] Consumo de memória com D7
Quando abro o Delphi7 e em seguida pressiono CTRL+ALT+DEL o Gerenciador de Tarefas do Windows XP me informa que o delphi32.exe está consumindo 6.600 kb em uso de memória e 92.500 kb em Tamanho memória virtual. (aba PROCESSOS) E conforme vou usando o D7 (abrindo projetos, compilando, executando, etc...) esses números vão crescendo em grande escala, ao ponto do Tamanho memória virtual bater em 150.000 kb Como não entendo muito disso, pergunto: -Afinal de contas quanto o Delphi 7 está consumindo da memória do pc ? -Existe algum jeito de controlar uma faixa de memória a ser usada pelo Delphi ? Desde já muitíssimo obrigado pela atenção Atenciosamente, Junior [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2007 Update 3, dbNavigator
Ola Pessoal, O componente dbNavigator com Flat := True não esta repintando o estado do DataSet corretamente, pode ser um bug. Alguma sugestão para corrigir o problema, mantendo Flat = True? Thanks, Paulo Geloramo
Re: [delphi-br] Catraca TCA Duvidas
Amigo, vc deve entrar em contato com a empresa Inspell Tecnologia, que é a responsável por dar suporte aos integradores de produtos tecnibra. www.inspell.com.br Abraço! On 11/16/07, Hudson [EMAIL PROTECTED] wrote: Ola, Tenho um sistema instalado em uma cademia e faz o gerenciamento; agora o dono da mesmo arrematou em um leilão da prefeitura de BH uma roleta (catraca) do fabricante Tecnibra modelo TCA (a mesma esta em perfeito estado)... Então fui contactado para fazer o programa interagir com a TCA e vi que ela faz a comunicação serial ate tenho alguns dados fornecido no site da tecnibra, mas não esclareceu as minhas duvidas.. quero saber quais ASCII/ Dbase / binario que são enviado e recebido para a sua funcionabilidade. por exemplo se o aluno tiver em atraso, a catraca não deixa passar.ate o mesmo procurar a secretaria aonte por um codigo o libera. Alguem tem ou ja viu algum documentario falando sobre isso? P1 = 12 vdc P2 = RXE P3 = TXE P4 = TXS P5 = RXS P6 = -12 vdc P7 = GND P8 = GND P9 = Terra valeu gente! Atenciosamente Hudson Dias www.alcancedigital.com.br MSN: [EMAIL PROTECTED] hudson_bh%40hotmail.com Skype: hudson_bh Tele: (31)3434-6304 [As partes desta mensagem que não continham texto foram removidas] -- Não te esqueças de que o arado, dilacerando o solo, acaba igualmente desmantelado e ferido, entretanto, desse choque de forças surge o pão que te supre a mesa. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Travando
Olá Jhosef, Aqui o Delphi nao fica engasgando não... Que versão do Delphi? De repente, pode ser pouca memória na máquina (para o delphi) e o arquivo SWAP, acessando o disco, causa estas pequenas travadas. Abraço Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] escreveu: Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Travando
Delphi 7, uma vez li q o Delphi fica verificando o codigo direto para ver se tem erros, isso eh verdade da para desabilitar isso??? Em 19/11/07, Sergio Eurico [EMAIL PROTECTED] escreveu: Olá Jhosef, Aqui o Delphi nao fica engasgando não... Que versão do Delphi? De repente, pode ser pouca memória na máquina (para o delphi) e o arquivo SWAP, acessando o disco, causa estas pequenas travadas. Abraço Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] jhosef%40gmail.com escreveu: Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Travando
Comigo isso acontece as vezes, geralmente quando vou chamar o code completion, e em alguns casos acontece do nada.. uma pequeno congelamento de uns 3 segundos.. acho que é isso mesmo. quando da uma pre-compilada pra ver se tem erro no código.. detalhe.. to usando o D2007 e isso ainda ocorre. Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] escreveu: Delphi 7, uma vez li q o Delphi fica verificando o codigo direto para ver se tem erros, isso eh verdade da para desabilitar isso??? Em 19/11/07, Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.com escreveu: Olá Jhosef, Aqui o Delphi nao fica engasgando não... Que versão do Delphi? De repente, pode ser pouca memória na máquina (para o delphi) e o arquivo SWAP, acessando o disco, causa estas pequenas travadas. Abraço Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] jhosef%40gmail.comjhosef%40gmail.com escreveu: Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi Travando
Tem como desabilitar isso sera?? Em 19/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu: Comigo isso acontece as vezes, geralmente quando vou chamar o code completion, e em alguns casos acontece do nada.. uma pequeno congelamento de uns 3 segundos.. acho que é isso mesmo. quando da uma pre-compilada pra ver se tem erro no código.. detalhe.. to usando o D2007 e isso ainda ocorre. Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] jhosef%40gmail.com escreveu: Delphi 7, uma vez li q o Delphi fica verificando o codigo direto para ver se tem erros, isso eh verdade da para desabilitar isso??? Em 19/11/07, Sergio Eurico [EMAIL PROTECTED] seurico%40gmail.comseurico%40gmail.com escreveu: Olá Jhosef, Aqui o Delphi nao fica engasgando não... Que versão do Delphi? De repente, pode ser pouca memória na máquina (para o delphi) e o arquivo SWAP, acessando o disco, causa estas pequenas travadas. Abraço Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] jhosef%40gmail.comjhosef%40gmail.comjhosef%40gmail.com escreveu: Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi Travando
Sim isso é normal. Na verdade suspeito que o Delphi tenta fazer uma análise semântica toda vez que o CodeCompletion é chamado. Isso por que é função do analisador semântico conhecer os tipos das variáveis. Para ativar o CodeCompletion é necessário saber qual tipo da variável que o programador de está solicitando informações. (Quem já fez um compilador sabe do que estou falando) Isso no Delphi 7. No Delphi 2007 eu acho que é utilizado um sistema um pouco diferente pois essa análise é feita ao vivo. (live) Ou seja a análise é feita enquanto você está programando. (suspeito que isso seja feito por via .NET) Quem quiser entender o por que disso, procure no vasto mundo da internet por: Analisador Léxico, Analisador Sintático e Analisador Semântico. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 19 de novembro de 2007 13:46 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi Travando Comigo isso acontece as vezes, geralmente quando vou chamar o code completion, e em alguns casos acontece do nada.. uma pequeno congelamento de uns 3 segundos.. acho que é isso mesmo. quando da uma pre-compilada pra ver se tem erro no código.. detalhe.. to usando o D2007 e isso ainda ocorre. Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] mailto:jhosef%40gmail.com escreveu: Delphi 7, uma vez li q o Delphi fica verificando o codigo direto para ver se tem erros, isso eh verdade da para desabilitar isso??? Em 19/11/07, Sergio Eurico [EMAIL PROTECTED] mailto:seurico%40gmail.com seurico%40gmail.com escreveu: Olá Jhosef, Aqui o Delphi nao fica engasgando não... Que versão do Delphi? De repente, pode ser pouca memória na máquina (para o delphi) e o arquivo SWAP, acessando o disco, causa estas pequenas travadas. Abraço Em 19/11/07, Jhosef Marks [EMAIL PROTECTED] mailto:jhosef%40gmail.com jhosef%40gmail.comjhosef%40gmail.com escreveu: Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] mailto:eduardo.drd%40gmail.com Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Erro usando o DbExpress
Boa tarde !!! Estou usando o delphi7 c/ dbExpress para fazer IO no mssql 2000. Em determinada situação o sistema gera o seguinte erro: Não é possivel criar uma nova transação porque a capacidade foi excedida. alguém tem alguma dica: Abraço Doretto. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Agrupar por mês, serviço e quantidade
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade por mês
e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por mês,
alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico =
qrySIAE0501.FieldByName('NM_SERVICO').AsString) do
begin
sMes:= FormatDateTime('',
qrySIAE0501.FieldByName('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico =
qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('',
qrySIAE0501.FieldByName('DT_ENTRADA').AsDateTime)) do
begin
iTotMes := iTotMes +
qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Duvidas com debugger - (Resolvido)
Joao Morais escreveu:
Compilar os componentes com {$D-}
--
Joao Morais
Boa tarde João !
Obrigado pela dica, funcionou certinho aqui !!!
Jader Ricardo
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Se alguém quiser me ajudar e solucionar o meu problema eu agradeço, não pedi a
opinião de ninguem sobre que banco usar ou deixar de usar...cada um usa aquilo
que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Versões do SOAP - Web Services nas versões do Delphi
Olá pessoal, alguem saberia dizer quais a versão do SOAP para as diversas versões do Delphi. Delphi 7 - Soap 1.1 Delphi 2005 - ??? Delphi 2007 - ??? Já busquei na documentação, no Code Central mas não achei esse detalhamento. Se o pessoal da Code Gear puder buscar isso, seria de grande ajuda. Saudações, Josir Gomes
Re: [delphi-br] Agrupar por mês, serviço e quantidade
E em 2007 paradox e BDE não era nem para existir mais. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
hehhe, rapaz.. eu sofri com paradox em 1999 pra nunca mais..
Em 19/11/07, Nilson Chagas [EMAIL
PROTECTED]nilson.chagas.silva%40gmail.com
escreveu:
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
eduardo.drd%40gmail.com
escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a
quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando
por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName
('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
eduardo.drd%40gmail.com
eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
--
Visite:
Fundamental: www.amados.com.br
Dúvidas:http://nilsoftware.blogspot.com/
Obrigatório: www.saopaulofc.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Apelou perdeu,
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED] escreveu:
Se alguém quiser me ajudar e solucionar o meu problema eu agradeço, não
pedi a opinião de ninguem sobre que banco usar ou deixar de usar...cada um
usa aquilo que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a
quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando
por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName
('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Nossa magoei :(
Berra com paradox entaum.
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED] escreveu:
Se alguém quiser me ajudar e solucionar o meu problema eu agradeço, não
pedi a opinião de ninguem sobre que banco usar ou deixar de usar...cada um
usa aquilo que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a
quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando
por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName
('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Boa tarde.
1) Qual é o erro que está dando?
2) Qual é a instrução SQL que vc está passando pra fazer a consulta?
3) Existe alguma indexação no campo pelo qual quer ordenar? Se não tem, crie.
4) Considere _sim_ uma migração para uma base de dados baseada em SQL, mesmo
que Paradox lhe agrade e convenha. Isso faz com que vc acabe se reciclando e
adquirindo mais um pouco de conhecimentos.
Sds,
Ricardo.
Eduardo Silva [EMAIL PROTECTED] escreveu: Se
alguém quiser me ajudar e solucionar o meu problema eu agradeço, não pedi a
opinião de ninguem sobre que banco usar ou deixar de usar...cada um usa aquilo
que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] PEGAR LINHA DE CÓDIGO
Informe-se sobre a JEDI VCL. Mais especificamente a JCL (JEDI Code Library). Ela possui recursos para fazer isso que vc quer. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 19 Nov 2007 18:13:00 + Subject: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/
Re: [delphi-br] Agrupar por mês, serviço e quant idade
Amigo faz assim:
select extract( month from DT_ENTRADA), sum(NR_QUANTIDADE) from tabela
group by extract( month from DT_ENTRADA)
order by extract( month from DT_ENTRADA)
pronto ta ai, espero te ajudado
Sergio Kawahara
- Original Message -
From: Eduardo Silva dos Santos
To: delphi-br@yahoogrupos.com.br
Sent: Monday, November 19, 2007 3:45 PM
Subject: Re: [delphi-br] Agrupar por mês, serviço e quantidade
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED] escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico =
qrySIAE0501.FieldByName('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('',
qrySIAE0501.FieldByName('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
__ NOD32 2669 (20071119) Information __
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ocultar propriedade de um componente
Estou desenvolvendo um componente e gostaria que uma propriedade do componente pai não aparecesse no componente filho. Tem como? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Amigos, consegui resolver meu problema mudando o group by da instrução sql O paradox não aceita a instrução: select extract( month from DT_ENTRADA), sum(NR_QUANTIDADE) from tabela group by extract( month from DT_ENTRADA) order by extract( month from DT_ENTRADA) Valeu a todos que me ajudaram Não penso em mudar de banco pois programo pra passar o tempo e não por trabalho em si...sei que o paradox pode ser ruim, mas no momento, ele me atende as necessidadesas vezes é quebrando a cabeça com algo ruim que a gente se torna um pouquinho melhor.. Mas valeu a todos...(acho que escrevi ressentimento errado, sei lá, ainda bem que ninguem criticou isso tb, rs rs rs rs ) - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Agrupar por mês, serviço e quantidade
Rapaz. quase chorei aqui Nilson, com a patada do nosso amigo gnorante
heheheh, pena que ele vai continuar sofrendo com piradox.. heheheh
Em 19/11/07, Nilson Chagas [EMAIL PROTECTED] escreveu:
Nossa magoei :(
Berra com paradox entaum.
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
escreveu:
Se alguém quiser me ajudar e solucionar o meu problema eu agradeço, não
pedi a opinião de ninguem sobre que banco usar ou deixar de usar...cada
um
usa aquilo que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor, mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos [EMAIL
PROTECTED]eduardo.drd%40gmail.com
eduardo.drd%40gmail.com
escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a
quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta agrupando
por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico = qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString) and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName
('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger := iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ocultar propriedade de um componente
Coloque essa propriedade na área Private. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Yahoo Enviada em: segunda-feira, 19 de novembro de 2007 16:24 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ocultar propriedade de um componente Estou desenvolvendo um componente e gostaria que uma propriedade do componente pai não aparecesse no componente filho. Tem como? [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] PEGAR LINHA DE CÓDIGO
Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. 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 sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: RES: [delphi-br] PEGAR LINHA DE CÓDIGO
Existem inúmeros geradores de exceção para Delphi que mostram o número da linha onde ocorreu o erro. Se você quer algo prático e rápido utilize Assert. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Rodrigues Enviada em: segunda-feira, 19 de novembro de 2007 16:48 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] PEGAR LINHA DE CÓDIGO Isso é uma coisa que sinto falta no delphi. No java, por ser uma linguagem interpretada, sempre que ocorre uma exeção ele mostra a linha na qual a mesma ocorreu. Davi Eduardo Borges Wall escreveu: Se você está querendo usar isso para mostrar a linha que aconteceu um erro, eu aconselharia a utilizar Assert! Procure pela net por Assertion muitas empresas utilizam esta técnica. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de sampaiobrito Enviada em: segunda-feira, 19 de novembro de 2007 16:13 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: [delphi-br] PEGAR LINHA DE CÓDIGO Amigos, há uma forma de pegar o nº da linha de código de execução no delphi em runtime? Desde já agradeço a colaboração! [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Ocultar propriedade de um componente
No Object Pascal (não sei na Delphi language a partir do Delphi 8), não é permitido definir um nível de visibilidade de propriedade anterior ao que já foi definido. Ou seja, se vc tem uma propriedade definida na seção public, vc não pode defini-la em uma classe filha como protected ou private. Por isso, defina essa propriedade que vc não quer que apareça na classe filha como private ou protected. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 19 Nov 2007 16:24:20 -0200 Subject: [delphi-br] Ocultar propriedade de um componente Estou desenvolvendo um componente e gostaria que uma propriedade do componente pai não aparecesse no componente filho. Tem como? [As partes desta mensagem que não continham texto foram removidas] _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
[delphi-br] Re: Agrupar por mês, serviço e quantidade
É assim que começa quando um usuário posta outras dúvidas na lista e
ninguém mais responde (Com total razão). Aí o infeliz ainda tem a
cara de pau de perguntar porque que ninguem responde as mensagens
dele ou será que ninguém nunca passou por isso. Pega e ainda sai
falando que a lista é uma panelinha e que só quem sabe tem vez, que é
uma curriola, etc.. Ele se esquece que um dia alguém tentou ajudá-lo
e recebeu um puta dum coice (totalmente desnecessário) como
agradecimento...
Eu mesmo sou assim. Tem uma turma aí que eu nem olho as mensagens
postadas por eles. As vezes eu até sei a solução do problema do cara
mas simplesmente ignoro. Ignoro mesmo. Conhece o Tonem?
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
http://www.geocities.com/SiliconValley/Bay/1058
MSN: [EMAIL PROTECTED]
SKYPE: WalterChagasJr
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos
[EMAIL PROTECTED] escreveu
Rapaz. quase chorei aqui Nilson, com a patada do nosso
amigo gnorante
heheheh, pena que ele vai continuar sofrendo com piradox.. heheheh
Em 19/11/07, Nilson Chagas [EMAIL PROTECTED] escreveu:
Nossa magoei :(
Berra com paradox entaum.
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%40yahoo.com.br
escreveu:
Se alguém quiser me ajudar e solucionar o meu problema eu
agradeço, não
pedi a opinião de ninguem sobre que banco usar ou deixar de
usar...cada
um
usa aquilo que lhe agrada e convémsem recentimentos...
Eduardo Silva dos Santos, rssrs
Por um momento achei que vc estava tendo uma crise de
identidade. rsrsrs
Pessoal da lista, que ainda trabalha com paradox, por favor,
mudem, para
algo decente. rsrsrs
Em 19/11/07, Eduardo Silva dos Santos
[EMAIL PROTECTED]eduardo.drd%40gmail.com
eduardo.drd%40gmail.com
escreveu:
Rapaz.. que briga de foice heim, vc ja considerou em mudar
pra algum
banco
de dados SQL?
Em 19/11/07, Eduardo Silva [EMAIL PROTECTED]edukobra%
40yahoo.com.br
edukobra%40yahoo.com.br
edukobra%40yahoo.com.br
escreveu:
Galera, tenho uma tabela (paradox) onde eu preciso agrupar a
quantidade
por mês e serviço realizado.
Tenho 3 serviços: Visita, Serviço e Entrega.
Estou com o laço abaixo mas ele esta dando erro e não esta
agrupando
por
mês, alguém pode me dar uma mão?
Obrigado
sServico := '';
while not qrySIAE0501.Eof do
begin
sServico := qrySIAE0501.FieldByName('NM_SERVICO').AsString;
while (not qrySIAE0501.Eof) and (sServico =
qrySIAE0501.FieldByName
('NM_SERVICO').AsString)
do
begin
sMes := FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime);
iTotMes := 0;
while (not qrySIAE0501.Eof) and
(sServico = qrySIAE0501.FieldByName('NM_SERVICO').AsString)
and
(sMes = FormatDateTime('', qrySIAE0501.FieldByName
('DT_ENTRADA').AsDateTime))
do
begin
iTotMes := iTotMes + qrySIAE0501.FieldByName
('NR_QUANTIDADE').AsInteger;
qrySIAE0501.Next;
end;
tblSIAETEMP.Append;
tblSIAETEMP.FieldByName('NM_SERVICO').AsString := sServico;
tblSIAETEMP.FieldByName('NR_QUANTIDADE').AsInteger :=
iTotMes;
tblSIAETEMP.FieldByName('NM_MES').AsString := sMes;
tblSIAETEMP.Post;
end;
end;
tblSIAETEMP.First;
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram
removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
...
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ocultar propriedade de um componente
Rubem Nascimento da Rocha wrote: No Object Pascal (não sei na Delphi language a partir do Delphi 8), Delphi Language é a partir do 7. não é permitido definir um nível de visibilidade de propriedade anterior ao que já foi definido. Ou seja, se vc tem uma propriedade definida na seção public, vc não pode defini-la em uma classe filha como protected ou private. Continua valendo hoje, e aposto algumas fichas de que isso não vai mudar. -- Joao Morais
RES: [delphi-br] Delphi Travando
Boa tarde. Jhosef Sempre, recebo um e-mail do moderador deste grupo, onde ele descreve os atalhos do e dicas Delphi veja a dica quedo trecho abaixo talvez te ajude. t+ OUTRAS DICAS: Quando estamos trabalhando com o Delphi, muitas vezes aparece a dita cuja Ampulheta e temos que ficar aguardando a boa vontade da mesma em voltar ao normal. Isso se deve ao fato de o Delphi manter uma análise de segundo plano constante, tanto do código-fonte que você está escrevendo, quando do código-fonte das units a que a sua unit atual se refere. Este recurso tem por finalidade auxiliar na codificação e na depuração do programa. O ideal é desabilitar este recurso e só habilitá-lo quando necessário. Para isso, entre em Tools/Editor Options/Code Insight e, no grupo Automatic Features, desmarque as opções 1, 2 e 4. Além disso, diminua o Delay para 0,5 sec. Quando for necessário usar estes recursos proceda da seguinte forma: - Se quiser usar o Code Completion, no momento em que digitar o comando e o ponto (Ex. Edit1. ), presione Ctrl+Barra de Espaço para forçar a exibição dos comandos relativos àquele componente. - Se quiser usar o Code Parameters, para visualizar os tipos de parâmetros usados por uma função, após digitar o nome da função e o parêntesis, pressione Ctrl+Shift+Barra de Espaço (Ex: ZeraCod( ). Isto fará com que um hint apareça, exibindo qual parâmetro deve ser informado naquele momento. - Quando você move o ponteiro do mouse sobre um componente, uma dica de tela aparece mostrando o nome e o tipo do mesmo (Ex: CdEmp: TEdit). - Quando você redimensiona um componente, a dica mostra o tamanho (width x height) atuais. - Quando você move um componente, a dica indica a posição atual (left e top). - Para selecionar vários componentes, mantenha a tecla Ctrl pressionada enquando arrasta o ponteiro do mouse sobre os mesmos. Esta técnica é muito útil quando se quer selecionar componentes que estão inseridos em um componente do tipo container (Panel, GroupBox, ScrollBox, etc). - Se você precisa adicionar vários componentes do mesmo tipo num form, mantenha a tecla Shift pressionada e clique sobre o componente desejado na paleta de componentes do Delphi. Agora é só ir clicando no form, onde quer que os novos componentes sejam inseridos. Para desfazer a trava do componente, clique no botão que tem um ponteiro de mouse, localizado no lado esquerdo da paleta de componentes. Atenciosamente Akira / Marcos / Walter Moderadores lista www.delphibr.com.brwww.dugbr.com.br -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jhosef Marks Enviada em: segunda-feira, 19 de novembro de 2007 10:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Delphi Travando Alguem sabe pq o Delphi fica dando umas travadas (fica parando por uns segundos) enquanto esta sendo usado??? Tem como resolver isso?? -- Jhosef Marks de Carvalho Delphi Developer http://groups. http://groups.google.com/group/soumaisdelphi google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Indy10 Delphi 2007
Boa tarde amigos, Desinstalei o componente indy10 do delphi 2007 pelo menu Componente Add package e agora nao acho mais a instalação , alguem tem alguma dica? Desde já agradeço.
RE: [delphi-br] Ocultar propriedade de um componente
Joao, tenho certeza absoluta de que até o Delphi 7, a linguagem usada pelo Delphi se chamava Object Pascal. Inclusive tenho matérias de revistas ClubeDelphi que mencionam essa diferenca. Só depois do Delphi 8 é que a linguagem passou a se chamar Delphi Language. Algum colega certificado da Borland pode por favor se manifestar sobre esta questão? Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 19 Nov 2007 17:33:01 -0200 Subject: Re: [delphi-br] Ocultar propriedade de um componente Rubem Nascimento da Rocha wrote: No Object Pascal (não sei na Delphi language a partir do Delphi 8), Delphi Language é a partir do 7. não é permitido definir um nível de visibilidade de propriedade anterior ao que já foi definido. Ou seja, se vc tem uma propriedade definida na seção public, vc não pode defini-la em uma classe filha como protected ou private. Continua valendo hoje, e aposto algumas fichas de que isso não vai mudar. -- Joao Morais _ Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS! http://alertas.br.msn.com/
[delphi-br] FREEREPORT CODIGO BARRAS
Ola a todos
estou usando d7 com firebird
e freereport como editor de relatorios
so q estou tendo dificuldades com a vizualização , relatorios eu vejo
normal , mais codigobarra da erro
frReport1.LoadFromFile('D:\CodigoBarra.frf');
frReport1.ShowReport;
da um erro de tbar codeview e na rola
alguem pode dar uma ideia do q seja , e gostaria tb de saber onde
consigo material, apoistila sobre freereport.
brigadã pela atenção de todos
well.
[delphi-br] Site de componentes
Salve nobres Colegas, Estou repassando o endereço de uma site que conta com milhares de componentes para delphi e outras plataformas de desenvolvimento: http://www.vclcomponents.com Existem componentes de todos os tipos possíveis, entre grátis e pagos. Espero que ajude nossos nobres colegas. Abraços. Ralp Alves
[delphi-br] Impressão: Acho que achei um PUG...
Pessoal Tenho uma rotina que imprime direto na porta LPT1 para impressão MATRICIAL funciona muito bem, infelizmente não posso usar os componentes RDPrint ou VDO para impressão por motivos de arquitetura de software, bem... O PROBLEMA: Meus clientes querem imprimir 2 ou mais cópias do mesmo documento, como a impressão é direto na porta tenho que fazer Loopings ou salvar em arquivo e depois imprimir do arquivo a qtde de vezes que desejar... A SOLUÇÃO: Criei no QuickReports um módulo que resolve perfeitamente o meu problema, daí é gerenciado pelas impressoras do Windows, ficou muito bom, imprime muito rápido, visualiza na tela, salva em diferentes formatos, etc... O PROBLEMA DA SOLUÇÃO: Quando mando imprimir em impressoras de 40Colunas mesmo ajustando o tamanho do papel na impressora, no WinXP colocando papel de tamanho CUSTOM na visualização sai perfeito, mas ao imprimir não obedece a altura da página que eu defino, daí imprime um pedaço e pula um monte... já no Win98 com o mesmo código imprime e para logo após a ultima linha perfeitamente... parece que no WinXP por mais que eu altere no driver da impressora o tamanho do papel (altura e largura) quando mando imprimir não obedece e imprime a altura como se fosse A4... Alguma sugestão? Detalhe: Utilizando impressora EPSON LX300 funciona perfeito, quanto utilizo o a Genérico Somente Texto que ocorre o problema e por ser impressora de 40Colunas muitas são antigas e não tem Driver próprio utilizam o Genérico somente Texto. Juliano Silva. No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Impressão: Acho que achei um PUG...
Eduardo, Sim, já pensei nesta hipótese, no entanto caso opte por ela deixo uma série de recursos de lado, como impressão por Driver de rede (impressora compartilhada), visualização, salvamento em diferentes formatos, envio por e-mail... Entende agora o porquê quero achar uma solução? Juliano _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: segunda-feira, 19 de novembro de 2007 20:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão: Acho que achei um PUG... é melhor vc fazer como vc mesmo disse, gere o arquivo e copei pra porta quantas vezes for necessário.. assim vc não fica refém de drivers e da versão do S.O Em 19/11/07, Juliano Silva - Yahoo HYPERLINK mailto:smjjuliano%40yahoo.com.br[EMAIL PROTECTED] escreveu: Pessoal Tenho uma rotina que imprime direto na porta LPT1 para impressão MATRICIAL funciona muito bem, infelizmente não posso usar os componentes RDPrint ou VDO para impressão por motivos de arquitetura de software, bem... O PROBLEMA: Meus clientes querem imprimir 2 ou mais cópias do mesmo documento, como a impressão é direto na porta tenho que fazer Loopings ou salvar em arquivo e depois imprimir do arquivo a qtde de vezes que desejar... A SOLUÇÃO: Criei no QuickReports um módulo que resolve perfeitamente o meu problema, daí é gerenciado pelas impressoras do Windows, ficou muito bom, imprime muito rápido, visualiza na tela, salva em diferentes formatos, etc... O PROBLEMA DA SOLUÇÃO: Quando mando imprimir em impressoras de 40Colunas mesmo ajustando o tamanho do papel na impressora, no WinXP colocando papel de tamanho CUSTOM na visualização sai perfeito, mas ao imprimir não obedece a altura da página que eu defino, daí imprime um pedaço e pula um monte... já no Win98 com o mesmo código imprime e para logo após a ultima linha perfeitamente.-.. parece que no WinXP por mais que eu altere no driver da impressora o tamanho do papel (altura e largura) quando mando imprimir não obedece e imprime a altura como se fosse A4... Alguma sugestão? Detalhe: Utilizando impressora EPSON LX300 funciona perfeito, quanto utilizo o a Genérico Somente Texto que ocorre o problema e por ser impressora de 40Colunas muitas são antigas e não tem Driver próprio utilizam o Genérico somente Texto. Juliano Silva. No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas] -- -.-.-.-.-... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: HYPERLINK mailto:eduardo.drd%40gmail.com[EMAIL PROTECTED] Site: HYPERLINK http://www.drdsistemas.com/http://www.drdsiste-mas.com/ -.-.-.-.-... [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Impressão: Acho que achei um PUG...
Uma sujestão: Deixe as duas opções, já que tu as tem prontas. Oriente o cliente a utilizar com a epson os relatórios do quick, informe que os mesmos só funcionaram com essa impressora ou impressoras mais novas. Para as outras utilize a versão direto na porta. Pense o seguinte, se nem o fabricante do equipamento disponibiliza versões mais novas dos drives como tu vai resolver o problema?! Passe o mesmo para o cliente, informando-o que se ele quer dispor de todas as vantagens dos relatórios mais novos terá que atualizar as impressoras. Sei que não é necessariamente o caso mas não adianta desenvolver um motor de ferrari e colocar o mesmo para o rodar num fusca. Nada contra o fusca é claro, mas o mesmo tem suas limitações. Juliano Silva - Yahoo escreveu: Eduardo, Sim, já pensei nesta hipótese, no entanto caso opte por ela deixo uma série de recursos de lado, como impressão por Driver de rede (impressora compartilhada), visualização, salvamento em diferentes formatos, envio por e-mail... Entende agora o porquê quero achar uma solução? Juliano _ 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 Eduardo Silva dos Santos Enviada em: segunda-feira, 19 de novembro de 2007 20:15 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Impressão: Acho que achei um PUG... é melhor vc fazer como vc mesmo disse, gere o arquivo e copei pra porta quantas vezes for necessário.. assim vc não fica refém de drivers e da versão do S.O Em 19/11/07, Juliano Silva - Yahoo HYPERLINK mailto:smjjuliano%40yahoo.com.br[EMAIL PROTECTED] escreveu: Pessoal Tenho uma rotina que imprime direto na porta LPT1 para impressão MATRICIAL funciona muito bem, infelizmente não posso usar os componentes RDPrint ou VDO para impressão por motivos de arquitetura de software, bem... O PROBLEMA: Meus clientes querem imprimir 2 ou mais cópias do mesmo documento, como a impressão é direto na porta tenho que fazer Loopings ou salvar em arquivo e depois imprimir do arquivo a qtde de vezes que desejar... A SOLUÇÃO: Criei no QuickReports um módulo que resolve perfeitamente o meu problema, daí é gerenciado pelas impressoras do Windows, ficou muito bom, imprime muito rápido, visualiza na tela, salva em diferentes formatos, etc... O PROBLEMA DA SOLUÇÃO: Quando mando imprimir em impressoras de 40Colunas mesmo ajustando o tamanho do papel na impressora, no WinXP colocando papel de tamanho CUSTOM na visualização sai perfeito, mas ao imprimir não obedece a altura da página que eu defino, daí imprime um pedaço e pula um monte... já no Win98 com o mesmo código imprime e para logo após a ultima linha perfeitamente.-.. parece que no WinXP por mais que eu altere no driver da impressora o tamanho do papel (altura e largura) quando mando imprimir não obedece e imprime a altura como se fosse A4... Alguma sugestão? Detalhe: Utilizando impressora EPSON LX300 funciona perfeito, quanto utilizo o a Genérico Somente Texto que ocorre o problema e por ser impressora de 40Colunas muitas são antigas e não tem Driver próprio utilizam o Genérico somente Texto. Juliano Silva. No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas] -- -.-.-.-.-... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: HYPERLINK mailto:eduardo.drd%40gmail.com[EMAIL PROTECTED] Site: HYPERLINK http://www.drdsistemas.com/ http://www.drdsistemas.com/http://www.drdsiste-mas.com/ http://www.drdsiste-mas.com/ -.-.-.-.-... [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.503 / Virus Database: 269.16.0/1137 - Release Date: 18/11/2007 17:15 [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Crystal Reports 10 no Delphi 2006 ou Delphi 7 - Instalar [delphi-br]
Bom dia, caríssimos! Alguem já fez a instalação do componente de chamada do CR10 no Delphi 2006 ou pelo menos no Delphi 7 ? a ultima vez que instalei era o Cr8 e o Delphi 5. não me recordo mais como faz e não acho nada na internet. desde já, muito obrigado! [As partes desta mensagem que não continham texto foram removidas]
