SL/Controller/ShopOrder.pm

   1 package SL::Controller::ShopOrder;
   2
   3 use strict;
   4
   5 use parent qw(SL::Controller::Base);
   6
   7 use SL::BackgroundJob::ShopOrderMassTransfer;
   8 use SL::System::TaskServer;
   9 use SL::DB::ShopOrder;
  10 use SL::DB::ShopOrderItem;
  11 use SL::DB::Shop;
  12 use SL::DB::History;
  13 use SL::DBUtils;
  14 use SL::Shop;
  15 use SL::Helper::Flash;
  16 use SL::Locale::String;
  17 use SL::Controller::Helper::ParseFilter;
  18 use Rose::Object::MakeMethods::Generic
  19 (
  20   'scalar --get_set_init' => [ qw(shop_order shops transferred js) ],
  21 );
  22
  23 __PACKAGE__->run_before('check_auth');
  24 __PACKAGE__->run_before('setup');
  25
  26 use Data::Dumper;
  27
  28 sub action_get_orders {
  29   my ( $self ) = @_;
  30   my $orders_fetched;
  31   my $new_orders;
  32   my %new_order;
  33   my $active_shops = SL::DB::Manager::Shop->get_all(query => [ obsolete => 0 ]);
  34   foreach my $shop_config ( @{ $active_shops } ) {
  35     my $shop = SL::Shop->new( config => $shop_config );
  36     my $connect = $shop->check_connectivity;
  37
  38     if( !$connect->{success} ){
  39       %new_order  = (
  40         number_of_orders => $connect->{data}->{version},
  41         shop_id          => $shop->config->description,
  42         error            => 1,
  43      );
  44      $new_orders = \%new_order;
  45     }else{
  46       $new_orders = $shop->connector->get_new_orders;
  47     }
  48     push @{ $orders_fetched }, $new_orders ;
  49   }
  50
  51   foreach my $shop_fetched(@{ $orders_fetched }) {
  52     if($shop_fetched->{error}){
  53       flash_later('error', t8('From shop "#1" :  #2 ', $shop_fetched->{shop_id}, $shop_fetched->{number_of_orders},));
  54     }else{
  55       flash_later('info', t8('From shop #1 :  #2 shoporders have been fetched.', $shop_fetched->{shop_id}, $shop_fetched->{number_of_orders},));
  56     }
  57   }
  58   $self->redirect_to(controller => "ShopOrder", action => 'list');
  59 }
  60
  61 sub action_list {
  62   my ( $self ) = @_;
  63
  64   my %filter = ($::form->{filter} ? parse_filter($::form->{filter}) : query => [ transferred => 0, obsolete => 0 ]);
  65   my $transferred = $::form->{filter}->{transferred_eq_ignore_empty} ne '' ? $::form->{filter}->{transferred_eq_ignore_empty} : '';
  66   my $sort_by = $::form->{sort_by} ? $::form->{sort_by} : 'order_date';
  67   $sort_by .=$::form->{sort_dir} ? ' DESC' : ' ASC';
  68   my $shop_orders = SL::DB::Manager::ShopOrder->get_all( %filter, sort_by => $sort_by,
  69                                                       with_objects => ['shop_order_items', 'kivi_customer', 'shop'],
  70                                                     );
  71
  72   foreach my $shop_order(@{ $shop_orders }){
  73
  74     my $open_invoices = SL::DB::Manager::Invoice->get_all_count(
  75       query => [customer_id => $shop_order->{kivi_customer_id},
  76               paid => {lt_sql => 'amount'},
  77       ],
  78     );
  79     $shop_order->{open_invoices} = $open_invoices;
  80   }
  81   $self->_setup_list_action_bar;
  82   $self->render('shop_order/list',
  83                 title       => t8('ShopOrders'),
  84                 SHOPORDERS  => $shop_orders,
  85                 TOOK        => $transferred,
  86               );
  87 }
  88
  89 sub action_show {
  90   my ( $self ) = @_;
  91   my $id = $::form->{id} || {};
  92   my $shop_order = SL::DB::ShopOrder->new( id => $id )->load( with => ['kivi_customer'] );
  93   die "can't find shoporder with id $id" unless $shop_order;
  94
  95   my $proposals = $shop_order->check_for_existing_customers;
  96
  97   $self->render('shop_order/show',
  98                 title       => t8('Shoporder'),
  99                 IMPORT      => $shop_order,
 100                 PROPOSALS   => $proposals,
 101               );
 102
 103 }
 104
 105 sub action_delete_order {
 106   my ( $self ) = @_;
 107
 108   $self->shop_order->obsolete(1);
 109   $self->shop_order->save;
 110   $self->redirect_to(controller => "ShopOrder", action => 'list', filter => { 'transferred:eq_ignore_empty' => 0 });
 111 }
 112
 113 sub action_undelete_order {
 114   my ( $self ) = @_;
 115
 116   $self->shop_order->obsolete(0);
 117   $self->shop_order->save;
 118   $self->redirect_to(controller => "ShopOrder", action => 'show', id => $self->shop_order->id);
 119 }
 120
 121 sub action_transfer {
 122   my ( $self ) = @_;
 123
 124   my $customer = SL::DB::Manager::Customer->find_by(id => $::form->{customer});
 125   die "Can't find customer" unless $customer;
 126   my $employee = SL::DB::Manager::Employee->current;
 127   die "Can't find employee" unless $employee;
 128
 129   die "Can't load shop_order form form->import_id" unless $self->shop_order;
 130   my $order = $self->shop_order->convert_to_sales_order(customer => $customer, employee => $employee);
 131
 132   if ($order->{error}){
 133     flash_later('error',@{$order->{errors}});
 134     $self->redirect_to(controller => "ShopOrder", action => 'show', id => $self->shop_order->id);
 135   }else{
 136     $order->db->with_transaction( sub {
 137       $order->calculate_prices_and_taxes;
 138       $order->save;
 139
 140       my $snumbers = "ordernumber_" . $order->ordnumber;
 141       SL::DB::History->new(
 142                         trans_id    => $order->id,
 143                         snumbers    => $snumbers,
 144                         employee_id => SL::DB::Manager::Employee->current->id,
 145                         addition    => 'SAVED',
 146                         what_done   => 'Shopimport -> Order',
 147                       )->save();
 148       foreach my $item(@{ $order->orderitems }){
 149         $item->parse_custom_variable_values->save;
 150         $item->{custom_variables} = \@{ $item->cvars_by_config };
 151         $item->save;
 152       }
 153
 154       $self->shop_order->transferred(1);
 155       $self->shop_order->transfer_date(DateTime->now_local);
 156       $self->shop_order->save;
 157       $self->shop_order->link_to_record($order);
 158     }) || die $order->db->error;
 159     $self->redirect_to(controller => "oe.pl", action => 'edit', type => 'sales_order', vc => 'customer', id => $order->id);
 160   }
 161 }
 162
 163 sub action_mass_transfer {
 164   my ($self) = @_;
 165   my @shop_orders =  @{ $::form->{id} || [] };
 166
 167   my $job                   = SL::DB::BackgroundJob->new(
 168     type                    => 'once',
 169     active                  => 1,
 170     package_name            => 'ShopOrderMassTransfer',
 171   )->set_data(
 172      shop_order_record_ids       => [ @shop_orders ],
 173      num_order_created           => 0,
 174      num_delivery_order_created  => 0,
 175      status                      => SL::BackgroundJob::ShopOrderMassTransfer->WAITING_FOR_EXECUTION(),
 176      conversion_errors         => [ ],
 177    )->update_next_run_at;
 178
 179    SL::System::TaskServer->new->wake_up;
 180
 181    my $html = $self->render('shop_order/_transfer_status', { output => 0 }, job => $job);
 182
 183    $self->js
 184       ->html('#status_mass_transfer', $html)
 185       ->run('kivi.ShopOrder.massTransferStarted')
 186       ->render;
 187 }
 188
 189 sub action_transfer_status {
 190   my ($self)  = @_;
 191   my $job     = SL::DB::BackgroundJob->new(id => $::form->{job_id})->load;
 192   my $html    = $self->render('shop_order/_transfer_status', { output => 0 }, job => $job);
 193
 194   $self->js->html('#status_mass_transfer', $html);
 195   $self->js->run('kivi.ShopOrder.massTransferFinished') if $job->data_as_hash->{status} == SL::BackgroundJob::ShopOrderMassTransfer->DONE();
 196   $self->js->render;
 197
 198 }
 199
 200 sub action_apply_customer {
 201   my ( $self, %params ) = @_;
 202   my $shop = SL::DB::Manager::Shop->find_by( id => $self->shop_order->shop_id );
 203   my $what = $::form->{create_customer}; # new from billing, customer or delivery address
 204   my %address = ( 'name'                  => $::form->{$what.'_name'},
 205                   'department_1'          => $::form->{$what.'_company'},
 206                   'department_2'          => $::form->{$what.'_department'},
 207                   'street'                => $::form->{$what.'_street'},
 208                   'zipcode'               => $::form->{$what.'_zipcode'},
 209                   'city'                  => $::form->{$what.'_city'},
 210                   'email'                 => $::form->{$what.'_email'},
 211                   'country'               => $::form->{$what.'_country'},
 212                   'phone'                 => $::form->{$what.'_phone'},
 213                   'email'                 => $::form->{$what.'_email'},
 214                   'greeting'              => $::form->{$what.'_greeting'},
 215                   'taxincluded_checked'   => $shop->pricetype eq "brutto" ? 1 : 0,
 216                   'taxincluded'           => $shop->pricetype eq "brutto" ? 1 : 0,
 217                   'pricegroup_id'         => (split '\/',$shop->price_source)[0] eq "pricegroup" ?  (split '\/',$shop->price_source)[1] : undef,
 218                   'taxzone_id'            => $shop->taxzone_id,
 219                   'currency'              => $::instance_conf->get_currency_id,
 220                   #'payment_id'            => 7345,# TODO hardcoded
 221                 );
 222   my $customer;
 223   if($::form->{cv_id}){
 224     $customer = SL::DB::Customer->new(id => $::form->{cv_id})->load;
 225     $customer->assign_attributes(%address);
 226     $customer->save;
 227   }else{
 228     $customer = SL::DB::Customer->new(%address);
 229     $customer->save;
 230   }
 231   my $snumbers = "customernumber_" . $customer->customernumber;
 232   SL::DB::History->new(
 233                     trans_id    => $customer->id,
 234                     snumbers    => $snumbers,
 235                     employee_id => SL::DB::Manager::Employee->current->id,
 236                     addition    => 'SAVED',
 237                     what_done   => 'Shopimport',
 238                   )->save();
 239
 240   $self->redirect_to(action => 'show', id => $::form->{import_id});
 241 }
 242
 243 sub setup {
 244   my ($self) = @_;
 245   $::auth->assert('shop_part_edit');
 246   $::request->layout->use_javascript("${_}.js")  for qw(kivi.ShopOrder);
 247 }
 248
 249 sub check_auth {
 250   $::auth->assert('shop_part_edit');
 251 }
 252 #
 253 # Helper
 254 #
 255
 256 sub init_shop_order {
 257   my ( $self ) = @_;
 258   return SL::DB::ShopOrder->new(id => $::form->{import_id})->load if $::form->{import_id};
 259 }
 260
 261 sub init_transferred {
 262   [ { title => t8("all"),             value => '' },
 263     { title => t8("transferred"),     value => 1  },
 264     { title => t8("not transferred"), value => 0  }, ]
 265 }
 266
 267 sub init_shops {
 268   SL::DB::Shop->shops_dd;
 269 }
 270
 271 sub _setup_list_action_bar {
 272   my ($self) = @_;
 273
 274   for my $bar ($::request->layout->get('actionbar')) {
 275     $bar->add(
 276         action => [
 277           t8('Search'),
 278           submit    => [ '#shoporders', { action => "ShopOrder/list" } ],
 279         ],
 280          link => [
 281           t8('Shoporders'),
 282           link => [ $self->url_for(action => 'get_orders') ],
 283           tooltip => t8('New shop orders'),
 284         ],
 285         'separator',
 286         action => [
 287           t8('Execute'),
 288           call => [ 'kivi.ShopOrder.setup', id => "mass_transfer" ],
 289           tooltip => t8('Transfer all marked'),
 290         ],
 291     );
 292   }
 293 }
 294
 295 1;
 296
 297 __END__
 298
 299 =encoding utf-8
 300
 301 =head1 NAME
 302
 303 SL::Controller::ShopOrder - Shoporder CRUD Controller
 304
 305 =head1 DESCRIPTION
 306
 307 Fetches the shoporders and transfers them to orders.
 308
 309 Relations for shoporders
 310
 311 =over 2
 312
 313 =item shop_order_items
 314
 315 =item shops
 316
 317 =item shop_parts
 318
 319 =back
 320
 321 =head1 URL ACTIONS
 322
 323 =over 4
 324
 325 =item C<action_get_orders>
 326
 327 Fetches the shoporders with the shopconnector class
 328
 329 =item C<action_list>
 330
 331 List the shoporders by different filters.
 332 From the List you can transfer shoporders into orders in batch where it is possible or one by one.
 333
 334 =item C<action_show>
 335
 336 Shows one order. From here you can apply/change/select customer data and transfer the shoporder to an order.
 337
 338 =item C<action_delete>
 339
 340 Marks the shoporder as obsolete. It's for shoporders you don't want to transfer.
 341
 342 =item C<action_undelete>
 343
 344 Marks the shoporder obsolete = false
 345
 346 =item C<action_transfer>
 347
 348 Transfers one shoporder to an order.
 349
 350 =item C<action_apply_customer>
 351
 352 Applys a new customer from the shoporder.
 353
 354 =back
 355
 356 =head1 TASKSERVER ACTIONS
 357
 358 =over 4
 359
 360 =item C<action_mass_transfer>
 361
 362 Transfers more shoporders by backgroundjob called from the taskserver to orders.
 363
 364 =item C<action_transfer_status>
 365
 366 Shows the backgroundjobdata for the popup status window
 367
 368 =back
 369
 370 =head1 SETUP
 371
 372 =over 4
 373
 374 =item C<setup>
 375
 376 =back
 377
 378 =head1 INITS
 379
 380 =over 4
 381
 382 =item C<init_shoporder>
 383
 384 =item C<init_transfered>
 385
 386 Transferstatuses for the filter dropdown
 387
 388 =item C<init_shops>
 389
 390 Filter dropdown Shops
 391
 392 =back
 393
 394 =head1 TODO
 395
 396 Implements different payments, pricesources and pricegroups. Till now not needed.
 397
 398 =head1 BUGS
 399
 400 None yet. :)
 401
 402 =head1 AUTHOR
 403
 404 W. Hahn E<lt>wh@futureworldsearch.netE<gt>
 405
 406 =cut