Forum: Datenbanken
Delphi
by clock50,
22. Dez 2008
Es klärt sich alles wenn man mal darüber nachdenkt dann stellt man fest das man auch blind sein kann.
procedure Tdrucken.RechnungRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if length(unit6.positionen)-1 >= posz Then
begin
RPosAnz.Caption := unit6.positionen.anzahl;
RPosMwSt.Caption := unit6.positionen.mwst;
RPosText.Lines := unit6.positionen.text;
if unit1.inklmwst...
Forum: Datenbanken
Delphi
by clock50,
22. Dez 2008
wahrscheinlich bin ich zu blöde
procedure Tdrucken.RechnungRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
posz := 0;
end;
procedure Tdrucken.JvImgBtn3Click(Sender: TObject);
begin
Forum: Datenbanken
Delphi
by clock50,
21. Dez 2008
Doch doch klappt schon nur es ist immer eine Position zu wenig, es fehlt die erste obwohl der ... einen Wert hat. :?
Forum: Datenbanken
Delphi
by clock50,
21. Dez 2008
So hier der Code:
procedure Tdrucken.RechnungRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
RPosAnz.Caption := unit6.positionen.anzahl;
RPosMwSt.Caption := unit6.positionen.mwst;
if unit1.inklmwst then
begin
Forum: Datenbanken
Delphi
by clock50,
21. Dez 2008
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?
Forum: Datenbanken
Delphi
by clock50,
21. Dez 2008
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.
Forum: Datenbanken
Delphi
by clock50,
19. Dez 2008
Nein ich benutze keine Leerzeichen Tabs oder so:
For b := 0 to JvListView1.Items.Count-1 do
begin
Form1.Table2.Append;
Form1.Table2.FieldByName('f1').AsString := JvListView1.Items.Caption;
Form1.Table2.FieldByName('f2').AsString := JvListView1.Items.SubItems;
Form1.Table2.FieldByName('f3').AsString := JvListView1.Items.SubItems;
Form1.Table2.FieldByName('f4').AsString :=...
Forum: Datenbanken
Delphi
by clock50,
19. Dez 2008
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...