Verkaufsrechnungen: Beim Öffnen individuelle Lieferadresse laden.

diff --git a/SL/IS.pm b/SL/IS.pm
index 7705a11e61f5860d56bbf38b4450b0894771fbfd..19c41886bb009e76a827ce26e99318a0b77d759e 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1932,6 +1932,12 @@ sub retrieve_invoice {
       ($form->{"delivery_${vc}_string"}) = selectrow_query($form, $dbh, qq|SELECT name FROM customer WHERE id = ?|, $id);
     }
 
+    # get shipto
+    $query = qq|SELECT * FROM shipto WHERE (trans_id = ?) AND (module = 'AR')|;
+    $ref = selectfirst_hashref_query($form, $dbh, $query, $id);
+    delete($ref->{id});
+    map { $form->{$_} = $ref->{$_} } keys %$ref;
+
     # get printed, emailed
     $query = qq|SELECT printed, emailed, spoolfile, formname FROM status WHERE trans_id = ?|;
     $sth = prepare_execute_query($form, $dbh, $query, $id);