quando for assim é so vc ir no field da data e configurar em displayformat =
dd/mm
ou query.fieldbyname('data').displayformat = 'dd/mm';
qualquer data em formato dd/mm/ é tranformado como vc quiser no display
nesse caso dd/mm
funciona , simples e limpo.
- Original Message -
From: Jorge Ericsson
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, December 13, 2007 12:26 AM
Subject: Re: [delphi-br] Urgente (Exibir Dia e Mês do Aniversariante no
QuickReport)
Problema Resolvido:
Apenas coloquei um Componente TQRExpr e Atribui o valor da Query ao mesmo.
Segue instrução adicionada ao ONPrint
Procedure TForm.QRExpr1Print(sender: TObject; var Value: String);
begin
Value := ADOQueryTemplate.FieldbyName('Nascimento').AsString;
if Value = Copy(DateToStr(Now),1,5) Then
begin
QRExpr1.Font.Style := [fsBold];
QRExpr1.Font.Color := clBlue;
end else
begin
QRExpr1.Font.Style := [];
QRExpr1.Font.Color := clBlack;
end;
end;
Em 12/12/07, Jorge Ericsson [EMAIL PROTECTED] escreveu:
Eu já fiz isso amigo, o problema esta na ordenação, pois ele ordena o data
01/01/2000 e não 01/11.
Mas valew pela dica...
Em 12/12/07, Alcistemas Informática [EMAIL PROTECTED] escreveu:
Quer um conselho, deixa a data no field normal 01/11/2000
porém no mask do componente digite assim: DD/MM
E só.
- Original Message -
From: Jorge Ericsson
Sent: Wednesday, December 12, 2007 12:21 PM
Subject: [delphi-br] Urgente (Exibir Dia e Mês do Aniversariante no
QuickReport)
Olá pessoal,
Eu uso D7+ADO+MySql e preciso exibir no relatório apenas o DIA/MES do
aniversariante e estou usando a instrução abaixo:
SELECT nom_membro as Membro, dta_nascimento as Nascimento,
CONCAT(extract(day from dta_nascimento), '/', extract(month from
dta_nascimento)) as DiaMes,
des_congregacao
FROM TB_SGI_MEMBROS MEMBROS
INNER JOIN TB_SGI_CONGREGACAO CONGREGACAO ON CONGREGACAO.COD_CONGREGACAO=
MEMBROS.COD_CONGREGACAO
WHERE MONTH(DTA_NASCIMENTO) = :prMes AND COD_SITUACAO IN (1,3,8)
ORDER BY 4, 3
O problema é que esta gerando um código VARBYTES no campo e não o valor
concatenado da data, se eu coloco o campo Nascimento os dados são
exibidos
corretamente.
Alguém já passou por isso ?
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]