From c82106b1c6eae4b7abbf60fb3e9ae4ecad7dcb04 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <information@richardson-bueren.de>
Date: Mon, 18 May 2009 15:44:47 +0000
Subject: [PATCH] Fix fuer Bug 979 - EK der Einzelwaren fuer ein Erzeugnis wird
 erst spaeter angezeigt

---
 SL/IC.pm          | 5 +++--
 bin/mozilla/ic.pl | 1 +
 bin/mozilla/io.pl | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/SL/IC.pm b/SL/IC.pm
index 5314d4b8e..ea8b92926 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -698,8 +698,9 @@ sub assembly_item {
   my $dbh = $form->dbconnect($myconfig);
 
   my $query =
-    qq|SELECT p.id, p.partnumber, p.description, p.sellprice, p.weight, p.onhand, p.unit, pg.partsgroup,
-              p.price_factor_id, pfac.factor AS price_factor
+    qq|SELECT p.id, p.partnumber, p.description, p.sellprice, 
+       p.weight, p.onhand, p.unit, pg.partsgroup, p.lastcost,
+       p.price_factor_id, pfac.factor AS price_factor
        FROM parts p
        LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
        LEFT JOIN price_factors pfac ON pfac.id = p.price_factor_id
diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 5b377b639..e0d59d7d7 100644
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -1680,6 +1680,7 @@ sub assembly_row {
         </tr>
   <input type=hidden name="id_$i" value=$form->{"id_$i"}>
   <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
+  <input type=hidden name="lastcost_$i" value=$form->{"lastcost_$i"}>
   <input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
   <input type=hidden name="price_factor_id_$i" value=$form->{"price_factor_id_$i"}>
   <input type=hidden name="price_factor_$i" value=$form->{"price_factor_$i"}>
diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 18d2f4f28..058195f6a 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -695,7 +695,7 @@ sub check_form {
       qw(listprice rop stock);
 
     @flds =
-      qw(id qty unit bom partnumber description sellprice weight runningnumber partsgroup);
+      qw(id qty unit bom partnumber description sellprice weight runningnumber partsgroup lastcost);
 
     for my $i (1 .. ($form->{assembly_rows} - 1)) {
       if ($form->{"qty_$i"}) {
-- 
2.20.1