Revision 4d20c181
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 672 | 672 |
? $locale->text('Tax Included')
|
| 673 | 673 |
: $locale->text('Tax');
|
| 674 | 674 |
|
| 675 |
$form->{invtotal_unformatted} = $form->{invtotal};
|
|
| 675 | 676 |
$form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);
|
| 676 | 677 |
|
| 677 | 678 |
$APselected = |
| ... | ... | |
| 741 | 742 |
</tr> |
| 742 | 743 |
"; |
| 743 | 744 |
|
| 744 |
my @triggers = (); |
|
| 745 |
my @triggers = (); |
|
| 746 |
my $totalpaid = 0; |
|
| 747 |
|
|
| 745 | 748 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 746 | 749 |
for $i (1 .. $form->{paidaccounts}) {
|
| 747 | 750 |
print " |
| ... | ... | |
| 755 | 758 |
'-labels' => \%AP_paid_labels, |
| 756 | 759 |
'-default' => $form->{"AP_paid_$i"}));
|
| 757 | 760 |
|
| 761 |
$totalpaid += $form->{"paid_$i"};
|
|
| 762 |
|
|
| 758 | 763 |
# format amounts |
| 759 | 764 |
if ($form->{"paid_$i"}) {
|
| 760 | 765 |
$form->{"paid_$i"} =
|
| ... | ... | |
| 805 | 810 |
"; |
| 806 | 811 |
push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); |
| 807 | 812 |
} |
| 808 |
print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . |
|
| 813 |
|
|
| 814 |
my $paid_missing = $form->{invtotal_unformatted} - $totalpaid;
|
|
| 815 |
|
|
| 816 |
print qq| |
|
| 817 |
<tr> |
|
| 818 |
<td></td> |
|
| 819 |
<td></td> |
|
| 820 |
<td align="center">| . $locale->text('Total') . qq|</td>
|
|
| 821 |
<td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td> |
|
| 822 |
</tr> |
|
| 823 |
<tr> |
|
| 824 |
<td></td> |
|
| 825 |
<td></td> |
|
| 826 |
<td align="center">| . $locale->text('Missing amount') . qq|</td>
|
|
| 827 |
<td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td> |
|
| 828 |
</tr> |
|
| 829 |
| . $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . |
|
| 809 | 830 |
qq| |
| 810 | 831 |
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
|
| 811 | 832 |
|
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.