Oi Ruben
Na verdade acho que esqueci tudo sobre Delphi
Na query eu quero pegar a soma dos campos e colocar numa label
Não achei que teria tanta dificuldade.
Segundo o Help a sintax seria;
FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits:
Integer): string; overload;
E eu coloquei assim na rotina
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT SUM(CASE WHEN (OPERACAO = ''D'') THEN -1 *
VALORMOVIMENTO WHEN (OPERACAO = ''C'') THEN VALORMOVIMENTO END) AS lblSaldo1
FROM CONTROLECAIXA');
IBQuery1.Prepare;
IBQuery1.Open;
lblValor1.Caption:=floattostr(IBQuery1.FieldByName('lblValor1').ASFloat);
IBQuery1.Close;
Agradeço a ajuda
Jenifer
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 31 de março de 2006 08:21
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: [delphi-br] Funcao floatToStrF
Prioridade: Alta
Jenifer, qual é o erro exatamente? Tenho quase certeza de que vc está
esquecendo de passar mais um parâmetro pra função FloatToStrF. Já olhou no
help?
Sds.
>From: "Jenifer" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: [delphi-br] Funcao floatToStrF
>Date: Fri, 31 Mar 2006 08:12:42 -0300
>
>Oi gente,
>
>
>
>Poderiam me ajudar não sei o que estou fazendo de errado mas da erro na
>funcao floattostrf.
>
>
>
>Agradeço ajuda
>
>
>
>Jenifer
>
>
>
> IBQuery1.SQL.Clear;
>
> IBQuery1.SQL.Add('SELECT SUM(CASE WHEN (OPERACAO = ''D'') THEN -1 *
>VALORMOVIMENTO WHEN (OPERACAO = ''C'') THEN VALORMOVIMENTO END) AS
>lblSaldo1
>FROM CONTROLECAIXA');
>
> IBQuery1.Prepare;
>
> IBQuery1.Open;
>
> IBQuery1.Close;
>
>
>lblValor1.Caption:=FloatToStrF(IBQuery1.FieldByName('lblSaldo1').AsFloat,
>ffCurrency , 2);
>
>
>
>[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 >>>>>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do <http://br.yahoo.com/info/utos.html> Yahoo!.
[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
