X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fis.pl;h=66aa4b8f2583e313fff9e7eae7ffe9fe4b60b8d4;hb=469ca9fc3cac624073270fc3217766dbb7aba253;hp=d99d1eb3798d613b81ad9f6a4d28a5b9af6fa443;hpb=752fd6ad6e059ac1e890ed463e02cad29a646d14;p=kivitendo-erp.git diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index d99d1eb37..66aa4b8f2 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -576,7 +576,7 @@ sub update { $form->{creditremaining} -= $amount; - map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost); + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice lastcost); $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); @@ -938,6 +938,12 @@ sub credit_note { # map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } # qw(creditlimit creditremaining); + for my $i (1 .. $form->{rowcount}) { + for (qw(listprice)) { + $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"}; + } + } + my $currency = $form->{currency}; &invoice_links;