X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/54e4131e091831e00a861fe2c4f53e344b87ddca..baf92f533975d1224700a85d0b8ededd8246d09b:/SL/OE.pm?ds=inline

diff --git a/SL/OE.pm b/SL/OE.pm
index 0349977a7..7813f3350 100644
--- 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})