Revision ff9c4ef2
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 494 | 494 |
. $locale->date(\%myconfig, $form->{dateto}, 1);
|
| 495 | 495 |
} |
| 496 | 496 |
|
| 497 |
@columns = |
|
| 498 |
qw(transdate id reference description notes source debit debit_accno credit |
|
| 499 |
credit_accno debit_tax debit_tax_accno credit_tax credit_tax_accno accno |
|
| 500 |
gifi_accno projectnumbers); |
|
| 497 |
@columns = $form->sort_columns( qw( |
|
| 498 |
transdate id reference description |
|
| 499 |
notes source debit debit_accno |
|
| 500 |
credit credit_accno debit_tax debit_tax_accno |
|
| 501 |
credit_tax credit_tax_accno accno gifi_accno |
|
| 502 |
projectnumbers |
|
| 503 |
) |
|
| 504 |
); |
|
| 501 | 505 |
|
| 502 | 506 |
if ($form->{accno} || $form->{gifi_accno}) {
|
| 503 | 507 |
@columns = grep !/(accno|gifi_accno)/, @columns; |
| ... | ... | |
| 833 | 837 |
|
| 834 | 838 |
map { $column_data{$_} = "<td> </td>" } @column_index;
|
| 835 | 839 |
|
| 840 |
my $balanced_ledger = $totaldebit |
|
| 841 |
+ $totaldebittax |
|
| 842 |
- $totalcredit |
|
| 843 |
- $totalcredittax; |
|
| 844 |
# = 0 for balanced ledger |
|
| 845 |
|
|
| 836 | 846 |
$column_data{debit} =
|
| 837 | 847 |
"<th align=right class=listtotal>" |
| 838 | 848 |
. $form->format_amount(\%myconfig, $totaldebit, 2, " ") . "</th>"; |
| ... | ... | |
| 857 | 867 |
|
| 858 | 868 |
print qq| |
| 859 | 869 |
</tr> |
| 870 |
<tr>|; |
|
| 871 |
|
|
| 872 |
|
|
| 873 |
if ( abs($balanced_ledger) > 0.001 ) {
|
|
| 874 |
|
|
| 875 |
print qq|<td colspan="4" style="background-color:#FFA0A0" >| |
|
| 876 |
. $locale->text('Unbalanced Ledger')
|
|
| 877 |
. ": " |
|
| 878 |
. $form->format_amount(\%myconfig, $balanced_ledger, 3, " ") |
|
| 879 |
|
|
| 880 |
} elsif ( abs($balanced_ledger) <= 0.001 ) {
|
|
| 881 |
|
|
| 882 |
print qq|<td colspan="3">| |
|
| 883 |
. $locale->text('Balanced Ledger')
|
|
| 884 |
|
|
| 885 |
} |
|
| 886 |
|
|
| 887 |
|
|
| 888 |
print qq| |
|
| 889 |
</td> |
|
| 890 |
</tr> |
|
| 860 | 891 |
</tbody> |
| 861 | 892 |
</table> |
| 862 | 893 |
</td> |
Auch abrufbar als: Unified diff
Unbalanced Ledger Fehlermeldung im Buchungsjournal wieder hinzugefuegt.
Das Buchungsjournal wird immer dargestellt. Im Falle eines Fehlers
(soll+vst) - (haben+ust) > 0.001
wird im Tabellenfuss die Unbalanced Ledger
Meldung ausgegeben mit dem Bilanzfehler.