X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIC.pm;h=d486228e6b6c59364b25b71c3cf0ebee74152c35;hb=1a5270059b710ba69d50a2f3e2e621595ba58bd4;hp=446176d362483de380447bc9a6982e5c5ccd4a37;hpb=1aee716da4e7ca3b531223d29ffd71fab0a8beaf;p=kivitendo-erp.git diff --git a/SL/IC.pm b/SL/IC.pm index 446176d36..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); @@ -904,15 +909,10 @@ sub all_parts { my $group; my $limit; - foreach my $item (qw(partnumber drawing microfiche make)) { + foreach my $item (qw(partnumber drawing microfiche)) { if ($form->{$item}) { $var = $form->like(lc $form->{$item}); - - # make will build later Bugfix 145 - # model will build later too - Bugfix 331 - if ($item ne 'make') { - $where .= " AND lower(p.$item) LIKE '$var'"; - } + $where .= " AND lower(p.$item) LIKE '$var'"; } } @@ -1080,7 +1080,7 @@ sub all_parts { p.priceupdate, p.image, p.drawing, p.microfiche, pg.partsgroup, a.invnumber, a.ordnumber, a.quonumber, i.trans_id, - ct.name|; + ct.name, i.deliverydate|; if ($form->{bought}) { $query = qq|