Revision 94ebf174
Von Werner Hahn vor etwa 6 Jahren hinzugefügt
| SL/Controller/CustomerVendorTurnover.pm | ||
|---|---|---|
| 9 | 9 |
use SL::DB::Letter; |
| 10 | 10 |
use SL::DB; |
| 11 | 11 |
|
| 12 |
__PACKAGE__->run_before('check_auth');
|
|
| 12 | 13 |
|
| 13 | 14 |
sub action_list_turnover {
|
| 14 | 15 |
my ($self) = @_; |
| ... | ... | |
| 95 | 96 |
|
| 96 | 97 |
my $cv = $::form->{id};
|
| 97 | 98 |
|
| 98 |
my $query = <<SQL |
|
| 99 |
my $query = <<SQL;
|
|
| 99 | 100 |
SELECT CONCAT(EXTRACT (MONTH FROM d.transdate),'/',EXTRACT (YEAR FROM d.transdate)) AS date_part, |
| 100 | 101 |
count(d.id), |
| 101 | 102 |
max(d.dunning_level) |
| ... | ... | |
| 440 | 441 |
$self->render('customer_vendor_turnover/letter_statistic', { layout => 0 }, letters => $letters);
|
| 441 | 442 |
} |
| 442 | 443 |
|
| 444 |
sub check_auth {
|
|
| 445 |
$::auth->assert('show_extra_record_tab_customer | show_extra_record_tab_vendor');
|
|
| 446 |
} |
|
| 447 |
|
|
| 443 | 448 |
1; |
| 444 | 449 |
|
| 445 | 450 |
__END__ |
Auch abrufbar als: Unified diff
Kundenstatistik: Rechte abgefragt