Problem bei der Ausgabe mit Quickreport

[clock50]

Hallo Experten,

in meiner Anwendung gebe ich Daten zum drucken über eine temp.dbf an Quickreport weiter. Alles Okay Daten kommen an werden Angezeigt und gedruckt aber die Ausrichtung ist nicht so wie ich sie eingestellt habe die Felder laufen nach rechts. Aber nur wenn die zahlen die Angezeigt werden von zweistellig auf einstellig verlaufen. Im Bild zu sehen links Zahlen abfallend und durcheinander -> Problem, rechts habe ich mal die linke Spalte aufsteigend gemacht da ist das Problem nur in der rechten Spalte zu sehen.

[hoika]

Hallo,

wie erzeugst du denn den Ausdruck ?
Das sieht aus, als ob du Leerzeichen benutzt ?
Dann stimmt was am Code nicht.


Heiko

[clock50]

Nein ich benutze keine Leerzeichen Tabs oder so:

Delphi-Quellcode:

For b := 0 to JvListView1.Items.Count-1 do
 begin
 Form1.Table2.Append;
 Form1.Table2.FieldByName('f1').AsString := JvListView1.Items[b].Caption;
 Form1.Table2.FieldByName('f2').AsString := JvListView1.Items[b].SubItems[0];
 Form1.Table2.FieldByName('f3').AsString := JvListView1.Items[b].SubItems[1];
 Form1.Table2.FieldByName('f4').AsString := JvListView1.Items[b].SubItems[3];
 Form1.Table2.FieldByName('f5').AsString := JvListView1.Items[b].SubItems[4];
 Form1.Table2.FieldByName('f6').AsString := inttostr(12-b);    // das wird die linke spalte einmal so und einmal inttostr(8+b);
 Form1.Table2.FieldByName('f10').AsString := positionen[b].text.Text;
 Form1.Table2.Post;
 end;

[ConstantGardener]

Sorry, das hat jetzt zwar nichts mit der Positionierung zu tun aber Du füllst eine dBase Tabelle mit Daten aus einem TreeView um Sie dann auszudrucken ?

Besser wäre die Verwendung einer inMemory-Tabelle oder das Füllen von QRLabel's im onNeedDate-Event des QuickReports.

p.s. Ich sehe gerade das ich hier im 'Sachsen-Anhalt-Thread' poste. Schöne Feiertage !!

[clock50]

Ich habe davon gehört, aber ich hatte noch nicht die Zeit mich der Sache anzunehmen. Wie macht man das?

P.S. Ich wünsche besinnliche Feiertage.

[ConstantGardener]

Hallo clock50,

suche mal hier im Form nach onNeedData und Du bekommst entsprechend viele Beispiele für die Verwendung.

cu cg

[clock50]

Ja, ich bin schon am suchen und testen. Ein kleines Problem habe ich noch wenn ich die Eigenschaft DataSet setze wird der Rep angezeigt aber onneeddata wird nicht ausgeführt setze ich DataSet nicht bekomme ich keine Ansicht aber onneeddata wird ausgeführt.

Was habe ich jetzt wieder vergessen?

[ConstantGardener]

Hallo Thomas,

wenn Du mit onNeedData arbeitest darfst Du das DataSet des QR nicht setzen. Ich nehme mal an in deiner onNeedData-Proc setzt Du die Eigenschaft moreData nicht korrekt. Zeig mal etwas Code.

cu cg

[clock50]

So hier der Code:

Delphi-Quellcode:

procedure Tdrucken.RechnungRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
 RPosAnz.Caption := unit6.positionen[posz].anzahl;
 RPosMwSt.Caption := unit6.positionen[posz].mwst;
 if unit1.inklmwst then
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)*((strtofloat(unit6.positionen[posz].mwst)+100)/100)),ffCurrency,18,2);
  end else
  begin
  RPosEP.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].epreis),ffCurrency,18,2);
  RPosSum.Caption := FloatToStrF(strtofloat(unit6.positionen[posz].anzahl)*(strtofloat(unit6.positionen[posz].epreis)),ffCurrency,18,2);
  end;
 inc(posz);
 MoreData := posz <= length(unit6.positionen)-1;
 showmessage('pos');
end;

noch dazu es wird nie ausgeführt wenn DataSet nicht gesetzt ist!

[ConstantGardener]

Hallo Thomas,

ich nehme mal an RPosAnz und RPosMwSt sind QRLabel. Stehen diese auf einem Band mit BandTyp=rbDetail? Dann sollte das eigentlich funktionieren.

cu cg