1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 if ZQuery_rechnung_art.RecordCount=0 then exit;
 if messagedlg('Sollen wirklich alle Artikel dieser Rechnung gelöscht werden ?',mtWarning,[mbyes,mbno],0)=mryes then begin
  ZQuery_rechnung_art.first;
  repeat
 {Artikelbestand aktualisieren}
   with form13.Query_artikel do begin
    sql.text:='UPDATE artikel SET lagerbestand = lagerbestand + :wertbestand where barcode = :wertbarcode';
    parambyname('wertbestand').value:=ZQuery_rechnung_art.fieldbyname('menge').Value;
    parambyname('wertbarcode').value:=ZQuery_rechnung_art.fieldbyname('artikelnummer').value;
    execsql;
   end;
   ZQuery_rechnung_art.delete;
  until ZQuery_rechnung_art.findnext=false;
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

if ZQuery_rechnung_art.RecordCount=0 then exit;  
 if messagedlg('Sollen wirklich alle Artikel dieser Rechnung gelöscht werden ?',mtWarning,[mbyes,mbno],0)=mryes then begin  
  ZQuery_rechnung_art.first;
  repeat  
 {Artikelbestand aktualisieren}  
   with form13.Query_artikel do begin  
    sql.text:='UPDATE artikel SET lagerbestand = lagerbestand + :wertbestand where barcode = :wertbarcode';  
    parambyname('wertbestand').value:=ZQuery_rechnung_art.fieldbyname('menge').Value;  
    parambyname('wertbarcode').value:=ZQuery_rechnung_art.fieldbyname('artikelnummer').value;  
    execsql;  
   end;  
   ZQuery_rechnung_art.delete;  
   ZQuery_rechnung_art.first;              <- Änderung
  until ZQuery_rechnung_art.eof;           <- Änderung
 end;  
end;