Original-Rechnung bei Mahnung Drucken: sellprice aus fxsellprice setzen

Sonst stimmt z.B. der Rabatt nicht, da sellprice in der DB den rabattierten
Wert enthält/enthalten kann. sellprice wird aber in IS::invoice_details (
aufgerufen aus Form::prepare_for_printing) als unrabattierter Einzelpreis
verwendet.

diff --git a/SL/DN.pm b/SL/DN.pm
index 976b6aa..46ab23a 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -1128,6 +1128,9 @@ sub print_original_invoices {
   $print_form->{media}    = 'file';
   # no language override, should always be the object's language
   $invoice->flatten_to_form($print_form, format_amounts => 1);
+  for my $i (1 .. $print_form->{rowcount}) {
+    $print_form->{"sellprice_$i"} = $print_form->{"fxsellprice_$i"};
+  }
   $print_form->prepare_for_printing;
 
   my $filename = SL::Helper::CreatePDF->create_pdf(