Revision 1325f18e
Von Cem Aydin vor fast 2 Jahren hinzugefügt
SL/Controller/ChartOfAccounts.pm | ||
---|---|---|
19 | 19 |
|
20 | 20 |
sub action_list { |
21 | 21 |
my ($self) = @_; |
22 |
|
|
22 |
|
|
23 | 23 |
if ( $::instance_conf->get_accounting_method eq 'cash' ) { |
24 | 24 |
$::form->{method} = "cash"; |
25 | 25 |
} |
... | ... | |
66 | 66 |
|
67 | 67 |
my $debit_sum = 0.; |
68 | 68 |
my $credit_sum = 0.; |
69 |
|
|
69 |
|
|
70 | 70 |
# i tried to use the get_balance function from SL::DB::Manager::Chart here, |
71 | 71 |
# but the results i got were different (numbers and defined balance/amount), |
72 | 72 |
# the database queries in CA are more sophisticated, therefore i'm still using these for now, |
... | ... | |
103 | 103 |
debit => { data => $::form->format_amount(\%::myconfig, $debit_sum * -1., 2)}, |
104 | 104 |
credit => { data => $::form->format_amount(\%::myconfig, $credit_sum, 2)}, |
105 | 105 |
); |
106 |
%data_total{$_}->{align} = 'right' for qw(debit credit);
|
|
107 |
%data_total{$_}->{class} = 'listtotal' for keys %data_total;
|
|
106 |
$data_total{$_}->{align} = 'right' for qw(debit credit);
|
|
107 |
$data_total{$_}->{class} = 'listtotal' for keys %data_total;
|
|
108 | 108 |
|
109 | 109 |
$self->report->add_data(\%data_total); |
110 | 110 |
} |
Auch abrufbar als: Unified diff
ChartOfAccounts Controller: Compiler-Warnungen gemäss Tests behoben, Leerzeichen entfernt