Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
|
customconnection in RAVE
16. Dez 2014, 07:57
Guten morgen zusammen,
ICH KRIEGS EINFACH NICHT HIN
ich habe mit dem Rave designer ein Report erstellt, der besteht aus
Band 1: Kopfzeile
Band 2: Memofeld
Band 3: Datenfeld
Mein Delphi-quelltext sieht folgendermaßen aus:
Delphi-Quellcode:
procedure TfrmPreview.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := F_Orderlst.Count; // Objectlist
end;
procedure TfrmPreview.RvCustomConnection1GetCols(
Connection: TRvCustomConnection);
begin
with Connection do
begin
//Left fields
WriteField('Programm', dtString, 50, 'Programm', '');
WriteField('Author', dtString, 50, 'Author', '');
WriteField('Startdate', dtString, 50, 'Startdate', '');
WriteField('Enddate', dtString, 50, 'Enddate', '');
WriteField('Subcontractor', dtString, 50, 'Subcontractor', '');
// Right fields
WriteField('OrderNo', dtString, 50, 'OrderNo', '');
WriteField('RFCNo', dtString, 50, 'RFCNo', '');
WriteField('SBNo', dtString, 50, 'SBNo', '');
WriteField('Aircraft', dtString, 50, 'Aircraft', '');
WriteField('COPNo', dtString, 50, 'COPNo', '');
// Memo field
WriteField('Description', dtString, 1024, 'Description', '');
// Data fields
WriteField('Deliverable', dtString, 50, 'Deliverable', '');
end;
end;
procedure TfrmPreview.RvCustomConnection1GetRow(Connection:
TRvCustomConnection);
Var
i : Integer;
oOrderItems : TOrderItems;
begin
With Connection do
Begin
//Left fields
WriteStr(F_OrderInfo.Product_Line);
WriteStr(F_OrderInfo.AUTHOR);
WriteStr(F_OrderInfo.StartDate);
WriteStr(F_OrderInfo.EndDate);
WriteStr(F_OrderInfo.SubContractor);
// Right fields
WriteStr(F_OrderInfo.Order_No);
WriteStr(F_OrderInfo.RFC);
WriteStr(F_OrderInfo.SB_Number);
WriteStr(F_OrderInfo.Aircraft);
WriteStr(F_OrderInfo.COP);
WriteStr(F_OrderInfo.Description);
// Ordering object
oOrderItems := F_Orderlst[Connection.DataIndex] As TOrderItems;
// Data fields
Connection.WriteStrData(oOrderItems.Categorie,oOrderItems.Categorie);
End;
end;
Nun möchte ich, das die Kopfzeile nur 1 mal angezeigt wird, jedoch wird, abhängig
der Anzahl der Daten, immer wieder die Kiopfzeile erneut gedruckt...
Kann mir bitte jemand hier helfen?? Ich muss leider Rave Reports nutzen und kann
auf kein anderes Produkt umstellen.
Vielen vielen Dank
Michael
Michael Cohrs
Geändert von mkinzler (16. Dez 2014 um 08:11 Uhr)
Grund: Delphi-Tag eingefügt
|