projekt kivitendo

use SL::DB::Order::TypeData qw(:types);

use SL::DB::Business;

use SL::Controller::Helper::GetModels;

use SL::Controller::Helper::ReportGenerator;

use SL::Locale::String;

use SL::Helper::ShippedQty;

use SL::AM;

use Carp;

use Rose::Object::MakeMethods::Generic (

'scalar --get_set_init' => [ qw(models all_edit_right vc all_employees all_businesses all_departments) ],

);

__PACKAGE__->run_before(sub { $::auth->assert('delivery_plan'); });

my %sort_columns = (

reqdate => t8('Reqdate'),

vendor => t8('Vendor'),

);

sub action_list {

$self->prepare_report;

my $orderitems = $self->models->get;

$self->calc_qtys($orderitems);

$self->setup_list_action_bar;

$self->report_generator_list_objects(report => $self->{report}, objects => $orderitems);

}

# private functions

sub prepare_report {

my ($self) = @_;

my $vc = $self->vc;

$report->{title} = t8('Delivery Plan');

$self->{report} = $report;

my @columns = qw(reqdate customer vendor ordnumber partnumber description qty shipped_qty not_shipped_qty);

reqdate => { sub => sub { $_[0]->reqdate_as_date || $_[0]->order->reqdate_as_date } },

obj_link => sub { $self->link_to($_[0]->part) } },

partnumber => { sub => sub { $_[0]->part->partnumber },

obj_link => sub { $self->link_to($_[0]->part) } },

qty => { sub => sub { $_[0]->qty_as_number . ' ' . $_[0]->unit } },

ordnumber => { sub => sub { $_[0]->order->ordnumber },

obj_link => sub { $self->link_to($_[0]->order) } },

vendor => { sub => sub { $_[0]->order->vendor->name },

);

$column_defs{$_}->{text} = $sort_columns{$_} for keys %column_defs;

$report->set_options(

std_column_visibility => 1,

top_info_text => ($vc eq 'customer') ? $::locale->text('Delivery Plan for currently outstanding sales orders') :

$::locale->text('Delivery Plan for currently outstanding purchase orders'),

title => $::locale->text('Delivery Plan'),

allow_pdf_export => 1,

);

$report->set_columns(%column_defs);

$report->set_export_options(qw(list filter vc));

$report->set_options_from_form;

$self->models->disable_plugin('paginated') if $report->{options}{output_format} =~ /^(pdf|csv)$/i;

$self->models->set_report_generator_sort_options(report => $report, sortable_columns => \@sortable);

$self->{assembly_item_number} = $::form->{assembly_item_number} ? $::form->{assembly_item_number} : undef;

$report->set_options(

raw_top_info_text => $self->render('delivery_plan/report_top', { output => 0 }),

raw_bottom_info_text => $self->render('delivery_plan/report_bottom', { output => 0 }, models => $self->models),

}

sub calc_qtys {

SL::Helper::ShippedQty

->new()

->calculate($orderitems)

}

sub make_filter_summary {

my $vc = $self->vc;

my ($business, $employee, $department, $assembly_item_number);

my $filter = $::form->{filter} || {};

my @filter_strings;

$business = SL::DB::Business->new(id => $filter->{order}{customer}{"business_id"})->load->description if $filter->{order}{customer}{"business_id"};

$department = SL::DB::Department->new(id => $filter->{order}{department_id})->load->description if $filter->{order}{department_id};

$assembly_item_number = $::form->{assembly_item_number};

my @filters = (

[ $filter->{order}{"ordnumber:substr::ilike"}, $::locale->text('Number') ],

[ $department, $::locale->text('Department') ],

[ $employee, $::locale->text('Employee') ],

[ $assembly_item_number, $::locale->text('Assembly Item Number') ],

);

my %flags = (

);

my @flags = map { $flags{$_} } @{ $filter->{part}{type} || [] };

push @filter_strings, $_ if $_;

}

sub delivery_plan_query_linked_items {

my $record_type = ($self->vc eq 'customer' ? SALES_ORDER_TYPE() : PURCHASE_ORDER_TYPE());

my $employee_id = SL::DB::Manager::Employee->current->id;

record_type => $record_type,

'order.closed' => 0,

oe.record_type = '$record_type' AND

NOT oe.closed AND

oe.record_type = '$record_type' AND

NOT oe.closed AND

NOT EXISTS (

SELECT from_id

rl.from_table = 'orderitems' AND

)

]

sub init_models {

my $vc = $self->vc;

my $query = $self->delivery_plan_query_linked_items;

if ($::form->{assembly_item_number}) {

SL::Controller::Helper::GetModels->new(

controller => $self,

},

query => $query,

with_objects => [ 'order', "order.$vc", 'part' ],

additional_url_params => { vc => $vc },

);

sub init_all_edit_right {

return $_[0]->vc eq 'customer' ? $::auth->assert('sales_all_edit', 1) : $::auth->assert('purchase_all_edit', 1);

}

sub init_vc {

return $::form->{vc} if ($::form->{vc} eq 'customer' || $::form->{vc} eq 'vendor') || croak "self (DeliveryPlan) has no vc defined";

}

sub init_all_employees {

sub init_all_businesses {

sub init_all_departments {

sub link_to {

if ($::instance_conf->get_feature_experimental_order) {

return "controller.pl?action=Order/$action&type=$type&id=$id";

}

return "controller.pl?action=Part/$action&part.id=$id";

}

return "controller.pl?action=CustomerVendor/$action&id=$id&db=customer";

}

sub setup_list_action_bar {

1;