Revision ff9c4ef2
Von Udo Spallek vor etwa 18 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
|
. $locale->date(\%myconfig, $form->{dateto}, 1);
|
||
|
}
|
||
|
|
||
|
@columns =
|
||
|
qw(transdate id reference description notes source debit debit_accno credit
|
||
|
credit_accno debit_tax debit_tax_accno credit_tax credit_tax_accno accno
|
||
|
gifi_accno projectnumbers);
|
||
|
@columns = $form->sort_columns( qw(
|
||
|
transdate id reference description
|
||
|
notes source debit debit_accno
|
||
|
credit credit_accno debit_tax debit_tax_accno
|
||
|
credit_tax credit_tax_accno accno gifi_accno
|
||
|
projectnumbers
|
||
|
)
|
||
|
);
|
||
|
|
||
|
if ($form->{accno} || $form->{gifi_accno}) {
|
||
|
@columns = grep !/(accno|gifi_accno)/, @columns;
|
||
| ... | ... | |
|
|
||
|
map { $column_data{$_} = "<td> </td>" } @column_index;
|
||
|
|
||
|
my $balanced_ledger = $totaldebit
|
||
|
+ $totaldebittax
|
||
|
- $totalcredit
|
||
|
- $totalcredittax;
|
||
|
# = 0 for balanced ledger
|
||
|
|
||
|
$column_data{debit} =
|
||
|
"<th align=right class=listtotal>"
|
||
|
. $form->format_amount(\%myconfig, $totaldebit, 2, " ") . "</th>";
|
||
| ... | ... | |
|
|
||
|
print qq|
|
||
|
</tr>
|
||
|
<tr>|;
|
||
|
|
||
|
|
||
|
if ( abs($balanced_ledger) > 0.001 ) {
|
||
|
|
||
|
print qq|<td colspan="4" style="background-color:#FFA0A0" >|
|
||
|
. $locale->text('Unbalanced Ledger')
|
||
|
. ": "
|
||
|
. $form->format_amount(\%myconfig, $balanced_ledger, 3, " ")
|
||
|
|
||
|
} elsif ( abs($balanced_ledger) <= 0.001 ) {
|
||
|
|
||
|
print qq|<td colspan="3">|
|
||
|
. $locale->text('Balanced Ledger')
|
||
|
|
||
|
}
|
||
|
|
||
|
|
||
|
print qq|
|
||
|
</td>
|
||
|
</tr>
|
||
|
</tbody>
|
||
|
</table>
|
||
|
</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.