projekt kivitendo

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

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

use Rose::Object::MakeMethods::Generic

(

 'scalar --get_set_init' => [ qw(models) ],

);

  $self->{action} = 'list_parts';

  $self->prepare_report('Reorder Level List', $::form->{noshow} ? 1 : 0 );

  my $objects = $::form->{noshow} ? [] : $self->models->get;

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

sub prepare_report {

  my ($self, $title, $noshow ) = @_;

  $main::lxdebug->enter_sub();

  my $locale   = $main::locale;

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

  $self->{report} = $report;

  my @columns  = qw(partnumber description drawing available onhand ordered); # consume);

  my @visible  = qw(partnumber description drawing available onhand ordered); # consume);

  my @sortable = qw(partnumber description); # consume);

  my %column_defs = (

    'partnumber'                  => { sub                                   => sub { $_[0]->partnumber }, text                                                   => t8('Part Number'),

                         obj_link => sub { $_[0]->presenter->link_to },   },

    'description'                 => { sub                                   => sub { $_[0]->description }, text                                                  => t8('Part Description'),

                         obj_link => sub { $_[0]->presenter->link_to },   },

    'drawing'                     => { sub                                   => sub { $_[0]->drawing }, text                                                      => t8('Drawing'), },

    'available'                   => { sub                                   => sub { $::form->format_amount(\%::myconfig,$_[0]->onhandqty,2); }, text            => t8('Available Stock'), },

    'onhand'                      => { sub                                   => sub { $::form->format_amount(\%::myconfig,$_[0]->stockqty,2); }, text             => t8('All On Hand'), },

    'rop'                         => { sub                                   => sub { $::form->format_amount(\%::myconfig,$_[0]->rop,2); }, text                  => t8('Rop'), },

    'ordered'                     => { sub                                   => sub { $::form->format_amount(\%::myconfig,$_[0]->get_open_ordered_qty,2); }, text => t8('Ordered purchase'), },

    # 'consume'       => { sub => sub { $::form->format_amount(\%::myconfig,$_[0]->consume,2); }, text => t8('Consume'), },

      );

#  for my $col (@sortable) {

#    $column_defs{$col}{link} = $self->self_url(

#      sort_by  => $col,

#      sort_dir => ($self->{sort_by} eq $col ? 1 - $self->{sort_dir} : $self->{sort_dir}),

#      page     => $self->{pages}{cur},

#      retype   => $::form->{retype},

#      stock    => $::form->{stock},

#    );

#  }

  map { $column_defs{$_}->{visible} = 1 } @visible;

  $report->set_options(

    controller_class     => 'DispositionManager',

    output_format        => 'HTML',

    title                => t8($title),

    allow_pdf_export      => 1,

    allow_csv_export      => 1,

    no_data_message       => !$noshow,

  );

  $report->set_columns(%column_defs);

  $report->set_column_order(@columns);

  $report->set_export_options(qw(list_parts));

  $report->set_options_from_form;

  unless ( $noshow ) {

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

    $self->models->finalize; # for filter laundering

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

    #$report->set_sort_indicator($self->{sort_by}, $self->{sort_dir});

  }

  #$::request->layout->add_javascripts('kivi.PartsWarehouse.js');

  #$::form->get_lists('warehouses' => { 'key'    => 'WAREHOUSES',

  #                                     'bins'   => 'BINS', });

  my $parts = $self->_get_parts(0);

  my $top    = $self->render('disposition_manager/list_parts', { output => 0 },

                             noshow => $noshow,

                             PARTS => $parts,

                           );

  my $bottom = $noshow ? undef : $self->render('reorder_level_list/report_bottom', { output => 0}, models => $self->models );

  $report->set_options(

    raw_top_info_text    => $top,

    raw_bottom_info_text => $bottom,

  );

  $main::lxdebug->leave_sub();

}

  my ($self, $ordered) = @_;

  my $parts = SL::DB::Manager::Part->get_objects_from_sql( sql => $query );

  my $parts_to_order = [ grep { !$_->get_open_ordered_qty } @{$parts} ];

  my $parts_ordered = [ map { $_->id } grep { $_->get_open_ordered_qty } @{$parts} ];

  return $parts_to_order if !$ordered;

  return $parts_ordered if $ordered;

sub init_models {

  my ($self) = @_;

  my $parts1 = $self->_get_parts(1) || [];

  my @parts = @{$parts1};

  my $get_models =  SL::Controller::Helper::GetModels->new(

    controller => $self,

    model => 'Part',

    sorted => {

      _default => {

        by    => 'partnumber',

        dir   => 1,

      },

      partnumber   => $::locale->text('Part Number'),

      description   => $::locale->text('Description'),

     },

    query        => [

      (id            => \@parts) x !!@parts,

    ],

    paginated => {

      form_params => [ qw(page per_page) ],

      per_page    => 10,

    }

  );

  return $get_models;

}