X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIC.pm;h=8895bf888e39e5bad0dde0360863d5df525ffb58;hb=cca939527d780d2a5c1c152043c789d11d290ad5;hp=79d6618372432ece19b357cfb40130c012f7284b;hpb=f0d897b6b9ffbbfe98c0dbc1638ef30c9b798729;p=kivitendo-erp.git

diff --git a/SL/IC.pm b/SL/IC.pm
index 79d661837..8895bf888 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1121,6 +1121,26 @@ sub all_parts {
     $form->{parts} = \@assemblies;
   }
 
+  if ($form->{l_pricegroups} ) {
+    my $query = <<SQL;
+       SELECT parts_id, price, pricegroup_id
+       FROM prices
+       WHERE parts_id = ?
+SQL
+
+    my $sth = prepare_query($form, $dbh, $query);
+
+    foreach my $part (@{ $form->{parts} }) {
+      do_statement($form, $sth, $query, conv_i($part->{id}));
+
+      while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
+        $part->{"pricegroup_$ref->{pricegroup_id}"} = $ref->{price};
+      }
+      $sth->finish;
+    }
+  };
+
+
   $main::lxdebug->leave_sub();
 
   return wantarray ? @{ $form->{parts} } : $form->{parts};