X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/4a9b86a56fa151d2fde072202ccabd5fc1fbaacc..3c1ceacd69653915e0b44f1700b198d96681f546:/SL/IS.pm

diff --git a/SL/IS.pm b/SL/IS.pm
index 8e2514478..ca43fd8ab 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -40,6 +40,7 @@ use SL::AM;
 use SL::CVar;
 use SL::Common;
 use SL::DBUtils;
+use SL::DO;
 use SL::MoreCommon;
 use Data::Dumper;
 
@@ -969,6 +970,13 @@ sub post_invoice {
 
   Common::webdav_folder($form) if ($main::webdav);
 
+  my @close_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{close_do_ids};
+
+  if (scalar @close_do_ids) {
+    DO->close_orders('dbh' => $dbh,
+                     'ids' => \@close_do_ids);
+  }
+
   my $rc = 1;
   if (!$provided_dbh) {
     $dbh->commit();