AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

customconnection in RAVE

Ein Thema von michael.cohrs · begonnen am 16. Dez 2014 · letzter Beitrag vom 16. Dez 2014
 
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
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz