Verknüpfungen zwischen Angeboten, Aufträgen, Lieferscheinen, Rechnungen in einer...

[mfinanz.git] / bin / mozilla / oe.pl

diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index 3cda960b3214b5606e3cea258571d69473ec9bc1..6c2569b6f84abcd507432efdbb4745c5aff01860 100644 (file)
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -33,6 +33,7 @@
 
 use POSIX qw(strftime);
 
 
 use POSIX qw(strftime);
 

+use SL::DO;

 use SL::FU;
 use SL::OE;
 use SL::IR;
 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->{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"}|;
   }
   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();
 }
 
   $lxdebug->leave_sub();
 }


@@ -1813,7 +1814,8 @@ sub sales_order {
     delete($form->{ordnumber});
   }
 
     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";
 
   $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;
   require "bin/mozilla/do.pl";
 
   $form->{cp_id}           *= 1;

+  $form->{oe_ids}           = $form->{id};

   $form->{transdate}        = $form->current_date(\%myconfig);
   delete $form->{duedate};
 
   $form->{transdate}        = $form->current_date(\%myconfig);
   delete $form->{duedate};