Mehrere Lieferscheine koennen zu einer Rechnung zusammengefasst werden, dementspreche...

diff --git a/SL/DO.pm b/SL/DO.pm
index 0556993..40b2c40 100644 (file)
--- 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 6a8b94b..11e3a4d 100644 (file)
--- 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);