projekt kivitendo

use SL::DB::Business;

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

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

use SL::Locale::String;

use SL::AM;

use Carp;

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

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

);

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

my %sort_columns = (

reqdate => t8('Reqdate'),

delivered_qty => t8('transferred in / out'),

not_shipped_qty => t8('not shipped'),

vendor => t8('Vendor'),

);

sub action_list {

$self->prepare_report;

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

$self->calc_qtys($orderitems);

$self->setup_list_action_bar;

}

# private functions

sub prepare_report {

my ($self) = @_;

my $vc = $self->vc;

my $report = SL::ReportGenerator->new(\%::myconfig, $::form);

$self->{report} = $report;

my @columns = qw(reqdate customer vendor ordnumber partnumber description qty shipped_qty not_shipped_qty delivered_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 use_linked_items));

$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);

$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 {

my %orderitems_by_id = map { $_->id => $_ } @$orderitems;

my $query = $self->use_linked_items ? _calc_qtys_query_linked_items(scalar @$orderitems)

my $query = <<SQL;

SELECT oi.id, doi.qty, doi.unit, doe.delivered

FROM record_links rl

AND oi.id IN (@{[ join ', ', ("?")x $num_items ]})

SQL

return $query;

sub _calc_qtys_query_linked_items {

}

sub make_filter_summary {

my $vc = $self->vc;

my ($business, $employee);

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"};

my @filters = (

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

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

);

my %flags = (

);

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

push @filter_strings, $_ if $_;

}

sub delivery_plan_query {

my ($self) = @_;

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

my $oe_owner = $_[0]->all_edit_right ? '' : " oe.employee_id = $employee_id AND";

[

"order.${vc}_id" => { gt => 0 },

'order.closed' => 0,

oe.${vc}_id IS NOT NULL AND

(oe.quotation = 'f' OR oe.quotation IS NULL) AND

-- 4. since the join over record_links fails for sales_orders without any delivery order

-- retrieve those without record_links at all

oe.${vc}_id IS NOT NULL AND

(oe.quotation = 'f' OR oe.quotation IS NULL) AND

-- 5. now for the really nasty cases.

oe.${vc}_id IS NOT NULL AND

$oe_owner

) AND

coalesce(sum, 0) < oi.qty AND

oe.${vc}_id IS NOT NULL AND

$oe_owner

(oe.quotation = 'f' OR oe.quotation IS NULL) AND NOT oe.closed

" ], # make emacs happy again: '

]

sub init_models {

my $vc = $self->vc;

my $query = $self->use_linked_items ? $self->delivery_plan_query_linked_items

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

controller => $self,

},

query => $query,

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

additional_url_params => { vc => $vc, use_linked_items => $self->use_linked_items },

);

sub init_all_edit_right {

sub init_vc {

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

}

sub init_use_linked_items {

sub init_all_employees {

sub init_all_businesses {

sub link_to {

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;