SL/Controller/LiquidityProjection.pm

   1 package SL::Controller::LiquidityProjection;
   2
   3 use strict;
   4
   5 use parent qw(SL::Controller::Base);
   6
   7 use SL::Locale::String;
   8 use SL::LiquidityProjection;
   9 use SL::Util qw(_hashify);
  10
  11 __PACKAGE__->run_before('check_auth');
  12
  13 use Rose::Object::MakeMethods::Generic (
  14   scalar                  => [ qw(liquidity) ],
  15   'scalar --get_set_init' => [ qw(oe_report_columns_str) ],
  16 );
  17
  18
  19 #
  20 # actions
  21 #
  22
  23 sub action_show {
  24   my ($self) = @_;
  25
  26   $self->liquidity(SL::LiquidityProjection->new(%{ $::form->{params} })->create) if $::form->{params};
  27
  28   $::form->{params} ||= {
  29     months            => 6,
  30     type              => 1,
  31     salesman          => 1,
  32     buchungsgruppe    => 1,
  33   };
  34
  35   $self->render('liquidity_projection/show', title => t8('Liquidity projection'));
  36 }
  37
  38 #
  39 # filters
  40 #
  41
  42 sub check_auth                 { $::auth->assert('report') }
  43 sub init_oe_report_columns_str { join '&', map { "$_=Y" } qw(open delivered notdelivered l_ordnumber l_transdate l_reqdate l_name l_employee l_salesman l_netamount l_amount l_transaction_description) }
  44
  45 #
  46 # helpers
  47 #
  48
  49 sub link_to_old_orders {
  50   my $self    = shift;
  51   my %params  = _hashify(0, @_);
  52
  53   my $reqdate = $params{reqdate};
  54   my $months  = $params{months} * 1;
  55
  56   my $fields  = '';
  57
  58   if ($reqdate eq 'old') {
  59     $fields .= '&reqdate_unset_or_old=Y';
  60
  61   } elsif ($reqdate eq 'future') {
  62     my @now  = localtime;
  63     $fields .= '&reqdatefrom=' . $self->iso_to_display(SL::LiquidityProjection::_the_date($now[5] + 1900, $now[4] + 1 + $months) . '-01');
  64
  65   } else {
  66     $reqdate =~ m/(\d+)-(\d+)/;
  67     $fields .=  '&reqdatefrom=' . $self->iso_to_display($reqdate . '-01');
  68     $fields .=  '&reqdateto='   . $self->iso_to_display($reqdate . sprintf('-%02d', DateTime->last_day_of_month(year => $1, month => $2)->day));
  69
  70   }
  71
  72   return "oe.pl?action=orders&type=sales_order&vc=customer&" . $self->oe_report_columns_str . $fields;
  73 }
  74
  75 sub iso_to_display {
  76   my ($self, $date) = @_;
  77
  78   $::locale->reformat_date({ dateformat => 'yyyy-mm-dd' }, $date, $::myconfig{dateformat});
  79 }
  80
  81 1;