RE: [delphi-br] select em dois BDs ao mesmo tempo

[Julio Abdala]

Que eu saiba, só utilizando o BDE.
  

Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
  
No FB 1.5 isso não é possível. O BDE possui um recurso chamado de consulta 
heterogênea, que permite, por exemplo, que se consulte dados que estão em um 
alias (ARGH!) Paradox com um em SQL Server. Mas, infelizmente, não é 
recomendável o uso do BDE por ele estar descontinuado e não oferecer suporte 
total ao acesso ao FireBird.

Sds.

From: Paulo [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] select em dois BDs ao mesmo tempo
Date: Thu, 16 Feb 2006 17:03:12 -0300

Pessoal:

No InterBase 6, e' possivel fazer um SELECT que traga dados
de tabelas que residem em dois BDs ?

Seria algo assim:

SELECT   BD01.TB_ABC.CAMPOXXX,  BD02.TB_DEF.CAMPOYYY
FROM
BD01.TB_ABC, BD02.TB_DEF
WHERE
BD02.TB_DEF.CODIGO = BD01.TB_ABC.CODIGO

Obs.:  Gostaria de saber se tal acesso funcionaria via
BDE ou ODBC (ou se seria necessario usar componentes
especificos para InterBase).  Se nao for possivel no IB 6, no
Firebird 1.5 e' possivel ?

Grato pela atencao de todos
Paulo

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


_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br



-- 
 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=12foqtlnm/M=396547.7942355.8808049.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140142265/A=3291957/R=0/SIG=154bf6ok5/*http://lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=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/100206_y300x250feb10_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12foqtlnm/M=396547.7942355.8808049.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1140142265/A=3291957/R=1/SIG=154bf6ok5/*http://lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=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/100206_y300x250feb10_dhs_dim5150.gif;;
  var lrec_width=300;var lrec_height=250;  
  
-
  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!. 




-
 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 

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

[Julio Abdala]

if (dmSce.tbUsuarios.LOCATE('CAMPO',ebUsuario.Text,[])) 
   
  e cuidado para o  conteudo do ebUsuario.text não ser maior que o tamanho do 
campo.
   
  abs.
   
  Júlio Abdala
  

dÿffe9bora Silva [EMAIL PROTECTED] escreveu:
  como uso o locate em uma tabela .tenho um campo edit e preciso que seja 
localizado o que eu digitar . estou usando assim
   if (dmSce.tbUsuarios.LOCATE([ebUsuario.Text])) then 
  mas esta dando erro, qual a sintaxe certa?
- Original Message - 


-
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 





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=12fn3bjkp/M=396547.7942355.8808049.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139671076/A=3291957/R=0/SIG=154bf6ok5/*http://lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=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/100206_y300x250feb10_dhs_dim5150.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12fn3bjkp/M=396547.7942355.8808049.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139671076/A=3291957/R=1/SIG=154bf6ok5/*http://lt.dell.com/lt/lt.aspx?CID=11305LID=309989DGC=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/100206_y300x250feb10_dhs_dim5150.gif;;
  var lrec_width=300;var lrec_height=250;  
  
-
  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!. 




-
 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 

* 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] [OT] TCC a faculdade tem direitos autorais sobre o sistema que EU desenvolvi?

[Julio Abdala]

Quando vc desenvolve algo dentro das dependências de uma faculdade, num 
trabalho de TCC, o produto deste desenvolvimento será propriedade da faculdade 
que poderá utilizá-lo para desenvolver outros produtos em outros trabalhos de 
tcc e até coloca-los no mercado.
   
  Mas se você desenvolve uma técnica diferenciada para a elaboração de um 
produto, esta técnica poderá ser de sua propriedade caso obtenha a patente 
dele. 
   
  A moral é, desenvolva uma técnica nova, registre a técnica em seguida crie um 
produto com esta técnica. 
   
  Espero ter ajudado.
   
  Júlio Abdala

Dir [EMAIL PROTECTED] escreveu:
  Quanto a empresa pagar depende do que vc acerta com ela, no meu caso apenas
desenvolvi sem cobrar nada mas teve grupos que fecharam com a empresa
valores para desenvolver o produto e ainda usaram para o TCC ou seja unil o
util ao agradável.



- Original Message - 
From: Fellipe Henrique [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, February 09, 2006 1:06 PM
Subject: Re: [delphi-br] [OT] TCC a faculdade tem direitos autorais sobre o
sistema que EU desenvolvi?


O negócio então é criar uma classe, ou usar um componente para a parte vital
do sistema, e com isso não disponibilizar, pois será de outra empresa, ou
até mesmo seu. Vou fazer isso, desenvolver um componente e classe, e usa-la,
mas nao disponibilizar, pois é propriedade intelectual, jah registrada...
:-) o negocio eh registrar no INPI e pronto.. se usarem terao que pagar..
:-)

[]s


Em 09/02/06, Moked - Tamara (Brazil) [EMAIL PROTECTED] escreveu:



 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
 -
 Ou seja: 100% direito meu, não? Mas q coisa... ainda não estou em época de
 TCC, mas já num gostei muito da idéia.(rs)

 Se bem q reconheço q ter fontes de consulta é uma das melhores ajudas q
 pode ter...

 E do caso da empresa ficar com os direitos, eu ganho alguma coisa fazendo
 o trabalho de TCC pra ela?


 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 Dir
 Enviada em: quinta-feira, 9 de fevereiro de 2006 13:46
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] [OT] TCC a faculdade tem direitos autorais sobre
 o sistema que EU desenvolvi?



 Boa Tarde,

 Sobre este assunto do TCC, a faculdade tem todo o direito de usar e de
 deixar disponivel para possiveis consultas dentro da faculdade.
 Mas ele não pode ser comercializado.
 Quando fiz o TCC eu pude escolher em fazer um trabalho, em que a faculdade
 pudesse ter todos ods direitos para afins academicos mas não comerciais.
 Ou desenvolver um trabalho para alguma empresa neste caso era a empresa
 que
 podia autorizar a faculdade a ficar ou não com os fontes, no meu caso ela
 não autorizou e beleza,a faculdade apenas ficou com a parte teórica mas
 sem
 a regra principal do negócio de meu cliente.. pois era direiro dele.


 - Original Message -
 From: Danilo Rogério [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Cc: [EMAIL PROTECTED]
 Sent: Thursday, February 09, 2006 8:42 AM
 Subject: Re: [delphi-br] [OT] TCC a faculdade tem direitos autorais sobre
 o
 sistema que EU desenvolvi?


 Olha, felipe, quando eu me formei, e também fiz TCC, a informação que tive
 é
 que realmente é de direito da faculdade, tanto que gravamos um cd com
 fontes, documentação, etc.

   Porém, é de direito autoral seu também, porque vc quem desenvolveu...
 Qualquer comércio, ou cópia do seu fonte, usado em outro sistema, é
 violação de direitos autoriais...

   Neste ponto, você está resguardado. Porém, é uma excelente idéia
 conversar
 com algum advogado.

   Qualquer novidade, poste aí pra gente

   Atenciosamente,
   Danilo Rogério

 Fellipe Henrique [EMAIL PROTECTED] escreveu:
   Bom dia amigos,

 Estou com esta dúvida, alguém que conheça a Lei e/ou tem amigos
 Advogados, poderá me responder, é o seguinte: Estou formando em uma
 faculdade particular, e tenho que desenvolver um software para
 Trabalho de Conclusão de Curso (TCC).

 Pois bem, o problema é que segundo o meu coordenador, o sistema que
 eu irei desenvolver é da faculdade também, ou seja, ela tem o direito
 de usar o sistema, bem como posteriormente comercializa-lo e o pior
 deixar o sistema para que outros alunos possam pegar o arquivo fonte e
 usar e fazer o que bem entender.

 Ele levou para o lado 

Re: [delphi-br] Undeclared identifier

[Julio Abdala]

mude a declaração
   
  QryAux1 := TADOQuery.Create(Self);

  para
   
  QryAux1 := TADOQuery.Create(Nil);

abs.
   
  Júlio Abdala
André Luis de Oliveira [EMAIL PROTECTED] escreveu:
  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 





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=12fu8snea/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139524498/A=3283959/R=0/id=flashurl/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12fu8snea/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139524498/A=3283959/R=1/id=altimg/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.jpg;;
  var
 lrec_width=300;var lrec_height=250;  
  
-
  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!. 




-
 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 

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

[Julio Abdala]

Veja só, se vc estiver usando TEdits e passando parâmetros String pra uma 
função.
   
  sDataInicial = String com a data inicial
  dDataInicial = data inicial (TDate)
  sDataFinal = String com a data final
  dDdataFinal = data final (TDate)
  iDias = número de dias
   
  iDias:= Trunc( strToDate(sDataFinal) - strToDate(sDataInicial));
  dDataFinal:= strToDate(sDataInicial) + iDias;
  dDataInicial:= strToDate(sDataFinal) - iDias;
   
  espero ter ajudado.
   
  Júlio Abdala
  
Almir Paulo Effgen [EMAIL PROTECTED] escreveu:
  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 





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=12ffbovua/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139512374/A=3283959/R=0/id=flashurl/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12ffbovua/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139512374/A=3283959/R=1/id=altimg/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.jpg;;
  var
 lrec_width=300;var lrec_height=250;  
  
-
  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!. 




-
 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 

* 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] Error is not floating point value!

[Julio Abdala]

Usa estes comando no form principal da tua aplicação para evitar que modifique 
os padrões de ponto decimal e separadores de máquina a máquina
   
 DecimalSeparator:= ',';
   ThousandSeparator:= '.';

  abs.
   
  Júlio Abdala

Eduardo Alves [EMAIL PROTECTED] escreveu:
  Este é o X da questão. 

É ISSO.


Eduardo

-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Gabriel Filho
Sent: quarta-feira, 8 de fevereiro de 2006 13:28
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Error is not floating point value!

pode ter alguma coisa haver com como esta sendo digitado no edit, com
separador decimal . ponto ou , vírgula. testa ai pode ser isso.

Em 08/02/06, Eduardo Alves [EMAIL PROTECTED] escreveu:

 É esta msg mesmo
  O valor da edit.text is not a valid floating point value 

 Normalmente no lugar de edit.text aparece o valor !!!


 Eduardo

 -Original Message-
 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Arthur Souza
 Sent: quarta-feira, 8 de fevereiro de 2006 12:57
 To: delphi-br@yahoogrupos.com.br
 Subject: [delphi-br] Error is not floating point value!

 Ola pessoal,

 Não sei se aguém passou por este tipo de erro, pois tenho um aplicativo de
 cálculo onde na primeira form entro com os dados de input, que são valores
 do tipo real onde as insiro nas edit e que depois é convertido para a
 variável do tipo real (Strtofloat). até ai ok... compilo e roda numa boa
 na
 minha máquina. Porém quando executo em outra máquina e insiro os dados nas
 edits me aparece a seguinte mensagem.

  O valor da edit.text is not a valid floating point value 

 Tenho verificado as conversão de valores mas parecem estar correto estou
 convertendo String para Float ...

 Agradeço se alguem me ajudar

 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









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










-- 
 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=12f1d83v0/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139426116/A=3283959/R=0/id=flashurl/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_flashfile=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.swf?clickTAG=javascript:LRECopenWindow(1);
  var 
lrec_altURL=http://br.ard.yahoo.com/SIG=12f1d83v0/M=396547.7942355.8792354.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1139426116/A=3283959/R=1/id=altimg/SIG=155e6uuj2/*http://lt.dell.com/lt/lt.aspx?CID=11234LID=309478DGC=BADGSeg=DHSDURL=http://www1.la.dell.com/content/products/category.aspx/notebooks?c%3dbr%26l%3dpt%26s%3ddhs;;
  var 
lrec_altimg=http://br.i1.yimg.com/br.yimg.com/i/br/ads7/070206_y300x250feb03_dhs_noted510.jpg;;
  var
 lrec_width=300;var lrec_height=250;  
  
-
  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!. 




-
 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 

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

[Julio Abdala]

Formata a saída do campo no evento onGetText do campo que você deseja formatar.
   
  olha um exemplo:
  procedure TdmEmprs.tblPromotorPERC1GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
Text:= Valores( Sender.asFloat, 4 );
end;

  Function Valores( Valor :Real; Casas :Integer ) :String;
Var
   TextFor :String;
// String Formatada em Moeda - Sem Símbolo
Begin
   If Casas = 0 then
  TextFor:= '###,###,##0'
   Else
  TextFor:= '###,###,##0.'+Replicate('0',Casas);
 If Valor  0 then
  Result:= FormatFloat('('+TextFor+')', Valor)
   else
  Result:= FormatFloat(TextFor, Valor);
end;

  abs.
   
  Júlio Abdala

info.desenvolvimento [EMAIL PROTECTED] escreveu:
  Pessoal como faço para formatar um QRLabel no Quick report.
Tenho todas as somas e quero que o total saia neste QRLabel.
Os outros valores vem de tabelas e estou usando QRDBText já formatados para 
Currency
Existe algum componente que eu posso usar no Quickreport para mostrar os 
valores em R$ com a formatação correta?
Como faço a formatação do mesmo?

Segue abaixo o que estou usando:

procedure TFMovimento.SummaryBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
formatfloat('R$#.##0,00', strtofloat(TOTAL.CAPTION));
end;
Sendo que o TOTAL é o meu QRLabel


[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

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




-
 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 

* 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: RES: [delphi-br] erro de 255 caracteres em uma consulta

[Julio Abdala]

eu faço o sequinte:
   
  query.sql.add('select...');
  query.sql.add('from...');
  query.sql.add('where...');
  query.sql.add('etc...');
   
  automaticamente já insere as quebras e roda sem problema, independente do 
tamanho, funciona da mesma forma com o componente ADOComand e similares.
   
  Se você trabalhar um comando apenas com um String, lembre-se que string é um 
array de char, e que ele tem um limite. 
  Já as propriedades SQL dos componentes trabalham com um TStringList, que é um 
array de Strings.
   
  espero ter ajudado.
   
  Júlio Abdala
Cícero [EMAIL PROTECTED] escreveu:
  talvez criando uma variavel texto como eu uso:
wcons : string;


wcons:='select até um certo tamanho';
wcons:=wcons+'continuação de sua query';
wcons:=wcons+'mais texto';

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de isaias.gravatal
Enviada em: quarta-feira, 1 de fevereiro de 2006 16:11
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] erro de 255 caracteres em uma consulta


Pessoal;

Eu estou tentando fazer uma consulta com delphi 2005 ao oracle e na
minha sintaxe:

(selecao.SelectCommand.CommandText:=('SELECT NOT_IN_NUMERO,to_char
(NOT_DT_EMISSAO),CFOP_IN_CODIGO,COND_ST_CODIGO,iTN_ST_DESCRICAO,UNI_ST_
UNIDADE,ITN_RE_QUANTIDADE,to_char
(ITN_RE_VALORUNITARIO, ''$999,99''),to_char
(ITN_RE_VALORTOTAL, ''$999,99'') FROM MGVEN.VEN_VW_NOTAFISCAL WHERE
not_dt_emissao between '++''+de.Text+''+'''
and '++''+para.Text+''+''' ');

o Delphi acusa uma erro de ultrapassagem de 255 caracteres na minha
consulta, alguem sabe como resolver isto ???





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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




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

-
 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 

* 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 paradox

[Julio Abdala]

Vc está fechando o Begin no local errado, repare que tem um If que vc inicia o 
begin , mas antes tem um while que já abriu um begin
   
  Julio Abdala

Hudson [EMAIL PROTECTED] escreveu:
  Ola!

gente estou com um erro em uma tabela do paradox selecao.criei esta pra 
selecionar os produtos e mudar um campo date() assim:

  banco.selecao.First;
  while not banco.selecao.Eof do
   begin
if banco.selecao.FieldByName('Logica').AsBoolean = false
  then begin
 banco.selecao.Edit;
 banco.selecao.FieldByName('Data_entrega').AsDateTime:= (date()+ 
banco.selecao.RecordCount);
 banco.selecao.Post;
  end;
   banco.selecao.Next;

mas esta dando erroparece q não pecorre todo o campo da tabela mesmo tento 
mudado todos os registro Logica para False
pqalguem ja passou por isso

ele muda somente a 1º e o ultimo registro...os registro do meio não muda?

grato!!!

[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

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




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

-
 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 

* 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] Insert e Append fazem post antes deu chamar o Post!

[Julio Abdala]

Vc está colando algum evento onBeforeInsert, ou onAfterPost?
   
  que tipo de conexão tu tá utilizando? ADODB?
   
  Júlio Abdala

Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
  Olá pessoal!

Perdi todo meu fim de semana bricando com o Delphi, como disse estou
aprendendo, e preciso me adaptar a algumas diferenças!

O Codigo:

with TableRequisicao do
begin
  Insert;
  TableRequisicaoID.Value := id;
  TableRequisicaoData.Value := Now;
  TableRequisicaoOperador := operador;
  Post;
end;

A sequência acima está me causando dois problemas:

Primeiro, logo que chama o Insert ele faz o post e lança um Exception
informando que os campos não podem ser Null, isto é verdade pois
declarei isto no banco um servidor MSSql Server 2000, o problema é que
ele emite a Exception bem no Insert e não no Post o que não deveria
acontecer de forma algum, pois o post vem depois das declarações para
as variaveis da tabela. Já fiz de tudo, já mostrei a outros
programadores e eles ficaram de boca aberta!

O segundo problema, em minha casa tudo funciona ao fazer o Post ele
grava OK, no segundo Post, ele tá gravando sobre o primeiro e gravando
também o segundo, já no terceiro, ele sobre escreve o segundo com o
Terceiro e também grava o Terceiro!

O que poderia estar causando isto?

obrigado a todos!

--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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




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

-
 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 

* 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] Caminho sem espaçamento

[Julio Abdala]

procedure tira_espaco( sFrase :String ) :String;
  Var 
 X :String;
  Begin
 Result:= '';
 For X:= 0 To Length( sFrase) - 1 do
If sFrase[x]  ' ' then
  Result:= Result +sFrase[x];
  end;
   
  Tenta ai...
  
Arthur Souza [EMAIL PROTECTED] escreveu:
  Ola galera,

Tenho uma Base em Access onde possuo um campo FOTO onde guardo o caminho das
fotos dos produtos, lá tenho 30 mil registros cadastrados. Pois o problema
é que  muitos dos caminhos estão com espaçamento a mais. Como bolar um
programa para retirar esse espaçamento. Por exemplo:

FOTO-- img/imov/23090  .jpg //com espaçamenteo
FOTO-- img/imov/23090.jpg  // remoção do espaçamento

Agradeço se alguém tiver alguma idéia...

Arthur MS


[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

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




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

-
 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 

* 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: RES: RES: [delphi-br] Delphi + Quick Report + SQL

[Julio Abdala]

Roberto, acho que também não tá certa essa linha do subselect
   
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita

  experimente simplesmente
   
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita = visita.vis_tipovisita

  abs.
   
  Júio Abdala
José Roberto [EMAIL PROTECTED] escreveu:
  A questão eh que só separa corretamente para o primeiro select no subselect
ele coloca os mesmos valores desconsiderando o tipo da visita, veja o
resultado que eu havia passado

msn: [EMAIL PROTECTED]

José Roberto

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: sábado, 4 de fevereiro de 2006 23:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Delphi + Quick Report + SQL

olhando o teu sql e imaginando a tua tabela, me veio uma pergunta...
   
  ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou
não pago que ele quer o resultado?
   
  tipo de visita = avulta ou contrato, 
   
  pagto_ok = sim ou não
   
  logo, 
   
  se você deseja dividir as linhas em pagos e não pagos tem que incluir este
campo na consulta e no group by.
   
  o resultado do sql tá correto para o que foi escrito, está agrupando por
tipo de visita, se você deseja o dados por pagto_ok (sim ou não) inclua-o na
consulta e no group by. Tente:
  
select visita.vis_tipovisita, visita.vis_pagto_ok, sum(vis_valor)
valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by visita.vis_tipovisita, visita.vis_pagto_ok

   
  abs.
   
  Júlio Abdala
  
José Roberto [EMAIL PROTECTED] escreveu:
  Denner e Julio,

Usando este igual vcs indicaram 

SQL pelo Ibexpert (Firebird)

select vis_tipovisita, sum(vis_valor) valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by vis_tipovisita

dá esse Resultado

VIS_TIPOVISITA  VALORTOTAL  PAGAR  PAGOU
Avulsa  1204  249  1335
Contrato  380  249  1335

Se eu ignorar o tipo da visita, tirando do select inicial
e do group by aí dá certo, mas aí não terei a separação que 
queria, mas por enquanto usarei desta forma, mas se alguém tiver
alguma idéia, agradeço

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Denner Bizarria Branco
Enviada em: sábado, 4 de fevereiro de 2006 07:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi + Quick Report + SQL

nos subselects coloca o alias que voce colocou na
tabela nas condições...

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

José Roberto wrote:

 Fiz dessa forma mas ainda não tá legal,

 select vis_tipovisita tipovisita, sum(vis_valor) valortotal,

 (select sum(vis_valor) from visita visita_pagar
 where vis_pagto_ok = 'NÃO'
 and visita.vis_tipovisita = visita_pagar.vis_tipovisita
 AND vis_tipovisita is not null) as Receber,

 (select sum(vis_valor) from visita visita_paga
 where vis_pagto_ok = 'SIM'
 AND vis_tipovisita is not null
 and visita.vis_tipovisita = visita_paga.vis_tipovisita
 and vis_dt_inicio  '01/01/2006') as Pagou

 from visita
 where vis_tipovisita is not null
 and vis_dt_inicio  '01/01/2006'
 group by vis_tipovisita
 O resultado ta assim

 TIPOVISITA  VALORTOTAL  RECEBER  PAGOU
 Avulsa  12048091335
 Contrato  3808091335

 Ele dá os totais mas ignora o tipo de visita nos dois subselects

 José Roberto




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






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos

Re: RES: RES: RES: [delphi-br] Delphi + Quick Report + SQL

[Julio Abdala]

humm... group by? nos subselect? acho desnecessário, tenta como eu te disse.
   
  Abs.
   
  Júlio

José Roberto [EMAIL PROTECTED] escreveu:
  Mas eu acho que devia ter algo como um group by nos subs pois se não só
retorna os valores mesmos diferente do select principal

José Roberto

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: domingo, 5 de fevereiro de 2006 19:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: [delphi-br] Delphi + Quick Report + SQL

Roberto, acho que também não tá certa essa linha do subselect
   
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita

  experimente simplesmente
   
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita = visita.vis_tipovisita

  abs.
   
  Júio Abdala
José Roberto [EMAIL PROTECTED] escreveu:
  A questão eh que só separa corretamente para o primeiro select no
subselect
ele coloca os mesmos valores desconsiderando o tipo da visita, veja o
resultado que eu havia passado

msn: [EMAIL PROTECTED]

José Roberto

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: sábado, 4 de fevereiro de 2006 23:14
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Delphi + Quick Report + SQL

olhando o teu sql e imaginando a tua tabela, me veio uma pergunta...
   
  ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou
não pago que ele quer o resultado?
   
  tipo de visita = avulta ou contrato, 
   
  pagto_ok = sim ou não
   
  logo, 
   
  se você deseja dividir as linhas em pagos e não pagos tem que incluir este
campo na consulta e no group by.
   
  o resultado do sql tá correto para o que foi escrito, está agrupando por
tipo de visita, se você deseja o dados por pagto_ok (sim ou não) inclua-o na
consulta e no group by. Tente:
  
select visita.vis_tipovisita, visita.vis_pagto_ok, sum(vis_valor)
valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by visita.vis_tipovisita, visita.vis_pagto_ok

   
  abs.
   
  Júlio Abdala
  
José Roberto [EMAIL PROTECTED] escreveu:
  Denner e Julio,

Usando este igual vcs indicaram 

SQL pelo Ibexpert (Firebird)

select vis_tipovisita, sum(vis_valor) valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by vis_tipovisita

dá esse Resultado

VIS_TIPOVISITA  VALORTOTAL  PAGAR  PAGOU
Avulsa  1204  249  1335
Contrato  380  249  1335

Se eu ignorar o tipo da visita, tirando do select inicial
e do group by aí dá certo, mas aí não terei a separação que 
queria, mas por enquanto usarei desta forma, mas se alguém tiver
alguma idéia, agradeço

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Denner Bizarria Branco
Enviada em: sábado, 4 de fevereiro de 2006 07:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi + Quick Report + SQL

nos subselects coloca o alias que voce colocou na
tabela nas condições...

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

José Roberto wrote:

 Fiz dessa forma mas ainda não tá legal,

 select vis_tipovisita tipovisita, sum(vis_valor) valortotal,

 (select sum(vis_valor) from visita visita_pagar
 where vis_pagto_ok = 'NÃO'
 and visita.vis_tipovisita = visita_pagar.vis_tipovisita
 AND vis_tipovisita is not null) as Receber,

 (select sum(vis_valor) from visita visita_paga
 where vis_pagto_ok = 'SIM'
 AND vis_tipovisita is not null
 and visita.vis_tipovisita = visita_paga.vis_tipovisita
 and vis_dt_inicio  '01

Re: [delphi-br] Delphi + Quick Report + SQL

[Julio Abdala]

Roberto é o seguinte: 
   
  coloque sempre o nome da table antes do nome das colunas, não esquece que 
está trabalhando com duas tabelas iguais nos subselect, uma no escopo do 
subselect e outro no escopo acima, porém ambas tem o mesmo nome.
   
  Se você não informar o nome da tabela, o select pega a table mais em 
evidência no comando.
   
  Mude e coloque o nome das table antes das colunas, que vai dar certo.
   
  abs.
   
  Júlio Abdala

José Roberto [EMAIL PROTECTED] escreveu:
  Fiz dessa forma mas ainda não tá legal,

select vis_tipovisita tipovisita, sum(vis_valor) valortotal,

(select sum(vis_valor) from visita visita_pagar
where vis_pagto_ok = 'NÃO'
and visita.vis_tipovisita = visita_pagar.vis_tipovisita
AND vis_tipovisita is not null) as Receber,

(select sum(vis_valor) from visita visita_paga
where vis_pagto_ok = 'SIM'
AND vis_tipovisita is not null
and visita.vis_tipovisita = visita_paga.vis_tipovisita
and vis_dt_inicio  '01/01/2006') as Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by vis_tipovisita
O resultado ta assim

TIPOVISITA  VALORTOTAL  RECEBER  PAGOU
Avulsa  12048091335
Contrato  3808091335

Ele dá os totais mas ignora o tipo de visita nos dois subselects

José Roberto



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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




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

-
 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 

* 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: RES: [delphi-br] Delphi + Quick Report + SQL

[Julio Abdala]

olhando o teu sql e imaginando a tua tabela, me veio uma pergunta...
   
  ele realmente está agrupando por tipo de visita, mas.. não é por pagou ou não 
pago que ele quer o resultado?
   
  tipo de visita = avulta ou contrato, 
   
  pagto_ok = sim ou não
   
  logo, 
   
  se você deseja dividir as linhas em pagos e não pagos tem que incluir este 
campo na consulta e no group by.
   
  o resultado do sql tá correto para o que foi escrito, está agrupando por tipo 
de visita, se você deseja o dados por pagto_ok (sim ou não) inclua-o na 
consulta e no group by. Tente:
  
select visita.vis_tipovisita, visita.vis_pagto_ok, sum(vis_valor) valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by visita.vis_tipovisita, visita.vis_pagto_ok

   
  abs.
   
  Júlio Abdala
  
José Roberto [EMAIL PROTECTED] escreveu:
  Denner e Julio,

Usando este igual vcs indicaram 

SQL pelo Ibexpert (Firebird)

select vis_tipovisita, sum(vis_valor) valortotal,

(Select Sum(vis_valor) from visita visita_pagar
  Where visita_pagar.vis_pagto_ok = 'NÃO'
And visita_pagar.vis_tipovisita Is Not Null
And visita_pagar.vis_tipovisita = visita.vis_tipovisita
And visita_pagar.vis_dt_inicio  '01/01/2006') As Pagar,

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

from visita
where vis_tipovisita is not null
and vis_dt_inicio  '01/01/2006'
group by vis_tipovisita

dá esse Resultado

VIS_TIPOVISITA  VALORTOTAL  PAGAR  PAGOU
Avulsa  1204  249  1335
Contrato  380  249  1335

Se eu ignorar o tipo da visita, tirando do select inicial
e do group by aí dá certo, mas aí não terei a separação que 
queria, mas por enquanto usarei desta forma, mas se alguém tiver
alguma idéia, agradeço

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Denner Bizarria Branco
Enviada em: sábado, 4 de fevereiro de 2006 07:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Delphi + Quick Report + SQL

nos subselects coloca o alias que voce colocou na
tabela nas condições...

(Select Sum(vis_valor) from visita visita_paga
  Where visita_paga.vis_pagto_ok = 'SIM'
And visita_paga.vis_tipovisita Is Not Null
And visita_paga.vis_tipovisita = visita.vis_tipovisita
And visita_paga.vis_dt_inicio  '01/01/2006') As Pagou

José Roberto wrote:

 Fiz dessa forma mas ainda não tá legal,

 select vis_tipovisita tipovisita, sum(vis_valor) valortotal,

 (select sum(vis_valor) from visita visita_pagar
 where vis_pagto_ok = 'NÃO'
 and visita.vis_tipovisita = visita_pagar.vis_tipovisita
 AND vis_tipovisita is not null) as Receber,

 (select sum(vis_valor) from visita visita_paga
 where vis_pagto_ok = 'SIM'
 AND vis_tipovisita is not null
 and visita.vis_tipovisita = visita_paga.vis_tipovisita
 and vis_dt_inicio  '01/01/2006') as Pagou

 from visita
 where vis_tipovisita is not null
 and vis_dt_inicio  '01/01/2006'
 group by vis_tipovisita
 O resultado ta assim

 TIPOVISITA  VALORTOTAL  RECEBER  PAGOU
 Avulsa  12048091335
 Contrato  3808091335

 Ele dá os totais mas ignora o tipo de visita nos dois subselects

 José Roberto




[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 





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




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

-
 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 

* Para ver as mensagens antigas, acesse:

Re: [delphi-br] Pegar senha da namorada no Yahoo!

[Julio Abdala]

Expulsa esse mala.
  

carlos luis mendes santana [EMAIL PROTECTED] escreveu:
  Descobrir senhas da yahoo se tornou muito facil pois o provedor tem 
um servidor automático de cadastros e recadastros que pode ser 
enganado facilmente da seguinte forma:
 O servidor é automático e responde seu email Como se você 
tivesse respondido a pergunta secreta do cadastro. 
 Siga os passos:
1°PASSO:funciona para qualquer E-mail
Envie um email para [EMAIL PROTECTED]
2°No assunto digite : Error
Então no corpo digite o email da sua vitima. 
Pule uma linha e escreva o seu email
Pule mais uma linha e digite o seu password para verificação do
servidor
Se a checagem for ok,
Ficará assim:
Para: [EMAIL PROTECTED]
Assunto:error

[EMAIL PROTECTED]
[EMAIL PROTECTED]
meu password

A resposta pode ser imediata ou levar 1 dia, dependendo do
congestionamento.
Caso sua vitima trocar a senha do email dela, dai meu amigo só daqui 
á 60 dias para cair no cadastro.
Mas já consegui muitas senhas assim é 90% de sucesso.







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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




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

-
 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 

* 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] Pegar senha da namorada no Yahoo!

[Julio Abdala]

Seu moderado, expulsa o cara que mandou essa mensagem de pegar senha de 
namorada.
   
  

Anderson [EMAIL PROTECTED] escreveu:
  interessante deu certo mesmo!!!

Vai tomar no c.
  - Original Message - 
  From: carlos luis mendes santana 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, February 03, 2006 1:53 AM
  Subject: [delphi-br] Pegar senha da namorada no Yahoo!


  Descobrir senhas da yahoo se tornou muito facil pois o provedor tem 
  um servidor automático de cadastros e recadastros que pode ser 
  enganado facilmente da seguinte forma:
   O servidor é automático e responde seu email Como se você 
  tivesse respondido a pergunta secreta do cadastro. 
   Siga os passos:
  1°PASSO:funciona para qualquer E-mail
  Envie um email para [EMAIL PROTECTED]
  2°No assunto digite : Error
  Então no corpo digite o email da sua vitima. 
  Pule uma linha e escreva o seu email
  Pule mais uma linha e digite o seu password para verificação do
  servidor
  Se a checagem for ok,
  Ficará assim:
  Para: [EMAIL PROTECTED]
  Assunto:error
  
  [EMAIL PROTECTED]
  [EMAIL PROTECTED]
  meu password
  
  A resposta pode ser imediata ou levar 1 dia, dependendo do
  congestionamento.
  Caso sua vitima trocar a senha do email dela, dai meu amigo só daqui 
  á 60 dias para cair no cadastro.
  Mas já consegui muitas senhas assim é 90% de sucesso.







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





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




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

-
 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 

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

[Julio Abdala]

Por que é um banquinho muito ruim...hehehe,
   
  na verdade pelo que conheço de paradox, parte do header do arquivo vai para a 
memória ram da máquina e caso de queda, ou instabilidade (o que é bem 
frequente) explode e vc fica sem seus dados.
   
  Perdi muitos dados antes de mudar de banco.
   
  Júlio abdala

Ligia Araujo [EMAIL PROTECTED] escreveu:
  Boa tarde
   
   
  Gostaria de saber se conhecem algum motivo da tabela paradox perde seus 
registros sem dar nenhum tipo de erro ou trava o micro?.
   
   
   
  Aguardo a resposta.
   
   
   
  Ligia
   


-
Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu 
aparelho.

[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

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




-
 Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil.

-
 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 

* 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: RES: [delphi-br] Imprimir rápido com Qui ckReport

[Julio Abdala]

Eu também nunca encontrei problema, pelo contrário, consegui fazer muita coisa 
legal com ele.
   
  Júlio Abdala

Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
  Outro dia eu postei aqui na, Delphi-br mesmo, fazendo uma convocação geral
para o pessoal expor os problemas, bugs e tudo mais que o Quick tem e que
justifiquem tanta crucificação que fazem a ele. Ninguem se pronunciou. Ou
seja, o povo fala mal por mero prazer de falar mal mesmo ou então pra querer
aparecer na lista. Só pode. 

Tudo que precisei de fazer com o Quick até hoje, consegui fazer numa boa sem
depender de gambiarra.


[]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 Augustus Otávio Pinto
Enviada em: quinta-feira, 2 de fevereiro de 2006 10:54
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Imprimir rápido com QuickReport


Tive bastante problemas com o QR na versao para o D1 la pelo final dos anos
90, depois nas novas
versoes, foi corrigido e hoje ele funciona bem redondo.

[]'s Augustus
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Walter Alves Chagas Junior
Enviada em: quinta-feira, 2 de fevereiro de 2006 09:50
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Imprimir rápido com QuickReport


Todo mundo mete o pau no Quick mas ninguem justifica o porque...

[]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 Oséias Ferreira
Enviada em: quarta-feira, 1 de fevereiro de 2006 17:55
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Imprimir rápido com QuickReport


-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

Desencana de QuickReport, para impressoras matriciais.
Eu uso o FortesReport, e ele faz bem este papel.

paulo4784 escreveu:
 Alguém sabe como fazer para imprimir rápido em uma impressora 
 matricial
 usando o QuickReport. Existe algum outro gerador de relatorio que faz 
 isso?


- --
Oséias Ferreira.oseiasferreira (arroba) yahoo.com.br
  Linux counter #333243
  GPG/PGP: 0x60084245
  fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245

-BEGIN PGP SIGNATURE-
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFD4SAQHKYDdGAIQkURArkDAJ4xmb0p7t9gLdLxh3zjaeucyDxuGQCgjBby
8eW1EgJSKPIw8PZS1zI96P4=
=QltY
-END PGP SIGNATURE-

  

  

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



-- 
 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.1.375 / Virus Database: 267.15.0/248 - Release Date: 01/02/2006


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.15.0/248 - Release Date: 01/02/2006




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





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

  



-
 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 

* 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] IdSMTP E IdMessage: Problema no envio de email

[Julio Abdala]

Já aconteceu isso comigo e era problema no roteador.
   
  Júlio Abdala

Mauro Junior [EMAIL PROTECTED] escreveu:
  E aí gurizada,

O meu programa envia e-mail de tempo em tempo. Para isso utilizo os 
componentes IdSMTP E IdMessage. 
O engraçado é que muitas vezes o programa está enviando direitinho e de 
repente ele não consegue enviar o e-mail, exibindo a seguinte mensagem:
Email: Relay access denied


Alguém sabe me dizer o que isso significa?










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Alguém pode me ajudar? Por favor!!!!!

[Julio Abdala]

Manda mais detalhes...
   
  onde vai estar gravado o arquivo?
  que tipo de acesso você precisa ter?
  etc...
  etc...
  quanto mais informações melhor.
   
  Júlio Abdala

Claudia Santos [EMAIL PROTECTED] escreveu:
  Oi pessoal!!!
   
  Estou com um problema e se alguém puder me ajudar, ficarei muito 
agradecida
   
  Estou desenvolvendo um programa que controla o cartão de ponto dos 
funcionários. Tenho que ler o arquivo de cartão de ponto que será colocado na 
porta paralela do computador. Não sei como fazer isto. Ah! o arquivo está no 
formato html. Também nunca usei este tipo de arquivo. Já usei no formato txt.
  Será que alguém pode me ajudar??? Desde já muito obrigada!!!
   
  Cláudia Santos




-
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 





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

  



-
 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 

* 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: Barra de Ferramentas

[Julio Abdala]

Usa o botão speedbutton, configura todos os eventos onclick de cada botão, tudo 
certinho.
  Depois seta a propriedade visible para true ou false, conforme o usuário 
desejar, grava a informação do botão habilitado ou não em uma tabela, recupere 
esta informação quando usuário entrar no sitema ou quando mudar a sua 
configuração.
   
  speedbutton1.Visible:= True;
   
  obs: os speedbutton tem que estar em um TToolBar
   
  abs.
   
  Júlio Abdala

Eduardo Suruagy [EMAIL PROTECTED] escreveu:
  
 Como faço pra criar uma barra de ferramentas na tela principal do sistema,
 onde o usuário final podera personaliza-la dizendo quais os botões ele quer.
 Isso claro, em tempo de execução e podendo ser salvo as configurações da
 bara do usuário para q qd ele entrar no sistema novamente as configurações
 continuem como ele deixou... Obrigado !!



[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

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

  



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

-
 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 

* 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] QuickReport + Delphi + SQL

[Julio Abdala]

Cara, não consegui entender o que tu escreveu.. de onde vem aqueles valores?
   
  manda detalhes
   
  Júlio Abdala

José Roberto [EMAIL PROTECTED] escreveu:
  Caros amigos desenvolvedores,

Tenho uma duvida no delphi

Tenho uma tabela de visitas a cliente.
Nela existe a seguinte estrutura (parte dela)

Tabela visita

vis_tipo_visita (varchar(10)
vis_pagto_ok char(3)
...


Queria montar um relatório no quick report onde eu teria...

tipo da visitareceber   recebidas total

avulsa 100,00   100,00   200,00
contrato   150,00   450,00   600,00 

como eu poderia fazer isso ?

pensei em dois sql´s mas no quick report preciso identificar uma sql senao
ele não passa pro proximo registro

Aguardo o apoio de vocês

José Roberto



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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: RES: [delphi-br] OFF TOPIC - Diferencas no SQL com Group By

[Julio Abdala]

Valeu, e vamos pra outra... hehehehe
   
  Feliz era sansão que só matou um leão na vida...
   
  Júlio Abdala

Elazar [EMAIL PROTECTED] escreveu:
  Julio,

Aham, esta errado mesmo, a cada sum na tabela de itens os valores das
notas é reagrupado.
achei uma solução 'rápida' criando uma StoredProcedure Selecionavel.

Atenc.
Elazar

*** 
-Mensagem original-De: delphi-br@yahoogrupos.com.br
[mailto:[EMAIL PROTECTED] Em nome de Julio Abdala
Enviada em: quinta-feira, 2 de fevereiro de 2006 12:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] OFF TOPIC - Diferencas no SQL com Group By


A tua lógica do SQL parece não está correta. O group by vai servir para
o agrupamento da primeira coluna (sum(nf.total)), e as outras estão
sendo agrupadas novamente quando realizar outro sum.
   
  para resolver o teu problema utilize subselects que o resultado
retornará correto.
   
  pelo menos eu resolvi assim.
   
  Abs.
   
  Júlio Abdala

Elazar [EMAIL PROTECTED] escreveu:
  Pessoal;

bom dia;


Tenho duas consultas no sistema retornando cada um a sua lista de dados
conforme abaixo.


SQL 1:

SELECT
 CASE EXTRACT(MONTH FROM NF.DATAEMISSAO)
  WHEN 1 THEN 'Janeiro'
  WHEN 2 THEN 'Fevereiro'
  WHEN 3 THEN 'Março'
  WHEN 4 THEN 'Abril'
  WHEN 5 THEN 'Maio'
  WHEN 6 THEN 'Junho'
  WHEN 7 THEN 'Julho'
  WHEN 8 THEN 'Agostto'
  WHEN 9 THEN 'Setembro'
  WHEN 10 THEN 'Outubro'
  WHEN 11 THEN 'Novembro'
  WHEN 12 THEN 'Dezembro'
END MES,
SUM(NF.VALORTOTAL) AS TOTAL
   FROM NOTAFISCAL NF
  WHERE NF.DATAEMISSAO BETWEEN '01.01.2005' AND '31.12.2005'
  GROUP BY
   EXTRACT(MONTH FROM NF.DATAEMISSAO)
ORDER BY EXTRACT(MONTH FROM NF.DATAEMISSAO)


Result Set 2:

MES   TOTAL   
==
Janeiro   104107,78
Fevereiro 169304,33
Março 18,12
Abril 210175,72
Maio  154042,97
Junho 210803,23
Julho 180880,06
Agostto   165331,35
Setembro  18862,83
Outubro10754,3
Novembro319,68



*
SQL 2:

SELECT
 CASE EXTRACT(MONTH FROM NF.DATAEMISSAO)
  WHEN 1 THEN 'Janeiro'
  WHEN 2 THEN 'Fevereiro'
  WHEN 3 THEN 'Março'
  WHEN 4 THEN 'Abril'
  WHEN 5 THEN 'Maio'
  WHEN 6 THEN 'Junho'
  WHEN 7 THEN 'Julho'
  WHEN 8 THEN 'Agostto'
  WHEN 9 THEN 'Setembro'
  WHEN 10 THEN 'Outubro'
  WHEN 11 THEN 'Novembro'
  WHEN 12 THEN 'Dezembro'
END MES,
SUM(NF.VALORTOTAL) AS TOTAL,
SUM(NFITN.QUANTIDADE)  AS QUANTIDADE,
(SUM(NF.VALORTOTAL) / SUM(NFITN.QUANTIDADE)) AS PRECOMEDIO
   FROM NOTAFISCAL NF
  INNER JOIN ITNNOTAFISCAL NFITN ON NF.NONOTA  =
NFITN.COD_NOTAFISCAL
  WHERE NF.DATAEMISSAO BETWEEN '01.01.2005' AND '31.12.2005'
  GROUP BY
   EXTRACT(MONTH FROM NF.DATAEMISSAO)
ORDER BY EXTRACT(MONTH FROM NF.DATAEMISSAO)

Result Set 2:

MES   TOTAL   QUANTIDADEPRECOMEDIO
======
Janeiro   3512289,78  74092,8547
Fevereiro 5220068,3  87584,9660
Março 6374835,83 129396,8449
Abril 5956146,17 134327,0244
Maio  3131176,36 108585,8129
Junho 6773279,63 197960,9434
Julho 7592940,54 124835,0761
Agostto   13375481,1 114501,09   117
Setembro  3313870,39   8615,25   385
Outubro15184,9  9580 2
Novembro639,36   240 3

**


Levando em consideração que os valores das colunhas total do SQL 1 está
correto/verificado na base de dados.

mas se eu adicionar no sql uma instrução para trazer o somatorios das
quantidades (SQL 2), ele me retornas valores totalmente incoerentes em
relação aos dados existentes nas tabelas de notafiscais e itens de nota
fiscal.

se alguem compreende o que aconteceu neste SQL 2 onde a coluna TOTAL é
meia absurda quanto tento somar as quantidades dos itens...

Alguem sabe me esplicar... o que esta acontecendo?


OBS: A coluna quantidade ta OK;

Atenc.
Elazar


  

  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

Re: [delphi-br] Listeners para Eventos como AfterPost e BeforePost!

[Julio Abdala]

Entendi, uma ADOTable e vários forms. Uma validação para cada form.
   
  você já pensou em criar seu próprio eventos AfterPost e BeforePost, gerando 
uma nova classe a partir da da Classe TADOTable, ou TCustomADOTable, ou 
TADODataset? você poderia criar o seu próprios eventos que ouviriam da forma 
que desejasse, sem necessidade de TColletion. Pensa nisso.
   
  Veja só, no meu caso, eu tenho várias tables que também são utilizadas em 
vários forms mas as validações são iguais, quando há validações diferentes eu 
utilizo um campo chave, 
  por exemplo: Tipo de reserva = tipo_reserva, caracter de três posições
  se reserva de hotel 'HOT', chama métodos de validação tal,
  se resrva de aéreo 'AER', chama métodos de validação tal, etc..
   
  todas geram alguma exception em caso de não validação, o que aborta o 
processo de gravação e retorna uma mensagem à aplicação ou ao usuário (parecido 
com o java).
   
  e assim por diante.
   
  pelo que notei, não são Treads o que você necessita.
  
tenta ai, me diz o que aconteceu depois.
   
  Júlio Abdala
  
Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
  Julio, não é isto, é o inverso!
Seria o Evento AfterPost e BeforePost chamar muitos outros métodos!

Criei um DataModule que possui minha AdoTable, esta AdoTable trabalha com
diversos outros Formulários, e cada um tem uma validação diferente para o
contexto Post, ai preciso ficar trabalhando isto, gostaria de poder criar um
Metodo Abstrato, que cada Frm iria implementar de sua forma e este seria
chamado seguencialmente pelo AfterPost e BeforePost!

Isto será aplicado a outros Eventos do Delphi em outras situações!

Quero apenas poder colocar mais de um método ouvindo os Eventos! De forma a
poder ir adicionando mais Métodos conforme a aplicação for tomando forma,
sem ter que ficar voltando atras em componentes já finalizados para
atualizar suas chamadas!

Acho que o único jeito será criar um método que recebe referencias de outros
métodos a serem executados! ou seja um método que pode receber referencias
de outros métodos, armazena-la em uma Collection (vou falar disto em outro
e-mail) e permitir que um segundo método Interaja sobre esta collection
executando cada um!

[]s

Em 02/02/06, Julio Abdala [EMAIL PROTECTED] escreveu:

 Os eventos AfterPost e BeforePost já estão disponíveis no próprio
 componente, basta apenas implementar o método a ser utilizado na ocorrência
 de cada evento.

   Se eu entendi, você precisa que estes métodos já implementados fiquem
 ouvintes à várias solicitações? é isso?

   Se for dá uma olha em thread no Delphi, que poderá lhe ajudar em um
 componentes ouvindo várias solicitações.

   Espero ter ajudado.

   Abs.

   Júlio Abdala


 --
 Carlos Delfino
 Consultoria e Pesquisa
 Desenvolvimento de Softwares.
 Sun Certified Associate for Java Platform



[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

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

  



-
 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 

* 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: RES: [delphi-br] Re: Ajuda com uma SQL

[Julio Abdala]

A sintaxe passada não tá correta, o left join deve ser posto na clausula from 
(principalmente se for postgresql).
   
  Select pedido.*, cliente.nome, representante.nome
From (pedido left outher join cliente on pedido.idcliente  = 
cliente.idcliente) left outher join  
  representante on Pedido.idrepresentante = representante.idrepresentante
   
  tenta ai..
   
  Júlio Abdala

José Henrique (Zote) [EMAIL PROTECTED] escreveu:
  Ou usa left outher join...

Select pedido.*, cliente.nome, representante.nome,
From pedido, cliente, representante
Where pedido.idcliente left outher join cliente.idcliente and
Pedido.idrepresentante left outher join repesentante.idrepresentante

Acho que a sintaxe acima ta certa, mas um tempo que uso *= pra fazer isso (ASA).

Abraço

--
José Henrique (Zote)

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Murillo 
Proença
Enviada em: quinta-feira, 2 de fevereiro de 2006 11:44
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Ajuda com uma SQL

Monta dois Selects utilizando Union

SELECT C.NOME
FROM PEDIDO P, CLIENTE C
WHERE P.IDCLIENTE = C.IDCLIENTE
UNION ALL
SELECT R.NOME
FROM PEDIDO P, REPRESENTANTE R
WHERE P.IDREPRESENTANTE = R.IDREPRESENTANTE

Murillo Proença


--- Em delphi-br@yahoogrupos.com.br, Fellipe Henrique [EMAIL PROTECTED] 
escreveu

 Olá amigos, preciso da ajuda de vocês em uma SQL, pois bem segue 
ela:
 Banco.: Firebird 1.5 SuperServer
 
 Tabelas: (* - pk   # - fk)
  Pedido
IDPEDIDO *
IDCLIENTE #
IDREPRESENTANTE #

 Cliente
IDCLIENTE *
NOME

 Representante
IDREPRESENTANTE *
NOME

 
 Seguinte, o meu pedido pode ser feito tanto por cliente quanto po
 representante... quando for por cliente o campo IDREPRESENTANTE fica
 NULL, e vice-versa, pois bem, queria um SQL que me trouxesse todas 
as
 informações do meu pedido, e o nome de quem comprou, porem em uma
 coluna so, ou seja, se o campo IDCLIENTE nao for nulo, ele traz o 
nome
 do cliente, e do mesmo modo no representante...
 
 Como eu faço isso, pensei em usar CASE, porem não sei usa-lo pra 
esta
 forma (se é quem tem como usa-lo para esta forma).
 
 Desde já agradeço.
 
 []s
 _
 Fellipe Henrique
 [EMAIL PROTECTED]
 Venham até a borda, ele disse.
 Eles disseram: Nós temos medo.
 Venham até a borda, ele insistiu.
 Eles foram, Ele os empurrou...
 E eles voaram.
 (Guillaume Apollinaire)







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos







Received: (qmail 48411 invoked by uid 0); 2 Feb 2006 11:46:13 -0200
Received: from 66.94.237.39 by poseidon.bludata.com.br (envelope-from [EMAIL 
PROTECTED], uid 0) with qmail-scanner-1.25 
(clamdscan: 0.85/974. spamassassin: 3.0.2.  
Clear:RC:0(66.94.237.39):SA:0(-2.4/5.0):. 
Processed in 6.923729 secs); 02 Feb 2006 13:46:13 -
X-Qmail-Scanner-Mail-From: [EMAIL PROTECTED] via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.39):SA:0(-2.4/5.0):. Processed in 
6.923729 secs)
Received: from unknown (HELO n5a.bullet.scd.yahoo.com) (66.94.237.39)
  by poseidon.bludata.com.br with SMTP; 2 Feb 2006 11:46:06 -0200
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
DomainKey-Signature: a=a-sha1; q=s; c=fws; s=tel; d=hoogrupos.com.br;
  
b=5vQnIqRtQDHS/sVt8bq+Y9PHfcM1WyFjyJBN5o+XSameCGlL8xslOeksr6ZAX93cOnOk2FBef8X68wfbDnqNH2X6HMYMk4LuEN23Xuukvwx9zIWKj7tdIEIEI8bxTU;
Received: from [66.218.69.5] by n5.bullet.scd.yahoo.com with NNFMP; 02 Feb 2006 
13:45:54 -
Received: from [66.218.66.35] by t5.bullet.scd.yahoo.com with NNFMP; 02 Feb 
2006 13:45:53 -
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: delphi-br@yahoogrupos.com.br
Received: (qmail 20992 invoked from network); 2 Feb 2006 13:45:52 -
Received: from unknown (66.218.66.218)
  by m29.grp.scd.yahoo.com with QMQP; 2 Feb 2006 13:45:52 -
Received: from unknown (HELO n5a.bullet.scd.yahoo.com) (66.94.237.39)
  by mta3.grp.scd.yahoo.com with SMTP; 2 Feb 2006 13:45:51 -
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
Received: from [66.218.69.4] by n5.bullet.scd.yahoo.com with NNFMP; 02 Feb 2006 
13:44:25 -
Received: from [66.218.66.65] by t4.bullet.scd.yahoo.com with NNFMP; 02 Feb 
2006 13:44:25 -
To: delphi-br@yahoogrupos.com.br
Message-ID: [EMAIL PROTECTED]
In-Reply-To: [EMAIL PROTECTED]
User-Agent: eGroups-EW/0.82
X-Mailer: Yahoo Groups Message Poster
X-Originating-IP: 66.94.237.39
X-eGroups-Msg-Info: 1:12:0:0
X-Yahoo-Post-IP: 200.245.174.131
From: [EMAIL PROTECTED]
X-Yahoo-Profile: murilloppr
Sender: delphi-br@yahoogrupos.com.br
MIME-Version: 1.0
Mailing-List: list delphi-br@yahoogrupos.com.br; contact [EMAIL PROTECTED]
Delivered-To: mailing list delphi-br@yahoogrupos.com.br
List-Id: delphi-br.yahoogrupos.com.br
Precedence: bulk
List-Unsubscribe: 

Re: [delphi-br] Zeos 6.5

[Julio Abdala]

Edita o pas do componentes e coloca a propriedade, compila e instala o 
componente de novo
   
  Fiz isto com a propriedade requery e deu beleza (eram mais de 500 tables). 
Alias, editei uma porção de coisas do zeos para funcionar legal com minha 
aplicação, hoje não tenho galho nenhum.
   
  Abs.
   
  Júlio Abdala

Eduardo Buffara [EMAIL PROTECTED] escreveu:
  Opa Galera,

Seguinte
Eu utilizava a versão do Zeos a 6.1, so que o servidor q hospedava o site 
atualizou o MYSQL para 4.1, então tive q atualizar o Componente para a versão 
6.5.

So que na versão 6.1 tinha uma opção RequestLive, e na 6.5 não tem, dai da 
altos erros.
Queria saber se tem algum jeito de burlar isso e mudar todos de uma vez so??? 
pq sao muitos...o sistema eh bem grande são em media umas 100 Querys.dae 
jah viu neh??? Ir recriando uma a uma eh bem complicado!

Se alguem souber eu agradeço,

Abraço

Eduardo Buffara

[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

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

  



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

-
 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 

* 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: RES: [delphi-br] QuickReport + Delphi + SQL

[Julio Abdala]

acho que entendi +/-, no postgresql eu usaria subselect e faria assim:
   
  Select vis_tipo_visita as visita,  
  sum(valor) valor, 
(Select sum(valor)
  FROM table_visita visita_pagto
  Where visita_pagto.vis_pagto_ok ='SIM'
  AND visita_pagto.vis_tipo_visita = visita_tipo.vis_tipo_visita ) as 
valor_pago, 
  (Select sum(valor)
  FROM table_visita visita_pago
  Where visita_pagto.vis_pagto_ok ='NAO'
  AND visita_pagto.vis_tipo_visita = visita_tipo.vis_tipo_visita ) as 
valor_nao_pago
   
  FROM table_visita visita_tipo
  Order by vis_tipo_visita
Group by vis_tipo_visita

  tenta ai...
  abs.
   
  Júlio Abdala
José Roberto [EMAIL PROTECTED] escreveu:
  Esses valores deveram ser pegos da tabela visita, exemplo

Neste eu pego as visitas de acordo com o tipo

Select vis_tipo_visita visita, sum(valor) valor
Order by vis_tipo_visita
Group by vis_tipo_visita

Neste eu pego as visitas de acordo com o tipo
E que jah foram pagas

Select vis_tipo_visita visita, sum(valor) valor
Where vis_pagto_ok ='SIM'
Order by vis_tipo_visita
Group by vis_tipo_visita

Neste eu pego as visitas de acordo com o tipo
E que não foram pagas ainda

Select vis_tipo_visita visita, sum(valor) valor
Where vis_pagto_ok ='NÃO'
Order by vis_tipo_visita
Group by vis_tipo_visita

E lembrando que posso ter um tipo de visita que só tem paga ou não paga

Ai minha intenção eh jogar tudo isso num mesmo relatorio

Entendeu ?

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: quinta-feira, 2 de fevereiro de 2006 20:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] QuickReport + Delphi + SQL

Cara, não consegui entender o que tu escreveu.. de onde vem aqueles valores?
   
  manda detalhes
   
  Júlio Abdala

José Roberto [EMAIL PROTECTED] escreveu:
  Caros amigos desenvolvedores,

Tenho uma duvida no delphi

Tenho uma tabela de visitas a cliente.
Nela existe a seguinte estrutura (parte dela)

Tabela visita

vis_tipo_visita (varchar(10)
vis_pagto_ok char(3)
...


Queria montar um relatório no quick report onde eu teria...

tipo da visitareceber   recebidas total

avulsa 100,00   100,00   200,00
contrato   150,00   450,00   600,00 

como eu poderia fazer isso ?

pensei em dois sql´s mas no quick report preciso identificar uma sql senao
ele não passa pro proximo registro

Aguardo o apoio de vocês

José Roberto



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
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










-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



-
 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 

* 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] Exportação TXT

[Julio Abdala]

edFile.Text = nome do arquivo a ser exportado
  dsFonte = um DataSource que recebe a table a ser exportada.
   
AssignFile(ArqImp, edFile.Text);
  Try
  Rewrite( ArqImp );
   
dsFonte.DataSet.First;
  While not dsFonte.DataSet.Eof do
 Begin
 sLinha:= '';
   For campo:= 0 To lstCampos.Count - 1 do
If lstCampos.Checked[campo] then
   sLinha:= sLinha + '' + 
dsFonte.DataSet.FieldByName(stNomeCampo[campo]).asString + ';';
   WriteLn( ArqImp, sLinha );
 dsFonte.DataSet.Next;
 end;
Finally
 CloseFile( ArqImp );
  end;

T+
   
  Júlio Abdala
Listas Minerva [EMAIL PROTECTED] escreveu:
  Use a procedure abaixo, onde os parâmetros são:

Dataset: o dataset a ser exportado (ele deve estar aberto);
Arquivo: o caminho (inclusive com o nome) do arquivo;
Separador: o caracter quer será usado como separador entre os campos 
(aconselho usar ';');

Exemplo: GeraTexto(Query1, 'C:\arquivo.txt', ';')

procedure GeraTexto(Dataset: TDataset; Arquivo: string; Separador: Char);
  var intC1, intC2: Integer;
  strLista: TStringList;
  strLinha: string;
begin

  try
Dataset.DisableControls;
Dataset.First;
strLista := TStringList.Create;
strLinha := EmptyStr;

//Cria a primeira linha com os nomes das colunas
for intC1 := 0 to Dataset.Fields.Count - 1 do
  if Dataset.Fields[intC1].Visible = True then
begin
  if intC1  Dataset.Fields.Count - 1 then
strLinha := strLinha + Dataset.Fields[intC1].DisplayLabel + 
Separador
  else
strLinha := strLinha + Dataset.Fields[intC1].DisplayLabel;
end;

strLista.Add(strLinha);
strLinha := EmptyStr;

for intC1 := 1 to Dataset.RecordCount do
  begin
for intC2 := 0 to Dataset.Fields.Count - 1 do
  if  Dataset.Fields[intC2].Visible = True then
begin
  if intC2  Dataset.Fields.Count - 1 then
strLinha := strLinha + Dataset.Fields[intC2].AsString + 
Separador
  else
strLinha := strLinha + Dataset.Fields[intC2].AsString;
end;

strLista.Add(strLinha);
strLinha := EmptyStr;
Dataset.Next;
  end;

strLista.SaveToFile(Arquivo);
strLista.Free;
Dataset.EnableControls;
  except
on Erro: Exception do
  begin
strLista.Free;
Dataset.EnableControls;
raise Exception.Create(Erro.Message);
  end;
  end;

end;




- Original Message - 
From: Dir [EMAIL PROTECTED]
To: grupo2 delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 31, 2006 11:06 AM
Subject: [delphi-br] Exportação TXT





Pessoal preciso exportar dados de uma consulta(consulta esta pronta) para um 
arquivo .txt, mas como nunca fiz isso, alguém poderia me dar uma dica.

Cadanos

[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 





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

  



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

-
 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 

* 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] Banco Não Grava Informaçõe s?=

[Julio Abdala]

Verifique o tamnho do tem combo para sexo, ele tem que ter o mesmo número de 
caracteres que o campo da tabela.
   
  abs.
   
  Júlio Abdala

Cleiton [EMAIL PROTECTED] escreveu:
  Olá pessoal ...

Está me acontecendo algo um tanto quanto curioso, do qual fiz diversas 
tentativas de resolver o problema e ainda não consegui.

Para título de curiosidade estou usando MySql 4.1 e delphi 7.

O que acontece é o seguinte:

Tenho uma tabela cliente que entre outros campos tem:

* sexo - campo do tipo varchar (1) que indica o sexo do cliente. O campo é 
obrigatório.

* cidade_empresa - campo do tipo integer que indica a cidade onde se localiza 
a empresa onde o cliente trabalha e que faz referência a tabela cidade, ou 
seja, é uma chave estrangeira. Esse campo não é obrigatório.

O que acontece é que após prenchido corretamente todos os dados do formulário 
de cadastro do cliente, salva-se as informações. Acontece que, não porque 
acontece mas, os campos sexo e cidade_empresa ficam em branco no formulario e 
acaba não gravando nada no banco. Não aparece nenhuma mensagem de erro e quando 
vou verificar no banco, todas as informações foram gravadas, apesar do campo 
sexo ser obrigatorio.

Fiz um teste e inseri essas informações usando o Mysql Front. Aí na formulário 
aparece as informações que eu coloquei mas se tentar alterar acontece a mesma 
coisa quando vou inserir novos dados, mas mantendo a informação anterior que 
foi colocada no banco pelo MySql Front.

No campo sexo estou usando um DBComboBox e no campo cidade_empresa estou usando 
um DBEdit. Já a inversáo dos dois componentes nesses campos e acontece a mesma 
coisa.

Alguém do grupo já passou por isso? Ou alguém tem idéia de como resolver esse 
problema?

um grande abraço a todos

Cleiton
-- 
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.



[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

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

  



-
 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 

* 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] Caracteres Em Branco

[Julio Abdala]

TrimRight()
  TrimLeft()
  Trim()
   
  abs
   
  Júlio Abdala

Cleiton [EMAIL PROTECTED] escreveu:
  Olá pessoal ...

Tem alguma função em que eu possa retirar de um campo os carecteres em branco 
antes e depois dos carecteres válidos?

Por exemplo...

No campo nome coloco: cleiton.

Supondo que dei alguns espaços antes e depois do nome, como faço pra retirar 
essas caracteres em branco antes de gravar essa informação no banco?

um grrande abraço a todos

Cleiton
-- 
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.



[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

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

  



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

-
 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 

* 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: RES: [delphi-br] Proteção anti-cópias

[Julio Abdala]

Ai eu vou dizer que este cara é um forte candidato a lascar com a empresa 
dele...
   
  Júlio Abdala

Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
  E se o camarada pegar o numero de serie deste HD, levar pra outro computador
e, chegando lá, modificá-lo com o Debug do DOS ou com o Norton Disk Edit?

[]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 Anderson Carlos
Enviada em: domingo, 29 de janeiro de 2006 22:52
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Proteção anti-cópias


Eu uso essa função, que pega o nº de série do HD, eu gravo em uma tabela o
resultado e quando eu abro o sistema a 1º coisa que testo é o número de
série do HD se este for diferente do que eu gravei eu travo o sistema.
  Espero que possa te ajudar.
   
  Function TFrmPrincipal.SerialNum(FDrive:String) :String;
var
  Serial: DWord;
  DirLen, Flags: DWord;
  DLabel : Array[0..11] of Char;
begin
  Try

GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0
);
   Result := IntToHex(Serial,8);
Except
   Result := '';
  end;
end;

Anderson Carlos
  Programador Cobol - NetExpress 3.1 / Delphi 7.0
  Softdados Informática Ltda
   
  leonardo302021 [EMAIL PROTECTED] escreveu:
  Olá galera!

Alguém poderia me indicar um método de proteção para evitar que seu 
sistema seja copiado indevidamente por terceiros?
Não precisa ser muito complexo, mas é bom que seja eficaz :)
Só mais uma coisa: como eu pretendo vender meu sistema pela internet 
seria interessante evitar soluções em que seja necessário minha 
presença física ao instalar o sistema para o cliente, mas de qulquer 
forma, qualquer idéia é bem vinda!

Grato pela atenção

Leonardo Leite





-- 


-
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








[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

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

  



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

-
 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 

* 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] Problemas em instalar o componente Zeos no Delphi 7

[Julio Abdala]

ele´é chato de instalar mesmo, mas segue os passos que acaba dando certo.l
   
  só cuidado que vc vai ter que gerar os pacotes e depois instalar.
   
  abs.
   
  Júlio Abdala

analistarmr [EMAIL PROTECTED] escreveu:
  Bom dia !

Baixei o componente Zeos, segui todos os passos e mesmo assim não 
consigo instalar. Uso o Delphi 7 !

Alguem pode me dar uma luz !!

Desde já agradeço

Rafael
[EMAIL PROTECTED]
[EMAIL PROTECTED]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Componente para enviar email pelo delphi

[Julio Abdala]

Tenho dois free
   
  o AFQuickMail e o TMailer, mas são uma versão antiga
   
  procura na net, se não achar atualizado eu te mando os que tenho.
   
  Abs.
   
  Júlio Abdala

auristonlopes [EMAIL PROTECTED] escreveu:
  Estou precisando de um componente para enviar email, tanto na internet 
discada e na banda larga, alguem que ja usa e esta tendo sucesso, 
favor me dar uma dica.
sds
auriston





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Problema Impressão Matricial e m EPSON FX-2190

[Julio Abdala]

esta impressora é usb?
   
  Júlio Abdala

Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
  Bom dia !!!

Tenho um programa que roda em uma rede de 03 estacoes W98, e utilizo
impressao matricial 
usando as funcoes AssignFile() e WriteLn() para gravar direto para a porta
LPT.
Funcionava perfeitamente com impressoras Epson LX300, FX 1050, 2170, 2180,
etc tanto localmente como 
pela rede.
Acontece que o pessoal comprou uma Epson FX 2190 e agora não consigo mais
imprimir localmente. 
Pela rede consigo mandar uma impressao, mas na maquina que a impressora esta
instalada não
sai nada.
Alguem teria alguma experiencia ou solucao para me passar ?

Grato.

Augustus

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Delphi + ADO + Postgresql

[Julio Abdala]

Pessoal, preciso de uma ajuda de vocês.
   
  Estou acessando uma base da dados postgresql 8.0, delphi 7, ADO e ODBC.
   
  Mes acessando de forma bem simples uma tabela, tipo 
  SELECT *
  FROM tabela
   
  quando tento postar alguma alteração recebo uma mensagem de erro que diz:
   
  Informações insuficientes sobre a tabela base para atualização.
   
  Alquém sabe do que se trata? alquém já passou por isso? alguma pista do que 
pode ser?
   
  Agradeço a ajuda.
   
  Abs.
   
  Júlio Abdala


-
 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 

* 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] Iniciante no Delphi, apanhando que nem um probe coitado, Problemas SQL Server 2000 + Delphi 7 e relacionamentos!

[Julio Abdala]

O Delphi respeita as restrições, mas recebendo as mensagens de erros 
originárias do banco de dados.
   
  Voc pode tratá-las devidamente se você utilizar um bloco 
  Try
  Except
  end
  no evento onPost do componente table ou query que você estiver utilizando.
   
  Implemente isto e não terá mais problemas.
   
  Quanto ao teu script, dá uma olhada na variável campo que acredito que ela 
não esteja setada devidamente.
   
  Abs.

  Júlio Abdala
  
Carlos Delfino Carvalho Pinheiro [EMAIL PROTECTED] escreveu:
  Bons Dias!

Sou programador Java a 3 anos, e estou trabalhando em um projeto com
Delphi, mas estou tendo serios problemas com restrições de
relacionamento, que o Delphi não tem respeitado!

Agradeço muito a colaboração dos colegas! Vamos a detalhes:

Tenho 3 tabelas:
CREATE TABLE [dbo].[OPERADOR_SUBESTOQUE] (
  [CD_OPERADOR] [int] NOT NULL ,
  [CD_SUBESTOQUE] [int] NOT NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[OPERADOR] (
  [CD_OPERADOR] [int] IDENTITY (1, 1) NOT NULL ,
  [NM_OPERADOR] [varchar] (50) ,
  [NM_APELIDO] [varchar] (25) NOT NULL ,
  [DE_SENHA] [varchar] (15) NOT NULL ,
  [ID_BLOQUEIO] [varchar] (1) NULL
) ON [PRIMARY]

CREATE TABLE [dbo].[SubEstoque] (
  [CD_SUBESTOQUE] [int] IDENTITY (1, 1) NOT NULL ,
  [NM_SUBESTOQUE] [varchar] (50) NOT NULL
) ON [PRIMARY]

A tabela Operador_Subestoque recebe como FK o campo Cd_Operador de
Operador e Cd_SubEstoque de SubEstoque.

A intenção é caso exista um registro na Tabela Operador_Subestoque, o
operador pode atuar sobre o SubEstoque! mas infelizmente o Delphi
emite uma mensagem de erro quanto tento inserir um registro, tal
mensagem de erro relata que estou tentando inserir uma valor nulo no
campo CD_SubEstoque da tabela Operador_SubEstoque, o que realmente não
é permitido.

Estou usando o seguinte codigo para inserir o novo registro (o erro
esta na linha que possui o comentário):

  with FrmListaSimplesSubEstoque.DBGrid1 do
if SelectedRows.Count0 then
with DataSource.DataSet do
  for i:=0 to SelectedRows.Count-1 do
  begin
GotoBookmark(pointer(SelectedRows.Items[i]));

Campo := Fields[0].AsInteger;

DmAuditoria.TableOperadorSubestoque.InsertRecord([DmAuditoria.TableOperadorCD_OPERADOR.AsInteger,Campo]);
// o erro ocorre nesta liha

DmAuditoria.TableOperadorSubestoque.Post;
  end;

end;

Mais uma vez agradeço, caso necessite mais informaçoes estou disponivel!

Se preferir eis meu MSN [EMAIL PROTECTED]
Obrigado!
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Impedir Caracteres Indesejados

[Julio Abdala]

tenho uma função que uso para validar numeros
   
  Procedure ValidaKey (Const Sender :TObject; var Key :Char; Tipo :Integer);
// Valida Key em Edits
Begin
   if not (Key in ['0'..'9', '.', ',', '+', '-', #8, #13]) then Key := #0;
 if Key in [',','.'] then
   If (Tipo = 1) OR (Tipo = 3) then // 0- Integer, 1- Currency e Float 
positivo
  Key:= DecimalSeparator// 2- Integer negativo e positivo, 3 - 
Float negativo e positivo
   Else
  Key:= #0;
 if Key = DecimalSeparator then
  if pos(Key,TEdit(Sender).Text)  0 then Key := #0;
 if Key in ['+','-'] then
  If Tipo  2 then
  Key := #0
  else if pos(Key,TEdit(Sender).Text)  0 then Key := #0
  else if Length(TEdit(Sender).Text)  0 then Key := #0;
end;

  e tenho uma rotina que valida campos texto.
   
  Function CaracterValido( sTexto, sCaracteres :String ) :Boolean; // Verifica 
se só existe caracteres válidos no texto
Var
   X :Integer;
Begin
  Result:= True;
  For X:= 1 To Length( sTexto ) do
 If Pos( sTexto[X], sCaracteres ) = 0 then
Begin
Result:= False;
Break;
end;
end;

chamando assim:
   
   If not CaracterValido( Edit1.text, 'ABCDEFGHIJKLMNOPQRSTUWVXYZ' ) then
Application.MessageBox('Campo possui caracteres inválidos, 
verifique','APLICAÇÃO',
   mb_ok+mb_iconExclamation)

  
Cleiton [EMAIL PROTECTED] escreveu:
  Olá pessoal...

Como fazer para impedir que usuário digite números em um campo que deveria 
aceitar apenas letras e como impedir que o usuário digite letras em um campo 
que deveria aceitar apenas números?

abraços

Cleiton
-- 
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.



[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

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

  



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

-
 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 

* 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: RES: [delphi-br] Problema Impressão Matric ial em EPSON FX-2190

[Julio Abdala]

Qual teu ambiente de desenvolvimento? 
  Sistema operacional?
  Versão do Delphi?
  Como tá mandando o comando?
   
  Júlio Abdala

Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
  Esta instalada na porta paralela mesmo (LPT1), o mais estranho eh que ateh o
velho 
comando do DOS dir  prn funciona, mas quando envio a impressao atraves da
aplicacao
nao sai nada.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Campus
Enviada em: sábado, 30 de janeiro de 1999 09:05
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema Impressão Matricial em EPSON FX-2190


ela não tá na porta USB ?

- Original Message - 
From: Augustus Otávio Pinto [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, January 30, 2006 8:37 AM
Subject: [delphi-br] Problema Impressão Matricial em EPSON FX-2190


Bom dia !!!

Tenho um programa que roda em uma rede de 03 estacoes W98, e utilizo
impressao matricial usando as funcoes AssignFile() e WriteLn() para gravar
direto para a porta LPT. Funcionava perfeitamente com impressoras Epson
LX300, FX 1050, 2170, 2180, etc tanto localmente como pela rede. Acontece
que o pessoal comprou uma Epson FX 2190 e agora não consigo mais imprimir
localmente. Pela rede consigo mandar uma impressao, mas na maquina que a
impressora esta instalada não sai nada. Alguem teria alguma experiencia ou
solucao para me passar ?

Grato.

Augustus

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos










-- 
 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.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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 em SQL

[Julio Abdala]

Eduardo, tu está equivocado, os comandos não são iguais, repare no sinal de 
percent na consulta, eles estão posicionados de maneira diferente e isto, com 
certeza, traz resultados diferentes.
   
  Entenda que % = qualquer coisa.
   
  No primeiro comando tu está pedindo
  VITORIA + QUALQUER COISA
   
  no segundo tu está pedindo
  QUALQUER COISA + VITORIA + QUALQUER COISA
   
  Sacou a diferença?
   
  Abs.
   
  Júlio Abdala

Eduardo Alves [EMAIL PROTECTED] escreveu:
  Então vc ja sabe a resposta 


Eduardo

-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Eduardo Silva ®
Sent: quarta-feira, 1 de fevereiro de 2006 16:15
To: delphi-br@yahoogrupos.com.br
Subject: RES: [delphi-br] Erro em SQL

Não estão nãorepare no %

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Eduardo Alves
Enviada em: quarta-feira, 1 de fevereiro de 2006 15:28
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Erro em SQL


As duas qry estao iguais

Eduardo

-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On
Behalf Of Eduardo Silva ®
Sent: quarta-feira, 1 de fevereiro de 2006 11:21
To: Grupo Delphi-br
Subject: [delphi-br] Erro em SQL

Galera se eu faço assim

SELECT SIAE0101.CD_CONTATO, SIAE0101.NM_CONTATO, SIAE0101.NM_TELEFONERES,
SIAE0101_01.NM_FILHO
  FROM SIAE0101, SIAE0101_01
WHERE NM_CONTATO like 'VITORIA%'
OR NM_CONJUGE like 'VITORIA%'
OR NM_FILHO   like 'VITORIA%'
   AND SIAE0101.CD_CONTATO = SIAE0101_01.CD_CONTATO

O resultado aparece certo, pois eu tenho somente um nome no campo NM_FILHO
que se chama VITORIA LIMA

Mas se eu faço assim

SELECT SIAE0101.CD_CONTATO, SIAE0101.NM_CONTATO, SIAE0101.NM_TELEFONERES,
SIAE0101_01.NM_FILHO
  FROM SIAE0101, SIAE0101_01
WHERE NM_CONTATO like '%VITORIA%'
OR NM_CONJUGE like '%VITORIA%'
OR NM_FILHO   like '%VITORIA%'
   AND SIAE0101.CD_CONTATO = SIAE0101_01.CD_CONTATO

O resultado vem errado, vem com vários registros, e eu tenho apenas dois
nomes VITORIA, um na tabela SIAE0101_01 e outro na tabela SIAE0101, no campo
NM_CONTATO, cujo nome é BUFFET VITORIA

O que esta acontecendo?

  ____
 /  \ /| |'-.
.\__/ || |   |
_ /  `._ \|_|_.-'
| /  \__.`=._) (_
|/ ._/  ||
|'.  `\ | | Eduardo de Almeida Silva
;/ / | | Kobra Sistemas
) /_/|  |.---.| Desenvolvimento de Software
'  `-` '



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









__ Informação do NOD32 1.1390 (20060201) __

Esta mensagem foi verificada pelo NOD32 Sistema Antivírus
http://www.nod32.com.br




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Não consigo alterar? O que está acontecendo?

[Julio Abdala]

Já aconteceu isto comigo uma vez e era o arquivo .DFM do formulário que estava 
corrompido.
   
  Tive que recriar o form, pra voltar ao normal.
   
  Abs.
   
  Júlio Abdala

Emerson Moreno [EMAIL PROTECTED] escreveu:
  Caros amigos.

Estou com um problema que não estou conseguindo entender. Tenho um
form que fiz uma alteração nele a dois dias atrás, só que quando vou
abrir, em tempo de projeto eu vejo o form como foi alterado, mas
quando executa a alteração não aparacere. Para entender melhor o que
estava acontecendo coloquei um button e quando copilei o button não
apareceu. Já olhei o caminho de onde o form está e está correto, já
excluir e coloquei o form novamente e nada acontece, simplesmente não
consigo fazer nada no form. Será que alguém poderia me dar uma luz.
Pois não não sei o que fazer.

Abraços a todos e muito obrigado.


--
Emerson Moreno
O grande sábio aprende por ensinar!


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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: RES: [delphi-br] Problema Impressão Matric ial em EPSON FX-2190

[Julio Abdala]

está utilizando
   
AssignFile(ArqImp, 'LPT1');
Rewrite( ArqImp );
  WriteLn( ArqImp, 'TEXTO IMPRESSO' );
CloseFile( ArqImp );
   
  
   
  em alguns casos é o buffer maior da impressora que segura a impressão, é 
necessário fechar o arquivo com o CloseFile, caso não dê certo tente salvar o 
relatório em um arquivo e depois copiá-lo para a porta da impressora.
   
  veja se funciona.
   
  Abs.
   
  Júlio Abdala
  



Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
  Caro Julio.

A impressora esta ligada na porta paralela.

Grato.

Augustus

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Julio Abdala
Enviada em: terça-feira, 31 de janeiro de 2006 11:53
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema Impressão Matricial em EPSON FX-2190


esta impressora é usb?
   
  Júlio Abdala

Augustus Otávio Pinto [EMAIL PROTECTED] escreveu:
  Bom dia !!!

Tenho um programa que roda em uma rede de 03 estacoes W98, e utilizo
impressao matricial 
usando as funcoes AssignFile() e WriteLn() para gravar direto para a porta
LPT. Funcionava perfeitamente com impressoras Epson LX300, FX 1050, 2170,
2180, etc tanto localmente como 
pela rede.
Acontece que o pessoal comprou uma Epson FX 2190 e agora não consigo mais
imprimir localmente. 
Pela rede consigo mandar uma impressao, mas na maquina que a impressora esta
instalada não sai nada. Alguem teria alguma experiencia ou solucao para me
passar ?

Grato.

Augustus

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
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








-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006


-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.23/243 - Release Date: 27/01/2006




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Como faria a seguinte pesquisa

[Julio Abdala]

Sistema fonético soundex, não sei se existe no firebird.
   
  Abs.
   
  Júlio Abdala

Leonardo Vinicius Freitag [EMAIL PROTECTED] escreveu:
  Pessoal!

To usando Delphi com Firebird.
Como faço para que o sistema identifique que:
Walter Lima e Valter Lima podem ser a mesma pessoa?

Atenciosamente,


Leonardo Vinicius Freitag






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] aleatoriedade binaria

[Julio Abdala]

Não entendi o que tu deseja fazer. Se não e zero é 1, se não é 1 é zero,
   
  Probabilidade de 50%. Quer prever ou quer randomizar?
   
  Manda detalhes
   
  Júlio Abdala

alxeng2002 [EMAIL PROTECTED] escreveu:
  Caros Colegas


Gostaria de dicas (e/ ou alguma teoria matematica/estatistica) de
como posso prever em uma sequencia binaria (0 e 1) qual será o
proximo, 0 ou 1?!!!  

Qualquer dica será útil..

  Grato,
   
   Alex..





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] OFF TOPIC - AJUDA COM SQL (POR FAVOR)

[Julio Abdala]

no postgresql
   
  select *
  from cliente
  limit 8500
  

Emerson Moreno [EMAIL PROTECTED] escreveu:
  Obrigado a todos que responderam!

Em 30/01/06, Elazar [EMAIL PROTECTED] escreveu:

 Emersom

 No FB

 select first 1 skip 8500 * from cliente

 --

 No mysql use limit 8500 (numero da linha)
 No oracle na clausula where coloque rowid = 8500

 Eduardo

 -Original Message-
 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
 On Behalf Of Emerson Moreno
 Sent: segunda-feira, 30 de janeiro de 2006 14:48
 To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
 Subject: [delphi-br] OFF TOPIC - AJUDA COM SQL (POR FAVOR)

 Caros amigos programadores, peço-lhe desculpas pelo OFF mas estou
 precisando de uma ajudinha. Vamos lá:

   Tenho uma tabela com 8500 registros. Como faço para trazer um
 registro especificado por mim, sendo de o campo é indexado por
 dd/mm/yy hh:mm.
 e pode ter vários registro na base. Porém eu quero determinar o qual
 quero trazer.

 Mais ou menos assim

 SELECT COUNT(*) FROM TABELA

 irá retornar 8512 registros

 Quero dar um select que me traga o registro 8510 por exemplo.

 Não sei como fazer aguardo resposta.

 Muito obrigado a todos.

 --
 []'s

 Emerson Moreno
 O grande sábio aprende por ensinar!


 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



 Links do Yahoo! Grupos









 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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






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



 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





   *Yahoo! Grupos, um serviço oferecido por:*   PUBLICIDADE
 http://br.ard.yahoo.com/SIG=12fgpagvq/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1138657319/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3
 --
 *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][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.




--
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


[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

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

  



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

-
 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 

* 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: RES: [delphi-br] OFF TOPIC - AJUDA COM SQL (POR FAVOR)

[Julio Abdala]

Bah, desculpa mandei o comando errado para postgresql, no post tem o oid
   
  busca por ele
  select * from cliente where oid = 8500
   
  abs
   
  julio abdala

Elazar [EMAIL PROTECTED] escreveu:
  Emersom

No FB

select first 1 skip 8500 * from cliente

--

No mysql use limit 8500 (numero da linha)
No oracle na clausula where coloque rowid = 8500

Eduardo

-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
On Behalf Of Emerson Moreno
Sent: segunda-feira, 30 de janeiro de 2006 14:48
To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
Subject: [delphi-br] OFF TOPIC - AJUDA COM SQL (POR FAVOR)

Caros amigos programadores, peço-lhe desculpas pelo OFF mas estou
precisando de uma ajudinha. Vamos lá:

  Tenho uma tabela com 8500 registros. Como faço para trazer um
registro especificado por mim, sendo de o campo é indexado por
dd/mm/yy hh:mm.
e pode ter vários registro na base. Porém eu quero determinar o qual
quero trazer.

Mais ou menos assim

SELECT COUNT(*) FROM TABELA

irá retornar 8512 registros

Quero dar um select que me traga o registro 8510 por exemplo.

Não sei como fazer aguardo resposta.

Muito obrigado a todos.

--
[]'s

Emerson Moreno
O grande sábio aprende por ensinar!


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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


  

  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Programação OO duvida..

[Julio Abdala]

Geralmente um erro deste ocorre quando o objeto ainda não foi criado na memória 
e se tenta acessá-lo.
   
  Verifique se o dataset já foi criado.
   
  Abs.
   
  Júlio Abdala

Thiago Oliveira [EMAIL PROTECTED] escreveu:
  Mas ainda não deu certo,

Acho que não expliquei direito, o erro não ocorre quando a objeto é
creado... Mas sim quando chamo essa função:


procedure TCadastro_Banco.Get_Values;
begin
  FCodigo.AsInteger  := DataSet.FieldByName('CODIGO').AsInteger;
  FNome.AsString := DataSet.FieldByName('NOME').AsString;
  FEndereco.AsString := DataSet.FieldByName('ENDERECO').AsString;
  FBairro.AsString   := DataSet.FieldByName('BAIRRO').AsString;
  FCidade.AsString   := DataSet.FieldByName('CIDADE').AsString;
  FCep.AsString  := DataSet.FieldByName('CEP').AsString;
end;

Obrigado a todos pelas ajudas...

Thiago


[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

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

  



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

-
 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 

* 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] idSMTP error authentication failed

[Julio Abdala]

olha a propriedade AuthenticanType do componente.
   
  Júlio Abdala

Hudson [EMAIL PROTECTED] escreveu:
  Galera no idSMTP estou error authentication failedalguem sabe o que é?

a duvida é...tenho uma conta paga no Oi internet aonde funciona 
perfeitamente
e outra free tbm no oi internet que ñ funciona e da este erro? pq?

[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

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

  



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

-
 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 

* 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] Problema com Datas

[Julio Abdala]

Eu tenho uma função que rodo no inicio do sistema e evito esse tipo de problema 
em todas as funções de datas que utilizo.
   
  Procedure FazPadraoSistema;
Begin
   DateSeparator   := '/';
   ShortDateFormat := 'dd/MM/';
   DecimalSeparator:= ',';
   ThousandSeparator:= '.';
end;

  
Jônatas Renan [EMAIL PROTECTED] escreveu:
  Oi galera...
gostaria de saber se alguem sabe uma forma rapida de resolver este problema:
quado eu executo um datetostr(algumdia), o delphi retorna uma string que as
vezes
pode ser 99/99/ as vezes varia para 9/99/ as vezes para 99/9/
e também para 9/9/

gostaria que se caso o dia fosse de 1 casa decimal ele retornasse um zero
antes
supondo 1/12/2006 ele deveria retornar 01/12/2006

há alguma função que retorna formatado no padrao 99/99/?
muito obrigado

--
=
  Jônatas Renan - Freaker
MSN: [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

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

  



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

-
 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 

* 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: Mudar Cor Da Célula Da Gri d?= - Anderson Carlos

[Julio Abdala]

Pra desenhar linhas inteiras, segue uma rotina que verifica se existe o campo e 
muda a cor da linha conforme o contéúdo dele.
   
  Procedure DesenhaGrade( grdDados: TDBGrid; const Rect: TRect; DataCol: 
Integer; Column: TColumn;  State: TGridDrawState); // Desenha uma grade 
desenhada
Begin
   If grdDados.Canvas.Brush.Color  clHighlight then
  Begin
  If (grdDados.DataSource.DataSet.FieldList.IndexOf('SITUACAO')  -1) then
 Begin
 If  grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString = 
'Em Vendas' then
grdDados.Canvas.Font.Color:= clBlack
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'Confirmada' then
grdDados.Canvas.Font.Color:= clBlack
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'Vencida' then
grdDados.Canvas.Font.Color:= clRed
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'A Confirmar' then
grdDados.Canvas.Font.Color:= clRed
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'Inválido' then
grdDados.Canvas.Font.Color:= clRed
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'Válido' then
grdDados.Canvas.Font.Color:= clBlack
   else If grdDados.DataSource.DataSet.FieldByName('SITUACAO').asString 
= 'Cancelada' then
grdDados.Canvas.Font.Color:= clGreen
   else
   grdDados.Canvas.Font.Color:= clBlue;
 end;
If (grdDados.DataSource.DataSet.FieldList.IndexOf('DESTAQUEWEB')  -1) 
then
 Begin
 If grdDados.DataSource.DataSet.FieldByName('DESTAQUEWEB').asBoolean 
then
grdDados.Canvas.Brush.Color := $00C4;
 end;
grdDados.Canvas.FillRect(Rect);
  grdDados.DefaultDrawDataCell(Rect, grdDados.columns[datacol].field, 
State);
  end;
end;

   
  Júlio Abdala

Cleiton [EMAIL PROTECTED] escreveu:
  Oi Anderson...

O que você me passou funcinou perfeitamente. Muito obrigado pela 
colaboração.

No entanto, tem mais um detalhezinho: no exemplo que você passou fica 
pintado apenas uma célula da grid. Eu gostaria que fiasse pintada todas as 
colunas daquela linha e nao apenas a primeira coluna.

É possível fazer assim?

- Original Message - 
From: Anderson Carlos [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 20, 2006 10:22 AM
Subject: Re: [delphi-br] Mudar Cor Da Célula Da Gri d?=


É possível sim
  Você pode fazer assim

  Exemplo:

  procedure TForm1.GridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  Grid.Canvas.font.Color:= clBlack; //aqui é definida a cor da fonte
  if gdSelected in State then
begin
 with Grid.Canvas do
  begin
Brush.Color:=clMoneyGreen; //aqui é definida a cor do fundo
FillRect(Rect);
  end;
end;
Grid.DefaultDrawDataCell(Rect, Grid.columns[datacol].field, State);
end;


Cleiton [EMAIL PROTECTED] escreveu:
  Olá pessoal ...

Faço uma pesquisa em um DBGrid usando locate no envento OnChange do 
componente edit.

Gostaria que no momento em que o locate encontra o valor pesquisado, que 
mudasse a cor da célula do DBgrid que passa a ficar em foco no momento da 
pesquisa.

É possível fazer isso? E se for, como deveria fazer? Alguém poderia me 
ajudar?

Desde já agradeço a colaboração de todos.
-- 
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.



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



-- 


-- 
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Erro Out of Memory Delphi 6

[Julio Abdala]

Eu também tenho este problema, mas no delphi 7, 
   
  dá erro, trava em alguma bpl e vez por outras não fecha o delphi.
   
  ´se souberem de algo me deêm retorno.
   
  Abs.
   
  Júlio Abdla

Leandro [EMAIL PROTECTED] escreveu:
  Pessoal,

Uso Delphi 6 e em alguns programas maiores, quando vou compilar, aparece um
erro de Out of Memory no proprio Message View do delphi (onde mostra os
erros normalmente) . Aí nao deixa salvar, nem compilar nem nada. Qdo fecho o
delphi,
aparece um Access Violation na NTDLL.DLL (uso Win2000).

Aí se eu entrar no Delphi e compilar ele funciona.

Não é falta de memoria, já que há memoria RAM sobrando, quando vejo na parte
de Desempenho
do 2000.
Tb nao é falta de disco, pq tem mais de 1GB livre.

Às vezes o erro muda, e aparece algo do tipo error alocating memory for
stream...

Alguem sofre com esse problema tambem e teria uma luz?

Obrigado,

Leandro



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] Esvaziar query

[Julio Abdala]

Usa o comando delete do sql.
   
  Delete from tabela tal

Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:
  
Ei, companheiro! Não existe método EmptyTable() em Query!
Sds.

From: plucaslazaro [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Esvaziar query
Date: Tue, 24 Jan 2006 10:31:36 -0200

ola meu amigo,

se a sua intenção é zerar todos os dados da tabela que vc esta utilizando
use:

Query.EmptyTable;
IBOTransaction.Commit;

Paulo








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


_
MSN Messenger: converse com os seus amigos online. 
http://messenger.msn.com.br



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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: RES: [delphi-br] Aplicação em memoria

[Julio Abdala]

Use a seguinte rotina no source da aplicação (observe que coloquei 'Delphi 7' 
porque uso ele e quero poder debugar o programa usando a ide dele. (ele 
localiza a janela do aplicativo já na memória quando se está na ide.
   
  Var
   Handle1, Handle2 :Word;
begin
  Application.Initialize;
  Application.Tag:= 0;
  If FindWindow( Nil, 'Delphi 7')  0 then
 Handle1:= 0
  else
 Handle1:= FindWindow( Nil, 'TITULO DA JANELA');

If (Handle1  0) then
 Begin
 Handle2:= GetWindow(Handle1, GW_OWNER);
 ShowWindow(Handle2, SW_HIDE);
 ShowWindow(Handle2, SW_RESTORE);
 SetForegroundWindow(Handle1);
 end
else
 Application.Run;
  
  Application.Terminate;

Julio Abdala
Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
  Bruno, aquela função que vive zanzando nas listas faz isto não? Aquela de
não deixar voce abrir uma nova instância do mesmo aplicativo. Basta voce
alterar lá pra por o nome da janela que voce está procurando na memória.

var
   AuxJanela: HWND;

begin
  //
  CreateMutex(nil, False, 'DMFrot');
  //
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
MessageDlg('Este programa já está sendo executado. Verifique se o mesmo
não está minimizado ou então pressione Ctrl+Alt+Del e verifique na lista de
tarefas se o mesmo se encontra nela.', mtError, [mbOk], 0);
AuxJanela := FindWindow ('TDMFrot','DMFrot');
if AuxJanela  0 then PostMessage(AuxJanela, SW_MAXIMIZE,0,0);
//Halt(1); // O programa já está sendo executado
  end
  else

[]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 Bruno Lichot - Micrologos
Enviada em: quinta-feira, 26 de janeiro de 2006 16:10
Para: [EMAIL PROTECTED]
Cc: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Assunto: [delphi-br] Aplicação em memoria


Salve galera!!!

Alguem poderia me dar uma dica de como saber se uma aplicação(executavel)
esta executando em memoria?

desd ja obrigadu

[]´s
Bruno Lichot
Micrologos Dream Team
Equipe Editorial ClubeDelphi DevMedia

[EMAIL PROTECTED]
[EMAIL PROTECTED]

www.micrologos.com.br - www.clubedelphi.net - www.dugrj.com.br

[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 





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

  



-
 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 

* 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] ---IdMessage duvida

[Julio Abdala]

IdMessage1.contentType = 'Html/Text';
   
  Júlio Abdala
  

Hudson [EMAIL PROTECTED] escreveu:
  Ola!
gente estou tentando enviar email usando IdMessage e o IdSMTP com o formato 
HTML assim

IdMessage1.Body.Add('htmlhead/headbodyh1teste/h1/body/html');

mas quando a recebo ela chega assim:

htmlhead/headbodyh1teste/h1/body/html

alguem sabe corrigir isso?

grato!

[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

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

  



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

-
 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 

* 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: RES: [delphi-br] Re: OFF-TOPIC Valor Cód igo Fonte

[Julio Abdala]

Direito de comprar códigos fontes ele não possui, observem o seguinte:
   
  Vc desenvolveu o sistema no computador dele?
  A licença do Delphi para o desenvolvimento é dele?
  Vc cumpriu horário na empresa dele para desenvolvimento?
  Vc utilizou algum recurso da empresa dele para desenvolvimento?
  Ele escreveu (formalizou) alguma determinação para alguma rotina do sistema e 
ordenou que ela se realizasse desta forma (subordinação e não prestação de 
serviço)?
   
  e o mais importante
   
  Vc assinou algum contrato dizendo que ele poderia adquirir os fontes do 
sistema?
   
  Se alguma das respostas acima foi não, qualquer juiz irá dar o direito dos 
fontes para o desenvolvedor, caso contrário, você seria considerado um 
empregado e tem a obrigação de dar de graça os fontes para a empresa. 
   
  Senão, você pode vender se quizer e pedir o que entender, porém um valor 
absurdo poderia gerar um processo judicial, onde ele pode te acusar de negar-se 
a revelar algum procedimento crucial para a empresa dele, etc..., até algum 
direito de consumidor poderia entrar em pauta.
   
  Motivos pra processo é o que não vai faltar, os juizes têm obrigação de 
aceitar processos pra depois discutir se é legítimo ou não.
   
  Espero ter ajudado.
   
  Júlio Abdala

Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
  Com o mais profundo respeito que o nobríssimo colega merece, mas que
advogado é esse que disse isso pra você??

[]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 Francisco Trindade
Enviada em: terça-feira, 24 de janeiro de 2006 20:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Re: OFF-TOPIC Valor Código Fonte


Um pequeno detalhe juridico, mas o valor cobrado nao pode ser um valor
absurdo.
Foi o que o meu advogado me disse, pq parece que esta nos direitos do teu
cliente comprar o codigo-fonte, e tu nao pode impossibilitar a compra.


[]´s
Francisco


On 1/24/06, Denny [EMAIL PROTECTED] wrote:

 Gerson.



 Concordo com o Eduardo, vc deve cobrar os custos do desenvolvimento, com
 se
 vc estivesse trabalhando para ele, com funcionário, que não deixa de ser.
 Vc
 calcula as horas gastas no projeto, desenvolvimento e testes, multiplica
 pelo valor hora de um analista de sistemas ou engenheiro de software em
 sua
 região. Em alguns locais a hora de consultoria é R$ 90,00, porntanto não
 dá
 pra generalizar, use o valor de mão-de-obra de sua região é mais justo e
 honesto.



 Outra forma é vc projetar quando ganharia com a venda do produto na sua
 região de atuação e cobrar do cara, é um calculo que envolve o valor
 comercial do fonte.



 São duas opções: custo de projeto e desenvolvimento ou valor comercial.





   _

 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
 nome de Weber Luvisa
 Enviada em: terça-feira, 24 de janeiro de 2006 15:52
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Re: OFF-TOPIC Valor Código Fonte



 faz o seguinte amigo, Joga um valor sobre o que vc pediu exemplo: se
 era para ser 2.500,00 aumente para 5.000,00 ou o quanto vc acha que
 vai perder em não vender para outras locadoras, se ele reclamar diga
 que o preço e em função de ser um produto apenas para ele.. imagine se
 ele for na FORD e pedir um carro personalisado.. Quanto não irá custar
 30 * mais que um normal ??



 --- Em delphi-br@yahoogrupos.com.br, Eduardo Alves [EMAIL PROTECTED]
 escreveu
 
  Simples, $45,00 * ( (dias desenvolvendo) * 8 ) e pronto.
 
  Uma consultoria cobra de 40 a 50 reais por analista de sistemas.
 
  Cobre o mesmo, quero ver se ele vai ter bala na agulha. Alguns
 empresarios (acreditem), dizem q somos prestadores de servico e nao
 temos custo, qualquer valor q vc passar ele vai achar caro.
 
  Eduardo
 
  -Original Message-
  From: delphi-br@yahoogrupos.com.br
 [mailto:[EMAIL PROTECTED] On Behalf Of Gerson Thomaz Santos
  Sent: terça-feira, 24 de janeiro de 2006 13:36
  To: Delhpi-BR
  Subject: [delphi-br] OFF-TOPIC Valor Código Fonte
 
  GeleiraCaros amigo, Boa Tarde..
 
  sei que vai gerar muuuita discussão, por isso ja joguei como OFF
   rsrsrs
 
  Imaginem o seguinte:
 
  O Cliente me pediu um Cadastro de Locadora, com inteligencias, tipo,
 Mala direta automática, Leitor de código de barras, envio de email
 para lembrar clientes em atrazo, programação de locação, Relocação com
 valor fracionado, etc, etc, etc, etc...
 
  digamos que cobrarei  R$  2.500,00  pelo sistema, pronto, instalado
 e rodando.
 
  Ai ele me chega e pede os FONTES (Fato consumado)
 
  Vem a bucha:  Alguem tem uma média de quantas vezes o valor do
 produto cobrar, tipo, 5 vezes, 10 vezes, ou uma Formula mágica (essa
 foi boa)  rsrsrs  tipo, ((valor do produto * 10) / 8) + 10 %..
 
  Pra simplificar, pois sei que muitos 

Re: [delphi-br] Resetar LX 300

[Julio Abdala]

eis uma função dos comandos.
   
  Function ComandoImpressora( sComando :String ) :String; // envia comandos 
para a impressora
Begin
   If sComando = 'RESETA' then
  Result:= chr(27)+chr(64)  // Inicializa a impressora
 else If sComando = '1/8' then
  Result:= chr(27)+chr(48)  // 1/8  0,125
 else If sComando = '1/6' then
  Result:= chr(27)+chr(50)  // 1/6  0,1667
 else If sComando = 'EJETA' then
  Result:= chr(12) // Salta uma página
 else If sComando = 'JUSTIFICADO' then
  Result:= chr(27)+chr(97)+chr(51)
 else If sComando = '18CPI' then
  Result:= chr(18)
 else If sComando = '12CPI' then
  Result:= chr(27)+chr(77)
 else If sComando = '17CPI' then
  Result:= chr(15)
 else If sComando = 'IEXPANDIDO' then
  Result:= chr(14)
 else If sComando = 'FEXPANDIDO' then
  Result:= chr(20)
 else If sComando = 'INEGRITO' then
  Result:= chr(27)+chr(71)
 else If sComando = 'FNEGRITO' then
  Result:= chr(27)+chr(72)
 else If sComando = 'IITALICO' then
  Result:= chr(27)+chr(52)
 else If sComando = 'FITALICO' then
  Result:= chr(27)+chr(53);
end;

  Júlio Abdala

Leandro [EMAIL PROTECTED] escreveu:
  Pessoal, obrigado pelas respostas...

vou estar testando aqui...

Leandro

- Original Message - 
From: Pedro Vagner Rossi [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, January 24, 2006 8:21 AM
Subject: Re: [delphi-br] Resetar LX 300


Olá

Chr(27)+Chr(64)

este é o único comando de reset que conheço.
Algo mais específico, sugiro que vc acesso o site da epson e faça o dowload
dos manuais.

[]'s
Pedro

[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 





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

  



-
 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 

* 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] ---IdMessage duvida

[Julio Abdala]

Cara, verifica o item contentType do componente, ele tem que estar setado para 
'html/text'. e cuidado com os anexos, geralmente atrapalham a interpretação do 
conteúdo.
   
  Abs.
   
  Júlio Abdala

Oséias Ferreira [EMAIL PROTECTED] escreveu:
  -BEGIN PGP SIGNED MESSAGE-
Hash: SHA1



Hudson escreveu:
 Ola!
 gente estou tentando enviar email usando IdMessage e o IdSMTP com o formato 
 HTML assim
 
 IdMessage1.Body.Add('htmlhead/headbodyh1teste/h1/body/html');
 
 mas quando a recebo ela chega assim:
 
 htmlhead/headbodyh1teste/h1/body/html
 
 alguem sabe corrigir isso?

Assim não funciona, pois no corpo da mensagem só vai texto sem formatação.
Você precisa criar partes, para uma mensagem html.

var
idAttach: TidAttachment;
IdHtml, idText: TidText;
p: TidMessageParts;
slBody: TStringList;

begin
  p := IdMessage1.MessageParts;
  slBody := TStringList.Create;

  idText := TidText.Create(p);
  idText.ContentType := 'text/plain';
  idText.Body.Text := 'Aqui vai o texto sem formatação';

  slBody.add('htmlbodyh1test/h1/body/html');
  IdHtml := TidText.Create(p, slBody);
  IdHtml.ContentType := 'text/html';
  IdMessage1.Body.Assign(slBody);

//...


- --
Oséias Ferreira.oseiasferreira (arroba) yahoo.com.br
  Linux counter #333243
  GPG/PGP: 0x60084245
  fingerprint: B1A2 81EF 0560 66D3 8B22 1BC0 1CA6 0374 6008 4245

-BEGIN PGP SIGNATURE-
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org

iD8DBQFD2ONsHKYDdGAIQkURAoadAKCIQtrbdx+VB4lTU1Pxe4+LrV6KAQCeODEm
SmjX8FCkos5lkxRlezyFCw0=
=qndS
-END PGP SIGNATURE-

  

  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



-
 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 

* 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] Zeos nao tem FindNearest

[Julio Abdala]

Usa a função locate
   
  query1.Locate('campo',valor,[])
   
  Júlio Abdala

Alfredo Brandes [EMAIL PROTECTED] escreveu:
  ola

O componente ZTable nao possui a função FindNearest, como o TTable tem...

Alguem conhece alguma maneira de se obter uma função que faça mais ou menos 
a mesma coisa? e que tbm funcione em Querys?

Alfredo Brandes 



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



-
 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 

* 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 urgente!!!

[Julio Abdala]

100% de chance que seja roteamento.
  

Alencar - Philler Informatica [EMAIL PROTECTED] escreveu:
  Em 23/01/06, Hudson[EMAIL PROTECTED] escreveu:
 este funcionava corretamente, mas com instalações de mais maquinas na empresa 
 tive q rotiar o modem

 a messagem de erro e esta:
 raised exception class EidSocketError with message 'Socket Erro # 10061 
 connection refused' process stopped.


Tem jeito de ser alguma regra de firewall faltando.
Como funcionava local e porou apos roteamento, pode ser por ai.


Alencar
---
Philler Informatica Ltda
Jose Alencar Philereno
 ICQ 13458351
Messenger/Skype (voz): alencar

Feliz aquele que transfere o que sabe
e aprende o que ensina Cora Coralina


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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] [OFF-TOPIC] OO - métodos p úblicos

[Julio Abdala]

Concordo,
   
  neste caso, gerardados deveria ser privado.
   
  Júlio Abdala

Francisco Trindade [EMAIL PROTECTED] escreveu:
  Se eles sao publicos, entao o ideal eh que eles possam ser chamados a
qualquer momento, ja que nao seu caso, a chamada dos mesmos na hora errada
pode causar erros no programa.

O melhor seria fazer um metodo publico de nivel mais alto, que chamasse
tanto gerardados como calcular, sendo estes privados.

Espero ter ajudado,

[]´s
Francisc



On 1/24/06, Marcos Douglas [EMAIL PROTECTED] wrote:

 Depois de uma discussão com alguns colegas, gostaria de opinião de vcs
 sobre
 um assunto relacionado a Orientação a Objetos:

 Posso ter, em uma classe qualquer, um ou mais métodos PÚBLICOS que antes
 de
 serem utilizados outros métodos devem ser chamados?

 Ex:
   TXpto = class
   private
 fDados: TDataSet;
   public
 function calcular: currency;
 procedure gerarDados;
   end;

 O método calcular, precisa do DataSet fDados, gerado pelo método
 gerarDados. Neste caso, o programa não poderia chamar o método calcular
 ANTES de chamar o método gerarDados.

 Espero ter explicado de maneira satisfatória.

 []'s
 Marcos Douglas
 www.marcosdouglas.com





 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





   *Yahoo! Grupos, um serviço oferecido por:*   PUBLICIDADE
 http://br.rd.yahoo.com/SIG=12fqc81ia/M=393477.7870451.8719931.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1138142511/A=3254979/R=0/id=noscript/SIG=12k5j3olb/*http://www.momentumquiz.com.br/index.php?md5ref=372BBEE98E9544bd8B2F9E87847EEEBE_3
 --
 *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][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.




--
--
Francisco Trindade


[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

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

  



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

-
 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 

* 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: RES: [delphi-br] OFF-TOPIC Valor Código Fonte

[Julio Abdala]

Eu cobro 2,5 o valor da licença vezes o número de máquinas instaladas
   
  Júlio Abdala

Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu:
  Nao pode é assinar um contrato de exclusividade

[]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 José Henrique (Zote)
Enviada em: terça-feira, 24 de janeiro de 2006 13:57
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] OFF-TOPIC Valor Código Fonte
Prioridade: Alta


Podes ver quanto custa por hora (mão de obra, água, luz, telefone, internet,
aluguel, máquinas, papel, etc), e multiplicar pela quantidade de horas.
E depois, ainda colocar algum % de lucro.

(...) nem alguns recursos de inteligências que foram idéias dele...

Talvés, dependendo o que foi acordado, não vais poder utilizar os fontes que
foram feitos pra ele, mas o conhecimento sim, mesmo pq, isso ele não tem
como te tirar...

--
José Henrique (Zote)

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Gerson Thomaz Santos
Enviada em: terça-feira, 24 de janeiro de 2006 14:36
Para: Delhpi-BR
Assunto: [delphi-br] OFF-TOPIC Valor Código Fonte

GeleiraCaros amigo, Boa Tarde..

sei que vai gerar muuuita discussão, por isso ja joguei como OFF
rsrsrs

Imaginem o seguinte:

O Cliente me pediu um Cadastro de Locadora, com inteligencias, tipo, Mala
direta automática, Leitor de código de barras, envio de email para lembrar
clientes em atrazo, programação de locação, Relocação com valor fracionado,
etc, etc, etc, etc...

digamos que cobrarei  R$  2.500,00  pelo sistema, pronto, instalado e
rodando.

Ai ele me chega e pede os FONTES (Fato consumado)   

Vem a bucha:  Alguem tem uma média de quantas vezes o valor do produto
cobrar, tipo, 5 vezes, 10 vezes, ou uma Formula mágica (essa foi boa)
rsrsrs  tipo, ((valor do produto * 10) / 8) + 10 %..

Pra simplificar, pois sei que muitos iam colocar:  Tu poderia explorar
depois, vender pra outros, etc, o ambiente é:

Ele quer os fontes pra ele, e eu não poderei utilizar os fontes pra outro
sistema como o citado, nem alguns recursos de inteligências que foram idéias
dele...

Abração e grato á todos.


Atenciosamente,
Gerson Thomaz Santos
Analista de Sistema


Esta mensagem pode conter informação confidencial e/ou privilegiada.  Se
você não for o destinatário ou a pessoa autorizada a receber esta mensagem,
não pode usar, copiar ou divulgar as informações nela contidas ou tomar
qualquer ação baseada nessas informações.  Se você recebeu esta mensagem por
engano, por favor avise imediatamente o remetente, respondendo o e-mail e em
seguida apague-a.  Agradecemos sua cooperação.





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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 



Links do Yahoo! Grupos







Received: (qmail 83438 invoked by uid 0); 24 Jan 2006 14:38:57 -0200
Received: from 66.94.237.43 by poseidon.bludata.com.br (envelope-from
[EMAIL PROTECTED]
, uid 0) with qmail-scanner-1.25 
(clamdscan: 0.85/974. spamassassin: 3.0.2.  
Clear:RC:0(66.94.237.43):SA:0(-2.4/5.0):. 
Processed in 5.16847 secs); 24 Jan 2006 16:38:57 -
X-Qmail-Scanner-Mail-From:
[EMAIL PROTECTED]
via poseidon.bludata.com.br
X-Qmail-Scanner: 1.25 (Clear:RC:0(66.94.237.43):SA:0(-2.4/5.0):. Processed
in 5.16847 secs)
Received: from unknown (HELO n9a.bullet.scd.yahoo.com) (66.94.237.43)
  by poseidon.bludata.com.br with SMTP; 24 Jan 2006 14:38:51 -0200
Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys
DomainKey-Signature: a=a-sha1; q=s; c=fws; s=tel; d=hoogrupos.com.br;
  
b=gJLqSAG5wBHWeNDEuPMIUVcdDpf0/LlRNOsb2Ia+jvB/oYIpJp/8dZsM+SlKSbdBvREFdrgT40
pwunA6BLryD6kdktNLPxPhTZ3f/++E/88rDhsRbAQM+ufj1BEhcL;
Received: from [66.218.66.58] by n9.bullet.scd.yahoo.com with NNFMP; 24 Jan
2006 16:38:43 -
Received: from [66.218.66.36] by t7.bullet.scd.yahoo.com with NNFMP; 24 Jan
2006 16:38:42 -
X-Yahoo-Newman-Property: groups-email
X-Sender: [EMAIL PROTECTED]
X-Apparently-To: delphi-br@yahoogrupos.com.br
Received: (qmail 63313 invoked from network); 24 Jan 2006 16:38:40 -
Received: from unknown (66.218.66.216)
  by m30.grp.scd.yahoo.com with QMQP; 24 Jan 2006 16:38:40 -
Received: from unknown (HELO wproxy.gmail.com) (64.233.184.199)
  by mta1.grp.scd.yahoo.com with SMTP; 24 Jan 2006 16:38:40 -
Received: by wproxy.gmail.com with SMTP id i11so2420649wra
for delphi-br@yahoogrupos.com.br; Tue, 24 Jan 2006 08:38:40 -0800
(PST)
Received: by 10.54.132.8 with SMTP id f8mr206312wrd;
Tue, 24 Jan 2006 08:38:40 -0800 (PST)
Received: from Gerson ( [200.193.20.78])
by mx.gmail.com with ESMTP id d6sm8843890wra.2006.01.24.08.38.33;
Tue, 24 Jan 2006 08:38:39 -0800 (PST)
Message-ID: [EMAIL PROTECTED]
To: Delhpi-BR 

Re: [delphi-br] Esvaziar query

[Julio Abdala]

Use comando SQL
   
  Delete from tabletal
   
  ou 
   
  Truncate tabletal,
   
  mas cuidado com estes comandos
   
  Júlio Abdala

plucaslazaro [EMAIL PROTECTED] escreveu:
  ola meu amigo,

se a sua intenção é zerar todos os dados da tabela que vc esta utilizando 
use:

Query.EmptyTable;
IBOTransaction.Commit;

Paulo




  

  

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



-
 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 

* 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] troca do tab pelo enter ?

[Julio Abdala]

Seta propriedade keypreview do formulário para true
   
  e coloca esta função no evento onkeypress  do formulário
   
 EnterIsTab( Sender, Key );

  a função faz o seguinte:
   
  Procedure EnterIsTab(Sender :TObject; Var Key :Char);
// Muda Enter Por Tab
begin
   If key = #13 then
  Begin
  key := #0;
  If (Sender is TDBGrid) then
 TdbGrid(sender).Perform(WM_KeyDown,Vk_Tab,0)
else If (Sender is TDBMemo) then
 TControl(Sender).Perform(CM_DialogKey,Vk_RETURN,0)
else If (Sender is TMemo) then
 TControl(Sender).Perform(CM_DialogKey,Vk_RETURN,0)
else
 TControl(Sender).Perform(CM_DialogKey,VK_TAB,0);
  end;
end;


  Abs
   
  Júlio Abdala
barblo25 [EMAIL PROTECTED] escreveu:
  Pessoal,


   Coloquei em um form 3 edit e um button, pra fazer o exemplo da 
troca do tab pelo enter e no button coloquei pra chamar outro form. 
Ate ai tudo certo, mas eu perco o poder das setas de navegacao pra 
cima e pra baixo, ele fica preso. Como devo proceder nesse caso e como 
faco pra suprimir o som do enter. O codigo esta abaixo

procedure Tform1.MudarComEnter(Var Msg:TMsg;Var handled:Boolean);
begin
  if Msg.message=WM_KEYDOWN then
begin
  Case Msg.wParam of
  VK_RETURN, VK_DOWN: Keybd_event(VK_TAB,1,0,0);
  end;
end;
end;






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





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

  



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

-
 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 

* 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