Bei VK-Rechnung "als neu speichern" Wechselkurs löschen

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.

diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index a1af7b19bbdbded87b2b159f7c70f8c753f0afdb..4418d83d19ef0a986502fe87fc6577c3d82abce1 100644 (file)
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -816,12 +816,14 @@ sub use_as_new {
 
   $main::auth->assert('invoice_edit');
 
 
   $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->{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);
 
   # remember pricegroups for "use as new"
   IS->get_pricegroups_for_parts(\%myconfig, \%$form);