Hei ich brauche eure Hilfe
kann mir jemand einen Tipp geben wie ich meine Routine schneller machen kann.
Ich möchte in einer Datenbank den Inhalt Lagerb von Stueck abziehen.
Hier mein Code
Delphi-Quellcode:
procedure TWAusgang.Button6Click(Sender: TObject);
begin
if Data.TableStueckliste.active= false then exit;
try
i2:= StrToInt(edit1.text);
except
Showmessage('Keine gültige Zahl im Textfeld!');
exit;
end;
for i1:= 1 to i2 do
begin
Data.tableLager.indexname:='pos';
data.tableCopy.active:=true;
Data.TableStueckliste.first;
Data.TableCopy.first;
while not Data.tableCopy.Eof do begin
Data.TableCopy.edit;
Data.TableCopy.fieldByName('lagerb').AsInteger :=
Data.TableCopy.fieldByName('lagerb').AsInteger-
Data.TableCopy.fieldByName('stueck').AsInteger;
Data.TableCopy.post;
Data.TableCopy.next;
end;
end;