Re: [delphi-br] Turbo Delphi

2010-01-21 Por tôpico André Luis de Oliveira
Vc tem o link pois já procurei no google e sempre cai nessa tela q vc falou.

  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, January 21, 2010 10:49 AM
  Subject: Re: [delphi-br] Turbo Delphi



  Não pelo site da Embarcadero. Apesar de ainda existir o domínio 
www.turboexplorer.com/downloads quando chega na hora do download, pra valer 
(depois de uns dois ou três clicks) vc é conduzido a página de download de 
trials do Delphi 2010.

  Atte,
  Ricardo.

  1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
  2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.
  3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

  --- Em qua, 20/1/10, aoliveira_sys aoliveira_...@yahoo.com.br escreveu:

  Olá,

  Gostaria de saber se ainda existe disponiveil pra donwload o Turbo Delphi?

  __
  Veja quais são os assuntos do momento no Yahoo! +Buscados
  http://br.maisbuscados.yahoo.com


  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Erro ApplyUpdates na alteração

2009-05-21 Por tôpico André Luis de Oliveira
Olá,

Estou usando Delphi 6 + ADOConnection + DataSet + DataSetProvider + 
ClientDataSet e banco de dados oracle 9i. Quando faço alteração e salvo não dá 
erro ... mas se eu colocar o ApplyUpdates no ClientDataSet dá erro Erro não 
especificado.


André Luis de Oliveira
Analista de Sistemas
E-mail: siste...@uniodontocamp.com.br
( (19) 3322-4000
Skype: UNIOCPS014


Uniodonto Campinas
Av. Brasil, 200 - Vila Itapura - Campinas/SP - 13023-075
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br




Se você recebeu essa mensagem por engano, desconsidere-a.
Antes de imprimir, pense em sua responsabilidade com o meio ambiente. 
UNIODONTO, FEITA POR PESSOAS QUE FAZEM O BEM. 

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Erro ApplyUpdates na inclusão

2009-05-19 Por tôpico André Luis de Oliveira
Olá,

Estou usando Delphi 6 + ADOConnection + DataSet + DataSetProvider + 
ClientDataSet e banco de dados oracle. Na minha tabela tem uma trigger na 
inserção que gera o id através de uma sequence. No delphi faço a inserção dos 
dados na tabela quando dou o post normal não dá erro, agora quando dá o comando 
ApplyUpdates(0) dá erro com a seguinte mensagem erro desconhecido.
Se eu desabilitar a trigger e gerar o codigo no delphi não dá erro na gravação.
Já alterei a propriedade ResolveToDataSet do DataSetProvider de False para 
True, mas só inverte o erro, para False erro na alteração e para True erro na 
inclusão.


André Luis de Oliveira
Analista de Sistemas
E-mail: siste...@uniodontocamp.com.br
( (19) 3322-4000
Skype: UNIOCPS014


Uniodonto Campinas
Av. Brasil, 200 - Vila Itapura - Campinas/SP - 13023-075
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br




Se você recebeu essa mensagem por engano, desconsidere-a.
Antes de imprimir, pense em sua responsabilidade com o meio ambiente. 
UNIODONTO, FEITA POR PESSOAS QUE FAZEM O BEM. 

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Stored Procedure

2009-05-15 Por tôpico André Luis de Oliveira
Olá,

Alguém já usou Delphi 6 + Oracle 9i e Stored Procedure?
Estou usando o ADO e sempre dá o seguinte erro raised exception class 
EOleException with messagem '?O?'.

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Campo lookups com ADO

2009-05-08 Por tôpico André Luis de Oliveira
Olá,

Estou usando TADOQuery e fiz um lookup, mas está dando erro desconhecido. 
Pesquisei sobre o assunto e achei que era para colocar no campo lookup a 
propriedade  LookupCache para True.
Mas o erro em partes acabou, quando vou incluir um registro e clico no Combo do 
lookup simplementes não aparece o registro se eu desabilitar a propriedade 
LookupCache aparece normal, mas dá o erro.


André Luis de Oliveira
Analista de Sistemas
E-mail: siste...@uniodontocamp.com.br
( (19) 3322-4000
Skype: UNIOCPS014


Uniodonto Campinas
Av. Brasil, 200 - Vila Itapura - Campinas/SP - 13023-075
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br




Se você recebeu essa mensagem por engano, desconsidere-a.
Antes de imprimir, pense em sua responsabilidade com o meio ambiente. 
UNIODONTO, FEITA POR PESSOAS QUE FAZEM O BEM. 

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Teste de software

2008-12-10 Por tôpico André Luis de Oliveira
Olá pessoal,

Gostaria de saber onde posso achar informações para teste de software, tipo 
assim um passo a passo do que tem q ser testado na hora de testar as rotinas 
desenvolvidas antes de entrar em produção.

Abs,



André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4000


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br




Se você recebeu essa mensagem por engano, desconsidere-a.
Antes de imprimir, pense em sua responsabilidade com o meio ambiente. 
UNIODONTO, FEITA POR PESSOAS QUE FAZEM O BEM. 

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Componente CheckBox + DBEdit

2008-10-24 Por tôpico André Luis de Oliveira
A ideia do componente seria a seguinte é para agilizar a digitação, pois em um 
cadastro tem campos q vc utiliza para outros registros.
Vamos supor q vc esta fazendo um pedido e um determinado campo (exemplo codigo 
do cliente), quando digitado e clicado no check quando vc clicar no botão novo 
todos os campos do pedido com excessão do codigo do cliente não iria ficar em 
branco.
Vc poderia me passar esses componente q vc fez, para ter uma base?


  - Original Message - 
  From: Alisson 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, October 23, 2008 11:58 AM
  Subject: Re: [delphi-br] Componente CheckBox + DBEdit


  Eu desenvolvi um componente de lookup que possui 3 componentes: dois DbEdits 
  e um botão. Para isso desenvolvi o componente a partir do TCustomPanel. Os 3 
  componentes ficam dentro do panel. Acho que desse modo resolveria seu 
  problema. Só uma pergunta: você acha realmente necessário desenvolver esse 
  componente? Qual a funcionalidade dele? 

  __
  Faça ligações para outros computadores com o novo Yahoo! Messenger 
  http://br.beta.messenger.yahoo.com/ 


   

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Componente CheckBox + DBEdit

2008-10-23 Por tôpico André Luis de Oliveira
Gostaria de fazer um componente, que é o seguinte é um DBEdit mas na frente ele 
vai ter um checkbox. Até consegui inserir os dois juntos, mas o checkbox está 
ficando dentro do DBEdit e não consigo colocar o checkbox para fora.
Se tiver um componente que já faz isso melhor.


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Erro ao gravar

2008-08-20 Por tôpico André Luis de Oliveira
Estou usando o DBExpress (DataSet, DataSetProvider e ClientDataSet), quando 
coloco o select abaixo no DataSet, quando dou o post não dá erro.
SELECT
A.SEQ,
A.CODIGO,
A.NOME
FROM CADMOV A

Se no mesmo select eu acrescentar a linha (SELECT B.DESCRICAO FROM CIDADE B 
WHERE A.CODIGO = B.CODIGO) AS CID_DESCRICAO dá o seguinte erro: A instrução 
INSERT INTO contém o seguinte nome de campo desconhecido: 'SEQ' Certifique-se 
de que você digitou o nome corretamente e tente a operação novamente

O select fica da seguinte forma, quando dá o erro
SELECT
A.SEQ,
A.CODIGO,
A.NOME,
SELECT B.DESCRICAO FROM cIDADE B WHERE A.CODIGO = B.CODIGO) AS CID_DESCRICAO
FROM CADMOV A

O campo CID_DESCRICAO (DataSet e ClientDataSet) na propriedade pfInUpdate e 
pfInWhere está False.


Obs:
O erro ocorre ao dar o ApplyUpdates(0),

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Error loading MIDAS.DLL

2008-06-26 Por tôpico André Luis de Oliveira
Meu servidor de aplicação (SA) está funcionando corretamente.
A aplicação cliente conecta normal no SA, quando vou usar alguma metodo que 
está no SA aparece a seguinte mensagem Error loading MIDAS.DLL. Já registrei a 
dll, já adicionei no uses o MidasLib e nada resolveu. Alguém já passou por isso?
Estou usando Delphi 2007 e Oracle 10g.


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br




Se você recebeu essa mensagem por engano, desconsidere-a.
Antes de imprimir, pense em sua responsabilidade com o meio ambiente. 
UNIODONTO, FEITA POR PESSOAS QUE FAZEM O BEM. 

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Aplicação cliente datasnap

2008-06-24 Por tôpico André Luis de Oliveira
O programa servidor está funcionando corretamento.
Mas a aplicação cliente quando executo dá a seguinte mensagem de erro: variant 
or safe array is locked.
Estou usando Delphi 2007, banco de dados Oracle 9i.



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Delphi 2007 x Oracle 10g

2008-06-16 Por tôpico André Luis de Oliveira
Estou usando o DBExpress com Delphi 2007 com conexão Oracle.
Criei uma máquina virtual com o Oracle 10g. A maquina virtual e o Oracle está 
funcionando corretamente.
Só no Delphi quando vou colocar o connected para true dá uma mensagem, que não 
pode abrir a conexao.
Alguém usa igual a este modelo que possa me ajudar?!?!?!

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] OFF-TOPIC - Dicionário de Dados

2007-12-27 Por tôpico André Luis de Oliveira
Também queria participar dessa discussão tb, pois tb estou pensando em fazer 
o mesmo no meu sistema.


- Original Message - 
From: Alexandre Marinho da Silveira [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, December 27, 2007 4:15 PM
Subject: Re: [delphi-br] OFF-TOPIC - Dicionário de Dados


 Prezado Leslyn

 Eu cheguei a participar do estágio inicial de um sistema assim que vc está
 querendo criar.
 Se vc quiser, em pvt, eu posso te explicar como é na prática um dicionário 
 de
 dados.

 Atenciosamente

 Alexandre
 - Original Message -
 From: Leslyn Fernandes [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Date: Thu, 27 Dec 2007 13:55:58 -0300
 Subject: Re:_[delphi-br]_OFF-TOPIC_-_Dicionário_de_Dados

 Bom...

 Eu pretendo gerar um aplicativo para poder cadastrar manualmente as
 informações de dicionário de dados nele. Acho que será um trabalho manual
 mesmo.

 Porém, para poder gerar meu aplicativo preciso conhecer a fundo técnicas 
 de
 geração de dicionario de dados e etc...

 e aí que eu preciso de material para estudos... No google só achei coisas
 meio superficiais. Se alguém souber de algum livro sobre o assunto, ou
 apostila, ou site, ou... whatever... :)

 Agradeço desde já...



 On Dec 27, 2007 2:46 PM, Alexandre Marinho da Silveira 
 [EMAIL PROTECTED] wrote:

  Desculpe Guionardo.
  Só vi que tinha copiado o nome do destinatário errado depois de clicar 
  no
  botão de envio.  Aí não tinha mais como arrumar.
  Se vc puder informar o que tem em mente, Leslyn, eu posso tentar te
  ajudar.
 
  Alexandre
 
  - Original Message -
  From: Guionardo Furlan [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Date: Thu, 27 Dec 2007 14:34:47 -0200
  Subject: Re:_[delphi-br]_OFF-TOPIC_-_Dicionário_de_Dados
 
   Opa, o dono do problema é o Leslyn.
  
   Em 27/12/07, Alexandre Marinho da Silveira[EMAIL PROTECTED]
  escreveu:
Prezado Guionardo
   
Vc pensa em fazer esse dicionário escrito ou via programação,
  guardando
   essas
informações digitalmente?
   
Alexandre
   
- Original Message -
From: Guionardo Furlan [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Date: Thu, 27 Dec 2007 14:13:58 -0200
Subject: Re:_[delphi-br]_OFF-TOPIC_-_Dicionário_de_Dados
   
 Hmm, o que especificamente vc precisa fazer?
 Hash serviria?

 Em 27/12/07, Leslyn Fernandes [EMAIL PROTECTED] 
 escreveu:
 

  Alguém tem algum material para me ajudar a criar um dicionário 
  de
   dados
 para
   um sistema?



 --
 Timeo hominem unius libri
 Cogito ergo sum - Carpe diem

 []s
 Guionardo Furlan
 http://guionardo.blogspot.com


   
--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
   
Links do Yahoo! Grupos
   
   
   
  
  
   --
   Timeo hominem unius libri
   Cogito ergo sum - Carpe diem
  
   []s
   Guionardo Furlan
   http://guionardo.blogspot.com
  
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Links do Yahoo! Grupos
 
 
 


 [As partes desta mensagem que não continham texto foram removidas]




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

 Links do Yahoo! Grupos








No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.17.9/1198 - Release Date: 26/12/2007 
17:26



___ 
Yahoo! Mail - Sempre a melhor opção para você! 
Experimente já e veja as novidades. 
http://br.yahoo.com/mailbeta/tudonovo/
 



[delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
dados.
Quando uso a função para testar se existe o registro, não funciona: if not 
cdsTemp.Locate('CPFTITULAR', '12541225', []) then.


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Eitá nois ...rs, não vou falar nada sobre seu comentario... hehehe

Vamos direto ao q interessa.

Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não 
achou.

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 11:54 AM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  Não funciona ... E ... ???

  Eu fico meio revoltado com esse tipo de solicitação de ajuda.

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
ajudar a pessoa?

  Depois do puxão de orelha Vamos lá...

  Bom primeiramente, O que te levou a pensar que isso não funcionou?

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de André 
Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47
  Para: Delphi BR
  Assunto: [delphi-br] Procurar registro no ClientDataSet

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
dados.
  Quando uso a função para testar se existe o registro, não funciona: if not 
cdsTemp.Locate('CPFTITULAR', '12541225', []) then.

  André Luis de Oliveira
  Analista de Sistemas
  E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br 
  ( (19) 3322-4018
  Skype: al_oliveira

  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  ( (19) 3322-4000
  Visite nosso site: www.uniodontocamp.com.br

  [As partes desta mensagem que não continham texto foram removidas]

  [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.30/1125 - Release Date: 11/11/2007 
21:50


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Não tem nada de mascara, está gravando texto puro.


  - Original Message - 
  From: Vitor Redes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 2:13 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  A sua entrada de dados está com máscara? É um MaskEdit?
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por
  isso não está achando o registro...

  Vitor.

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de André Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet

  Eitá nois ...rs, não vou falar nada sobre seu comentario... hehehe

  Vamos direto ao q interessa.

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não
  achou.

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet

  Não funciona ... E ... ???

  Eu fico meio revoltado com esse tipo de solicitação de ajuda.

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra
  ajudar a pessoa?

  Depois do puxão de orelha Vamos lá...

  Bom primeiramente, O que te levou a pensar que isso não funcionou?

  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 André Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47
  Para: Delphi BR
  Assunto: [delphi-br] Procurar registro no ClientDataSet

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os
  dados.
  Quando uso a função para testar se existe o registro, não funciona: if not
  cdsTemp.Locate('CPFTITULAR', '12541225', []) then.

  André Luis de Oliveira
  Analista de Sistemas
  E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
  amp.com.br mailto:sistemas%40uniodontocamp.com.br 
  ( (19) 3322-4018
  Skype: al_oliveira

  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  ( (19) 3322-4000
  Visite nosso site: www.uniodontocamp.com.br

  [As partes desta mensagem que não continham texto foram removidas]

  [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.30/1125 - Release Date: 11/11/2007
  21:50

  [As partes desta mensagem que não continham texto foram removidas]

  [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.30/1125 - Release Date: 11/11/2007 
21:50


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Não deu certo com isso.


  - Original Message - 
  From: Vitor Redes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 2:39 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  Então tente com Dataset.Locate( CAMPO, VALOR, [ loPartialKey ] )

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Vitor Redes
  Enviada em: segunda-feira, 12 de novembro de 2007 13:13
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet

  A sua entrada de dados está com máscara? É um MaskEdit?
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por
  isso não está achando o registro...

  Vitor.

  _ 

  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 André Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet

  Eitá nois ...rs, não vou falar nada sobre seu comentario... hehehe

  Vamos direto ao q interessa.

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não
  achou.

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet

  Não funciona ... E ... ???

  Eu fico meio revoltado com esse tipo de solicitação de ajuda.

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra
  ajudar a pessoa?

  Depois do puxão de orelha Vamos lá...

  Bom primeiramente, O que te levou a pensar que isso não funcionou?

  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 André Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47
  Para: Delphi BR
  Assunto: [delphi-br] Procurar registro no ClientDataSet

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os
  dados.
  Quando uso a função para testar se existe o registro, não funciona: if not
  cdsTemp.Locate('CPFTITULAR', '12541225', []) then.

  André Luis de Oliveira
  Analista de Sistemas
  E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
  amp.com.br mailto:sistemas%40uniodontocamp.com.br 
  ( (19) 3322-4018
  Skype: al_oliveira

  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  ( (19) 3322-4000
  Visite nosso site: www.uniodontocamp.com.br

  [As partes desta mensagem que não continham texto foram removidas]

  [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.30/1125 - Release Date: 11/11/2007
  21:50

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007 
21:50


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Não estou procurando parcial o CPF, no exemplo coloquei uma parte apenas.

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 1:38 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  Bom, seguinte se o André está procurando o CPF por procura parcial ele deve 
acrescentar [loPartialKey] no locate options. 



  E aí André, resolveu? 



  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Robson 
  Enviada em: segunda-feira, 12 de novembro de 2007 13:21 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: res: [delphi-br] Procurar registro no ClientDataSet 



  e no exemplo q vc passou vc só colocou 9 digitos e o cpf tem 11. aki uso um 
select desta forma: 
  select ... where CPF starting '131231' pra busca pegando a partir dos 
primeiros digitos, não sei como seria usando a funcao locate, ja q a busca é 
parcial. 


  Kaputz, Robson 
  Skype: kaputz_gri 

  Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu 
amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade 
Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie 
Chaplin . 
  Keep the Dream Alive 

  - Mensagem original  
  De: Vitor Redes [EMAIL PROTECTED] mailto:vredesredsystem%40yahoo.com.br  
  Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  Enviadas: Segunda-feira, 12 de Novembro de 2007 14:13:28 
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet 

  A sua entrada de dados está com máscara? É um MaskEdit? 
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por 
  isso não está achando o registro... 

  Vitor. 

  _ 

  De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em 
  nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04 
  Para: [EMAIL PROTECTED] os.com.br 
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet 

  Eitá nois ...rs, não vou falar nada sobre seu comentario.. . hehehe 

  Vamos direto ao q interessa. 

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não 
  achou. 

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM 
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet 

  Não funciona ... E ... ??? 

  Eu fico meio revoltado com esse tipo de solicitação de ajuda. 

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
  ajudar a pessoa? 

  Depois do puxão de orelha Vamos lá... 

  Bom primeiramente, O que te levou a pensar que isso não funcionou? 

  De: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  [mailto:delphi- [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br 
  os.com.br] Em nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47 
  Para: Delphi BR 
  Assunto: [delphi-br] Procurar registro no ClientDataSet 

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
  dados. 
  Quando uso a função para testar se existe o registro, não funciona: if not 
  cdsTemp.Locate( 'CPFTITULAR' , '12541225', []) then. 

  André Luis de Oliveira 
  Analista de Sistemas 
  E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br 
  amp.com.br mailto:sistemas% 40uniodontocamp. com.br 
  ( (19) 3322-4018 
  Skype: al_oliveira 

  Uniodonto Campinas 
  Av. Brasil, 200 - Campinas/SP 
  ( (19) 3322-4000 
  Visite nosso site: www.uniodontocamp. com.br 

  [As partes desta mensagem que não continham texto foram removidas] 

  [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.30/1125 - Release Date: 11/11/2007 
  21:50 

  [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! 
  http://br.mail.yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas] 




  [As partes desta mensagem que não continham texto foram removidas]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.15.30/1125 - Release Date: 11/11/2007 
21:50


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Não criei, pq crio o ClientDataSet em run-time.


  - Original Message - 
  From: Andre Luis Silveria 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 1:37 PM
  Subject: Res: [delphi-br] Procurar registro no ClientDataSet


  Vc criou o campo no FieldEditor ???

  - Mensagem original 
  De: André Luis de Oliveira [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Segunda-feira, 12 de Novembro de 2007 12:04:13
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet

  Eitá nois ...rs, não vou falar nada sobre seu comentario.. . hehehe

  Vamos direto ao q interessa.

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não 
achou.

  - Original Message - 

  From: Davi Eduardo Borges Wall 

  To: [EMAIL PROTECTED] os.com.br 

  Sent: Monday, November 12, 2007 11:54 AM

  Subject: RES: [delphi-br] Procurar registro no ClientDataSet

  Não funciona ... E ... ???

  Eu fico meio revoltado com esse tipo de solicitação de ajuda.

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
ajudar a pessoa?

  Depois do puxão de orelha Vamos lá...

  Bom primeiramente, O que te levou a pensar que isso não funcionou?

  De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome 
de André Luis de Oliveira

  Enviada em: segunda-feira, 12 de novembro de 2007 11:47

  Para: Delphi BR

  Assunto: [delphi-br] Procurar registro no ClientDataSet

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
dados.

  Quando uso a função para testar se existe o registro, não funciona: if not 
cdsTemp.Locate( 'CPFTITULAR' , '12541225', []) then.

  André Luis de Oliveira

  Analista de Sistemas

  E-mail: [EMAIL PROTECTED] amp.com.br mailto:sistemas% 40uniodontocamp. 
com.br 

  ( (19) 3322-4018

  Skype: al_oliveira

  Uniodonto Campinas

  Av. Brasil, 200 - Campinas/SP

  ( (19) 3322-4000

  Visite nosso site: www.uniodontocamp. com.br

  [As partes desta mensagem que não continham texto foram removidas]

  [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.30/1125 - Release Date: 11/11/2007 
21:50

  [As partes desta mensagem que não continham texto foram removidas]

  !--

  #ygrp-mkp{
  border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
  #ygrp-mkp hr{
  border:1px solid #d8d8d8;}
  #ygrp-mkp #hd{
  color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 
0px;}
  #ygrp-mkp #ads{
  margin-bottom:10px;}
  #ygrp-mkp .ad{
  padding:0 0;}
  #ygrp-mkp .ad a{
  color:#ff;text-decoration:none;}
  --

  !--

  #ygrp-sponsor #ygrp-lc{
  font-family:Arial;}
  #ygrp-sponsor #ygrp-lc #hd{
  margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
  #ygrp-sponsor #ygrp-lc .ad{
  margin-bottom:10px;padding:0 0;}
  --

  !--

  #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
  #ygrp-mlmsg table {font-size:inherit;font:100%;}
  #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, 
sans-serif;}
  #ygrp-mlmsg pre, code {font:115% monospace;}
  #ygrp-mlmsg * {line-height:1.22em;}
  #ygrp-text{
  font-family:Georgia;
  }
  #ygrp-text p{
  margin:0 0 1em 0;}
  #ygrp-tpmsgs{
  font-family:Arial;
  clear:both;}
  #ygrp-vitnav{
  padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
  #ygrp-vitnav a{
  padding:0 1px;}
  #ygrp-actbar{
  clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
  #ygrp-actbar .left{
  float:left;white-space:nowrap;}
  .bld{font-weight:bold;}
  #ygrp-grft{
  font-family:Verdana;font-size:77%;padding:15px 0;}
  #ygrp-ft{
  font-family:verdana;font-size:77%;border-top:1px solid #666;
  padding:5px 0;
  }
  #ygrp-mlmsg #logo{
  padding-bottom:10px;}

  #ygrp-vital{
  background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
  #ygrp-vital #vithd{
  
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
  #ygrp-vital ul{
  padding:0;margin:2px 0;}
  #ygrp-vital ul li{
  list-style-type:none;clear:both;border:1px solid #e0ecee;
  }
  #ygrp-vital ul li .ct{
  
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
  #ygrp-vital ul li .cat{
  font-weight:bold;}
  #ygrp-vital a{
  text-decoration:none;}

  #ygrp-vital a:hover{
  text-decoration:underline;}

  #ygrp-sponsor #hd{
  color:#999;font-size:77%;}
  #ygrp-sponsor #ov{
  padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
  #ygrp-sponsor #ov ul{
  padding:0 0 0 8px;margin:0;}
  #ygrp-sponsor #ov li{
  list-style-type:square;padding:6px 0;font-size:77%;}
  #ygrp-sponsor #ov li a{
  text-decoration:none;font-size:130%;}
  #ygrp

Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
O meu codigo está assim:

  if cdsTemp.Locate('CPFTITULAR', 
CdsIntegra.FieldByName('CPFTITULAR').AsString, []) then
  begin
Erro := 0;  
  end;
  begin
Erro := 1;
Descricao := 'TITULAR DESTE DEPENDENTE NAO INCLUIDO NO ARQUIVO';
  end;




  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 1:59 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  Ok, vamos tentar do modo mais simples... se você tentar desta forma, 
funciona? 



  cdsTemp.Locate( 'CPFTITULAR' , '1', [lopartialkey]) 



  cole o bloco de código todo pra gente ver.. 





  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de André 
Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 13:55 
  Para: delphi-br@yahoogrupos.com.br 
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet 



  Não estou procurando parcial o CPF, no exemplo coloquei uma parte apenas. 

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 1:38 PM 
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet 

  Bom, seguinte se o André está procurando o CPF por procura parcial ele deve 
acrescentar [loPartialKey] no locate options. 

  E aí André, resolveu? 

  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 Robson 
  Enviada em: segunda-feira, 12 de novembro de 2007 13:21 
  Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  Assunto: res: [delphi-br] Procurar registro no ClientDataSet 

  e no exemplo q vc passou vc só colocou 9 digitos e o cpf tem 11. aki uso um 
select desta forma: 
  select ... where CPF starting '131231' pra busca pegando a partir dos 
primeiros digitos, não sei como seria usando a funcao locate, ja q a busca é 
parcial. 

  Kaputz, Robson 
  Skype: kaputz_gri 

  Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu 
amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade 
Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie 
Chaplin . 
  Keep the Dream Alive 

  - Mensagem original  
  De: Vitor Redes [EMAIL PROTECTED] mailto:vredesredsystem%40yahoo.com.br 
mailto:vredesredsystem%40yahoo.com.br  
  Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
mailto:delphi-br%40yahoogrupos.com.br 
  Enviadas: Segunda-feira, 12 de Novembro de 2007 14:13:28 
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet 

  A sua entrada de dados está com máscara? É um MaskEdit? 
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por 
  isso não está achando o registro... 

  Vitor. 

  _ 

  De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em 
  nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04 
  Para: [EMAIL PROTECTED] os.com.br 
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet 

  Eitá nois ...rs, não vou falar nada sobre seu comentario.. . hehehe 

  Vamos direto ao q interessa. 

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não 
  achou. 

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM 
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet 

  Não funciona ... E ... ??? 

  Eu fico meio revoltado com esse tipo de solicitação de ajuda. 

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
  ajudar a pessoa? 

  Depois do puxão de orelha Vamos lá... 

  Bom primeiramente, O que te levou a pensar que isso não funcionou? 

  De: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  [mailto:delphi- [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br 
  os.com.br] Em nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47 
  Para: Delphi BR 
  Assunto: [delphi-br] Procurar registro no ClientDataSet 

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
  dados. 
  Quando uso a função para testar se existe o registro, não funciona: if not 
  cdsTemp.Locate( 'CPFTITULAR' , '12541225', []) then. 

  André Luis de Oliveira 
  Analista de Sistemas 
  E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br 
  amp.com.br mailto:sistemas% 40uniodontocamp. com.br 
  ( (19) 3322-4018 
  Skype: al_oliveira 

  Uniodonto Campinas 
  Av. Brasil, 200 - Campinas/SP 
  ( (19) 3322-4000 
  Visite nosso site: www.uniodontocamp

Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Agora sim deu certo.


  - Original Message - 
  From: Felipe Nunes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 3:14 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  eu uso o [loCaseInsensitive]. sempre deu certo
  e uso igual a vc ta usando

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de Davi Eduardo Borges Wall
  Enviada em: segunda-feira, 12 de novembro de 2007 12:39
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet

  Bom, seguinte se o André está procurando o CPF por procura parcial ele deve
  acrescentar [loPartialKey] no locate options. 

  E aí André, resolveu? 

  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 Robson 
  Enviada em: segunda-feira, 12 de novembro de 2007 13:21 
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Assunto: res: [delphi-br] Procurar registro no ClientDataSet 

  e no exemplo q vc passou vc só colocou 9 digitos e o cpf tem 11. aki uso um
  select desta forma: 
  select ... where CPF starting '131231' pra busca pegando a partir dos
  primeiros digitos, não sei como seria usando a funcao locate, ja q a busca é
  parcial. 

  Kaputz, Robson 
  Skype: kaputz_gri 

  Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu
  amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade
  Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie
  Chaplin . 
  Keep the Dream Alive 

  - Mensagem original  
  De: Vitor Redes vredesredsystem@ mailto:vredesredsystem%40yahoo.com.br
  yahoo.com.br mailto:vredesredsystem%40yahoo.com.br  
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
  mailto:delphi-br%40yahoogrupos.com.br 
  Enviadas: Segunda-feira, 12 de Novembro de 2007 14:13:28 
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet 

  A sua entrada de dados está com máscara? É um MaskEdit? 
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por 
  isso não está achando o registro... 

  Vitor. 

  _ 

  De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em 
  nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04 
  Para: [EMAIL PROTECTED] os.com.br 
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet 

  Eitá nois ...rs, não vou falar nada sobre seu comentario.. . hehehe 

  Vamos direto ao q interessa. 

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não

  achou. 

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM 
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet 

  Não funciona ... E ... ??? 

  Eu fico meio revoltado com esse tipo de solicitação de ajuda. 

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
  ajudar a pessoa? 

  Depois do puxão de orelha Vamos lá... 

  Bom primeiramente, O que te levou a pensar que isso não funcionou? 

  De: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  [mailto:delphi- [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br 
  os.com.br] Em nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47 
  Para: Delphi BR 
  Assunto: [delphi-br] Procurar registro no ClientDataSet 

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
  dados. 
  Quando uso a função para testar se existe o registro, não funciona: if not 
  cdsTemp.Locate( 'CPFTITULAR' , '12541225', []) then. 

  André Luis de Oliveira 
  Analista de Sistemas 
  E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br 
  amp.com.br mailto:sistemas% 40uniodontocamp. com.br 
  ( (19) 3322-4018 
  Skype: al_oliveira 

  Uniodonto Campinas 
  Av. Brasil, 200 - Campinas/SP 
  ( (19) 3322-4000 
  Visite nosso site: www.uniodontocamp. com.br 

  [As partes desta mensagem que não continham texto foram removidas] 

  [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.30/1125 - Release Date: 11/11/2007

  21:50 

  [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! 
  http://br.mail. http://br.mail.yahoo.com/ yahoo.com/ 

  [As partes desta mensagem que não continham texto foram

Re: [delphi-br] Procurar registro no ClientDataSet

2007-11-12 Por tôpico André Luis de Oliveira
Coloquei do jeito q vc falou, colocando a opção [loCaseInsensitive], e funfou.


  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 3:00 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet


  Como assim deu certo? Explica aí qual foi a barberagem que você fez ? :oP

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de André 
Luis de Oliveira
  Enviada em: segunda-feira, 12 de novembro de 2007 14:51
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet

  Agora sim deu certo.

  - Original Message - 
  From: Felipe Nunes 
  To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  Sent: Monday, November 12, 2007 3:14 PM
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet

  eu uso o [loCaseInsensitive]. sempre deu certo
  e uso igual a vc ta usando

  _ 

  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 Davi Eduardo Borges Wall
  Enviada em: segunda-feira, 12 de novembro de 2007 12:39
  Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br 
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet

  Bom, seguinte se o André está procurando o CPF por procura parcial ele deve
  acrescentar [loPartialKey] no locate options. 

  E aí André, resolveu? 

  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 Robson 
  Enviada em: segunda-feira, 12 de novembro de 2007 13:21 
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Assunto: res: [delphi-br] Procurar registro no ClientDataSet 

  e no exemplo q vc passou vc só colocou 9 digitos e o cpf tem 11. aki uso um
  select desta forma: 
  select ... where CPF starting '131231' pra busca pegando a partir dos
  primeiros digitos, não sei como seria usando a funcao locate, ja q a busca é
  parcial. 

  Kaputz, Robson 
  Skype: kaputz_gri 

  Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu
  amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade
  Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie
  Chaplin . 
  Keep the Dream Alive 

  - Mensagem original  
  De: Vitor Redes vredesredsystem@ mailto:vredesredsystem%40yahoo.com.br
  yahoo.com.br mailto:vredesredsystem%40yahoo.com.br  
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
  mailto:delphi-br%40yahoogrupos.com.br 
  Enviadas: Segunda-feira, 12 de Novembro de 2007 14:13:28 
  Assunto: RES: [delphi-br] Procurar registro no ClientDataSet 

  A sua entrada de dados está com máscara? É um MaskEdit? 
  DBMaskEdit? Se for, o componente grava também, a maldita da máscara e por 
  isso não está achando o registro... 

  Vitor. 

  _ 

  De: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em 
  nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:04 
  Para: [EMAIL PROTECTED] os.com.br 
  Assunto: Re: [delphi-br] Procurar registro no ClientDataSet 

  Eitá nois ...rs, não vou falar nada sobre seu comentario.. . hehehe 

  Vamos direto ao q interessa. 

  Não fucinou pelo seguinte, o CPF existe no cdsTemp e sempre me retorna q não

  achou. 

  - Original Message - 
  From: Davi Eduardo Borges Wall 
  To: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  Sent: Monday, November 12, 2007 11:54 AM 
  Subject: RES: [delphi-br] Procurar registro no ClientDataSet 

  Não funciona ... E ... ??? 

  Eu fico meio revoltado com esse tipo de solicitação de ajuda. 

  Não há nenhuma pergunta, só afirmações. André eu te pergunto, imagine você 
  recebendo esse e-mail de alguém lhe solicitando ajudacomo vc faria pra 
  ajudar a pessoa? 

  Depois do puxão de orelha Vamos lá... 

  Bom primeiramente, O que te levou a pensar que isso não funcionou? 

  De: [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br os.com.br 
  [mailto:delphi- [EMAIL PROTECTED] mailto:delphi- br%40yahoogrupos .com.br 
  os.com.br] Em nome de André Luis de Oliveira 
  Enviada em: segunda-feira, 12 de novembro de 2007 11:47 
  Para: Delphi BR 
  Assunto: [delphi-br] Procurar registro no ClientDataSet 

  Criei um ClientDataSet em run-time. Crio o ClientDataSet e atualizo com os 
  dados. 
  Quando uso a função para testar se existe o registro, não funciona: if not 
  cdsTemp.Locate( 'CPFTITULAR' , '12541225', []) then. 

  André Luis de Oliveira 
  Analista de Sistemas 
  E-mail: [EMAIL PROTECTED] mailto:sistemas% 40uniodontocamp. com.br 
  amp.com.br mailto:sistemas% 40uniodontocamp. com.br 
  ( (19) 3322-4018 
  Skype: al_oliveira 

  Uniodonto Campinas 
  Av. Brasil, 200 - Campinas/SP

[delphi-br] Array

2007-10-24 Por tôpico André Luis de Oliveira
Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta dando 
erro.

if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11', 
'17', '18'] then

Ordinal type required e Incompatible types: 'Integer' and 'String'.



André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Array

2007-10-24 Por tôpico André Luis de Oliveira
Não deu certo continua dando o erro.


  - Original Message - 
  From: Leslyn Fernandes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 24, 2007 8:58 AM
  Subject: Re: [delphi-br] Array


  Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
  para converte-lo atraves da função 'AsString'.

  Tente usar assim para verificar se o erro é esse:
  IntToStr(FieldbyName('GRAU').AsInteger)[1]

  ou então, se preferir, atribua a uma variável:

  ...
  var
  x : String;
  ...
  x := IntToStr(FieldbyName('GRAU').AsInteger);
  if x[1] in ...

  Att,

  LF

  On 10/24/07, André Luis de Oliveira [EMAIL PROTECTED] wrote:
  
   Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
   dando erro.
  
   if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
   '17', '18'] then
  
   Ordinal type required e Incompatible types: 'Integer' and 'String'.
  
   André Luis de Oliveira
   Analista de Sistemas
   E-mail: [EMAIL PROTECTED] sistemas%40uniodontocamp.com.br
   ( (19) 3322-4018
   Skype: al_oliveira
  
   Uniodonto Campinas
   Av. Brasil, 200 - Campinas/SP
   ( (19) 3322-4000
   Visite nosso site: www.uniodontocamp.com.br
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  [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.9/1090 - Release Date: 24/10/2007 
08:48


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Array

2007-10-24 Por tôpico André Luis de Oliveira
Agora está dando erro de Arrya type required.


  - Original Message - 
  From: Sérgio T. Uetanabaro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 24, 2007 9:29 AM
  Subject: RES: [delphi-br] Array


  Tenta isso:

  if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then

  []´s


  Sergio Uetanabaro

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de André Luis de Oliveira
  Enviada em: quarta-feira, 24 de outubro de 2007 11:13
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Array

  Não deu certo continua dando o erro.

  - Original Message - 
  From: Leslyn Fernandes 
  To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Sent: Wednesday, October 24, 2007 8:58 AM
  Subject: Re: [delphi-br] Array

  Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
  para converte-lo atraves da função 'AsString'.

  Tente usar assim para verificar se o erro é esse:
  IntToStr(FieldbyName('GRAU').AsInteger)[1]

  ou então, se preferir, atribua a uma variável:

  ...
  var
  x : String;
  ...
  x := IntToStr(FieldbyName('GRAU').AsInteger);
  if x[1] in ...

  Att,

  LF

  On 10/24/07, André Luis de Oliveira aoliveira_sys@
  mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
  
   Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
   dando erro.
  
   if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
   '17', '18'] then
  
   Ordinal type required e Incompatible types: 'Integer' and 'String'.
  
   André Luis de Oliveira
   Analista de Sistemas
   E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
  amp.com.br sistemas%40uniodontocamp.com.br
   ( (19) 3322-4018
   Skype: al_oliveira
  
   Uniodonto Campinas
   Av. Brasil, 200 - Campinas/SP
   ( (19) 3322-4000
   Visite nosso site: www.uniodontocamp.com.br
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  [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.9/1090 - Release Date: 24/10/2007
  08:48

  [As partes desta mensagem que não continham texto foram removidas]

  [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.9/1090 - Release Date: 24/10/2007 
08:48


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Array

2007-10-24 Por tôpico André Luis de Oliveira
O meu é Delphi 6 ... acho deve ser isso... vamos vou encher de if...rs


  - Original Message - 
  From: Sérgio T. Uetanabaro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 24, 2007 10:08 AM
  Subject: RES: [delphi-br] Array


  O erro entao está em outro lugar pq isso funciona perfeitamente aqui. To
  testando em D7

  []´s

  Sergio Uetanabaro

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de André Luis de Oliveira
  Enviada em: quarta-feira, 24 de outubro de 2007 11:56
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br] Array

  Agora está dando erro de Arrya type required.

  - Original Message - 
  From: Sérgio T. Uetanabaro 
  To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Sent: Wednesday, October 24, 2007 9:29 AM
  Subject: RES: [delphi-br] Array

  Tenta isso:

  if FieldByName('GRAU').AsInteger in [1,3, 5, 8, 10, 11, 17, 18] then

  []´s

  Sergio Uetanabaro

  _ 

  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 André Luis de Oliveira
  Enviada em: quarta-feira, 24 de outubro de 2007 11:13
  Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
  Assunto: Re: [delphi-br] Array

  Não deu certo continua dando o erro.

  - Original Message - 
  From: Leslyn Fernandes 
  To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br 
  Sent: Wednesday, October 24, 2007 8:58 AM
  Subject: Re: [delphi-br] Array

  Esse campo 'GRAU' deve ser Integer e o compilador deve estar com problemas
  para converte-lo atraves da função 'AsString'.

  Tente usar assim para verificar se o erro é esse:
  IntToStr(FieldbyName('GRAU').AsInteger)[1]

  ou então, se preferir, atribua a uma variável:

  ...
  var
  x : String;
  ...
  x := IntToStr(FieldbyName('GRAU').AsInteger);
  if x[1] in ...

  Att,

  LF

  On 10/24/07, André Luis de Oliveira aoliveira_sys@
  mailto:aoliveira_sys%40yahoo.com.br yahoo.com.br wrote:
  
   Tenho um campo de tamanho 2 do tipo caracter. Fiz o seguinte if mas esta
   dando erro.
  
   if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11',
   '17', '18'] then
  
   Ordinal type required e Incompatible types: 'Integer' and 'String'.
  
   André Luis de Oliveira
   Analista de Sistemas
   E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
  amp.com.br sistemas%40uniodontocamp.com.br
   ( (19) 3322-4018
   Skype: al_oliveira
  
   Uniodonto Campinas
   Av. Brasil, 200 - Campinas/SP
   ( (19) 3322-4000
   Visite nosso site: www.uniodontocamp.com.br
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  [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.9/1090 - Release Date: 24/10/2007
  08:48

  [As partes desta mensagem que não continham texto foram removidas]

  [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.9/1090 - Release Date: 24/10/2007
  08:48

  [As partes desta mensagem que não continham texto foram removidas]

  [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.9/1090 - Release Date: 24/10/2007 
08:48


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Array

2007-10-24 Por tôpico André Luis de Oliveira
Ricardo, assim deu certo, valew.


  - Original Message - 
  From: Ricardo César Cardoso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, October 24, 2007 11:04 AM
  Subject: Re: [delphi-br] Array


  Bom dia!

  Ou vc trata o valor lido como Inteiro ou trata como string e testando com if

  * Tratando como inteiro vc poderia fazer assim:
  {...}
  Type
  TIntSet = Set of 1..250;

  {...}

  Var
  Grau : Integer;
  Graus: TIntSet;
  {...}
  Begin
  Graus := [1, 3, 5, 8, 10, 11, 17, 18];
  Grau := FieldByName('GRAU').AsInteger;

  if Grau in Graus then
  ShowMessage('Pertence')
  else
  ShowMessage('Não Pertence');
  End;
  {...}

  Sds,
  Ricardo.

  André Luis de Oliveira [EMAIL PROTECTED] escreveu: Tenho um campo de 
tamanho 2 do tipo caracter. Fiz o seguinte if mas esta dando erro.

  if FieldByName('GRAU').AsString[1] in ['01', '03', '05', '08', '10', '11', 
'17', '18'] then

  Ordinal type required e Incompatible types: 'Integer' and 'String'.

  André Luis de Oliveira
  Analista de Sistemas
  E-mail: [EMAIL PROTECTED]
  ( (19) 3322-4018
  Skype: al_oliveira

  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  ( (19) 3322-4000
  Visite nosso site: www.uniodontocamp.com.br

  [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]



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.503 / Virus Database: 269.15.9/1090 - Release Date: 24/10/2007 
08:48


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Delphi 2006 + DBExpress + Oracle 9i + SOAP

2007-10-15 Por tôpico André Luis de Oliveira
Galera, bom dia,

Eh o seguinte estou criando um webservice usando Delphi 2006 + DBExpress + 
Oracle 9i + SOAP.
Criei a parte servidora até ai tudo bem. O problema está na parte cliente, 
primeiro estava 
dando erro de Unable load oci.dll, alterei a LibrayName de dbxora30.dll para 
dbexpora.dll 
funcionou, só que agora está dando esse erro Error Code '65535' . 
No ClientDataSet na opção ProviderName não aparece os providers do meu 
webservice.

Alguem sabe o que pode ser isso ???



André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Delphi 2006 + DBExpress + Oracle 9i + SOAP

2007-10-15 Por tôpico André Luis de Oliveira
Galera, bom dia,

Eh o seguinte estou criando um webservice usando Delphi 2006 + DBExpress + 
Oracle 9i + SOAP.
Criei a parte servidora até ai tudo bem. O problema está na parte cliente, 
primeiro estava dando erro de Unable load oci.dll, alterei a LibrayName de 
dbxora30.dll para dbexpora.dll funcionou, só que agora está dando esse erro 
Error Code '65535' . 
No ClientDataSet na opção ProviderName não aparece os providers do meu 
webservice.

Alguem sabe o que pode ser isso ???


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4018
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Re: Programação para WEB

2007-10-02 Por tôpico André Luis de Oliveira
Murillo só uma informação, qual componente q vc usa fazer a comunicação com o 
oracle?


  - Original Message - 
  From: Murillo Proença 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, October 02, 2007 4:41 PM
  Subject: [delphi-br] Re: Programação para WEB


  Fala aí Rodrigo, blz?

  Estou desenvolvendo no BDS2006 / ASP.NET, framework 1.1 com BDP e
  Oracle de banco. Tá tudo rodando blzinha aqui na empresa, apesar de
  que se você puder trabalhar com o BDS2007, já compensa partir para o
  DBX4, pois o BDP foi abortado. E trabalhar com o GridView, que tem uma
  série de recursos prontos, que no DataGrid tinha que fazer na mão.

  Abraço

  Murillo Proença 

  --- Em delphi-br@yahoogrupos.com.br, Rodrigo Bevilacqua Marcondes
  [EMAIL PROTECTED] escreveu
  
   Prezados Colegas,
   
   Desenvolvo em Delphi 2005 for Windows e preciso desenvolver um
  modulo do sistema para WEB, então gostaria de alguns comentários das
  experiências passadas, sobre as seguintes ferramentas: Delphi 2005 for
  .net, Delphi 2006 for .net, Delphi 2007 for .net , Delphi for PHP,
  IntraWeb. 
   Analisando algumas questões : 
   - Suporte ao framework 1.1 x 2.0
   - Uso do DataGrid x GridView
   - BDP x DBX4 x FB provider
   - Suporte a ajax
   
   Qualquer informação é bem vinda, um site com comparações, 
   
   muito obrigado,
   
   
   Rodrigo
   
   
   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]
  



   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.488 / Virus Database: 269.13.37/1042 - Release Date: 1/10/2007 
18:59


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] DIAS DO MÊS

2007-09-27 Por tôpico André Luis de Oliveira
Dá uma olhada se este exemplo funciona:

function TForm1.AnoBiSexto(Ayear: Integer): Boolean;
begin
// Verifica se o ano é Bi-Sexto
Result := (AYear mod 4 = 0) and ((AYear mod 100  0) or 
(AYear mod 400 = 0));
end;
 
function TForm1.DiasPorMes(Ayear, AMonth: Integer): Integer;
const DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 
30, 31, 30, 31);
begin
Result := DaysInMonth[AMonth];
if (AMonth = 2) and AnoBiSexto(AYear) then
Inc(Result);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(DiasPorMes(1999, 10));
end;


  - Original Message - 
  From: Red Mosquito 
  To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br 
  Sent: Thursday, September 27, 2007 3:47 PM
  Subject: [delphi-br] DIAS DO MÊS


  Existe alguma função do próprio Delphi que retorna QUANTOS DIAS HÁ NO MÊS ?

  Se negativo, alguém possui alguma função que faça isso ?

  Obrigado

  Junior

  [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.488 / Virus Database: 269.13.32/1032 - Release Date: 26/9/2007 
20:20


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Executável do sistema

2007-09-26 Por tôpico André Luis de Oliveira
Como cria um sistema em dll???

- Original Message - 
  From: Guionardo Furlan 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 26, 2007 9:50 AM
  Subject: Re: [delphi-br] Executável do sistema


  Hmm, e como o sistemaX.exe sabe quais módulos estão disponíveis?
  Fileexists(arquivodll)? E a troca de informações entre eles?

  Em 26/09/07, Yahoo [EMAIL PROTECTED] escreveu:
  

   Para quem não entendeu como se divido o sistema em dlls, vou tentar 
explicar. Faço a tela principal como exe. Cada item de menu chama um módulo. 
Esses módulos chamados em cada item de menu é uma dll. Por exemplo : Tenho um 
sistema como o nome de SistemaX, que tem uma tela de vendas, um cadastro de 
pessoas e um cadastro de produtos. Então o sistema teria o executável com o 
nome de SistemaX.exe e os módulos Vendas.dll, Pessoas.dll e Produtos.dll. 
Desenvolvendo o sistema dessa forma ficaria mais fácil atualizar o sistema, 
pois só disponibilizaria para o usuário os módulos que lhe interessassem e só 
seria necessário atualizar os módulos alterados.

  -- 
  Timeo hominem unius libri
  Cogito ergo sum - Carpe diem

  []s
  Guionardo Furlan
  http://guionardo.blogspot.com


   


--


  No virus found in this incoming message.
  Checked by AVG Free Edition. 
  Version: 7.5.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 
08:02


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Executável do sistema

2007-09-25 Por tôpico André Luis de Oliveira
Como assim fazer em dll?


  - Original Message - 
  From: Yahoo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, September 24, 2007 4:49 PM
  Subject: Re: [delphi-br] Executável do sistema


  Ao invés de exe, acho melhor fazer um dll para cada módulo.

  [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.488 / Virus Database: 269.13.30/1025 - Release Date: 23/9/2007 
13:53


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Executável do sistema

2007-09-25 Por tôpico André Luis de Oliveira
Junior,

Hj nosso ERP está divido em 4 modulos cadastro, operação, financeiro, contrato 
e contabilidade, cada um é um EXE, foi desenvolvido em delphi 6.

A empresa q trabalho é de meio porte, e tempos mais 15 escritorios regionais.
Os escritorios hj usam VPN com terminal server.

Hj fica dificil atualizar o sistema pois muitos usuarios ficam pendurados no 
programa.
Por isso gostaria de saber se seria viavel construir um exe para cada programa, 
ai
acabaria com esse problema de atualização.

Estamos com a idéia de restruturar o sistema. E fazer em multicamadas.
Estamos estudando todas as formas.


  - Original Message - 
  From: Red Mosquito 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, September 25, 2007 9:47 AM
  Subject: RES: [delphi-br] Executável do sistema


  André

  Possuo um mini ERP direcionado à varejos de pequeno porte (fat médio 1
  milhão/mês).

  Desenvolvi modulado pensando no seguinte:

  -contole de restrições de acesso ficam mais fáceis, pois os círculos de
  usuários ficam fechados por módulo,

  (Exceto os administradores do sistema)

  -por exemplo: no balcão de vendas interessa executar apenas o módulo de
  balcão, e nada mais.

  -mesmo raciocíniio para demais deptos da empresa (compras, estoque,
  telemark, caixa, etc...)

  Não possuo 2 módulos, contabilidade e folha de pagto, pois é constante a
  adoção de escritórios contábeis para fazer isso.

  O fato de estar modulado deixa-o bem estruturado, porém a manutenção
  realmente leva mais tempo, pois

  para cada alteração em um módulo tem que se pensar quais as consequências
  terão nos demais módulos.

  Se vai ser modulado ou EXE único, você deve levar muito em consideração o
  FOCO da sua aplicação.

  Se eu fosse desenvolver algo para varejos com faturamento de 50 mil/mês
  (lojinhas pequenas) aí certamente faria um EXE único.

  Já para empresas maiores, dividida em deptos, faria modulado.

  Pense sempre no seu FOCO.

  Espero ter ajudado

  Junior

  _ 

  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
  nome de André Luis de Oliveira
  Enviada em: segunda-feira, 24 de setembro de 2007 16:03
  Para: NDDV (multicamadas); Delphi BR
  Assunto: [delphi-br] Executável do sistema

  Gostaria de opiniões!
  Qual a melhor forma de montar um sistema, cada programa sendo um exe (com um
  controle de versão) ou um executavel com o sistema inteiro?

  André Luis de Oliveira
  Analista de Sistemas
  E-mail: [EMAIL PROTECTED] mailto:sistemas%40uniodontocamp.com.br
  amp.com.br
  ( (19) 3322-4019
  Skype: al_oliveira

  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  ( (19) 3322-4000
  Visite nosso site: www.uniodontocamp.com.br

  [As partes desta mensagem que não continham texto foram removidas]

  [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.488 / Virus Database: 269.13.30/1030 - Release Date: 25/9/2007 
08:02


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Executável do sistema

2007-09-24 Por tôpico André Luis de Oliveira
Gostaria de opiniões!
Qual a melhor forma de montar um sistema, cada programa sendo um exe (com um 
controle de versão) ou um executavel com o sistema inteiro?



André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4019
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Dúvida em .Net

2007-09-18 Por tôpico André Luis de Oliveira
Minha aplicação hj é cliente/servidor...

Estou querendo fazer o seguinte migrar para .Net. 

E tenho uma dúvida tem como fazer uma aplicação, q vai ser usada tanto no 
ambiente win32 e no internet explorer?

Ou vou ter q criar duas aplicações uma win32 e outra pra internet?

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Dúvida em .Net

2007-09-17 Por tôpico André Luis de Oliveira
Minha aplicação hj é cliente/servidor...

Estou querendo fazer o seguinte migrar para .Net. 

E tenho uma dúvida tem como fazer uma aplicação, q vai ser usada tanto no 
ambiente win32 e no internet explorer?

Ou vou ter q criar duas aplicações uma win32 e outra pra internet?



André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4019
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Migração de Aplicação

2007-09-13 Por tôpico André Luis de Oliveira
Minha aplicação atualmente é desenvolvida em Delphi 6 Profissional em banco de 
dados Oracle 9i, tenho usuários que usam o programa na empresa e tb fora da 
empresa (filiais), usando VPN.

Estou precisando de ajuda e informações para uma migração de sistema.

Estou querendo desenvolver em multicamadas, e tb em win32 e dotnet, algumas 
funções do programa quero disponibilizar para internet.

Minhas dúvidas é a seguinte:
O servidor de aplicação qual a melhor forma de desenvolver (exe, dll, bss, 
webservices);
As aplicações para internet e win32 qual a melhor forma de desenvolver: 
asp.net, ajax ...


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3322-4019
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3322-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] DataSnap Delphi 6

2007-09-04 Por tôpico André Luis de Oliveira
Tenho o Delphi 6 Professional, e não tenho a paleta DataSnap como faço instalar 
essa paleta?


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3731-4019
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3731-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Webservices

2007-08-31 Por tôpico André Luis de Oliveira
Bom dia,

Alguém conhece algum livro sobre Webservices voltado a banco de dados, ou tenha 
algum tutorial


Abs


André Luis de Oliveira
Analista de Sistemas
E-mail: [EMAIL PROTECTED]
( (19) 3731-4019
Skype: al_oliveira


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
( (19) 3731-4000
Visite nosso site: www.uniodontocamp.com.br


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Enquetes DEVMEDIA

2007-06-14 Por tôpico André Luis de Oliveira
ClubeDelphi
[EMAIL PROTECTED]

.Net Magazine
[EMAIL PROTECTED]


  - Original Message - 
  From: Thiago Filiano (America Soft) 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, June 14, 2007 11:43 AM
  Subject: Re: [delphi-br] Enquetes DEVMEDIA


  ClubeDelphi
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]

  SQL Magazine
  [EMAIL PROTECTED]

  .Net Magazine

  WebMobile

  Java Magazine
  [EMAIL PROTECTED]

  Ricardo César Cardoso escreveu:
   Alcistemas Informática [EMAIL PROTECTED] escreveu: 
   - Original Message - 
   From: alan_adolfo2 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Thursday, June 14, 2007 9:37 AM
   Subject: [delphi-br] Enquetes DEVMEDIA
   
   Gostaria de Saber quem tanto aq utiliza o Site www.devmedia.com.br 
   para consulta e quem assina ou compra as Revistas coloque o teu email 
   em baixo da revista em q vc assina ou compra.
   
   ClubeDelphi
   [EMAIL PROTECTED]
   
   [EMAIL PROTECTED]
   
   [EMAIL PROTECTED]
   SQL Magazine
   
   [EMAIL PROTECTED]
   .Net Magazine
   
   WebMobile
   
   Java Magazine
   [EMAIL PROTECTED]
   --
   
   No virus found in this incoming message.
   Checked by AVG Free Edition. 
   Version: 7.5.472 / Virus Database: 269.8.15/848 - Release Date: 13/6/2007 
12:50
   
   [As partes desta mensagem que não continham texto foram removidas]
   
   
   
   __
  
  
  
   
   -
   Novo Yahoo! Cadê? - Experimente uma nova busca. 
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   


   

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Delphi 7 e 2007??

2007-06-01 Por tôpico André Luis de Oliveira
Posso instalar na mesma máquina o Delphi 7 e 2007???


André Luis de Oliveira 
Analista de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
( (19) 3731-4019 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [EMAIL PROTECTED] 


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Rave Report para Delphi 6

2007-05-03 Por tôpico André Luis de Oliveira
Olá,

Alguém poderia me dizer aonde consigo o Rave Report para Delphi 6.



André Luis de Oliveira 
Analista de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
( (19) 3731-4019 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [EMAIL PROTECTED] 


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Integração Word e Delphi

2007-05-03 Por tôpico André Luis de Oliveira
andré não consegui baixar o componente ... vc poderia mandar pra mim: [EMAIL 
PROTECTED]

  - Original Message - 
  From: Andre Luis Silveria 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, May 02, 2007 3:18 PM
  Subject: Res: [delphi-br] Integração Word e Delphi


  Procura pelo componente ARWordReport
  http://www.vector-ski.com/reports
  Eu uso ele para trabalhar com o Word e é realmente muito bom ...
  Ele é freeware sem fontes.

  GYNCOWBOY 
  André Luis da Silveira

  - Mensagem original 
  De: Berdam Cavaletti [EMAIL PROTECTED]
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Terça-feira, 1 de Maio de 2007 23:53:02
  Assunto: Re: [delphi-br] Integração Word e Delphi

  não seria melhor vc fazer uma mala direta ou utilizar o rave report para 
fazer isso???

  Carlos [EMAIL PROTECTED] com.br escreveu: Boa noite a todos!

  O que gostaria de fazer sei que existe, só não sei ainda como fazer,

  por isso conto com o auxílio dos senhores.

  Tenho um modelo em Word, supondo que seja um modelo de Licença Médica,

  onde possui campos a serem preenchidos (nome, endreço, data, etc) por

  dados constantes de um DB através de uma aplicação Delphi. Já vi isto

  funcionando, mas não tive a oportunidade de visulizar o código, e

  preciso de algo neste sentido, alguém poderia me dar um auxílio.

  Agradeço antecipadamente a todos, e que o Criador nos ilumine hoje e

  sempre.

  Obrigado.

  Carlos

   _ _ _ _ __

  Fale com seus amigos de graça com o novo Yahoo! Messenger 

  http://br.messenger .yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas]

  !--

  #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
  #ygrp-mlmsg table {font-size:inherit;font:100%;}
  #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, 
sans-serif;}
  #ygrp-mlmsg pre, code {font:115% monospace;}
  #ygrp-mlmsg * {line-height:1.22em;}
  #ygrp-text{
  font-family:Georgia;
  }
  #ygrp-text p{
  margin:0 0 1em 0;}
  #ygrp-tpmsgs{
  font-family:Arial;
  clear:both;}
  #ygrp-vitnav{
  padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
  #ygrp-vitnav a{
  padding:0 1px;}
  #ygrp-actbar{
  clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
  #ygrp-actbar .left{
  float:left;white-space:nowrap;}
  .bld{font-weight:bold;}
  #ygrp-grft{
  font-family:Verdana;font-size:77%;padding:15px 0;}
  #ygrp-ft{
  font-family:verdana;font-size:77%;border-top:1px solid #666;
  padding:5px 0;
  }
  #ygrp-mlmsg #logo{
  padding-bottom:10px;}

  #ygrp-vital{
  background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
  #ygrp-vital #vithd{
  
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
  #ygrp-vital ul{
  padding:0;margin:2px 0;}
  #ygrp-vital ul li{
  list-style-type:none;clear:both;border:1px solid #e0ecee;
  }
  #ygrp-vital ul li .ct{
  
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
  #ygrp-vital ul li .cat{
  font-weight:bold;}
  #ygrp-vital a {
  text-decoration:none;}

  #ygrp-vital a:hover{
  text-decoration:underline;}

  #ygrp-sponsor #hd{
  color:#999;font-size:77%;}
  #ygrp-sponsor #ov{
  padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
  #ygrp-sponsor #ov ul{
  padding:0 0 0 8px;margin:0;}
  #ygrp-sponsor #ov li{
  list-style-type:square;padding:6px 0;font-size:77%;}
  #ygrp-sponsor #ov li a{
  text-decoration:none;font-size:130%;}
  #ygrp-sponsor #nc {
  background-color:#eee;margin-bottom:20px;padding:0 8px;}
  #ygrp-sponsor .ad{
  padding:8px 0;}
  #ygrp-sponsor .ad #hd1{
  
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
  #ygrp-sponsor .ad a{
  text-decoration:none;}
  #ygrp-sponsor .ad a:hover{
  text-decoration:underline;}
  #ygrp-sponsor .ad p{
  margin:0;}
  o {font-size:0;}
  .MsoNormal {
  margin:0 0 0 0;}
  #ygrp-text tt{
  font-size:120%;}
  blockquote{margin:0 0 0 4px;}
  .replbq {margin:4;}
  --

  __
  Fale com seus amigos de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.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] Stored procedure

2007-03-30 Por tôpico André Luis de Oliveira
Estou usando o Delphi 6 com Oracle 9i, e estou usando o AdoStoredProc.
Criei uma procedure no oracle e quando vou gravar dados nela da o seguinte 
erro:  raised exception class EOleExpection with message '???'.

Q erro é esse?

estou gravando assim:

  spIdusuario.Parameters[0].Value := xcodusuario;
  spIdusuario.ExecProc;


André Luis de Oliveira 
Analista de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
( (19) 3731-4019 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [EMAIL PROTECTED] 


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Formatar valor no TmxNativeExcel Component

2007-03-28 Por tôpico André Luis de Oliveira
Alguem usa o TmxNativeExcel Componnet ? 
Gostaria de saber como faz para formatação uma coluna de valor.
Está gravando 10,2, quero gravar formatado 10,20


André Luis de Oliveira 
Analista de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
( (19) 3731-4019 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [EMAIL PROTECTED] 


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Gerar planilha para BrOffice no Delphi

2007-02-08 Por tôpico André Luis de Oliveira
Use o componente mxNativeExcel da MaxComponents.


  - Original Message - 
  From: Otto Francisco de Oliveira Filho 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, February 07, 2007 6:31 PM
  Subject: [delphi-br] Gerar planilha para BrOffice no Delphi


  Boa tarde... Alguém tem algum dica com gerar planilha para BrOffice no 
  Delphi sem ter o office instalado no PC?

  Deste já agradeço qualquer ajuda



   

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] MySQL Com DBExpress

2006-12-29 Por tôpico André Luis de Oliveira
Pq vc não usa o ZeosLib para fazer acesso ao MySQL, o componente é free e muito 
bom, nunca tive problema com ele.


  - Original Message - 
  From: Plinio Cesar Pavin 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, December 29, 2006 3:35 PM
  Subject: Re: [delphi-br] MySQL Com DBExpress


  Luiz, acabamos comprando os dois: o driver dbexpress da MicroOlap e o MyDAC !

  Jogamos dinheiro fora com o driver da MicroOlap: Simplesmente todos os campos 
decimal(x,y) do mySQL, que antes eram mapeados como TFloatField, passaram a ser 
mapeados como TBCDField ou TFMTBCDField, gerando inúmeros erros de type 
mismatch. 

  Nota 10 para o myDAC ! Está dando trabalho pra substituir os componentes 
DBExpress (SQLDataSet + DatasetProvider + ClientDataset) por apenas um 
componente TMyQuery, mas depois disso, funciona que é uma maravilha.

  A propósito: vc utiliza o myDAC num DataModule ? A aplicação em que estou 
trabalhando possui os componentes de conexão em cada form, pois cada form 
(principalmente consultas e relatórios) possui uma query diferente. É correto ?

  Plinio Cesar Pavin

  - Original Message - 
  From: Luiz Escobar 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 27, 2006 2:20 PM
  Subject: Re: [delphi-br] MySQL Com DBExpress

  Bom EU uso MySQL 5.xx com o MyDAC da www.clab.com.br e não mudo por nada 
nesse mundo, pelo menos até sair algo melhor que ele, que na minha opnião é o 
melhor... hehehehe

  Luiz Escobar
  Analista/Desenvolvedor:
  WEB - HTML/JavaScript/PHP/MySQL 
  WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
  DOS - Clipper/Assembler xBase
  SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
  LINUX - LAZARUS/Kylix/MySQL;
  http://www.megasistema.com.br

  - Original Message - 
  From: Plinio Cesar Pavin 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, December 27, 2006 12:27 PM
  Subject: [delphi-br] MySQL Com DBExpress

  Olá Pessoal, estou dando manutenção numa aplicação desenvolvida com 
  Delphi 7 + mySQL (4.00) usando DBExpress (Driver da MicroOlap), porém 
  o cliente precisa atualizar o BD para a versão 5.0. Ao fazer isso, o 
  driver da MicroOlap começa apresentar uma série de erros nos campos 
  numéricos. 

  Em resumo, estou aceitando sugestões: 
  Fazer o cliente comprar o driver atualizado da MicroOlap ?
  Fazer o cliente comprar o driver CoreLab ?
  Abandonar de vez o DBExpress ?
  Abandonar de vez o mySQL ?

  Um dos maiores problemas é que a aplicação tem componentes de acesso 
  em cada form, ou seja, quem desenvolveu não utilizou um datamodule 
  para centralizar os componentes de acesso.Assim, se resolver abandonar 
  o DBExpress, vou ter que percorrer todos os forms da aplicação 
  substituindo os componentes.

  Gostaria de saber de vocês, se isso acontece com outros bancos, ou 
  realmente o Delphi não acompanhou a evolução somente do mySQL. Por 
  exemplo: o BDS 2006 conecta normalmente com o SQL Server 2005 Express 
  Edition, usando DBExpress ? 

  Estou realmente perdido, pois tenho alguns projetos para iniciar, e 
  ainda não decidi qual banco de dados e componente de acesso utilizar. 
  já que tenho medo de futuramente cair no mesmo problema (o componente 
  não acompanhar a evolução do BD).

  Um abraço a todos e um FELIZ 2007 !

  Plinio Cesar Pavin

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Cor de celula no StringGrid

2006-11-08 Por tôpico André Luis de Oliveira
Fabio valeu, deu certo.

  - Original Message - 
  From: Fabio Giro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, November 07, 2006 3:54 PM
  Subject: Re: [delphi-br] Cor de celula no StringGrid


  Adapte as suas necessidades (testado no Delphi 3).

  procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
  begin
if (Row=1) and (Col=1) then
begin
  StringGrid1.Canvas.Font.Color := clwhite;
  StringGrid1.Canvas.Brush.Color := clAqua;
  StringGrid1.Canvas.TextRect(Rect, Rect.Left+2, 
Rect.Top+2,StringGrid1.Cells[Col, Row]);
end;
  end;

  Espero ter ajudado.
- Original Message - 
From: aoliveira_sys 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, November 07, 2006 2:39 PM
Subject: [delphi-br] Cor de celula no StringGrid


Como faço para uma determinada celular fique por exemplo com o fundo
vermelho e a cor de fonte amarelo??


 

  [As partes desta mensagem que não continham texto foram removidas]


   

[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]
 
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] Sobre Turbo Delphi

2006-09-20 Por tôpico André Luis de Oliveira
Ultimamente no grupo está se falando sobre o Turbo Delphi, me despertou a 
curiosidade. Tentei procurar na net algo sobre o assunto.
Gostaria de saber afinal de conta oq é esse tal Turbo Delphi, e a versão do 
Delphi Free??? Oq faço no Delphi faço nele?? Os dois são compativeis???

[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]
 
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] Sobre Turbo Delphi

2006-09-20 Por tôpico André Luis de Oliveira
Obrigado Andreano, esclareci minhas duvidas.


  - Original Message - 
  From: Andreano Lanusse 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, September 20, 2006 9:13 AM
  Subject: RE: [delphi-br] Sobre Turbo Delphi


  André,

  as informações estão em:

  http://www.borland.com/br/products/turbo/index.html

  http://info.borland.com.br/Delphi2006/Portuguese_TurboFAQ.pdf

  http://www.turboexplorer.com

  []'s
  Andreano

  

  From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
André Luis de Oliveira
  Sent: Wednesday, September 20, 2006 8:41 AM
  To: Delphi BR
  Subject: [delphi-br] Sobre Turbo Delphi


  Ultimamente no grupo está se falando sobre o Turbo Delphi, me despertou a 
curiosidade. Tentei procurar na net algo sobre o assunto.
  Gostaria de saber afinal de conta oq é esse tal Turbo Delphi, e a versão do 
Delphi Free??? Oq faço no Delphi faço nele?? Os dois são compativeis???

  [As partes desta mensagem que não continham texto foram removidas]




  [As partes desta mensagem que não continham texto foram removidas]

   

[As partes desta mensagem que não continham texto foram removidas]



-- 
 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]
 
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] Gerar planilha em Excel

2006-09-05 Por tôpico André Luis de Oliveira
Preciso gerar uma planilha em Excel, estou usando o componente mxNativeExcel.
Quando visualizo no Excel aparece perfeito, mas no OpenOffice, não consigo ver.
Alguém sabe alguma outra forma de gerar que as duas aplicação visualize.




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Cor quando receber focus

2006-08-01 Por tôpico André Luis de Oliveira
Onde posso achar este componente?

  - Original Message - 
  From: Fabiano Frizzo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 31, 2006 11:33 PM
  Subject: Re: [delphi-br] Cor quando receber focus


  Amigo Tenho um Componente Chamado SSCompXP ele Faz isso Automatico Para vc ..

  Se vc quiser me mande e-mail em PVT que te envio Ok
- Original Message - 
From: Karin Schiochet 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, July 31, 2006 6:22 PM
Subject: Re: [delphi-br] Cor quando receber focus


Bem eu fiz da segunte forma em um programa que estou
fazerdo.

Criei uma Unit com nome Unitfunção e nela coloco os
procedimentos e funções de uso mais comuns.
Ex.

// Declaração dos procedimentos
procedure CorEntrada(Sender: TObject);
procedure CorSaida(Sender: TObject);

Implementation

Uses DB;

procedure CorEntrada(Serder: TObject);
Begin
 if (Sender id TEdit) then
(Sender as TEdit).Color:= clActiveCaption
else if (Sender is TMaskEdit) then
(Sender as TMaskEdit).Color:=
clActiveCaption
else if (Sender is TMemo) then
(Sender as TMemo).Color:=
clActiveCaption
else if (Sender is TDBEdit) then
(Sender as TDBEdit).Color:=
clActiveCaption
else if (Sender is TDBMemo) then
(Sender as TDBMemo).Color:=
clActiveCaption
  
Fazendo a mesma coisa para a procedure CorSaida, e
depois basta colocar nos eventos OnEnter e OnExit
a chamada para essas procedures. Ex.
CorEntrada(Sender);

Espero ter ajudado, 
Karin Klayton


 
 Alguem tem alguma rotina que quando o TEdit ou
 TComboBox receber o
 foco mudar de cor. Por exemplo, a cor do TEdit é
 branco quando o TEdit
 receber o foco mudar para a cor amarelo. Precisa ser
 uma rotina pois
 fazer em cada TEdit vai dar trabalho..rs
 
 
 
 
 
  
 
 




___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
o discador agora! 
http://br.acesso.yahoo.com
 

  [As partes desta mensagem que não continham texto foram removidas]

   

[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]
 
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] Cor quando receber focus

2006-08-01 Por tôpico André Luis de Oliveira
O componente vcs vão achar no Planeta Delphi: 
http://www.delphi.eti.br/arquivos.php?p=6area=componentes
  - Original Message - 
  From: Alexandre 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 01, 2006 8:29 AM
  Subject: Re: [delphi-br] Cor quando receber focus


  Desculpem-me colegas... O e-mail era p ser em pvt. Foi mal!

  Alexandre

- Original Message - 
From: Alexandre 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, August 01, 2006 8:22 AM
Subject: Re: [delphi-br] Cor quando receber focus


Olá Fabiano.

Pode enviar p mim tb...

Obrigado.

Alexandre
  - Original Message - 
  From: Fabiano Frizzo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, July 31, 2006 11:33 PM
  Subject: Re: [delphi-br] Cor quando receber focus


  Amigo Tenho um Componente Chamado SSCompXP ele Faz isso Automatico Para 
vc ..

  Se vc quiser me mande e-mail em PVT que te envio Ok
- Original Message - 
From: Karin Schiochet 
To: delphi-br@yahoogrupos.com.br 
Sent: Monday, July 31, 2006 6:22 PM
Subject: Re: [delphi-br] Cor quando receber focus


Bem eu fiz da segunte forma em um programa que estou
fazerdo.

Criei uma Unit com nome Unitfunção e nela coloco os
procedimentos e funções de uso mais comuns.
Ex.

// Declaração dos procedimentos
procedure CorEntrada(Sender: TObject);
procedure CorSaida(Sender: TObject);

Implementation

Uses DB;

procedure CorEntrada(Serder: TObject);
Begin
 if (Sender id TEdit) then
(Sender as TEdit).Color:= clActiveCaption
else if (Sender is TMaskEdit) then
(Sender as TMaskEdit).Color:=
clActiveCaption
else if (Sender is TMemo) then
(Sender as TMemo).Color:=
clActiveCaption
else if (Sender is TDBEdit) then
(Sender as TDBEdit).Color:=
clActiveCaption
else if (Sender is TDBMemo) then
(Sender as TDBMemo).Color:=
clActiveCaption
  
Fazendo a mesma coisa para a procedure CorSaida, e
depois basta colocar nos eventos OnEnter e OnExit
a chamada para essas procedures. Ex.
CorEntrada(Sender);

Espero ter ajudado, 
Karin Klayton


 
 Alguem tem alguma rotina que quando o TEdit ou
 TComboBox receber o
 foco mudar de cor. Por exemplo, a cor do TEdit é
 branco quando o TEdit
 receber o foco mudar para a cor amarelo. Precisa ser
 uma rotina pois
 fazer em cada TEdit vai dar trabalho..rs
 
 
 
 
 
  
 
 




___ 
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
o discador agora! 
http://br.acesso.yahoo.com
 

  [As partes desta mensagem que não continham texto foram removidas]

   

[As partes desta mensagem que não continham texto foram removidas]

 

  [As partes desta mensagem que não continham texto foram removidas]

   

[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]
 
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] Criar componente

2006-08-01 Por tôpico André Luis de Oliveira
Alguém tem alguma documentação ensinando a criar componente




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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: Cor quando receber focus

2006-08-01 Por tôpico André Luis de Oliveira
declare a unit TypInfo.
  - Original Message - 
  From: vilelajrbr 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, August 01, 2006 10:20 AM
  Subject: [delphi-br] Re: Cor quando receber focus


  Coloquei a instrução no meu formulário, mas está dando erro no

  SetOrdProp

  Diz que o identificador não foi declarado...
  Tenha que declará-lo ou utilizar alguma use ?

  []s e muito obrigado

  --- Em delphi-br@yahoogrupos.com.br, JJW Informática Ltda. - Roberto
  [EMAIL PROTECTED] escreveu
  
   Coloque um timer no seu form principal com interval 100 e enabled em
  FALSE:
   
   
   TForm1 = class(TForm)
   ...
   private
 FLastControl: TWinControl;
   end;
   
   procedure TForm1.Form1Create(Sender: TObject);
   begin
 FLastControl := nil;
 Timer1.Enabled := True; 
   end;
   
   procedure TForm1.Timer1Timer(Sender: TObject);
   begin
 try
   if Screen.ActiveControl  FLastControl then
   begin
 try
   SetOrdProp(FLastControl, 'Color', clBtnFace);
 except end;
   
 FLastControl := Screen.ActiveControl;
 try
   SetOrdProp(FLastControl, 'Color', clYellow);
 except end; 
   end; 
 except
   // ignorar erros 
 end;
   end;
   
   
 - Original Message - 
 From: André Luis de Oliveira 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Tuesday, August 01, 2006 8:03 AM
 Subject: Re: [delphi-br] Cor quando receber focus
   
   
 Onde posso achar este componente?
   
   - Original Message - 
   From: Fabiano Frizzo 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Monday, July 31, 2006 11:33 PM
   Subject: Re: [delphi-br] Cor quando receber focus
   
   
   Amigo Tenho um Componente Chamado SSCompXP ele Faz isso
  Automatico Para vc ..
   
   Se vc quiser me mande e-mail em PVT que te envio Ok
 - Original Message - 
 From: Karin Schiochet 
 To: delphi-br@yahoogrupos.com.br 
 Sent: Monday, July 31, 2006 6:22 PM
 Subject: Re: [delphi-br] Cor quando receber focus
   
   
 Bem eu fiz da segunte forma em um programa que estou
 fazerdo.
   
 Criei uma Unit com nome Unitfunção e nela coloco os
 procedimentos e funções de uso mais comuns.
 Ex.
   
 // Declaração dos procedimentos
 procedure CorEntrada(Sender: TObject);
 procedure CorSaida(Sender: TObject);
   
 Implementation
   
 Uses DB;
   
 procedure CorEntrada(Serder: TObject);
 Begin
  if (Sender id TEdit) then
 (Sender as TEdit).Color:= clActiveCaption
 else if (Sender is TMaskEdit) then
 (Sender as TMaskEdit).Color:=
 clActiveCaption
 else if (Sender is TMemo) then
 (Sender as TMemo).Color:=
 clActiveCaption
 else if (Sender is TDBEdit) then
 (Sender as TDBEdit).Color:=
 clActiveCaption
 else if (Sender is TDBMemo) then
 (Sender as TDBMemo).Color:=
 clActiveCaption
   
 Fazendo a mesma coisa para a procedure CorSaida, e
 depois basta colocar nos eventos OnEnter e OnExit
 a chamada para essas procedures. Ex.
 CorEntrada(Sender);
   
 Espero ter ajudado, 
 Karin Klayton
   
   
  
  Alguem tem alguma rotina que quando o TEdit ou
  TComboBox receber o
  foco mudar de cor. Por exemplo, a cor do TEdit é
  branco quando o TEdit
  receber o foco mudar para a cor amarelo. Precisa ser
  uma rotina pois
  fazer em cada TEdit vai dar trabalho..rs
  
  
  
  
  
   
  
  
   
   
   
 
 ___ 
 Yahoo! Acesso Grátis - Internet rápida e grátis. Instale 
 o discador agora! 
 http://br.acesso.yahoo.com
  
   
   [As partes desta mensagem que não continham texto foram removidas]
   

   
 [As partes desta mensagem que não continham texto foram removidas]
   
  
   
   [As partes desta mensagem que não continham texto foram removidas]
  




   

[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]
 
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] Valor por extenso

2006-07-06 Por tôpico André Luis de Oliveira
Eu uso essa função

const
  Centenas: array[1..9] of string[12] = ('CEM', 'DUZENTOS', 'TREZENTOS', 
'QUATROCENTOS',
'QUINHENTOS', 'SEISCENTOS', 'SETECENTOS',
'OITOCENTOS', 'NOVECENTOS');
  Dezenas: array[2..9] of string[10] = ('VINTE', 'TRINTA', 'QUARENTA', 
'CINQUENTA',
'SESSENTA', 'SETENTA', 'OITENTA', 'NOVENTA');
  Dez: array[0..9] of string[10] = ('DEZ', 'ONZE', 'DOZE', 'TREZE', 'QUATORZE',
'QUINZE', 'DEZESSEIS', 'DEZESSETE',
'DEZOITO', 'DEZENOVE');
  Unidades: array[1..9] of string[10] = ('UM', 'DOIS', 'TRES', 'QUATRO', 
'CINCO',
'SEIS', 'SETE', 'OITO', 'NOVE');
  MoedaSingular = 'REAL';
  MoedaPlural = 'REAIS';
  CentSingular = 'CENTAVO';
  CentPlural = 'CENTAVOS';
  Zero = 'ZERO';
  
  function Retorna_Valor_Extenso(Valor: Double): string;
  var
ComoTexto: string;
Parte: string;
  begin
Result := '';
ComoTexto := FloatToStrF(Abs(Valor), ffFixed, 18, 2);
  // Acrescenta zeros a esquerda ate 12 digitos
while length(ComoTexto)  15 do
  Insert('0', ComoTexto, 1);
  // Retira caracteres a esquerda para o máximo de 12 digitos
while length(ComoTexto)  15 do
  delete(ComoTexto, 1, 1);
  
  // Calcula os bilhões
Parte := Ext3(copy(ComoTexto, 1, 3));
if StrToInt(copy(ComoTexto, 1, 3)) = 1 then
  Parte := Parte + ' BILHAO'
else
  if Parte  '' then
Parte := Parte + ' BILHOES';
Result := Parte;
  
  // Calcula os nilhões
Parte := Ext3(copy(ComoTexto, 4, 3));
if Parte  '' then
begin
  if Result  '' then
Result := Result + ', ';
  if StrToInt(copy(ComoTexto, 4, 3)) = 1 then
Parte := Parte + ' MILHAO'
  else
Parte := Parte + ' MILHOES';
  Result := Result + Parte;
end;
  
  // Calcula os nilhares
Parte := Ext3(copy(ComoTexto, 7, 3));
if Parte  '' then
begin
  if Result  '' then
Result := Result + ', ';
  Parte := Parte + ' MIL';
  Result := Result + Parte;
end;
  
  // Calcula as unidades
Parte := Ext3(copy(ComoTexto, 10, 3));
if Parte  '' then
begin
  if Result  '' then
if Frac(Valor) = 0 then
  Result := Result + ' E '
else
  Result := Result + ', ';
  Result := Result + Parte;
end;
  
  // Acrescenta o texto da moeda
if Int(Valor) = 1 then
  Parte := ' ' + MoedaSingular
else
  Parte := ' ' + MoedaPlural;
if copy(ComoTexto, 7, 6) = '00' then
  Parte := 'DE ' + MoedaPlural;
Result := Result + Parte;
  
  // Se o valor for zero, limpa o resultado
if int(Valor) = 0 then Result := '';
  
  //Calcula os centavos
Parte := Ext3('0' + copy(ComoTexto, 14, 2));
if Parte  '' then
begin
  if Result  '' then
Result := Result + ' E ';
  if Parte = Unidades[1] then
Parte := Parte + ' ' + CentSingular
  else
Parte := Parte + ' ' + CentPlural;
  Result := Result + Parte;
end;
  
if Copy(Result, 1, 3) = 'UM ' then
  Result := 'H' + Result;
  
  // Se o valor for zero, assume a constante ZERO
if Valor = 0 then
  Result := Zero;
  end;
  
  function Ext3(Parte: string): string;
  var
Base: string;
digito: integer;
  begin
Base := '';
digito := StrToInt(Parte[1]);
if digito = 0 then
  Base := ''
else
  Base := Centenas[digito];
if (digito = 1) and (Parte  '100') then
  Base := 'CENTO';
Digito := StrToInt(Parte[2]);
if digito = 1 then
begin
  Digito := StrToInt(Parte[3]);
  if Base  '' then
Base := Base + ' E ';
  Base := Base + Dez[Digito];
end
else
begin
  if (Base  '') and (Digito  0) then
Base := Base + ' E ';
  if Digito  1 then
Base := Base + Dezenas[digito];
  Digito := StrToInt(Parte[3]);
  if Digito  0 then
  begin
if Base  '' then Base := Base + ' E ';
Base := Base + Unidades[Digito];
  end;
end;
Result := Base;
end;

  - Original Message - 
  From: Fernando Luiz Bortolanzza 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, July 06, 2006 1:30 PM
  Subject: [delphi-br] Valor por extenso


  Alguem ai tem uma função que passa o valor em real e retorna o texto do
  valor por extenso?



  Atenciosamente,

  -

  Fernando Luiz Bortolanzza

  Analista de desenvolvimento de sistemas
  CoreSinPR - http://www.corepr.org.br http://www.corepr.org.br/ 
  Fone: +55 (41) 3223-5213  R.212
  -





  [As partes desta mensagem que não continham texto foram removidas]

   

[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]
 
Links do Yahoo! Grupos

* Para visitar o site do seu 

[delphi-br] GERAR CODIGO DE BARRAS BOLETO BANCARIO

2006-06-27 Por tôpico André Luis de Oliveira
Preciso urgente de uma rotina q gere a imagem do codigo de barras do boleto 
bancário.



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] GERAR CODIGO DE BARRAS BOLETO BANCARIO

2006-06-27 Por tôpico André Luis de Oliveira
Preciso urgente de uma rotina q gere a imagem do codigo de barras do boleto 
bancário.





André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] GERAR CODIGO DE BARRAS BOLETO BANCARIO

2006-06-27 Por tôpico André Luis de Oliveira
eu já faço parte desse grupo, e tb não encontrei a solução.
  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 27, 2006 9:52 AM
  Subject: Re: [delphi-br] GERAR CODIGO DE BARRAS BOLETO BANCARIO


  Dê uma olhada no grupo [EMAIL PROTECTED]

  []
  Andrei

  Em 27/06/06, André Luis de Oliveira[EMAIL PROTECTED] escreveu:
   Preciso urgente de uma rotina q gere a imagem do codigo de barras do boleto 
bancário.
  
  
   

   André Luis de Oliveira
   Programador de Sistemas
   E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
   Telefone: (19) 3731-4019
   Celular: (19) 9703-9018
  
  
   Uniodonto Campinas
   Av. Brasil, 200 - Campinas/SP
   Telefone: (19) 3731-4000
   Visite nosso site: www.uniodontocamp.com.br
   E-mail: [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]
 
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] GERAR CODIGO DE BARRAS BOLETO BANCARIO

2006-06-27 Por tôpico André Luis de Oliveira
o componente não atende as minhas necessidades  fiz um boleto e está tudo 
certo... só a imagem do codigo de barras que o banco está recusando ... o 
codigo de barras da imagem está faltando.
  - Original Message - 
  From: Ulisses 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 27, 2006 10:49 AM
  Subject: Re: [delphi-br] GERAR CODIGO DE BARRAS BOLETO BANCARIO


  Bom dia!

  Como assim? 
  O componente não atende as suas necessidades ou você não sabe utilizá-lo?

  Para gerar o código de barras do boleto, é necessário seguir o padrão, que 
pode ser diferente de acordo com o banco.

  Boa sorte.

  Ulisses
- Original Message - 
From: André Luis de Oliveira 
To: delphi-br@yahoogrupos.com.br 
Sent: Tuesday, June 27, 2006 10:12 AM
Subject: Re: [delphi-br] GERAR CODIGO DE BARRAS BOLETO BANCARIO


eu já faço parte desse grupo, e tb não encontrei a solução.
  - Original Message - 
  From: Andrei Luís 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, June 27, 2006 9:52 AM
  Subject: Re: [delphi-br] GERAR CODIGO DE BARRAS BOLETO BANCARIO


  Dê uma olhada no grupo [EMAIL PROTECTED]

  []
  Andrei

  Em 27/06/06, André Luis de Oliveira[EMAIL PROTECTED] escreveu:
   Preciso urgente de uma rotina q gere a imagem do codigo de barras do 
boleto bancário.
  
  
   

   André Luis de Oliveira
   Programador de Sistemas
   E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
   Telefone: (19) 3731-4019
   Celular: (19) 9703-9018
  
  
   Uniodonto Campinas
   Av. Brasil, 200 - Campinas/SP
   Telefone: (19) 3731-4000
   Visite nosso site: www.uniodontocamp.com.br
   E-mail: [EMAIL PROTECTED]
   

[As partes desta mensagem que não continham texto foram removidas]

 

  [As partes desta mensagem que não continham texto foram removidas]

   

[As partes desta mensagem que não continham texto foram removidas]



-- 
 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]
 
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] Pq acontece isso??

2006-05-26 Por tôpico André Luis de Oliveira



Pq ocorre isso, tenho duas variaveis totliq, totprod  elas acumular o valor o no final subtraio elas

No final totliq tem 27.6, e totprod = -27.6

Faço o seguinte totliq := totliq + totprod, é pra dar 0, mas o delphi retorna -9.9475983006e-14.
Como faço pra resolver isso??? e pq isso acontece???





André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











Re: [delphi-br] Pq acontece isso??

2006-05-26 Por tôpico André Luis de Oliveira



A minha variavel é real, troque para Currency e deu certo.
Obrigado.

- Original Message - 
From: Campus [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, May 26, 2006 8:45 AM
Subject: Re: [delphi-br] Pq acontece isso??


 Te deve estar usando variavel tipo Real, se for troque para Currency.

 - Original Message - 
 From: André Luis de Oliveira [EMAIL PROTECTED]
 To: Delphi BR delphi-br@yahoogrupos.com.br
 Sent: Friday, May 26, 2006 8:22 AM
 Subject: [delphi-br] Pq acontece isso??


 Pq ocorre isso, tenho duas variaveis totliq, totprod  elas acumular o
 valor o no final subtraio elas

 No final totliq tem 27.6, e totprod = -27.6

 Faço o seguinte totliq := totliq + totprod, é pra dar 0, mas o delphi
 retorna -9.9475983006e-14.
 Como faço pra resolver isso??? e pq isso acontece???




 
 
 André Luis de Oliveira
 Programador de Sistemas
 E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
 Telefone: (19) 3731-4019
 Celular: (19) 9703-9018


 Uniodonto Campinas
 Av. Brasil, 200 - Campinas/SP
 Telefone: (19) 3731-4000
 Visite nosso site: www.uniodontocamp.com.br
 E-mail: [EMAIL PROTECTED]


 [As partes desta mensagem que não continham texto foram removidas]



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 Links do Yahoo! Grupos










 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 Links do Yahoo! Grupos






 



  
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/






-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











Re: [delphi-br] Vetor

2006-05-25 Por tôpico André Luis de Oliveira



Vc deve criar assim:

type
 TLanctos = record
 dtlancto: String;
 documento: String;
 codlancto: String;
 descricao: String;
 dc: String;
 valor: Real;
 caixa: String;
 end;


cria a variavel VLancto: array of TLanctos;


 SetLength(VLancto, 0); // limpa o vetor

 SetLength(VLancto, high(.VLancto) + 2); // acrescenta linha
 VLancto[high(VLancto)].dtlancto := 
FieldByName('DTBAIXA').AsString;


- Original Message - 
From: Luis [EMAIL PROTECTED]
To: Delphi-Br delphi-br@yahoogrupos.com.br
Sent: Thursday, May 25, 2006 2:54 PM
Subject: [delphi-br] Vetor


 Gostaria de criar um vetor onde o numero final do vetor é indefinido. Ou
 seja eu naum sei a quantidade final do vetor, Vet[1..N] onde N = é a
 quantidade de final .

 Grato

 Luis


 ___
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
 Registre seu aparelho agora!
 http://br.mobile.yahoo.com/mailalertas/




 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 Links do Yahoo! Grupos








 



  
___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/






-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











[delphi-br] Documentação

2006-05-22 Por tôpico André Luis de Oliveira



Alguém tem documentação, artigo ou qualquer coisa q fale sobre o ZeosLib 
Estou precisando urgente disso para meu trabalho de conclusão de curso.




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











Re: [delphi-br] Impressão matricial em rede!!!

2006-05-18 Por tôpico André Luis de Oliveira



vc tem q mandar \\nomecomputador\nomeimpressora

- Original Message - 
From: almir cruz [EMAIL PROTECTED]
To: Grupo delphi-br@yahoogrupos.com.br
Sent: Thursday, May 18, 2006 1:10 PM
Subject: [delphi-br] Impressão matricial em rede!!!


Olá!
Como faço para Imprimir em impressora matricial em modo caracter via 
rede???
A impressão só funciona quando a impressora esta local??? Pq??

Grato!


-
 Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e 
ganhe prêmios de hora em hora.

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










  
___ 
Novo Yahoo! Messenger com voz: Instale agora e faça ligações de graça. 
http://br.messenger.yahoo.com/






-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.












[delphi-br] Codigo de barras

2006-05-11 Por tôpico André Luis de Oliveira



Alguém alguma rotina ou exemplo que gere codigo de barras do boleto bancário??




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.












[delphi-br] Caixa de dialgo impressora

2006-05-06 Por tôpico André Luis de Oliveira



As impressoras na rede são compartilhas, exemplo \\cpd\epsonfx1170.
Mando as impressões direto pra impressora.

Queria q alguem me ajudasse no seguinte  o usuario vai escolher a impressora da rede q vai imprimir. O problema é como faço para capturar o caminho da impressora do PrintDialog???
Ou se alguém tiver outra maneira para pegar o caminho.




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.












[delphi-br] Código de barra

2006-04-25 Por tôpico André Luis de Oliveira



Alguém tem uma rotina q gere codigo de barras para boleto bancário??



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.











Re: [delphi-br] Impressão de formulario continuo em matricial

2006-04-06 Por tôpico André Luis de Oliveira
Onde eu acho esse RDPrint???

- Original Message - 
From: LuisCarlos [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, April 05, 2006 9:21 PM
Subject: Re: [delphi-br] Impressão de formulario continuo em matricial


Tive os mesmos problemas, só solucionei quando adquiri o RDPrint, para 
matriciais ele é excelente.
Vem com exemplos e tudo mais, muito bom mesmo.

LuysKarlos.
  - Original Message - 
  From: André Luis de Oliveira
  To: Fortes Report ; Delphi BR
  Sent: Saturday, April 01, 2006 2:32 PM
  Subject: [delphi-br] Impressão de formulario continuo em matricial


  Estou com um grande problema q não estou conseguindo acertar.
  Gero um relatorio em fortes em papel Letter, não visualização aparece 
certinho ... mas conforme vai imprimindo começa a subir as linhas ... alguém 
tem ideia do q pode ser???



  

  André Luis de Oliveira
  Programador de Sistemas
  E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
  Telefone: (19) 3731-4019
  Celular: (19) 9703-9018


  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  Telefone: (19) 3731-4000
  Visite nosso site: www.uniodontocamp.com.br
  E-mail: [EMAIL PROTECTED]


  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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!.



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos












___ 
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e 
anti-spam realmente eficaz. 
http://br.info.mail.yahoo.com/


-- 
 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]
 
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] Impressão de formulario continuo em matricial

2006-04-03 Por tôpico André Luis de Oliveira
Estou com um grande problema q não estou conseguindo acertar.
Gero um relatorio em fortes em papel Letter, não visualização aparece certinho 
... mas conforme vai imprimindo começa a subir as linhas ... alguém tem ideia 
do q pode ser???




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Ajuda criação de formulario

2006-03-16 Por tôpico André Luis de Oliveira
Olá pessoal

Quero uma ajuda na seguinte situação crio o formulario da minha aplicação da 
seguinte forma:

Application.CreateForm(TFFIN0048B, FFIN0048B);
FFIN0048B:= TFFIN0048B.Create(self);
...
..
..
FFIN0048B.Free;

E estou usando terminal server... e está dando erro de memoria no terminal 
server e ele reinicia sozinho.


Alguem sugere algo para criação do formulario?





André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Impressão em impressora matricial

2006-03-15 Por tôpico André Luis de Oliveira
Estou usando o Fortes para imprimir os meus relatorio em impressora matricial.
Tem como todas as paginas serem impressas certinhas? a primeira sai certo, 
conforme vai passando as paginas vai subindo.
Estou usando o tamanho de folha Letter.



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Impressão

2006-03-06 Por tôpico André Luis de Oliveira
Tenho um servidor de impressão em linux.
Gostaria de saber se tem como mandar caractere em DOS para imprimir?
Pois estou imprimindo em matricial não quero imprimir no modo padrão, quero o 
modo rapido do DOS.



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Fazer Help

2006-03-02 Por tôpico André Luis de Oliveira
Estou precisando fazer um help para o meu sistema.
Alguém conhece algum programa q faça isso??



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] ERRO NA SP - PRAZO DE ENTREGA EXPIRANDO !!!

2006-02-24 Por tôpico André Luis de Oliveira
vc não tem valor pra coluna c3, então coloca:   insert into minhatabela (c1, 
c2) values (1, 2) erro falta o valor para c3.


- Original Message - 
From: Gerson Machado [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, February 24, 2006 9:58 AM
Subject: Re: [delphi-br] ERRO NA SP - PRAZO DE ENTREGA EXPIRANDO !!!


Não olhei a logica... mas a mensagem informa que as colunas informadas para 
atualização não batem com o número de parametros informados, algo como:

  insert into minhatabela (c1, c2, c3) values (1, 2) erro falta o valor 
para c3.

  Gerson


Rodrigo - Winsoft [EMAIL PROTECTED] escreveu:
  BOM DIA GALERA...

TENHO AS SEGUINTES TABELAS:


CREATE TABLE PRODUTO (
CPRODUTO  VARCHAR(15) NOT NULL COLLATE PXW_INTL850,
NPRODUTO  VARCHAR(200) NOT NULL COLLATE PXW_INTL850
);


CREATE TABLE ESTOQUE (
CPRODUTOVARCHAR(15) NOT NULL COLLATE PXW_INTL850,
CEMPRESAD_CODIGO,
EST_LOJANUMERIC(18,3) NOT NULL,
EST_DEPONUMERIC(18,3) DEFAULT 0 NOT NULL
);


CREATE TABLE REL_ESTOQUE (
CPRODUTO  D_CODPRODUTO,
D3D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE 
COD. 3
L3D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE COD. 3
D5D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE 
COD. 5
L5D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE COD. 5
D8D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE 
COD. 8
L8D_VALOR3, /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE COD. 8
D10   D_VALOR3, /* CORRESPONDE AO ESTOQUE DEPOSITO DA EMPRESA DE 
COD. 10
L10   D_VALOR3  /* CORRESPONDE AO ESTOQUE LOJA DA EMPRESA DE COD. 10
);


estou criando a store procedure abaixo

CREATE PROCEDURE GERAR_ESTOQUE_GERAL (
PEST_LOJA FLOAT,
PEST_DEPO FLOAT,
PCEMPRESA INTEGER,
PCPRODUTO VARCHAR(15))
AS
begin
  /* CRIAR OS PRODUTOS NA TABELA DE REL_ESTOQUE */
  for
select P.CProduto from PRODUTO P order by P.CProduto into :PCPRODUTO
  do begin
insert into REL_ESTOQUE(CPRODUTO, D3, L3, D5, L5, D8, L8, L10, D10)
values(:PCPRODUTO, 0, 0, 0, 0, 0, 0, 0, 0);
  end


  /* select na tabela de estoque */
  for
select E.* from ESTOQUE E order by E.CPRODUTO into :PCPRODUTO, 
:PCEMPRESA, :PEST_LOJA, :PEST_DEPO
  do begin
/* VERIFICAR SE EXISTE O PRODUTO, SEMPRE VAI EXISTIR, POIS INCLUO NA 
PARTE DE CIMA */

if (exists (select RE.* from REL_ESTOQUE RE where RE.CPRODUTO = 
:PCPRODUTO)) then
begin
  /*  VERIFICAR QUAL É A EMPRESA */
  if (:PCEMPRESA = 3) then
  begin
update REL_ESTOQUE set L3 = (L3 + :PEST_LOJA ), D3 = (D3 + 
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
  end

  if (:PCEMPRESA = 5) then
  begin
update REL_ESTOQUE set L5 = (L5 + :PEST_LOJA ), D5 = (D5 + 
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
  end

  if (:PCEMPRESA = 8) then
  begin
update REL_ESTOQUE set L8 = (L8 + :PEST_LOJA ), D8 = (D8 + 
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
  end

  if (:PCEMPRESA = 10) then
  begin
update REL_ESTOQUE set L10 = (L10 + :PEST_LOJA ), D10 = (D10 + 
:PEST_DEPO) where CPRODUTO = :PCPRODUTO;
  end
end
  end

  suspend;
end



ESTA ME RETORNADO O SEGUINTE ERRO:

count of column list and variable list do not match.
Dynamic SQL Error.
SQL error code = -313.
count of column list and variable list do not match.


sERÁ Q ALGUEM SABE O Q ESTÁ ACONTECENDO...
SEI Q É MEIO COMPLICADO, MAS É UM POUCO URGENTE !!!

sE ALGUEM PUDER ME AJUDAR..


Obrigado.

Rodrigo Pedroso
Winsoft Informática - (14) 3664-1586
[EMAIL PROTECTED]

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target=_blank;var lrec_URL=new Array(); 
lrec_URL[1]=http://br.ard.yahoo.com/SIG=12f2igi9m/M=396547.7942355.8867957.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140792423/A=3322891/R=0/id=flashurl/SIG=154qqv6j6/*http://lt.dell.com/lt/lt.aspx?CID=11460LID=316158DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs;;
 
var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/230206_y300x250_feb04_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1);
 
var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12f2igi9m/M=396547.7942355.8867957.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140792423/A=3322891/R=1/id=altimg/SIG=154qqv6j6/*http://lt.dell.com/lt/lt.aspx?CID=11460LID=316158DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%26l%3dpt%26s%3ddhs;;
 
var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/230206_y300x250_feb04_dhs_dim5150.jpg;;
 
var
 lrec_width=300;var lrec_height=250;

-
  Links do Yahoo! Grupos

   Para visitar o site do seu 

[delphi-br] Impressão em impressora a Laser

2006-02-23 Por tôpico André Luis de Oliveira
Tenho uma impressora a laser com duas formas de alimentação.

A bandeja vai ficar os boletos para impressão e a manual vou imprimir o 
contrato.
Como faço no Fortes imprimir os contratos na bandeja manual, ou como faço a 
seleção da bandeja.

Estou usando a função rlbcontrato.print, pois o usuario não vai ser a 
visualização vai mandar direto pra impressora.





André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] comando PCL

2006-02-23 Por tôpico André Luis de Oliveira
Alguém sabe como enviar comando PCL???
Preciso usar a bandeja manual da lexmark T420.



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Boleto bancário

2006-02-16 Por tôpico André Luis de Oliveira
Alguém já desenvolveu rotina para gerar boleto bancário, ou tem algum site de 
informações.




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Invalid field type

2006-02-16 Por tôpico André Luis de Oliveira
Tenho um campo chamado codigo q é um int(11), adiciono um data set coloco a SQL 
: SELECT * FROM CLIENTES WHERE CODIGO_CLIENTE=:CODIGO_CLIENTE, coloco a 
propriedade DataType do parametro coloco ftInteger. E quando vou fazer um Add 
Fields. Dá erro de Invalid field type.

Estou usando Delphi 7 (Update 2) + dbExpress + MySQL 4.1



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] dbExpress

2006-02-16 Por tôpico André Luis de Oliveira
Obrigado pela ajuda, mas não é isso não ... o nome do campo é 
CLIENTES_CODIGO.
Geralmente uso o nome da tabela e nome do campo, para ficar mais facil a 
compreensão.
Esse erro está dando pq o nome do campo está errado msm ... o certo seria 
SELECT * FROM CLIENTES WHERE
CLIENTE_CODIGO=:CLIENTE_CODIGO.



- Original Message - 
From: Alexandre [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 15, 2006 2:34 PM
Subject: RES: [delphi-br] dbExpress


Estimado,

Boa tarde. Não seria CLIENTES.CODIGO = :CODIGO  ?  Creio que você apenas
tenha se confundido nisso. Alias, rs., não precisaria nem colocar ALIAS
para o campo na clausula WHERE, visto que seu select é simples e envolve
apenas uma tabela.


SELECT * FROM CLIENTES WHERE CODIGO = :CODIGO
Ou
SELECT * FROM CLIENTES WHERE CLIENTES.CODIGO = :CODIGO ou ainda
:CLIENTES_CODIGO mesmo (como preferir)


Saudações.


---
[]'s

Alexandre

Frase da semana: Há pessoas inteligentes que, à força de se deixarem
adular, acabam estúpidas. (Carlos Lacerda)
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Moked - Tamara (Brazil)
Enviada em: quarta-feira, 15 de fevereiro de 2006 13:18
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] dbExpress



 http://www.moked.com.br/ Tamara Clemente - Suporte Técnico
Moked do Brasil - Consultoria de Segurança Empresarial Divisão MokInf de
Informática
PABX: (55-11) 5071-2748
[EMAIL PROTECTED]
www.moked.com.br http://www.moked.com.br/

Grau de Sigilo: Confidencial Reservado Interno Amplo Nível de
Prioridade: Alto Médio Baixo
Destinatário/s: Lista de divulgação

-
Bom, aprimeira coisa seria ver se realmente o campo tem este nome em
ambas tabelas (o q acredito q vc ja tenha feito...rs...) depois verifica
se já esta aberta a outra tabela...

Tamara
O emitente da mensagem é o responsável por seu conteúdo e divulgação,
proibindo sua reprodução sem a prévia autorização do mesmo.
Antes de imprimir pense em nosso compromisso com o Meio Ambiente e o
comprometimento com os Custo envolvidos!




De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de André Luis de Oliveira
Enviada em: quarta-feira, 15 de fevereiro de 2006 13:46
Para: Delphi BR
Assunto: [delphi-br] dbExpress


Coloquei o seguinte SQL no data set: SELECT * FROM CLIENTES WHERE
CLIENTES_CODIGO=:CLIENTES_CODIGO.
Quando vou adicionar os campos da a seguinte mensagem de erro:

dbExpress Error: [0x0009]: Invalid Parameter
SQL Server Error: Unknown column 'CLIENTES_CODIGO' in 'where clause'

Estou usando Delphi 7 + dbExpress + MySQL 4.1





André Luis de Oliveira
Programador de Sistemas
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
Telefone: (19) 3731-4019
Celular: (19) 9703-9018


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
Telefone: (19) 3731-4000
Visite nosso site: www.uniodontocamp.com.br
E-mail: [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE


http://br.ard.yahoo.com/SIG=12fjq1kif/M=396547.7942355.8808049.2369893/
D=brclubs/S=2137111264:HM/Y=BR/EXP=1140021613/A=3291957/R=2/SIG=154bf6ok
5/*http://lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=BADGSeg=DHSD
URL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3d
br%26l%3dpt%26s%3ddhs



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]
mailto:[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! http://br.yahoo.com/info/utos.html .




[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









__ NOD32 1.1409 (20060215) Information __

This message was checked by NOD32 antivirus system.
http://www.eset.com




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos











___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
 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]
 
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

Re: [delphi-br] Boleto bancário

2006-02-16 Por tôpico André Luis de Oliveira
Obrigado Walter, ajudou bastante.


- Original Message - 
From: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 16, 2006 11:39 AM
Subject: RES: [delphi-br] Boleto bancário


Tem esta lista que mexe com isto: [EMAIL PROTECTED]

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de André Luis de Oliveira
Enviada em: quinta-feira, 16 de fevereiro de 2006 07:56
Para: Delphi BR
Assunto: [delphi-br] Boleto bancário


Alguém já desenvolveu rotina para gerar boleto bancário, ou tem algum site
de informações.





André Luis de Oliveira
Programador de Sistemas
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
Telefone: (19) 3731-4019
Celular: (19) 9703-9018


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
Telefone: (19) 3731-4000
Visite nosso site: www.uniodontocamp.com.br
E-mail: [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos











___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
 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]
 
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] função mod

2006-02-16 Por tôpico André Luis de Oliveira
Tenta usar assim:

   If  (Qryconstotal mod 30) = 0



- Original Message - 
From: leo rodrigues [EMAIL PROTECTED]
To: grupo delphi delphi-br@yahoogrupos.com.br
Sent: Thursday, February 16, 2006 10:14 AM
Subject: [delphi-br] função mod


estou com a seguinte sintaxe:

  while not Qrycons.Eof do
Begin
   If  mod((Qryconstotal)/30)=0
 then Begin
  showmessage ('ok');
  end;
end;

  esta dando esta mensagem

  [Error] Unit1.pas(42): Expression expected but 'MOD' found

  no help não traz nenhum exemplo de sintaxe
  o que estou fazendo de errado?


-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos














___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] dbExpress

2006-02-15 Por tôpico André Luis de Oliveira
Coloquei o seguinte SQL no data set: SELECT * FROM CLIENTES WHERE 
CLIENTES_CODIGO=:CLIENTES_CODIGO.
Quando vou adicionar os campos da a seguinte mensagem de erro:

dbExpress Error: [0x0009]: Invalid Parameter
SQL Server Error: Unknown column 'CLIENTES_CODIGO' in 'where clause'

Estou usando Delphi 7 + dbExpress + MySQL 4.1




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Impressora instalada

2006-02-14 Por tôpico André Luis de Oliveira
Alguém conhece alguma função q verifica se tem alguma impressora instalada?




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Nota Fiscal

2006-02-10 Por tôpico André Luis de Oliveira
Estou com problema da impressão da Nota Fiscal.
Estou mandando direito para a porta da impressora ... a primeira imprime certo 
as demais saem errada.
Alguém já passou por isso???



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] BUTTON CLOSE

2006-02-09 Por tôpico André Luis de Oliveira
tente usar: Application.Terminate;


- Original Message - 
From: Arthur Souza [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 09, 2006 10:07 AM
Subject: [delphi-br] BUTTON CLOSE


Pessoal , tenho percebido que ao fechar meu programa, ele ainda continua na
memória carregando utilizo Windows XP,e Delphi 7 pois não estão fechando por
completo , estou utilizando o comando close no meu button...

Arthur MS.


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos














___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] Undeclared identifier

2006-02-09 Por tôpico André Luis de Oliveira
Tenho o seguinte codigo abaixo, em uma unit de funções.

var
  QryAux1, QryAux2: TADOQuery;
begin
  QryAux1 := TADOQuery.Create(Self);
  QryAux1.Connection := dm.Conexao;

mas quando compilo o programa da a seguinte mensagem de erro: Undeclared 
identifier: 'Self'.

Pq acontece???



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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]Ferveu a cuca!

2006-02-09 Por tôpico André Luis de Oliveira
Declare no use a biblioteca DateUtils

e usa assim: IncDay('01/03/2006', 147);

- Original Message - 
From: Almir Paulo Effgen [EMAIL PROTECTED]
To: Delphi Grupo delphi-br@yahoogrupos.com.br
Sent: Thursday, February 09, 2006 3:12 PM
Subject: [delphi-br]Ferveu a cuca!


Pois é pessoal, minha cabeça está pirando.
  Dentro do meu aplicativo, preciso construir um prazímetro.
  Explico:
  Entro com a data inicial depois a data final, o resultado em número de 
dias.
  01/03/06 + 25/07/06 = 147 dias, esse eu consegui fazer.
  O problema é o inverso.
  01/03/06 + 147 dias, teria que dar 25/07/06, mas não sei como fazer.
  Tentei usar DaysBetween(), mas não consegui chegar a lugar nenhum.
  Alguém poderia me ajudar.

  Agradeço,
  Almir



-
 Yahoo! Acesso Grátis
Internet rápida e grátis. Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos











___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
 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]
 
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] Undeclared identifier

2006-02-09 Por tôpico André Luis de Oliveira
Está dentro de uma procedure.


- Original Message - 
From: Filipe [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 09, 2006 3:57 PM
Subject: Re: [delphi-br] Undeclared identifier


A função está dentro de algum objeto???




[]'s

Filipe Geyer



  - Original Message - 
  From: André Luis de Oliveira
  To: Delphi BR
  Sent: Thursday, February 09, 2006 9:36 AM
  Subject: [delphi-br] Undeclared identifier


  Tenho o seguinte codigo abaixo, em uma unit de funções.

  var
QryAux1, QryAux2: TADOQuery;
  begin
QryAux1 := TADOQuery.Create(Self);
QryAux1.Connection := dm.Conexao;

  mas quando compilo o programa da a seguinte mensagem de erro: Undeclared 
identifier: 'Self'.

  Pq acontece???


  

  André Luis de Oliveira
  Programador de Sistemas
  E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
  Telefone: (19) 3731-4019
  Celular: (19) 9703-9018


  Uniodonto Campinas
  Av. Brasil, 200 - Campinas/SP
  Telefone: (19) 3731-4000
  Visite nosso site: www.uniodontocamp.com.br
  E-mail: [EMAIL PROTECTED]


  [As partes desta mensagem que não continham texto foram removidas]



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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!.



[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
 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]
 
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] Undeclared identifier

2006-02-09 Por tôpico André Luis de Oliveira
Eduardo deu certo, obrigado.
Vc poderia me dizer pq acontece isso? e pq isso resolve o problema?


- Original Message - 
From: Eduardo Alves [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 09, 2006 12:41 PM
Subject: RE: [delphi-br] Undeclared identifier


Use (NIL) e no final da proc
FreeAndNil(QryAux1);
FreeAndNil(QryAux2);


Eduardo


-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On 
Behalf Of André Luis de Oliveira
Sent: quinta-feira, 9 de fevereiro de 2006 09:37
To: Delphi BR
Subject: [delphi-br] Undeclared identifier

Tenho o seguinte codigo abaixo, em uma unit de funções.

var
  QryAux1, QryAux2: TADOQuery;
begin
  QryAux1 := TADOQuery.Create(Self);
  QryAux1.Connection := dm.Conexao;

mas quando compilo o programa da a seguinte mensagem de erro: Undeclared 
identifier: 'Self'.

Pq acontece???



André Luis de Oliveira
Programador de Sistemas
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
Telefone: (19) 3731-4019
Celular: (19) 9703-9018


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP
Telefone: (19) 3731-4000
Visite nosso site: www.uniodontocamp.com.br
E-mail: [EMAIL PROTECTED]


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos











___
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com


-- 
 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]
 
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] DLL

2006-02-03 Por tôpico André Luis de Oliveira
Alguém sabe os passos para registrar um DLL no windows??





André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] criar usuarios no mysql

2006-02-02 Por tôpico André Luis de Oliveira
GRANT ALL ON nomebanco.* TO [EMAIL PROTECTED]
IDENTIFIED BY 'senha';

nesse exemplo vou dar todos os privilegiso (SELECT, INSERT, UPDATE, DELETE, 
CREATE, DROP, GRANT, INDEX e ALTER) no banco de dados nomebanco para todos 
as tabela para o nomeusuaurio que está em localhost que a senha é senha

no lugar do all vc pode usar:  SELECT, INSERT, UPDATE, DELETE, CREATE, DROP, 
GRANT, INDEX e ALTER.
nomebanco = nome do banco de dados q vai querer os privilegios
.* = refere se a todas as tabelas
nomeusuario = nome do usuario no seu caso igor

Duvidas consulte aqui: http://dev.mysql.com/doc/refman/4.1/pt/grant.html



- Original Message - 
From: igoralexandres [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 02, 2006 9:45 AM
Subject: [delphi-br] criar usuarios no mysql


Bom dia pessoal.

Estou usando o mysql, alguem sabe como criar usuarios no mysql?,
por padrao o mysql tem o o usuario ROOT, eu queria criar um usuário
IGOR por exemplo.

Desde já agradeço.





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos















___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] StringGrid

2006-02-01 Por tôpico André Luis de Oliveira

- Original Message - 
From: Ricardo Cabral [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 01, 2006 4:14 PM
Subject: [delphi-br] StringGrid


Olá pessoal!

Duas dúvias no stringgrid:

1 - Como posso colorir uma linha ou coluna ?
usa a propriedade dracell


2 - Como alinho valores a direita da célula?
não temo como alinhar ... vc tem q dar espaço para alinhar.


Desde de já agradeço!

[]´s

Ricardo Cabral





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos















___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] StringGrid

2006-02-01 Por tôpico André Luis de Oliveira
Essa função faz com q a primeira coluna fique com fundo vermelho e cor de 
fonte amarelo.
Acho q isso pode ajudar vc.


  if not (gdfixed in State) then
  begin
if not (gdSelected in State) then
begin
  if ARow = 0 then
  begin
Canvas.Font.Color := clBlack
  end
  else
  begin
   if (sgparcelas.Cells[ACol,ARow]) = 'x' then
   begin
 sgparcelas.Canvas.Brush.Color := clRed;
 sgparcelas.Canvas.Font.Color  := clYellow;
   end
   else
   begin
 sgparcelas.Canvas.Brush.Color := clWindow;
 sgparcelas.Canvas.Font.Color  := clBlack;
   end;
  end;
end;
  end;
  if gdFocused in State then
sgparcelas.Canvas.DrawFocusRect(Rect);
  sgparcelas.Canvas.FillRect(Rect);
  sgparcelas.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, 
TStringGrid(sgparcelas).Cells[ACol, ARow]);

Quando ao espaço vc tem q colocar espaço
' '4,20
'   '14,20

o que está entre ' ' é o espaço q tem q criar ...
vc tem q fazer uma função q pega o tamanho da coluna, subtrai pelo tamanho 
do caracter oq sobre é o tanto de espaço q tem q colocar.


- Original Message - 
From: Ricardo Cabral [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, February 01, 2006 4:14 PM
Subject: [delphi-br] StringGrid


Olá pessoal!

Duas dúvias no stringgrid:

1 - Como posso colorir uma linha ou coluna ?

2 - Como alinho valores a direita da célula?

Desde de já agradeço!

[]´s

Ricardo Cabral





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos















___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] Mais de um Delphi

2006-01-31 Por tôpico André Luis de Oliveira
Tenho na minha maquina instalado o delphi 7. Tem algum problema se eu instalar 
o  Borland Developer 
Studio 2006 ??



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] Fechar o Windows via programa

2006-01-31 Por tôpico André Luis de Oliveira
Tenho essa função pra Windows 2000.

Use-a assim:
  WinExit(EWX_SHUTDOWN or EWX_FORCE);




function WinExit(flags: integer): boolean;
  function SetPrivilege(privilegeName: string; enable: boolean): boolean;
  var
tpPrev, tp : TTokenPrivileges;
token : THandle;
dwRetLen : DWord;
  begin
result := False;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or 
TOKEN_QUERY, token);
tp.PrivilegeCount := 1;
if LookupPrivilegeValue(nil, pchar(privilegeName), 
tp.Privileges[0].LUID) then
begin
  if enable then
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
  else
  tp.Privileges[0].Attributes := 0;
  dwRetLen := 0;
  result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), 
tpPrev, dwRetLen);
end;
CloseHandle(token);
  end;
begin
  if SetPrivilege('SeShutdownPrivilege', true) then
  begin
ExitWindowsEx(flags, 0);
SetPrivilege('SeShutdownPrivilege', False)
  end;
end;

- Original Message - 
From: Nesio Messias [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 31, 2006 10:57 AM
Subject: [delphi-br] Fechar o Windows via programa


ola pessoal, eu gostaria de saber se tem como fechar o windows via programa, 
isto é para uma trava no programaqdo passar de uma determinada data...
  se alguem puder me ajudar desde lhes agradeçoNesio..


-
 Yahoo! doce lar. Faça do Yahoo! sua homepage.

[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos














___ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 



-- 
 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]
 
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] Coluna DBGrid

2006-01-27 Por tôpico André Luis de Oliveira
Como faço para colocar cor em uma coluna do DBGrid e tb ficar negrito os dados 
da coluna??




André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] DBGrid

2006-01-27 Por tôpico André Luis de Oliveira
Como faço para adicional coluna ao DBGrid em run-time???



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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] teste

2006-01-24 Por tôpico André Luis de Oliveira
teste



André Luis de Oliveira 
Programador de Sistemas 
E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] 
Telefone: (19) 3731-4019 
Celular: (19) 9703-9018 


Uniodonto Campinas
Av. Brasil, 200 - Campinas/SP 
Telefone: (19) 3731-4000 
Visite nosso site: www.uniodontocamp.com.br 
E-mail: [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]
 
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

 





  1   2   >