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

diff --git a/SL/DO.pm b/SL/DO.pm
index 055699360f59bdacb80a9f1145c34ecd214666a0..40b2c409ce2be6bf5c3dd592f3394cba1727f9a4 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -593,6 +593,7 @@ sub retrieve {
     }
 
     map { $form->{$_} = $ref->{$_} } keys %$ref if ($ref);
     }
 
     map { $form->{$_} = $ref->{$_} } keys %$ref if ($ref);

+    $form->{donumber_array} .= $form->{donumber} . ' ';

   }
   $sth->finish();
 
   }
   $sth->finish();
 

diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index 6a8b94b5597cb80cc78c6991e45f05fe9f633ef5..11e3a4daa21d5830709d046e1975559755d3b769 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;
   }
 
   $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);
   $form->{deliverydate}        = $form->{transdate};
   $form->{transdate}           = $form->current_date(\%myconfig);
   $form->{duedate}             = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);