X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/eb8d3de878876804b0465ec7cde9adfff436a5a0..5df2b57a097f66f6cecba0aa577c7aaba3422ab6:/bin/mozilla/oe.pl

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 3cda960b3..6c2569b6f 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -33,6 +33,7 @@
 
 use POSIX qw(strftime);
 
+use SL::DO;
 use SL::FU;
 use SL::OE;
 use SL::IR;
@@ -229,11 +230,11 @@ sub order_links {
   $form->{employee}    = "$form->{employee}--$form->{employee_id}";
 
   # build vendor/customer drop down comatibility... don't ask
-  $form->{"old$form->{vc}"}    = $form->{vc};
   if (@{ $form->{"all_$form->{vc}"} }) {
     $form->{"select$form->{vc}"} = 1;
     $form->{$form->{vc}}         = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
   }
+  $form->{"old$form->{vc}"}    = $form->{$form->{vc}};
 
   $lxdebug->leave_sub();
 }
@@ -1813,7 +1814,8 @@ sub sales_order {
     delete($form->{ordnumber});
   }
 
-  $form->{cp_id} *= 1;
+  $form->{cp_id}  *= 1;
+  $form->{oe_ids}  = $form->{id};
 
   $form->{title} = $locale->text('Add Sales Order');
   $form->{vc}    = "customer";
@@ -1882,6 +1884,7 @@ sub delivery_order {
   require "bin/mozilla/do.pl";
 
   $form->{cp_id}           *= 1;
+  $form->{oe_ids}           = $form->{id};
   $form->{transdate}        = $form->current_date(\%myconfig);
   delete $form->{duedate};