projekt kivitendo

use SL::BackgroundJob::ShopOrderMassTransfer;

use SL::System::TaskServer;

use SL::DB::History;

use SL::Helper::Flash;

  'scalar --get_set_init' => [ qw(shop_order transferred js) ],

__PACKAGE__->run_before('setup');

  my %filter = ($::form->{filter} ? parse_filter($::form->{filter}) : query => [ transferred => 0, obsolete => 0 ]);

                                                      with_objects => ['customer'],

  foreach my $shop_order(@{ $shop_orders }){

    my $open_invoices = SL::DB::Manager::Invoice->get_all_count(

      query => [customer_id => $shop_order->{kivi_customer_id},

              paid => {lt_sql => 'amount'},

      ],

    );

    $shop_order->{open_invoices} = $open_invoices;

  }

  $main::lxdebug->dump(0, 'WH:SHOPORDER ',\$shop_orders);

  my $shop_order = SL::DB::Manager::ShopOrder->get_all(query => [ id => $id ],

                                                        with_objects => ['customer'], )->[0];

                                     or => [ 'name' => { ilike => "%$lastname%"},

                                             'name' => { ilike => $shop_order->customer_company },

                                     'zipcode' => { ilike => $shop_order->customer_zipcode },

                            and => [ # check for street and zipcode

                                     and => [ 'street'  => { ilike => "%".$shop_order->customer_street."%" },

                                              'zipcode' => { ilike => $shop_order->customer_zipcode },

                            or  => [ 'email' => { ilike => $shop_order->customer_email } ],

  $main::lxdebug->dump(0, 'WH:PROP ',\$proposals);

sub action_delete_order {

  my ( $self ) = @_;

  $self->shop_order->obsolete(1);

  $self->shop_order->save;

  $self->redirect_to(controller => "ShopOrder", action => 'list', filter => { 'transferred:eq_ignore_empty' => 0 });

}

sub action_valid_order {

  my ( $self ) = @_;

  $self->shop_order->obsolete(0);

  $self->shop_order->save;

  $self->redirect_to(controller => "ShopOrder", action => 'show', id => $self->shop_order->id);

}

  my $snumbers = "ordernumber_" . $order->ordnumber;

  SL::DB::History->new(

                    trans_id    => $order->id,

                    snumbers    => $snumbers,

                    employee_id => SL::DB::Manager::Employee->current->id,

                    addition    => 'SAVED',

                    what_done   => 'Shopimport -> Order',

                  )->save();

  foreach my $item(@{ $order->orderitems }){

    $item->parse_custom_variable_values->save;

    $item->{custom_variables} = \@{ $item->cvars_by_config };

    $item->save;

  }

sub action_mass_transfer {

  my ($self) = @_;

  my @shop_orders =  @{ $::form->{id} || [] };

  my $job                   = SL::DB::BackgroundJob->new(

    type                    => 'once',

    active                  => 1,

    package_name            => 'ShopOrderMassTransfer',

  )->set_data(

     shop_order_record_ids       => [ @shop_orders ],

     num_order_created           => 0,

     num_delivery_order_created  => 0,

     status                      => SL::BackgroundJob::ShopOrderMassTransfer->WAITING_FOR_EXECUTION(),

     conversation_errors         => [ ],

   )->update_next_run_at;

   SL::System::TaskServer->new->wake_up;

   my $html = $self->render('shop_order/_transfer_status', { output => 0 }, job => $job);

   $self->js

      ->html('#status_mass_transfer', $html)

      ->run('kivi.ShopOrder.massTransferStarted')

      ->render;

}

sub action_transfer_status {

  my ($self)  = @_;

  my $job     = SL::DB::BackgroundJob->new(id => $::form->{job_id})->load;

  my $html    = $self->render('shop_order/_transfer_status', { output => 0 }, job => $job);

  $self->js->html('#status_mass_transfer', $html);

  $self->js->run('kivi.ShopOrder.massTransferFinished') if $job->data_as_hash->{status} == SL::BackgroundJob::ShopOrderMassTransfer->DONE();

  $self->js->render;

}

  my ( $self, %params ) = @_;

  my $shop = SL::DB::Manager::Shop->find_by( id => $self->shop_order->shop_id );

  my $what = $::form->{create_customer}; # new from billing, customer or delivery address

  my %address = ( 'name'                  => $::form->{$what.'_name'},

                  'department_1'          => $::form->{$what.'_company'},

                  'department_2'          => $::form->{$what.'_department'},

                  'street'                => $::form->{$what.'_street'},

                  'zipcode'               => $::form->{$what.'_zipcode'},

                  'city'                  => $::form->{$what.'_city'},

                  'email'                 => $::form->{$what.'_email'},

                  'country'               => $::form->{$what.'_country'},

                  'phone'                 => $::form->{$what.'_phone'},

                  'email'                 => $::form->{$what.'_email'},

                  'greeting'              => $::form->{$what.'_greeting'},

                  # TODO in shopconfig

                        'taxincluded_checked'   => $shop->pricetype eq "brutto" ? 1 : 0,

                        'taxincluded'           => $shop->pricetype eq "brutto" ? 1 : 0,

                        'klass'                 => (split '\/',$shop->price_source)[1],

                        'taxzone_id'            => $shop->taxzone_id,

                        'currency'              => 1,   # TODO hardcoded

                        'payment_id'            => 7345,# TODO hardcoded

  my $customer;

  if($::form->{cv_id}){

    $customer = SL::DB::Customer->new(id => $::form->{cv_id})->load;

    $customer->assign_attributes(%address);

    $customer->save;

  }else{

    $customer = SL::DB::Customer->new(%address);

    $customer->save;

  }

  my $snumbers = "customernumber_" . $customer->customernumber;

  SL::DB::History->new(

                    trans_id    => $customer->id,

                    snumbers    => $snumbers,

                    employee_id => SL::DB::Manager::Employee->current->id,

                    addition    => 'SAVED',

                    what_done   => 'Shopimport',

                  )->save();

sub setup {

  my ($self) = @_;

  $::auth->assert('invoice_edit');

  $::request->layout->use_javascript("${_}.js")  for qw(kivi.ShopOrder);

}

                                            or => [ 'name'   => { ilike => "%$address{'name'}%" }, 'name' => { ilike => $address{'company'} }, ],

                                           'street' => { ilike => $address{'street'} },

                                           'zipcode'=> { ilike => $address{'zipcode'} },

                                           'city'   => { ilike => $address{'city'} },