Re: [delphi-br] Verificar se existe antes de Gravar
Porque não colocar ela como sendo uma das partes de uma chave primaria composta, assim vc não teria que fazer nenhum teste, apenas tratar o retorno de um erro de chave duplicada. - Original Message - From: Rodrigo Brito To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 04, 2005 12:20 PM Subject: [delphi-br] Verificar se existe antes de Gravar Boa Tarde, Tenho um cadastro de pessoal, e um dos campos é a SILGA, onde não pode ser repetir... Quando cadastrar um novo funcionaério e apertar o botão para incluir , teria que verificar se ja existe uma sigla igual a informada, caso sim me retornasse um aviso. como posso fazer isso? -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 30/12/04 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 30/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 30/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Duvida na formulação de uma consulta relativamente simples-SQL
Além das soluções apresentadas pelo nosso amig, use o case: Select descricao... (CASE (databaixa IS NULL) AND (datavencimento data_hoje); Sum(valor) ;0) as Vecidas, (CASE (databaixa IS NULL) AND (datavencimento IS NULL);SUM(VALOR);0) as VEncidas_aberto, (CASE (databaixa NOT NULL) AND (datavencimento NOT NULL);SUM(VALOR);0) as Pagas, (CASE (databaixa NOT NULL) AND (datavencimento data_hoje);SUM(VALOR);0) as AVEncer, seusoutroscampos FROM SuaTabela WHERE SuasCondições GROUP BY SeusGrupos. Note o resto da consulta continua normal. - Original Message - From: Demian Lessa To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 29, 2004 12:30 PM Subject: Re: [delphi-br] Duvida na formulação de uma consulta relativamente simples-SQL -BEGIN PGP SIGNED MESSAGE- Hash: SHA1 Leonardo, Cada soma dessas que você menciona possui critérios de soma distintos então não há solução trivial em um único e simples SELECT. Sugestões práticas seguem: ~ #1) rode 4 consultas de soma distintas; ex: ~ SELECT SUM(vr_original) ~ FROM tabela ~ WHERE (databaixa IS NULL) AND (datavencimento data_hoje); ~ ... ~ #2) rode uma consulta com UNION e gere as quatro somas cada uma ~ como uma linha de seu resultado; ex: ~ SELECT 'vencidas' as descricao, SUM(vr_original) ~ FROM tabela ~ WHERE (databaixa IS NULL) AND (datavencimento data_hoje) ~ UNION ~ SELECT 'a vencer' as descricao, SUM(vr_original) ~ FROM tabela ~ WHERE (databaixa IS NULL) AND (datavencimento data_hoje) ~ ... ~ #3) se seu banco permite consultas na parte dos campos, rode um ~ SELECT para cada soma na parte dos campos; ex: ~ SELECT ~ (SELECT SUM(vr_original) ~FROM tabela ~WHERE (databaixa IS NULL) AND ~ (datavencimento data_hoje)) as vencidas, ~ (SELECT SUM(vr_original) ~FROM tabela ~WHERE (databaixa IS NULL) AND ~ (datavencimento data_hoje)) as a_vencer, ~ ... ~ #4) se seu banco permite funções na parte dos campos, crie uma ~ função para cada soma e utilize-as para cada soma na parte ~ dos campos; ex: ~ SELECT ~ fxContasVencidas(data_hoje) as vencidas, ~ fxContasAVencer(data_hoje) as a_vencer, ~ ... NOTAS: observe que os operadores de data devem ignorar a parte de tempo a não ser que você queira explicitamente considerá-los; assim, num banco como o PostgreSQL você pode estar olhando para uma necessidade de CAST para DATE caso tenha utilizado campos TIMESTAMP nas colunas de data, por exemplo; quanto ao data_hoje, a maioria dos bancos possui função para isso- se não for esse seu caso, utilize um parâmetro na consulta do Delphi. Veja também que apenas a opção #1 contempla mais de uma consulta no lado do Delphi. No lado do banco, todas elas são aproximadamente equivalentes exceto, talvez, pela UNION que pode ficar mais pesada. Mas isso depende muito de diversos fatores no lado do banco, claro. Eu, particularmente, não gosto muito de trabalhar com UNION. Só faço mesmo quando preciso fabricar uma linha em uma tabela como, por exemplo: ~ SELECT id, nome ~ FROM cPessoa ~ UNION ~ SELECT -1, 'todas as pessoas' ~ ORDER BY nome Esse resultado permite, por exemplo, em configurações de relatórios, ter um registro que me indica que é pra selecionar tudo daquela entidade (e que normalmente é a opção padrão). Cordialmente, Demian Lessa Leonardo wrote: | | Em um cadastro de Titulos tenho de selecionar um determinado clinte | e somar:1º todos os titulos em aberto vencidos | 2º A vencer | 3º Pagos em dia | 4º Pagos em atraso | | Tenho todas as informacoes em um unica tabela | | Cliente | Vr orginal | Saldo | Data da Baixa | Data do vencimento | | Como , se possivel, fazer isto em uma unica instrução select? | | Agradeço desde já -BEGIN PGP SIGNATURE- Version: GnuPG v1.2.4 (MingW32) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFB0r+YYTVEtRexYaQRAqxbAJ0bXxiBVNzJqlbn5oWOOOkpWnvZBACeOhJ+ 6p9nQB2pqufQG75blGD4X/M= =HIB1 -END PGP SIGNATURE- -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um
Re: [delphi-br] String
usa esta função: Function TFrmVivo.tiramasc(edt: string): string; const masc : array[1..6] of string=('/', '.', ',','-','(',')'); var i,j,k :integer; aux : string; begin aux:=''; for i:=1 to length(edt) do begin k:=0; for j:=1 to 6 do if (edt[i]=masc[j]) then begin k:=k+1; break; end; if k=0 then aux:=aux + edt[i]; end; Result := Trim(aux); end; usa ela assim stringsemmasc:= tiramasc(string); - Original Message - From: Diogo To: delphi-br@yahoogrupos.com.br Sent: Monday, December 27, 2004 10:49 AM Subject: RES: [delphi-br] String Uma função nativa da Delphi que retire tudo de uma vez só, acho que não tem, aconselharia a usar StringReplace, ou criar uma função que faça isso. Ex: function retira(teste : string): string; begin teste := trim(StringReplace(teste,'.','',[rfReplaceAll])); teste := trim(StringReplace(teste,'/','',[rfReplaceAll])); teste := trim(StringReplace(teste,'-','',[rfReplaceAll])); result := teste; end; A função não é muito elegante hehehe, mas funciona. []s -Mensagem original- De: luciano [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 27 de dezembro de 2004 08:02 Para: delphi Assunto: [delphi-br] String Pessoal alguém sabe se existe alguma função que retire da string um ou mais caracteres que não desejo. Ex: String 11.111.111/-11, desta string não quero os pontos, os traços e nem a barra. Grato -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.5 - Release Date: 26/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.5 - Release Date: 26/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA
O que vc pode estar fazendo é se o servidor do seu cliente for WIN2K3 ou 2K, usar o Terminal Service para efetuar as operações. - Original Message - From: Andre - Informática [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 4:00 PM Subject: Re: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA A única maneira que vejo é vc setar no bde do cliente o endereço IP do servidor de dados como diretório que os dados estão, mas tem uma coisa, no paradox não são criadas as tabelas temporárias na memória, o acesso é feito direto ao disco, talvez por isso o sistema fique tão lento. Uma vez que não há essa geração de tabela na memória para posterior salvamento fisico, os clientes estão conectados diretos com as tabelas e isto explicaria a lentidão na rede. Como pode ver o sistema não está carregando a pasta inteira como vc disse e sim acessando a pasta inteira o tempo todo. - Original Message - From: Bruno Domenici Ferreira [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 22, 2004 11:38 AM Subject: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA Bom Dia Colegas, Primeiramente gostaria de dizer sou novo aki. :0) Sou programador mas naum trabalho com Delphi, me inscrevi nessa lista pelo seguinte motivo: (lah vai o livro...heheheh) Tenho um cliente que presto serviços de manutenção de servidores de rede e firewall em linux para ele, pois bem, ele tem 2 filiais e as 2 usam um sistema feito em Delphi + Paradox. Ele me procurou dizendo que gostaria de integrar as 2 filiais (q rodam o mesmo sistema com base separada para cada filial), entaum eu montei pra ele uma VPN com os 2 firewall que jah estavam rodando. Em cada firewall tenho um Speedy de 512 kbps em cada, a VPN ficou perfeita, soh que o sistema em Delphi ficou MUITO lento. Eu achava que o delphi pegaria da pasta aonde fica o sistema somente os arquivos .db do paradox e traria para a maquina q solicitou a consulta (o maior arquivo .db eh de 800kb) entaum pela minhas contas ele demoraria no maximo 30 segundos para abrir esse arquivo. O problema eh que eu acredito (olhando o trafego a VPN) que ele esteja trazendo a pasta toda do sistema (essa tem uns 13mb) inviabilizando o uso do sistema pela VPN. Pesquisando na net tenteio alterar algumas configuração do BDE mas naum obtive sucesso. Alguém já passou por isso antes!? Existe alguma configuração no BDE para isso!? Qual a solução para rodar Delphi/Paradax em uma rede lenta!? Alguem tem alguma sujestão? Grato desde jah e desculpem o livrohehehe Abraços e bom fim de ano a todos. -- Bruno D. Using Opera's revolutionary e-mail client: http://www.opera.com/m2/ ** Scanned by VisNetic MailScan for SMTP Servers. Visit http://www.deerfield.com/products/visnetic_mailscan. ** -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Problema com o GROUP BY
Coloque o ADODesc_Papel na clausula Group by. - Original Message - From: Douglas - CPD To: Delphi - grupos ; Delphi-Br ; [EMAIL PROTECTED] Com. Br ; Delphi-No-Brasil ; Delphi-Total ; Lista-Delphi Sent: Wednesday, December 22, 2004 6:17 PM Subject: [delphi-br] Problema com o GROUP BY Por que ao tentar executar o seguinte código, recebo a mensagem de erro abaixo: dm.AdoQryTrabOpsCorte.Close; dm.AdoqryTrabOpsCorte.SQL.Text := 'SELECT AdoComponente, ' + 'SUM(AdoQTDM2PAPEL) AS AdoTOTM2PAPEL, ' + 'SUM(AdoQTDBOBINAS) AS AdoTOTBOBINAS, ' + 'AdoDESC_PAPEL, AdoDATAFINAL FROM ' + sTabelaTemporariaOps + ' GROUP BY AdoComponente, AdoDataFinal' ; dm.AdoQryTrabOpsCorte.Open; 'You tried to execute a query that does not include the specified expression 'AdoDesc_Papel' as part of an aggregate function' Alguém poderia me ajudar ? Douglas - CPD SISTEMAS - Torres ( Ramal 225 * [EMAIL PROTECTED] * [EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] WebCam
Poderia me enviar o arquivo com o exemplo da webcam, tenho que desenvolver um sistema de controle de portaria aqui na empresa e iria precisar usar esta função. Atenciosamente, André Luis - Leitbom Desenvolvedor - Original Message - From: Romario (Delphi) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:14 AM Subject: Re: [delphi-br] WebCam Perdão! Fui enviar em PVT e acabei enviando para a lista (que não aceita anexo). Sds, Romario Romario (Delphi) escreveu: Segue em anexo um aplicativo que faz isso. Sds, Romario André Argeri escreveu: Boa tarde. Estou desenvolvendo um programa usando delphi 7 e queria saber se tem algum componente ou alguma coisa para capturar as imagens da web cam. Desde já agradeço Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] WebCam
Poderia me enviar tb, tenho interesse sobre o assunto. - Original Message - From: Romario (Delphi) To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:14 AM Subject: Re: [delphi-br] WebCam Perdão! Fui enviar em PVT e acabei enviando para a lista (que não aceita anexo). Sds, Romario Romario (Delphi) escreveu: Segue em anexo um aplicativo que faz isso. Sds, Romario André Argeri escreveu: Boa tarde. Estou desenvolvendo um programa usando delphi 7 e queria saber se tem algum componente ou alguma coisa para capturar as imagens da web cam. Desde já agradeço Muito Obrigado -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.298 / Virus Database: 265.6.4 - Release Date: 22/12/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Mudar propriedade EditMask do TField??
usa um dblistbox com os tipo PF ou PJ: if dblistbox1.selectedIndex = 0 then nomedatabelanomedocampo.Mask := '999.999.999-99' Else nomedatabelaNomedocampo.Mask := '99.999.999/-99'; coloca este código no evento onexit do dblistbox ou no onenter do dbedit de cpf/cnpj. - Original Message - From: faustofrca To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 12:15 PM Subject: [delphi-br] Mudar propriedade EditMask do TField?? Boa tarde a todos.. Em uma tabela tenho 1 único campo onde eu armazeno o CNPJ OU CPF, dependendo do tipo de pessoa, no caso Pessoa Juridica o CNPJ e pessoa fisica o CPF. Existe alguma forma de mudar a propriedade EditMask via programação, dependendo do tipo da pessoa? Se sim, como seria esta mudança? []´s Fausto -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA
A única maneira que vejo é vc setar no bde do cliente o endereço IP do servidor de dados como diretório que os dados estão, mas tem uma coisa, no paradox não são criadas as tabelas temporárias na memória, o acesso é feito direto ao disco, talvez por isso o sistema fique tão lento. Uma vez que não há essa geração de tabela na memória para posterior salvamento fisico, os clientes estão conectados diretos com as tabelas e isto explicaria a lentidão na rede. Como pode ver o sistema não está carregando a pasta inteira como vc disse e sim acessando a pasta inteira o tempo todo. - Original Message - From: Bruno Domenici Ferreira [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, December 22, 2004 11:38 AM Subject: [delphi-br] Delphi + Paradox + VPN = Lentidão ABSURDA Bom Dia Colegas, Primeiramente gostaria de dizer sou novo aki. :0) Sou programador mas naum trabalho com Delphi, me inscrevi nessa lista pelo seguinte motivo: (lah vai o livro...heheheh) Tenho um cliente que presto serviços de manutenção de servidores de rede e firewall em linux para ele, pois bem, ele tem 2 filiais e as 2 usam um sistema feito em Delphi + Paradox. Ele me procurou dizendo que gostaria de integrar as 2 filiais (q rodam o mesmo sistema com base separada para cada filial), entaum eu montei pra ele uma VPN com os 2 firewall que jah estavam rodando. Em cada firewall tenho um Speedy de 512 kbps em cada, a VPN ficou perfeita, soh que o sistema em Delphi ficou MUITO lento. Eu achava que o delphi pegaria da pasta aonde fica o sistema somente os arquivos .db do paradox e traria para a maquina q solicitou a consulta (o maior arquivo .db eh de 800kb) entaum pela minhas contas ele demoraria no maximo 30 segundos para abrir esse arquivo. O problema eh que eu acredito (olhando o trafego a VPN) que ele esteja trazendo a pasta toda do sistema (essa tem uns 13mb) inviabilizando o uso do sistema pela VPN. Pesquisando na net tenteio alterar algumas configuração do BDE mas naum obtive sucesso. Alguém já passou por isso antes!? Existe alguma configuração no BDE para isso!? Qual a solução para rodar Delphi/Paradax em uma rede lenta!? Alguem tem alguma sujestão? Grato desde jah e desculpem o livrohehehe Abraços e bom fim de ano a todos. -- Bruno D. Using Opera's revolutionary e-mail client: http://www.opera.com/m2/ ** Scanned by VisNetic MailScan for SMTP Servers. Visit http://www.deerfield.com/products/visnetic_mailscan. ** -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Ultimas compras e preços
Pessoal é o seguinte: Tenho que gerar um consulta com todos os fornecedores de um certo produto, esta consulta tem que me retornar entre as informações do fornecedor (CNPJ,DESCRICAO,TELEFONE,...) o último preço de compra do produto para cada fornecedor. Meu problema é que quando coloco para puxar da tabela de items_compra, ele me retorna todas as compras que tenho na tabela. seria mais ou menos isto que eu quero: Cod ProdDescricao 05 AMIDO Cod Forn descricao Ultimo preco 1 Teste 11,50 2 Teste 22,50 3 Teste 30,99 Assim saberia de quem está mais barato. Alguem pode me ajudar -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: Linhas num Grid
Gostaria de saber como posso criar uma query que me retorne as ultimas compras de um produto com seus fornecedores. Quero que me retorne todos os fornecedores de um determinado produto com suas respectivas datas de ultima compra. Tenho a seguinte consulta: SELECTDISTINCTprod.COD_PRODUTO, prod.COD_PRODUTO_SE, prod.DESCRICAO, pf.COD_FORNEC, forn.DESCRICAO AS Expr1, forn.CNPJ, forn.ENDERECO, forn.NUMERO, forn.CEP, forn.COMPLEMENTO, forn.BAIRRO, forn.CIDADE, forn.UF, forn.FONE, forn.FAX, forn.PESSOA_CONTATO, MAX(dbo.T0160.DTRECNF_RM) AS Expr2, dbo.T0161.PRECOUNNF_ AS Expr3 FROM dbo.T0161 INNER JOIN dbo.T0160 ON dbo.T0161.CODNF_RM01 = dbo.T0160.CODNF_RM01 INNER JOIN dbo.CF_PRODUTO prod INNER JOIN dbo.CF_PROD_FORNEC pf ON prod.COD_PRODUTO = pf.COD_PROD INNER JOIN dbo.CF_FORNECEDOR forn ON pf.COD_FORNEC = forn.COD_FORN ON dbo.T0161.ITEMNF_RM0 = prod.COD_PRODUTO_SE WHERE (prod.COD_PRODUTO = 115) AND (prod.COD_PRODUTO = 115) GROUP BY dbo.T0161.PRECOUNNF_,prod.COD_PRODUTO_SE, prod.DESCRICAO, pf.COD_FORNEC, forn.DESCRICAO, forn.CNPJ, forn.ENDERECO, forn.NUMERO, forn.CEP, forn.COMPLEMENTO, forn.BAIRRO, forn.CIDADE, forn.UF, forn.FONE, forn.FAX, forn.PESSOA_CONTATO, prod.COD_PRODUTO Mas ela me retorna todas as compras que tenho na tabela de compras e items de compras. A tabela T0160 é a tabela de Compras e a T0161 é a de itens de compra. - Original Message - From: Osmar de Souza Júnior To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 23, 2004 2:43 PM Subject: [delphi-br] Re: Linhas num Grid não sei se o gride padrão do Delphi faz isso... eu utilizo o gride dos componentes InfoPower (http://www.woll2woll.com/infopower) ele permite uma extensibilidade enorme para os grids. coloca combobox dentro dos grides, colunas que ajustam a largura automaticamente, etc... --- Em delphi-br@yahoogrupos.com.br, Eduardo Buffara Junior [EMAIL PROTECTED] escreveu Olá pessoal td bem??? Estou com o seguinte problematenho um grid...este grid esta ligado numa tabela cujo o campo texto alem de ser um pouquinho grandetem quebra de linhas. Tenho duas opções * Não sei como posso fazer para que o dbgrid quebre as linhas ou seja...moste varias linhas de um unico registro...tipo excel qd vc aumenta o espaço da celula * Pegar somente a primeira linha da string...mais tb não sei como fazer isso. Preciso de uma solução urgente Ate agora obrigado T+ Eduardo Buffara Junior - Programador Delphi [EMAIL PROTECTED] (41) 9149.5756 - Paranaguá - PR [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.2 - Release Date: 20/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] De novo time
Quando for fazer o total coloca este trecho, ele coloca a hora como vc quer: hor := 0; min := 0; seg := 0; DecodeDateTime(duratot,y,m1,d,h,m,s,ms); if y 1899 Then hor := d*24; hor := hor+h; min := min+m; seg := seg+s; Qrlabel31.Caption := Formatfloat('00',hor)+':'+formatfloat('00',min)+':'+formatfloat('00',seg); qualquer coisa me mande o pedaço do código em pvt que eu te mostro como colocar. MSN: [EMAIL PROTECTED] -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.5.4 - Release Date: 15/12/2004 [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html