Bugfix: Bei Lieferschein->Rechnung Konvertierung werden die Originallieferdaten übern...
authorSven Schöling <s.schoeling@linet-services.de>
Thu, 3 Sep 2009 09:43:17 +0000 (11:43 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Thu, 3 Sep 2009 09:43:17 +0000 (11:43 +0200)
Fix für Bug 1125.

SL/DO.pm
bin/mozilla/do.pl

index f2675d3..48baa7a 100644 (file)
--- a/SL/DO.pm
+++ b/SL/DO.pm
@@ -660,7 +660,7 @@ sub retrieve {
          doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,
          doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,
          doi.price_factor_id, doi.price_factor, doi.marge_price_factor,
-         pr.projectnumber,
+         pr.projectnumber, dord.transdate AS dord_transdate,
          pg.partsgroup
        FROM delivery_order_items doi
        JOIN parts p ON (doi.parts_id = p.id)
index a2eda3f..ebaffc6 100644 (file)
@@ -768,6 +768,7 @@ sub invoice_multi {
   $form->{rowcount} = 0;
   foreach my $ref (@{ $form->{form_details} }) {
     $form->{rowcount}++;
+    $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
     map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
     map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice discount lastcost);
   }