From dfe15b56dd6470476c42b7b10a0ab211e246941e Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Fri, 24 Jan 2014 14:50:15 +0100 Subject: [PATCH] =?utf8?q?Bei=20VK-Rechnung=20"als=20neu=20speichern"=20We?= =?utf8?q?chselkurs=20l=C3=B6schen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Die als neu gespeicherte Rechnung bekommt das aktuelle Tagesdatum. Der alte Währungskurs wird erst rausgelöscht, und dann wird entweder der schon existierende Tageskurs geladen, oder es kommt das Eingabefeld für die Eingabe des Tageskurses. Bisher wurde bei "als neu speichern" und Wechselkurs der alte Kurs falsch formatiert übernommen. --- bin/mozilla/is.pl | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index a1af7b19b..4418d83d1 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -816,12 +816,14 @@ sub use_as_new { $main::auth->assert('invoice_edit'); - delete @{ $form }{qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno locked)}; - $form->{paidaccounts} = 1; + delete @{ $form }{qw(printed emailed queued invnumber invdate exchangerate forex deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno locked)}; $form->{rowcount}--; - $form->{invdate} = $form->current_date(\%myconfig); - $form->{duedate} = $form->get_duedate(\%myconfig, $form->{invdate}) || $form->{invdate}; - $form->{employee_id} = SL::DB::Manager::Employee->current->id; + $form->{paidaccounts} = 1; + $form->{invdate} = $form->current_date(\%myconfig); + $form->{duedate} = $form->get_duedate(\%myconfig, $form->{invdate}) || $form->{invdate}; + $form->{employee_id} = SL::DB::Manager::Employee->current->id; + $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy'); + $form->{exchangerate} = $form->{forex} if $form->{forex}; # remember pricegroups for "use as new" IS->get_pricegroups_for_parts(\%myconfig, \%$form); -- 2.20.1