5 |
5 |
|
6 |
6 |
use Clone qw(clone);
|
7 |
7 |
use SL::DB::OrderItem;
|
|
8 |
use SL::DB::Business;
|
8 |
9 |
use SL::Controller::Helper::GetModels;
|
9 |
10 |
use SL::Controller::Helper::ReportGenerator;
|
10 |
11 |
use SL::Locale::String;
|
... | ... | |
39 |
40 |
$self->prepare_report;
|
40 |
41 |
|
41 |
42 |
my $orderitems = $self->models->get;
|
|
43 |
$self->{all_businesses} = SL::DB::Manager::Business->get_all_sorted;
|
42 |
44 |
|
43 |
|
$self->report_generator_list_objects(report => $self->{report}, objects => $orderitems);
|
|
45 |
$self->report_generator_list_objects(report => $self->{report}, objects => $orderitems);
|
44 |
46 |
}
|
45 |
47 |
|
46 |
48 |
# private functions
|
... | ... | |
122 |
124 |
my $filter = $::form->{filter} || {};
|
123 |
125 |
my @filter_strings;
|
124 |
126 |
|
|
127 |
my $business = SL::DB::Business->new(id => $filter->{order}{customer}{"business_id"})->load->description if $filter->{order}{customer}{"business_id"};
|
125 |
128 |
my @filters = (
|
126 |
|
[ $filter->{order}{"ordnumber:substr::ilike"}, $::locale->text('Number') ],
|
127 |
|
[ $filter->{part}{"partnumber:substr::ilike"}, $::locale->text('Part Number') ],
|
128 |
|
[ $filter->{"description:substr::ilike"}, $::locale->text('Part Description') ],
|
129 |
|
[ $filter->{"reqdate:date::ge"}, $::locale->text('Delivery Date') . " " . $::locale->text('From Date') ],
|
130 |
|
[ $filter->{"reqdate:date::le"}, $::locale->text('Delivery Date') . " " . $::locale->text('To Date') ],
|
131 |
|
[ $filter->{"qty:number"}, $::locale->text('Quantity') ],
|
132 |
|
[ $filter->{order}{vendor}{"name:substr::ilike"}, $::locale->text('Vendor') ],
|
133 |
|
[ $filter->{order}{vendor}{"vendornumber:substr::ilike"}, $::locale->text('Vendor Number') ],
|
134 |
|
[ $filter->{order}{customer}{"name:substr::ilike"}, $::locale->text('Customer') ],
|
135 |
|
[ $filter->{order}{customer}{"customernumber:substr::ilike"}, $::locale->text('Customer Number') ],
|
|
129 |
[ $filter->{order}{"ordnumber:substr::ilike"}, $::locale->text('Number') ],
|
|
130 |
[ $filter->{order}{globalproject}{"projectnumber:substr::ilike"}, $::locale->text('Document Project Number') ],
|
|
131 |
[ $filter->{part}{"partnumber:substr::ilike"}, $::locale->text('Part Number') ],
|
|
132 |
[ $filter->{"description:substr::ilike"}, $::locale->text('Part Description') ],
|
|
133 |
[ $filter->{"reqdate:date::ge"}, $::locale->text('Delivery Date') . " " . $::locale->text('From Date') ],
|
|
134 |
[ $filter->{"reqdate:date::le"}, $::locale->text('Delivery Date') . " " . $::locale->text('To Date') ],
|
|
135 |
[ $filter->{"qty:number"}, $::locale->text('Quantity') ],
|
|
136 |
[ $filter->{order}{vendor}{"name:substr::ilike"}, $::locale->text('Vendor') ],
|
|
137 |
[ $filter->{order}{vendor}{"vendornumber:substr::ilike"}, $::locale->text('Vendor Number') ],
|
|
138 |
[ $filter->{order}{customer}{"name:substr::ilike"}, $::locale->text('Customer') ],
|
|
139 |
[ $filter->{order}{customer}{"customernumber:substr::ilike"}, $::locale->text('Customer Number') ],
|
|
140 |
[ $business, $::locale->text('Customer type') ],
|
136 |
141 |
);
|
137 |
142 |
|
138 |
143 |
my %flags = (
|
Lieferplan: Filter für Projektnummer und Kundentyp
Conflicts: