X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FIC.pm;h=d486228e6b6c59364b25b71c3cf0ebee74152c35;hb=cd15b41168a4c4752e89e2a28f47f254d533e5d3;hp=74e71cefd802c7e2f696244eabe61f3dbaf3be3b;hpb=23ae25e9dcd34ba16d930f723b66fddac10f52fb;p=kivitendo-erp.git

diff --git a/SL/IC.pm b/SL/IC.pm
index 74e71cefd..d486228e6 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -797,6 +797,11 @@ sub delete {
   # connect to database, turn off AutoCommit
   my $dbh = $form->dbconnect_noauto($myconfig);
 
+  # first delete prices of pricegroup 
+  my $query = qq|DELETE FROM prices
+           WHERE parts_id = $form->{id}|;
+  $dbh->do($query) || $form->dberror($query);
+
   my $query = qq|DELETE FROM parts
  	         WHERE id = $form->{id}|;
   $dbh->do($query) || $form->dberror($query);