Kundenquelle (Leads) eingeführt

[mfinanz.git] / SL / OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index 0349977a71eee59bf9160ef939fd2ed823ea8432..7813f3350b7d6b8efcf37a0bd577e29186d96777 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -351,7 +351,7 @@ sub save {
         ($form->{"reqdate_$i"}) ? qq|'$form->{"reqdate_$i"}'| : "NULL";
 
       # get pricegroup_id and save ist
-      ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_drag_$i"};
+      ($null, my $pricegroup_id) = split /--/, $form->{"sellprice_pg_$i"};
       $pricegroup_id *= 1;
       $subtotal = $form->{"subtotal_$i"} * 1;
 
@@ -866,6 +866,9 @@ sub retrieve {
       $stw->finish;
     }
 
+      # delete orderitems_id in collective orders, so that they get cloned no matter what
+      delete $ref->{orderitems_id} if (@ids);
+
       #set expense_accno=inventory_accno if they are different => bilanz
       $vendor_accno =
         ($ref->{expense_accno} != $ref->{inventory_accno})