| 8 |
8 |
use SL::DB::Order;
|
| 9 |
9 |
use SL::DB::ProjectType;
|
| 10 |
10 |
use SL::Controller::Helper::GetModels;
|
| 11 |
|
use SL::Controller::Helper::Paginated;
|
| 12 |
|
use SL::Controller::Helper::Sorted;
|
| 13 |
|
use SL::Controller::Helper::ParseFilter;
|
| 14 |
11 |
use SL::Controller::Helper::ReportGenerator;
|
| 15 |
12 |
use SL::Locale::String;
|
| 16 |
13 |
|
| 17 |
14 |
use Rose::Object::MakeMethods::Generic (
|
| 18 |
|
scalar => [ qw(db_args flat_filter project_types) ],
|
|
15 |
scalar => [ qw(project_types) ],
|
|
16 |
'scalar --get_set_init' => [ qw(models) ],
|
| 19 |
17 |
);
|
| 20 |
18 |
|
| 21 |
19 |
__PACKAGE__->run_before(sub { $::auth->assert('sales_order_edit'); });
|
| 22 |
20 |
|
| 23 |
|
__PACKAGE__->get_models_url_params('flat_filter');
|
| 24 |
|
__PACKAGE__->make_paginated(
|
| 25 |
|
MODEL => 'Order',
|
| 26 |
|
PAGINATE_ARGS => 'db_args',
|
| 27 |
|
ONLY => [ qw(list) ],
|
| 28 |
|
);
|
| 29 |
|
|
| 30 |
|
__PACKAGE__->make_sorted(
|
| 31 |
|
MODEL => 'Order',
|
| 32 |
|
ONLY => [ qw(list) ],
|
| 33 |
|
|
| 34 |
|
DEFAULT_BY => 'globalprojectnumber',
|
| 35 |
|
DEFAULT_DIR => 1,
|
| 36 |
|
|
|
21 |
my %sort_columns = (
|
| 37 |
22 |
ordnumber => t8('Order'),
|
| 38 |
23 |
customer => t8('Customer'),
|
| 39 |
24 |
transaction_description => t8('Transaction description'),
|
| ... | ... | |
| 47 |
32 |
|
| 48 |
33 |
$self->project_types(SL::DB::Manager::ProjectType->get_all_sorted);
|
| 49 |
34 |
|
| 50 |
|
$self->db_args($self->setup_db_args_for_list(filter => $::form->{filter}));
|
| 51 |
|
$self->flat_filter({ map { $_->{key} => $_->{value} } $::form->flatten_variables('filter') });
|
| 52 |
35 |
$self->make_filter_summary;
|
| 53 |
36 |
|
| 54 |
37 |
$self->prepare_report;
|
| 55 |
38 |
|
| 56 |
|
$self->{orders} = $self->get_models(%{ $self->db_args });
|
|
39 |
$self->{orders} = $self->models->get;
|
| 57 |
40 |
|
| 58 |
41 |
$self->calculate_data;
|
| 59 |
42 |
|
| ... | ... | |
| 62 |
45 |
|
| 63 |
46 |
# private functions
|
| 64 |
47 |
|
| 65 |
|
sub setup_db_args_for_list {
|
| 66 |
|
my ($self) = @_;
|
| 67 |
|
|
| 68 |
|
$self->{filter} = {};
|
| 69 |
|
my %args = ( parse_filter($::form->{filter}, with_objects => [ 'customer', 'globalproject', 'globalproject.project_type' ], launder_to => $self->{filter}));
|
| 70 |
|
$args{query} = [
|
| 71 |
|
@{ $args{query} || [] },
|
| 72 |
|
SL::DB::Manager::Order->type_filter('sales_order'),
|
| 73 |
|
'!closed' => 1,
|
| 74 |
|
or => [
|
| 75 |
|
globalproject_id => undef,
|
| 76 |
|
and => [
|
| 77 |
|
'globalproject.active' => 1,
|
| 78 |
|
'globalproject.valid' => 1,
|
| 79 |
|
]],
|
| 80 |
|
];
|
| 81 |
|
|
| 82 |
|
return \%args;
|
| 83 |
|
}
|
| 84 |
|
|
| 85 |
48 |
sub prepare_report {
|
| 86 |
49 |
my ($self) = @_;
|
| 87 |
50 |
|
| ... | ... | |
| 113 |
76 |
sub => sub { $_[0]->globalproject_id ? $_[0]->globalproject->project_type->description : '' } },
|
| 114 |
77 |
);
|
| 115 |
78 |
|
| 116 |
|
map { $column_defs{$_}->{text} ||= $::locale->text( $self->get_sort_spec->{$_}->{title} ) } keys %column_defs;
|
|
79 |
map { $column_defs{$_}->{text} ||= $::locale->text( $self->models->get_sort_spec->{$_}->{title} ) } keys %column_defs;
|
| 117 |
80 |
map { $column_defs{$_}->{align} = 'right' } @{ $self->{number_columns} };
|
| 118 |
81 |
|
| 119 |
82 |
$report->set_options(
|
| ... | ... | |
| 121 |
84 |
controller_class => 'FinancialControllingReport',
|
| 122 |
85 |
output_format => 'HTML',
|
| 123 |
86 |
top_info_text => $::locale->text('Financial controlling report for open sales orders'),
|
| 124 |
|
raw_top_info_text => $self->render('financial_controlling_report/report_top', { output => 0 }),
|
| 125 |
|
raw_bottom_info_text => $self->render('financial_controlling_report/report_bottom', { output => 0 }),
|
| 126 |
87 |
title => $::locale->text('Financial Controlling Report'),
|
| 127 |
88 |
allow_pdf_export => 1,
|
| 128 |
89 |
allow_csv_export => 1,
|
| ... | ... | |
| 131 |
92 |
$report->set_column_order(@columns);
|
| 132 |
93 |
$report->set_export_options(qw(list filter));
|
| 133 |
94 |
$report->set_options_from_form;
|
| 134 |
|
$self->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);
|
| 135 |
|
|
| 136 |
|
$self->disable_pagination if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
|
|
95 |
$self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;
|
|
96 |
$self->models->finalize;
|
|
97 |
$self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);
|
|
98 |
$report->set_options(
|
|
99 |
raw_top_info_text => $self->render('financial_controlling_report/report_top', { output => 0 }),
|
|
100 |
raw_bottom_info_text => $self->render('financial_controlling_report/report_bottom', { output => 0 }, models => $self->models),
|
|
101 |
);
|
| 137 |
102 |
}
|
| 138 |
103 |
|
| 139 |
104 |
sub calculate_data {
|
| ... | ... | |
| 232 |
197 |
$self->{filter_summary} = join ', ', @filter_strings;
|
| 233 |
198 |
}
|
| 234 |
199 |
|
|
200 |
sub init_models {
|
|
201 |
my ($self) = @_;
|
|
202 |
|
|
203 |
SL::Controller::Helper::GetModels->new(
|
|
204 |
controller => $self,
|
|
205 |
model => 'Order',
|
|
206 |
sorted => {
|
|
207 |
_default => {
|
|
208 |
by => 'globalprojectnumber',
|
|
209 |
dir => 1,
|
|
210 |
},
|
|
211 |
%sort_columns,
|
|
212 |
},
|
|
213 |
query => [
|
|
214 |
SL::DB::Manager::Order->type_filter('sales_order'),
|
|
215 |
'!closed' => 1,
|
|
216 |
or => [
|
|
217 |
globalproject_id => undef,
|
|
218 |
and => [
|
|
219 |
'globalproject.active' => 1,
|
|
220 |
'globalproject.valid' => 1,
|
|
221 |
]],
|
|
222 |
],
|
|
223 |
with_objects => [ 'customer', 'globalproject', 'globalproject.project_type' ],
|
|
224 |
);
|
|
225 |
}
|
|
226 |
|
| 235 |
227 |
sub link_to {
|
| 236 |
228 |
my ($self, $object, %params) = @_;
|
| 237 |
229 |
|
Finanzcontrolling auf getmodels umgestellt