Luciano , como vc esta fazendo para imprimir o relatorio... as vezes é 
o tipo de fonte que vc esta usando... exemplo...

        IMPVAL ( Linha, Coluna , '###,##0.00' , Valor , [ aki é o tipo de 
fonte, normalmente eu uso o comp12 , comp17 e ai por adiante ] );

        Wesley


From: Luciano Calenzani Simões 
Sent: Monday, June 02, 2008 8:06 AM
To: delphi-br@yahoogrupos.com.br 
Subject: Res: [delphi-br] RdPrint


O seu problema não é o RDPrint e sim sintaxe SQL.

Vamos lá:

SELECT data, conta, documento, 
(CASE WHEN valor > 0 THEN 0 ELSE valor END) valor_debito, 
(CASE WHEN valor <= 0 THEN 0 ELSE valor END) valor_credito,
FROM lancamento
WHERE codcliente = 1

Assim você terá duas colunas de valor, uma para débito e outra para crédito.

Luciano Calenzani Simões

----- Mensagem original ----
De: Ioney Hotmail <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Domingo, 1 de Junho de 2008 14:16:08
Assunto: [delphi-br] RdPrint

Boa Tarde Pessoal,

Eh o seguinte, eu estou desenvolvendo um programa de Contabilidade e estou com 
duvida no quisito relatorio, especificamente o de LOTE.
No relatorio o menu dele eh esse

DATA CODRED DOC HISTORICO VALOR DEB VALOR CRED
-------- ------------ -- ------- ------------ ----- ------------ ------ 
------------ ---------

Pois bem, fiz essa consulta

select DATA, CODRED, DOCUMENTO, VALOR AS VALORDEB, VALOR AS VALORCRED, 
HISTORICO,HISTORICO C from Lancamentos L join DetLancamentos D
on D.ContraPartida = L.ContraPartida
WHERE D.cliente = 1

so que ela nao separa VALOR DEB de VALOR CRED

COMO FACO PRA SEPAR OS VALORES

OBS: EXISTE UM CAMPO NA TABELA LANCAMENTO CHAMDO 'CD' ONDE EU DIGO QUEM EH 
CREDITO E QUEM EH DEBITO

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

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



 

__________ Information from ESET NOD32 Antivirus, version of virus signature 
database 3151 (20080602) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


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

Responder a