From 10c58e4ea58e285640f987307f54a639dcb95e00 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Mon, 28 Sep 2015 22:12:52 +0200 Subject: [PATCH] =?utf8?q?FlattenToForm:=20$form->{vc}=20auch=20f=C3=BCr?= =?utf8?q?=20Order=20setzen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Hintergrund: SL::IC->retrieve_accounts verwendet vc, um die Steuern zu ermitteln. Dieses wieder wird in SL::Form::prepare_for_printing benutzt. --- SL/DB/Helper/FlattenToForm.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SL/DB/Helper/FlattenToForm.pm b/SL/DB/Helper/FlattenToForm.pm index 04101c3f0..4b87a5567 100644 --- a/SL/DB/Helper/FlattenToForm.pm +++ b/SL/DB/Helper/FlattenToForm.pm @@ -25,7 +25,7 @@ sub flatten_to_form { $form->{$transdate_idx} = $self->transdate->to_lxoffice; } - $form->{vc} = $vc if ref($self) =~ /^SL::DB::.*Invoice/; + $form->{vc} = $vc if ref($self) =~ m{^SL::DB::(?:.*Invoice|Order)}; my @vc_fields = (qw(account_number bank bank_code bic business city contact country creditlimit department_1 department_2 discount email fax homepage iban language name -- 2.20.1