From 015f7118b8398596eb3656a343b5cf0141929fb7 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <information@richardson-bueren.de>
Date: Mon, 18 May 2009 13:10:17 +0000
Subject: [PATCH] Mehrere Lieferscheine koennen zu einer Rechnung
 zusammengefasst werden, dementsprechend werden die Lieferschein-Nummern jetzt
 Leerzeichen-separiert als Vorbelegung benutzt

---
 SL/DO.pm          | 1 +
 bin/mozilla/do.pl | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/SL/DO.pm b/SL/DO.pm
index 055699360..40b2c409c 100644
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -593,6 +593,7 @@ sub retrieve {
     }
 
     map { $form->{$_} = $ref->{$_} } keys %$ref if ($ref);
+    $form->{donumber_array} .= $form->{donumber} . ' ';
   }
   $sth->finish();
 
diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 6a8b94b55..11e3a4daa 100644
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -735,6 +735,11 @@ sub invoice_multi {
   }
 
   $form->{convert_from_do_ids} = join ' ', @do_ids;
+  # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
+  # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
+  # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
+  # $shell: perldoc perlunc; /delete EXPR
+  $form->{donumber}	       = delete $form->{donumber_array};
   $form->{deliverydate}        = $form->{transdate};
   $form->{transdate}           = $form->current_date(\%myconfig);
   $form->{duedate}             = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
-- 
2.20.1