Hallo!
ich versuche mich z.Z. in RaveReports und muss sagen, dass es für Anfänger sehr schwer ist dort Fuß zu fassen, da man im Internet kaum Tutorials zu RaveReports findet, geschweige denn Tutorials für Anfänger... Aber kommen wir nun zu meinem Problem
Ich will eine Rechnung erstellen und dazu brauche ich ein Paar feste Datenfelder, die z.B. mit Kundenname, Adresse etc. bestückt werden sollen. Das ist auch kein Problem mit den Informationen die ich bis jetzt im Internet gefunden habe.
Hier der CODE:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Report.Open;
Report.SetParam('Datum','23.05.2008');
Report.Execute;
Report.Close;
end;
Außerdem soll eine Tabelle erstellt werden, in der die in Anspruch genommenen Leistungen aufgeführt werden sollen, die Anzahl derer ist von Rechnung zu Rechnung unterschiedlich. Beides soll auf einer Seite sein und die Tabelle soll dann automatisch auf die nächste Seite übergehen.
Im Internet habe ich folgenden Beispiel-Code für eine Tabelle gefunden(hat nichts mit meinen Rechnungen zu tun):
Delphi-Quellcode:
procedure TFormMain.PrintTabularReport(Report: TBaseReport);
var
FolderList : TStringList;
i : Integer;
NumFiles : Cardinal;
NumFolders : Cardinal;
SizeFiles : Cardinal;
Root : string;
begin
with Report do
begin
SetFont('Arial', 15);
NewLine;
PrintCenter('List of Folders in the Drive Root', 4);
NewLine;
NewLine;
ClearTabs;
SetTab(0.2, pjLeft, 1.7, 0, 0, 0);
SetTab(1.7, pjRight, 3.1, 0, 0, 0);
SetTab(3.1, pjRight, 3.5, 0, 0, 0);
SetTab(3.5, pjRight, 4.5, 0, 0, 0);
SetFont('Arial', 10);
Bold := True;
PrintTab('Folder Name');
PrintTab('Number of Files');
PrintTab('Number of Folders');
PrintTab('Size of Files');
Bold := False;
NewLine;
FolderList := TStringList.Create;
try
Root := IncludeTrailingPathDelimiter(ExtractFileDrive(ParamStr(0)));
EnumFolders(FolderList, Root);
for i := 0 to FolderList.Count - 1 do
begin
PrintTab(FolderList[i]);
GetFolderInfo(IncludeTrailingPathDelimiter(Root+FolderList[i]),
NumFiles, NumFolders, SizeFiles);
PrintTab(Format('%u',[NumFiles]));
PrintTab(Format('%u',[NumFolders]));
PrintTab(Format('%u bytes',[SizeFiles]));
NewLine;
end;
finally
FolderList.Free;
end;
end;
end;
PROBLEM: Die beiden Codes so miteinander Verbinden, dass ich sowohl Daten an meine fertige Rave-Vorlage senden kann und zusätzlich unter der "Kopfzeile" mit Adresse etc. eine Tabelle mit den Leistungen erstellen kann.
Zusatz-Information: Ich möchte die Kundendaten und Rechnungsdaten in einer .mdb speichern und sie von dort auslesen und an Rave übergeben...
Ich bin für jegliche Vorschläge dankbar und offen!
Mit freundlichen Grüßen
Piotr Dworaczek