Revision 4d20c181
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 730 | 730 |
</tr> |
| 731 | 731 |
|; |
| 732 | 732 |
|
| 733 |
my @triggers = (); |
|
| 733 |
my @triggers = (); |
|
| 734 |
my $totalpaid = 0; |
|
| 735 |
|
|
| 734 | 736 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 735 | 737 |
for $i (1 .. $form->{paidaccounts}) {
|
| 736 | 738 |
|
| ... | ... | |
| 742 | 744 |
$form->{"selectAP_paid_$i"} =~
|
| 743 | 745 |
s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
|
| 744 | 746 |
|
| 747 |
$totalpaid += $form->{"paid_$i"};
|
|
| 748 |
|
|
| 745 | 749 |
# format amounts |
| 746 | 750 |
if ($form->{"paid_$i"}) {
|
| 747 | 751 |
$form->{"paid_$i"} =
|
| ... | ... | |
| 785 | 789 |
push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); |
| 786 | 790 |
} |
| 787 | 791 |
|
| 792 |
my $paid_missing = $form->{oldinvtotal} - $totalpaid;
|
|
| 793 |
|
|
| 788 | 794 |
print qq| |
| 795 |
<tr> |
|
| 796 |
<td></td> |
|
| 797 |
<td></td> |
|
| 798 |
<td align="center">| . $locale->text('Total') . qq|</td>
|
|
| 799 |
<td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td> |
|
| 800 |
</tr> |
|
| 801 |
<tr> |
|
| 802 |
<td></td> |
|
| 803 |
<td></td> |
|
| 804 |
<td align="center">| . $locale->text('Missing amount') . qq|</td>
|
|
| 805 |
<td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td> |
|
| 806 |
</tr> |
|
| 807 |
|
|
| 789 | 808 |
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
|
| 790 | 809 |
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
|
| 791 | 810 |
<input type=hidden name=selectAP_paid value="$form->{selectAP_paid}">
|
Auch abrufbar als: Unified diff
Bei Eingangs-, Ausgangs-, Kreditoren- und Debitorenrechnungen unterhalb der Zahlungsein- bzw. -ausgänge die bisher gebuchte Summe und den noch offenen Betrag anzeigen.