From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 31 Jan 2011 17:02:35 +0000 (+0100)
Subject: Reimplementierung von 55e9890a und 1465da30
X-Git-Tag: release-2.6.2~16
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/ee5544b2f861fefe3520ac20ec2e221516069f95?ds=inline;hp=--cc

Reimplementierung von 55e9890a und 1465da30

Wurde in be40bd398c2911e87af5e9fd6025ea1faceb679c revertet.

Der ursprüngliche Bug 1056 wurde davon zwar behoben, aber beim Speichern von
Rechnungen wurden zum Teil Rechnungsdaten aus dem Auftrag überschrieben. Dieser
Patch übernimmt die Daten jetzt nur und ausschließlich, wenn ein Lieferschein
umgewandelt wird.
---

ee5544b2f861fefe3520ac20ec2e221516069f95
diff --git a/bin/mozilla/do.pl b/bin/mozilla/do.pl
index ae3436f65..b9f7fc16f 100644
--- a/bin/mozilla/do.pl
+++ b/bin/mozilla/do.pl
@@ -751,6 +751,15 @@ sub invoice {
   my $currency = $form->{currency};
   invoice_links();
 
+  if ($form->{ordnumber}) {
+    require SL::DB::Order;
+    if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
+      $order->load;
+      $form->{orddate} = $order->transdate_as_date;
+      $form->{$_}      = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
+    }
+  }
+
   $form->{currency}     = $currency;
   $form->{exchangerate} = "";
   $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);