Beim Buchen von Eingangsrechnungen den ausgewählten Bearbeiter honorieren und speiche...

diff --git a/SL/IR.pm b/SL/IR.pm
index fe10a299be35bf8cb590b2ff882554b55a42d056..81c5fe75e18728897351214c7cf1f0463ec5a22f 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -69,7 +69,7 @@ sub post_invoice {
     $uid = substr($uid, 2, 75);
 
     $query = qq|INSERT INTO ap (invnumber, employee_id)
     $uid = substr($uid, 2, 75);
 
     $query = qq|INSERT INTO ap (invnumber, employee_id)

-                VALUES ('$uid', '$form->{employee}')|;
+                VALUES ('$uid', '$form->{employee_id}')|;

     $dbh->do($query) || $form->dberror($query);
 
     $query = qq|SELECT a.id FROM ap a
     $dbh->do($query) || $form->dberror($query);
 
     $query = qq|SELECT a.id FROM ap a

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 284b2fe5d4fe2f105105d107371fa457d99877b5..39b4b88a14edb0517cd58119f4714d4a8501076d 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -223,7 +223,7 @@ sub form_header {
   $lxdebug->enter_sub();
 
   # set option selected
   $lxdebug->enter_sub();
 
   # set option selected

-  foreach $item (qw(AP vendor currency department employee)) {
+  foreach $item (qw(AP vendor currency department)) {

     $form->{"select$item"} =~ s/ selected//;
     $form->{"select$item"} =~
       s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
     $form->{"select$item"} =~ s/ selected//;
     $form->{"select$item"} =~
       s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;


@@ -330,7 +330,7 @@ sub form_header {
       <tr>
       <th align="right">| . $locale->text('Employee') . qq|</th>
       <td>| .
       <tr>
       <th align="right">| . $locale->text('Employee') . qq|</th>
       <td>| .

-        NTI($cgi->popup_menu('-name' => 'employee', '-default' => $form->{"employee"},
+        NTI($cgi->popup_menu('-name' => 'employee_id', '-default' => $form->{"employee_id"},

                              '-values' => \@values, '-labels' => \%labels)) . qq|
       </td>
       </tr>|;
                              '-values' => \@values, '-labels' => \%labels)) . qq|
       </td>
       </tr>|;


@@ -1013,6 +1013,7 @@ sub storno {
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 
     $form->error($locale->text("Invoice has already been storno'd!"));
   }
 

+  my $employee_id = $form->{employee_id};

   invoice_links();
   prepare_invoice();
   relink_accounts();
   invoice_links();
   prepare_invoice();
   relink_accounts();


@@ -1030,7 +1031,8 @@ sub storno {
   $form->{id} = "";
   $form->{invnumber} = "Storno zu " . $form->{invnumber};
   $form->{rowcount}++;
   $form->{id} = "";
   $form->{invnumber} = "Storno zu " . $form->{invnumber};
   $form->{rowcount}++;

-  &post();
+  $form->{employee_id} = $employee_id;
+  post();

   $lxdebug->leave_sub();
 
 }
   $lxdebug->leave_sub();
 
 }