Data

Delphi

27/02/2003

Como configuro o QRSysData do Qreport (ou se tiver outro modo), com o formato de cidade, 26 de fevereiro de2003.
Está aparecendo 26/02/03.


Consorte

Consorte

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

27/02/2003

Como configuro o QRSysData do Qreport (ou se tiver outro modo), com o formato de cidade, 26 de fevereiro de2003. Está aparecendo 26/02/03.


Coloque algo assim no OnPrint do QRSysData:

procedure TForm1.QRSysData1Print(sender: TObject; var Value: String);
begin
Value := FormatDateTime(´"Goiânia," dd "de" mmmm "de" yyyy´,StrToDate(Value));
end;



GOSTEI 0
Fred

Fred

27/02/2003

Tente fazer o seguinte: coloque um qrlabel ao inves do sysdata

faça assim qrlabel1.caption := formatdatetime(´ddddd´,Date) 8)


GOSTEI 0
Consorte

Consorte

27/02/2003

Como configuro o QRSysData do Qreport (ou se tiver outro modo), com o formato de cidade, 26 de fevereiro de2003.
Está aparecendo 26/02/03.


GOSTEI 0
Lfernandos

Lfernandos

27/02/2003

Vc pode tentar usar o QRLabel ao invés do QRSysData, e usar o seguinte código, mas use o código no evento BeforePrint da Relatório.

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
QRLabel1.Caption := FormatDateTime(´´Goiânia,´ dd ´de´ mmmm ´de´ yyyy´,Now);
end;



Não sei se resolve o seu problema.


GOSTEI 0
Consorte

Consorte

27/02/2003

Até agora não consegui com nenhumas dos exemplos, em qual banda devo coloca-la.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

27/02/2003

Como configuro o QRSysData do Qreport (ou se tiver outro modo), com o formato de cidade, 26 de fevereiro de2003. Está aparecendo 26/02/03.

[b:a3d52607f4]
Coloque algo assim no OnPrint do QRSysData:

Se não conseguir, me manda o formulário que eu devolvo resolvido.

[/b:a3d52607f4]
procedure TForm1.QRSysData1Print(sender: TObject; var Value: String);
begin
Value := FormatDateTime(´"Goiânia," dd "de" mmmm "de" yyyy´,StrToDate(Value));
end;



GOSTEI 0
Consorte

Consorte

27/02/2003

Ainda não funcionou, o que está errado?

[quote:b6668dcd7a=´Aroldo Zanela´]
Como configuro o QRSysData do Qreport (ou se tiver outro modo), com o formato de cidade, 26 de fevereiro de2003. Está aparecendo 26/02/03.


Coloque algo assim no OnPrint do QRSysData:

procedure TForm1.QRSysData1Print(sender: TObject; var Value: String);
begin
Value := FormatDateTime(´"Goiânia," dd "de" mmmm "de" yyyy´,StrToDate(Value));
end;
[/quote:b6668dcd7a]


GOSTEI 0
Anonymous

Anonymous

27/02/2003

Tente formatar no displayformat do table ou da query1, veja a documentação do delphi para tipos de máscara


GOSTEI 0
Consorte

Consorte

27/02/2003

é um qrsysdata


GOSTEI 0
Anonymous

Anonymous

27/02/2003

Tente com um label


label1.caption = formatdatetime(´´´cidade ´´dddddd´,now);


se continuar com problema

tente inserir uma table e incluir o campo data e formatar pelo displayformat do campo


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

27/02/2003

é um qrsysdata

Colega,

Você recebeu um e-mail que lhe mandei retornando seu fonte, com o executável e um arquivo PDF da impressão?


GOSTEI 0
Daniel

Daniel

27/02/2003

existe um componente no site guiadodelphi.com.br
que ja da a data no extenso como você quer não precisa
colocar código algum eu uso muito

va na seção de componentes e peque o pacote EccJust

Espero ter ajudado

Daniel


GOSTEI 0
POSTAR