Beispiel:
Du hast 2 Tabellen.
1. Tabelle "Lagerbestand" mit den Feldern Artikel und Bestand
2. Tabelle "Bestellung" mit den Feldern Artikel und Menge
Im Feldeditor der beiden Tabellen müssen die Felder deklariert sein.
Delphi-Quellcode:
begin
lagerbestand.setkey;
lagerbestand.fieldbyname('artikel').asinteger:= BestellungArtikel.value;
if lagerbestand.gotokey then // Datensatz des Artikels in der Bestandstabelle gfunden
begin
lagerbestand.edit; // datensatz bearbeiten
lagerbestandbestand.value := lagerbestandbestand.value - bestellungmenge.value; // bestand ändern
lagerbestand.post; // datensatz zurück schreiben
end;
end;
Du erfasst die Bestellung mit Artikel und Menge.
Die o.g. Routine ändert dann den verfügbaren lagerbestand, wenn der Artikel im bestand gefunden wurde.
mfg
Kurt