X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fcp.pl;h=ce4174742628501c86fef7fac82dcbc67e4c0ac4;hb=101a5e1f45b26386025a130be304a333ee8b64b7;hp=ad646b1f1b1566fac53dbe3e88365de360770eb4;hpb=d1c335e9bb0a35d45acd03b29d1e759f26c5664c;p=kivitendo-erp.git diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index ad646b1f1..ce4174742 100644 --- a/bin/mozilla/cp.pl +++ b/bin/mozilla/cp.pl @@ -603,7 +603,10 @@ sub update { } # recalculate - $amount = $form->{amount}; + + # Modified from $amount = $form->{amount} by J.Zach to update amount to total + # payment amount in Zahlungsausgang + $amount = 0; for $i (1 .. $form->{rowcount}) { map { @@ -618,7 +621,9 @@ sub update { $form->{"paid_$i"} = $form->{"due_$i"}; } - $amount -= $form->{"paid_$i"}; + # Modified by J.Zach, see abovev + $amount += $form->{"paid_$i"}; + } else { $form->{"paid_$i"} = ""; } @@ -630,6 +635,9 @@ sub update { } + # Line added by J.Zach, see above + $form->{amount}=$amount; + &form_header; &list_invoices; &form_footer; @@ -716,10 +724,6 @@ sub print { $form->{company} = $myconfig{company}; $form->{address} = $myconfig{address}; - @a = - qw(name invnumber company address text_amount street zipcode city country memo); - $form->format_string(@a); - $form->parse_template(\%myconfig, $userspath); if ($form->{media} ne 'screen') {