Pricefaktoren auch im assembly_row flow mitschleifen und berechnen.

Fix für Bug 987

diff --git a/SL/IC.pm b/SL/IC.pm
index f691a354f2e32e6a810a5ab4f9f5c6cbe09e588a..784366582f7bd1fa047ee7f0612afd8b338cdf22 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -690,9 +690,11 @@ sub assembly_item {
   my $dbh = $form->dbconnect($myconfig);
 
   my $query =
   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
+    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

        FROM parts p
        LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)
        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

        WHERE $where|;
   $form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
 
        WHERE $where|;
   $form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
 

diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl
index 3a34b2b144e275f16359b01f319dd8b6c4719b6a..d75436c4a8300a1500d484281129ee54b906b8de 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -1586,9 +1586,9 @@ sub assembly_row {
     $form->{"partnumber_$i"} =~ s/\"/"/g;
 
     $linetotal =
     $form->{"partnumber_$i"} =~ s/\"/"/g;
 
     $linetotal =

-      $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
+      $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 2);

     $line_purchase_price  =
     $line_purchase_price  =

-      $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"}, 2); #lastcost == purchase_price | ungenaue datenbankfeld-übersetzung
+      $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 2); #lastcost == purchase_price | ungenaue datenbankfeld-übersetzung

     $form->{assemblytotal} += $linetotal;
     $form->{assembly_purchase_price_total}  += $line_purchase_price;
 
     $form->{assemblytotal} += $linetotal;
     $form->{assembly_purchase_price_total}  += $line_purchase_price;
 


@@ -1672,6 +1672,8 @@ sub assembly_row {
   <input type=hidden name="id_$i" value=$form->{"id_$i"}>
   <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
   <input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
   <input type=hidden name="id_$i" value=$form->{"id_$i"}>
   <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$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"}>

 |;
   }
 
 |;
   }