Der letzte Einkauspreis wurde nicht geladen und daher auch keine MArgenberechnung

diff --git a/SL/IS.pm b/SL/IS.pm
index 84baa08cbbf9b884c5c084c395c1e485a9a7a499..b47944bdcdda58ea9581a0228b14f4ed91ba9c43 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1794,7 +1794,7 @@ sub retrieve_item {
   my $query =
     qq|SELECT
          p.id, p.partnumber, p.description, p.sellprice,
   my $query =
     qq|SELECT
          p.id, p.partnumber, p.description, p.sellprice,

-         p.listprice, p.inventory_accno_id,
+         p.listprice, p.inventory_accno_id, p.lastcost,

 
          c1.accno AS inventory_accno,
          c1.new_chart_id AS inventory_new_chart,
 
          c1.accno AS inventory_accno,
          c1.new_chart_id AS inventory_new_chart,

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index c32509c1f1bfd176193cf077001a97cb0f25091f..8eb6363cf8b295894def47b0b1c694961cc7e6e3 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -706,7 +706,7 @@ sub item_selected {
   map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} }
     qw(id partnumber description sellprice listprice inventory_accno
        income_accno expense_accno bin unit weight assembly taxaccounts
   map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} }
     qw(id partnumber description sellprice listprice inventory_accno
        income_accno expense_accno bin unit weight assembly taxaccounts

-       partsgroup formel longdescription not_discountable partnotes);
+       partsgroup formel longdescription not_discountable partnotes lastcost);

   if ($form->{"part_payment_id_$i"} ne "") {
     $form->{payment_id} = $form->{"part_payment_id_$i"};
   }
   if ($form->{"part_payment_id_$i"} ne "") {
     $form->{payment_id} = $form->{"part_payment_id_$i"};
   }