Wenn ich so weiter mache, ist das halbe Programm gepostet, aber hier muß der Hund begraben liegen:
Delphi-Quellcode:
LagDS.Close;
LagDS.SelectSQL.Text := 'SELECT * FROM LAGER8 WHERE ID_ART = ';
LagDS.SelectSQL.Text := LagDS.SelectSQL.Text +
ArtDS.FieldByName ('ID').AsString;
LagDS.open;
aendern := NOT LagDS.IsEmpty;
LagDS.Close;
LagDS.SelectSQL.Clear;
if not aendern then begin
LagDS.SelectSQL.Add ('INSERT INTO LAGER8 (ID,MENGE) VALUES (');
LagDS.SelectSQL.Add (ArtDS.FieldByName ('ID').AsString);
LagDS.SelectSQL.Add (','+IntToStr (-1*GesMenge)+')');
LagDS.Open;
end
else begin
LagDS.SelectSQL.Add ('UPDATE LAGER8 SET MENGE=MENGE-');
LagDS.SelectSQL.Add (IntToStr (GesMenge));
LagDS.Open;
end;
Zuerst suche ich einen Artikel. Ist einer da, gehts mit dem Source hier weiter. Ich prüfe ob Lagerdaten dazu exist. und dann wird der Lagerbestand halt aktualisiert. Irgendwas stimmt da nicht. Ich habe das ungute Gefühl, daß ich etwas sehr wichtiges vergessen / falsch gemacht habe, sehe aber nicht was. 8)