Forum: Datenbanken
Delphi
by manfred_h,
12. Jun 2009
Danke für den Tipp squetk.
Manfred
Forum: Datenbanken
Delphi
by manfred_h,
11. Jun 2009
Das Problem ist gelöst.
Es darf kein ds.Next; verwendet werden.
hier die funktionierende Version:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;
Forum: Datenbanken
Delphi
by manfred_h,
10. Jun 2009
habe bemerkt das ich ds.Next; zwei Zeilen zu weit oben hatte.
Es wird nun die hälfte der Daten dargestellt.
if list='CAT' then
begin
var_dist_cat.Visible := true;
dist_cat.Visible := true;
end;
// ds.Next;
Forum: Datenbanken
Delphi
by manfred_h,
9. Jun 2009
Hallo squetk
leider ist es noch nicht ganz gelöst ( siehe ein Post weiter oben ).
Danke für Deinen Vorschlag werde das Testen.
Manfred
Forum: Datenbanken
Delphi
by manfred_h,
8. Jun 2009
Hallo nochmals
leider hat sich da ein Fehler eingeschlichen.
Habe das bis jetzt nicht bemerkt. Es werden nicht mehr alle Datensätzte dargestellt.
Dies versuchte ich bis jetzt wie folgt zu lösen:
"bestehender" Code:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
Forum: Datenbanken
Delphi
by manfred_h,
12. Mai 2009
Danke für den Hiinweis :wink:
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;
begin
ds := Report.GetDataset('default');// username of ds
Forum: Datenbanken
Delphi
by manfred_h,
12. Mai 2009
Besteht ein Vorteile bei einer Variante?
Manfred
Forum: Datenbanken
Delphi
by manfred_h,
11. Mai 2009
Das wars!! Danke mkinzler :thumb:
procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;
begin
Forum: Datenbanken
Delphi
by manfred_h,
11. Mai 2009
Hallo nochmals
bin ein wenig weiter..
procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
db_list: String;
Forum: Datenbanken
Delphi
by manfred_h,
8. Mai 2009
Hallo nochmals
habe noch einen Tipp aus der Fastreport Newsgroup bekommen.
procedure DefaultPERSONSOnBeforePrint(Sender: TfrxComponent);
var
i: Integer;
ds: TfrxDataSet;
list: TStringList;
begin
ds := Report.GetDataset('default');// username of ds
Forum: Datenbanken
Delphi
by manfred_h,
7. Mai 2009
Hallo mkinzler
Danke für Deine schnelle Antwort.
Shalom
Manfred
Forum: Datenbanken
Delphi
by manfred_h,
7. Mai 2009
Hallo zusammen
in einer Anwendung verwede ich einen Report für mehrere Ausdruckvarianten mit
wechselnden Feldern in den Datasets.
Dies geht auch einwandfrei. Nun sind aber in einigen Datasets Felder die in anderen nicht vorhanden sind.
Bis jetzt habe ich das versucht ( und ähnliches ):
( Fastreport Script )
procedure PLACEMENTOnBeforePrint(Sender: TfrxComponent);
begin