projekt kivitendo

use SL::Locale::String qw(t8);

use constant CONVERTING_TO_ORDER          => 1;

#     conversion_errors         => [ { id => 603 , item => 2, message => "Out of stock"}, ],

  $job_obj->set_data(CONVERTING_TO_ORDER())->save;

  my $data = $job_obj->data_as_hash;

  foreach my $shop_order_id (@{ $data->{shop_order_record_ids} }) {

      push @{ $data->{conversion_errors} }, { id => $shop_order->id, number => $shop_order->shop_ordernumber, message => t8('Shoporder not found') };

      $job_obj->update_attributes(data_as_hash => $data);

    unless($customer){

      push @{ $data->{conversion_errors} }, { id => $shop_order->id, number => $shop_order->shop_ordernumber, message => t8('Customer not found') };

      $job_obj->update_attributes(data_as_hash => $data);

    }

    my $items = SL::DB::Manager::ShopOrderItem->get_all( where => [shop_order_id => $shop_order_id], );

      $db->with_transaction( sub {

        my $order = $shop_order->convert_to_sales_order(customer => $customer, employee => $employee);

        if ($order->{error}){

          push @{ $data->{conversion_errors} }, { id => $shop_order->id, number => $shop_order->shop_ordernumber, message => \@{$order->{errors}} };

          $job_obj->update_attributes(data_as_hash => $data);

        }else{

          $order->save;

          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(MassTransfer)',

                          )->save();

          $shop_order->transferred(1);

          $shop_order->transfer_date(DateTime->now_local);

          $shop_order->oe_transid($order->id);

          $shop_order->save;

          $shop_order->link_to_record($order);

          $data->{num_order_created} ++;

          push @{ $data->{orders_ids} }, $order->id;

          push @{ $data->{shop_orders_ids} }, $shop_order->id;

          $job_obj->update_attributes(data_as_hash => $data);

        }

        1;

      })or do {

        push @{ $data->{conversion_errors} }, { id => $shop_order->id, number => $shop_order->shop_ordernumber, message => $@ };

        $job_obj->update_attributes(data_as_hash => $data);

      }

    }else{

      push @{ $data->{conversion_errors} }, { id => $shop_order->id, number => $shop_order->shop_ordernumber, message => t8('Customerorderlock') };

  $main::lxdebug->dump(0, 'WH:OOO ',$order);

  if ($order->{error}){

    flash_later('error',@{$order->{errors}});

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

  }else{

    $order->save;

    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;

    }

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

    $self->shop_order->transfer_date(DateTime->now_local);

    $self->shop_order->oe_transid($order->id);

    $self->shop_order->save;

    $self->shop_order->link_to_record($order);

    $self->redirect_to(controller => "oe.pl", action => 'edit', type => 'sales_order', vc => 'customer', id => $order->id);

     conversion_errors         => [ ],

use SL::Locale::String qw(t8);

  my @error_report;

    my $part = SL::DB::Manager::Part->get_first( query => [ partnumber => $_->partnumber, ], );

    unless($part){

      push @error_report, t8('Part with Partnumber: ') . $_->partnumber . t8(' not found');

    }else{

      my $shop_part = SL::DB::Manager::ShopPart->get_all( where => [ shop_id => $self->shop_id, part_id => $part->id] )->[0];

      my @cvars = map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $part->cvars_by_config } ;

      my $current_order_item =

        SL::DB::OrderItem->new(parts_id               => $part->id,

                               description            => $part->description,

                               qty                    => $_->quantity,

                               sellprice              => $_->price,

                               unit                   => $part->unit,

                               position               => $_->position,

                               active_price_source    => $shop_part->active_price_source,

                             );

    }

  if(!scalar(@error_report)){

    my $shipto_id;

    if ($self->{billing_firstname} ne $self->{delivery_firstname} || $self->{billing_lastname} ne $self->{delivery_lastname} || $self->{billing_city} ne $self->{delivery_city} || $self->{billing_street} ne $self->{delivery_street}) {

      if(my $address = SL::DB::Manager::Shipto->find_by( shiptoname          => $self->{delivery_firstname} . " " . $self->{delivery_lastname},

                                                          shiptostreet        => $self->{delivery_street},

                                                          shiptocity          => $self->{delivery_city},

                                                        )) {

        $shipto_id = $address->{shipto_id};

      } else {

        my $gender = $self->{delivery_greeting} eq "Frau" ? 'f' : 'm';

        my $deliveryaddress = SL::DB::Shipto->new;

        $deliveryaddress->assign_attributes(

          shiptoname          => $self->{delivery_firstname} . " " . $self->{delivery_lastname},

          shiptodepartment_1  => $self->{delivery_company},

          shiptodepartment_2  => $self->{delivery_department},

          shiptocp_gender     => $gender,

          shiptostreet        => $self->{delivery_street},

          shiptozipcode       => $self->{delivery_zipcode},

          shiptocity          => $self->{delivery_city},

          shiptocountry       => $self->{delivery_country},

          trans_id            => $customer->id,

          module              => "CT",

        );

        $deliveryaddress->save;

        $shipto_id = $deliveryaddress->{shipto_id};

      }

    my $order = SL::DB::Order->new(

                    amount                  => $self->amount,

                    cusordnumber            => $self->shop_ordernumber,

                    customer_id             => $customer->id,

                    shipto_id               => $shipto_id,

                    orderitems              => [ @items ],

                    employee_id             => $employee->id,

                    intnotes                => ($customer->notes ne "" ? "\n[Kundestammdaten]\n" . $customer->notes : ""),

                    salesman_id             => $employee->id,

                    taxincluded             => $self->tax_included,

                    payment_id              => $customer->payment_id,

                    taxzone_id              => $customer->taxzone_id,

                    currency_id             => $customer->currency_id,

                    transaction_description => 'Shop Import',

                    transdate               => DateTime->today_local

                  );

     return $order;

   }else{

     my %error_order = (error   => 1,

                        errors  => [ @error_report ],

     return \%error_order;

   }

[%  Dumper.dump_html(data) %]

      <th>[% LxERP.t8("Shoporder") %]</th>

      <td valign="top">[% HTML.escape(error.number) %]</td>

      <td valign="top">[% FOREACH message = error.message %][% HTML.escape(message) %]<br>[% END %]</td>

[%- INCLUDE 'common/flash.html' %]