Einzelnen Beitrag anzeigen

michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#1

customconnection in RAVE

  Alt 16. Dez 2014, 06: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 07:11 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat