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