Entwickler-Ecke

Dateizugriff - Druckdatum an Dateinamen anfügen???


peppi - Di 08.04.03 15:24
Titel: Druckdatum an Dateinamen anfügen???
Hallo,

in meinem Druckprogramm vergebe ich im Quelltext folgendermaßen den Dateinamen:


Quelltext 
1:
2:
3:
 
...
ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + (DBText1.Field.Text) + '_LISTE_' + 'getdate()';
...


Bis auf das getdate am Ende funktioniert das auch so. Wie krieg ich denn das Druckdatum da angefügt?? Format: JAHR-MONAT-TAG_STUNDE-MINUTE-SEKUNDE???

Bei dem Report handelt es sich übrigens nicht um den QuickReport sondern um den ReportBuilder, falls jemandem das was sagt!! Hoffe da kann mir jemand helfen!!

Liebe Grüße

Jana!!


wulfskin - Di 08.04.03 15:31
So geht es:

Quelltext 
1:
2:
3:
4:
5:
 
var
  Date: String;
begin
  DateTimeToString(Date, 'yyyy-mm-dd_hh-nn-ss', now);
  ShowMessage(Date);
Gruß wulfskin!


peppi - Mi 09.04.03 09:58
Hi,

hab den Tip jetzt mal ausprobiert aber das haut net richtig hin.

Die Anweisung sieht folgendermaßen jetzt aus:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer; Date:String;
begin
DateTimeToString(Date, 'yyyy-mm-dd_hh-nn-ss', now);
Query2.open;
Query2.First;
...

Hier folgt dann ne Schleife mit ner SQL Anweisung.
Dann

Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
...
  ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + (DBText1.Field.Text) + '_LISTE_' + ShowMessage(Date)+'';
  ppReport1.Print;
  Query2.Next;
  end;
  end;
 end;


Aber da bekomme ich immer die Fehlermeldung :

[Fehler] druck.pas(77): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

Hab's auch schon ohne das plus versucht, aber dann kommt die Fehlermeldung:

[Fehler] druck.pas(77): Operator oder Semikolon fehlt

hab ich irgendwas vergessen??

LG Jana


Tino - Mi 09.04.03 10:10
Hallo peppi,

schau Dir das Beispiel von wulfskin noch mal an und schau Dir auch die Hilfe zu DateTimeToString und vorallem ShowMessage an.

Die Procedure ShowMessage zeigt eine Meldung auf dem Bildschirm an und sollte nur für das Beispiel von wulfskin zur Verdeutlichung dienen.

So musste es funktionieren:

Quelltext 
1:
 
 ppReport1.PrinterSetup.DocumentName :=  'A_KNR_' + DBText1.Field.Text + '_LISTE_' + Date


Gruß
Tino


peppi - Mi 09.04.03 10:13
Hi,

tschuldigung, mein Fehler.

So funktioniert's auch :lol:

Dankeschön!!!!


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!