Interne Bemerkungen im Workflow von Einkaufslieferschein nach Rechnung nicht überschr...

... mit Werten aus den Stammdaten.

Behebt #2136.

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 30124cf..ddf5796 100644 (file)
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -116,7 +116,7 @@ sub invoice_links {
     }
   }
 
-  my ($payment_id, $language_id, $taxzone_id, $currency, $delivery_term_id);
+  my ($payment_id, $language_id, $taxzone_id, $currency, $delivery_term_id, $intnotes);
   if ($form->{payment_id}) {
     $payment_id = $form->{payment_id};
   }
@@ -132,6 +132,9 @@ sub invoice_links {
   if ($form->{delivery_term_id}) {
     $delivery_term_id = $form->{delivery_term_id};
   }
+  if (exists $form->{intnotes}) {
+    $intnotes = $form->{intnotes};
+  }
 
   my $cp_id = $form->{cp_id};
   IR->get_vendor(\%myconfig, \%$form);
@@ -153,6 +156,9 @@ sub invoice_links {
   if ($delivery_term_id) {
     $form->{delivery_term_id} = $delivery_term_id;
   }
+  if (defined $intnotes) {
+    $form->{intnotes} = $intnotes;
+  }
 
   my @curr = $form->get_all_currencies();
   map { $form->{selectcurrency} .= "<option>$_\n" } @curr;