From: Philip Reetz <p.reetz@linet-services.de>
Date: Thu, 28 Jun 2007 08:24:12 +0000 (+0000)
Subject: Bei der Umwandlung eines Auftrags in eine Rechnung wurde die individuelle Lieferadres... 
X-Git-Tag: release-2.4.3^2~64
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=a5f4490ff9356e2453824fd8516c233aa6024b2e;p=kivitendo-erp.git

Bei der Umwandlung eines Auftrags in eine Rechnung wurde die individuelle Lieferadresse nicht
gespeichert
---

diff --git a/SL/Form.pm b/SL/Form.pm
index cc65716b4..e5203f737 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1469,6 +1469,7 @@ sub add_shipto {
 
   my $shipto;
   my @values;
+
   foreach my $item (qw(name department_1 department_2 street zipcode city country
                        contact phone fax email)) {
     if ($self->{"shipto$item"}) {
@@ -1476,6 +1477,7 @@ sub add_shipto {
     }
     push(@values, $self->{"shipto${item}"});
   }
+
   if ($shipto) {
     if ($self->{shipto_id}) {
       my $query = qq|UPDATE shipto set
@@ -1504,8 +1506,9 @@ sub add_shipto {
                        shiptocontact = ? AND
                        shiptophone = ? AND
                        shiptofax = ? AND
-                       shiptoemail = ?|;
-      my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values);
+                       shiptoemail = ? AND
+                       module = ?|;
+      my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module);
       if(!$insert_check){
         $query =
           qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2,