X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/bc1bae42d28eafc013947cb42d8794a1685e9479..0f69c7262394cd4c831332f1e87a2b28ef6f6096:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 56162d543..58d4c4f91 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -407,7 +407,9 @@ sub form_footer { my ($tax, $subtotal); $form->{taxaccounts_array} = [ split / /, $form->{taxaccounts} ]; + my $paymet_id = $::form->{payment_id}; IS->get_customer(\%myconfig, \%$form) if $form->{type} =~ /sales_(order|quotation)/; + $::form->{payment_id} = $paymet_id; if ( $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) { $form->{taxincluded} = defined($form->{taxincluded_checked}) ? $form->{taxincluded_checked} : $myconfig{taxincluded_checked}; @@ -519,7 +521,7 @@ sub update { map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); if (!$form->{"forex_$i"}) { #read exchangerate from input field (not hidden) $form->{exchangerate} = $form->{"exchangerate_$i"}; - } + } $form->{"forex_$i"} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy'); $form->{"exchangerate_$i"} = $form->{"forex_$i"} if $form->{"forex_$i"}; } @@ -833,7 +835,7 @@ sub storno { $form->error($locale->text("Invoice has already been storno'd!")); } - map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password stylesheet type))); } keys(%{ $form })); + map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form })); invoice_links(); prepare_invoice(); @@ -883,8 +885,6 @@ sub delete { $form->header; print qq| - -