Olá Rodrigo!

Tente colocar este código no BeforePrint da banda onde está o s:

    if (dtm.dsn_cred.DataSet.FieldValues['des_status'] = 0 ) then
      s.Caption := '+'
    else
      s.Caption := '-';

Veja se isto resolve seu problema.

Abraços,
Ana

----- Original Message -----
From: "Rodrigo Mota" <[EMAIL PROTECTED]>
To: "[EMAIL PROTECTED] Com. Br" <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, June 08, 2005 11:44 AM
Subject: [delphi-br] Mudar sinal


Estou com um pequeno problema no código, isso no quickreport.
Quando gero um relatório e tem os valores e tal tem números que são
créditos e outros débitos
No banco de dados não estou gravando como sendo negativo.


O que preciso:

Quando des_status = 0  sai s.caption = '+';
Quando des_status = 1  sai s.caption = '-';

O problema é que ele fica sempre na mesma lisnha, tentei colocar NEXT e
tb não passou o próximo registro

O código está no (Tprint_cred_deb.QuickRep1BeforePrint)

for i := 0 to dtm.tb_cred.RecordCount do
  begin
    if (dtm.dsn_cred.DataSet.FieldValues['des_status'] = 0 ) then
    begin
      s.Caption := '+';
    end else
    begin
      s.Caption := '-';
    end;


Rodrigo Mota



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



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos









Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 07/06/2005 / Versão: 4.4.00 -
Dat 4508
Proteja o seu e-mail Terra: http://mail.terra.com.br/






-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

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

 


Responder a