X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/53db54a80c97c95321d567bfc6f73ae47d7d6a4d..a74f9d57d972444f66f96497fbf9ce9ed91a86a2:/SL/OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index d86b6c0ec..1169aab25 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -610,6 +610,9 @@ sub _save {
         require SL::DB::Customer;
         my $customer = SL::DB::Manager::Customer->find_by(id => $form->{customer_id});
         die "Can't find customer" unless $customer;
+        die $main::locale->text("Error while creating project with project number of new order number, project number #1 already exists!", $form->{ordnumber})
+          if SL::DB::Manager::Project->find_by(projectnumber => $form->{ordnumber});
+
         my $new_project = SL::DB::Project->new(
           projectnumber     => $form->{ordnumber},
           description       => $customer->name,