X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f0ddfbfe848f0d94a7a28b8b5593786217c5dd39..bebdc2ce03a4c60e94337cf69a12e167a8144d72:/SL/OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index 266e55793..f3d3d0cd5 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -841,6 +841,12 @@ SQL
     is_new             => $is_new,
   );
 
+  $self->_set_project_in_linked_requirement_spec(
+    type           => $form->{type},
+    project_id     => $form->{globalproject_id},
+    sales_order_id => $form->{id},
+  );
+
   $main::lxdebug->leave_sub();
 
   return 1;
@@ -880,6 +886,25 @@ sub _link_created_sales_order_to_requirement_specs_for_sales_quotations {
   });
 }
 
+sub _set_project_in_linked_requirement_spec {
+  my ($self, %params) = @_;
+
+  return if  $params{type} ne 'sales_order';
+  return if !$params{project_id} || !$params{sales_order_id};
+
+  my $query = <<SQL;
+    UPDATE requirement_specs
+    SET project_id = ?
+    WHERE id IN (
+      SELECT so.requirement_spec_id
+      FROM requirement_spec_orders so
+      WHERE so.order_id = ?
+    )
+SQL
+
+  do_query($::form, $::form->get_standard_dbh, $query, $params{project_id}, $params{sales_order_id});
+}
+
 sub save_periodic_invoices_config {
   my ($self, %params) = @_;