From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 12 Jul 2017 10:44:56 +0000 (+0200)
Subject: belege email dialog: Ohne Ansprechpartner Email aus Stammdaten verwenden
X-Git-Tag: release-3.5.4~1029
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c476418e8c5de987f1d53ecd167066c00b484119;p=kivitendo-erp.git

belege email dialog: Ohne Ansprechpartner Email aus Stammdaten verwenden

behebt #263
---

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 9f49b7340..28cfc801d 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1983,9 +1983,16 @@ sub _get_files_for_email_dialog {
 }
 
 sub show_sales_purchase_email_dialog {
-  my $contact    = $::form->{cp_id} ? SL::DB::Contact->load_cached($::form->{cp_id}) : undef;
+  my $email = '';
+  if ($::form->{cp_id}) {
+    $email = SL::DB::Contact->load_cached($::form->{cp_id})->cp_email;
+  } elsif ($::form->{vc} && $::form->{vc_id}) {
+    $email = SL::DB::Customer->load_cached($::form->{vc_id})->email if 'customer' eq $::form->{vc};
+    $email = SL::DB::Vendor  ->load_cached($::form->{vc_id})->email if 'vendor'   eq $::form->{vc};
+  }
+
   my $email_form = {
-    to                  => $contact ? $contact->cp_email : '',
+    to                  => $email,
     subject             => $::form->generate_email_subject,
     attachment_filename => $::form->generate_attachment_filename,
   };