projekt kivitendo

  my $job_obj = $self->{job_obj};

  my $db      = $job_obj->db;

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

    my $shop_order = SL::DB::ShopOrder->new(id => $shop_order_id)->load;

    die "can't find shoporder with id $shop_order_id" unless $shop_order;

    #TODO Kundenabfrage so ändern, dass es nicht abricht

    my $customer = SL::DB::Manager::Customer->find_by(id => $shop_order->{kivi_customer_id});

    die "Can't find customer" unless $customer;

    my $employee = SL::DB::Manager::Employee->current;

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

                                                          sort_by => 'partnumber::int' );

    # check inventory onhand > 0

    my $onhand = 0;

    foreach my $item (@$items) {

      my $qty = SL::DB::Manager::Part->find_by(partnumber => $item->{partnumber})->onhand; # > 0 ? $onhand = 1 : 0;

      $qty >= $item->{quantity} ? $onhand = 1 : 0;

      last if $onhand == 0;

    }

    if ($onhand == 1) {

      $shop_order->{shop_order_items} = $items;

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

      $order->save;

      my $delivery_order_items = $delivery_order->{orderitems};

      # Lagerentnahme

      # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll

      my $test = $::instance_conf->get_transfer_default_use_master_default_bin;

      require SL::DB::Inventory;

      my $rose_db = SL::DB::Inventory->new->db;

      my $dbh = $db->dbh;

        }

        push @errors, @{ $err };

      }

      if (!@errors) {

          $delivery_order->delivered(1);

          $delivery_order->save;

  }

}

sub run {

  my ($self, $job_obj) = @_;

  $self->{job_obj}         = $job_obj;

  $self->create_order;

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

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

  $self->js

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

    ->run('kivi.MassInvoiceCreatePrint.massConversionStarted')

use SL::DB::Shop;

use SL::Shop;

use SL::Presenter;

use SL::Locale::String;

use SL::Controller::Helper::ParseFilter;

use Rose::Object::MakeMethods::Generic

(

);

use Data::Dumper;

sub action_get_orders {

sub action_list {

  my ( $self ) = @_;

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

  my $transferred = $::form->{filter}->{transferred_eq_ignore_empty} ne '' ? $::form->{filter}->{transferred_eq_ignore_empty} : '';

  my $sort_by = $::form->{sort_by} ? $::form->{sort_by} : 'order_date';

  $sort_by .=$::form->{sort_dir} ? ' DESC' : ' ASC';

  my $shop_orders = SL::DB::Manager::ShopOrder->get_all( %filter, sort_by => $sort_by,

                                                      with_objects => ['shop_order_items'],

                                                    );

  foreach my $shop_order ( @$shop_orders ) {

    my %billing_address = ( 'name'     => $shop_order->billing_lastname,

                            'company'  => $shop_order->billing_company,

                            'street'   => $shop_order->billing_street,

                          );

    my $b_address = $self->check_address(%billing_address);

    if ($b_address) {

      $shop_order->{kivi_customer_id} = $b_address->{id};

      $shop_order->save;

    }

    $shop_order->{kivi_cv_id} = $b_address;

  }

  $self->render('shop_order/list',

                title       => t8('ShopOrders'),

                SHOPORDERS  => $shop_orders,

  my $id = $::form->{id} || {};

  my $shop_order = SL::DB::Manager::ShopOrder->find_by( id => $id );

  die "can't find shoporder with id $id" unless $shop_order;

  # the different importaddresscheck if there complete in the customer table to prevent duplicats inserts

  my %customer_address = ( 'name'    => $shop_order->customer_lastname,

                           'company' => $shop_order->customer_company,

  ####

  my $lastname = $shop_order->customer_lastname;

  my $proposals = SL::DB::Manager::Customer->get_all(

       where => [

                   or => [

     shop_order_record_ids       => [ @shop_orders ],

     num_order_created           => 0,

     num_delivery_order_created  => 0,

     conversation_errors         => [ ],

   )->update_next_run_at;

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

}

sub action_apply_customer {

  my ( $self ) = @_;

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

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

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

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

                  'currency'   => 1,  # hardcoded

                );

  $address{contact} = ($address{name} ne $::form->{$what.'_firstname'} . " " . $::form->{$what.'_lastname'} ? $::form->{$what.'_firstname'} . " " . $::form->{$what.'_lastname'} : '');

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

  $customer->save;

  if($::form->{$what.'_country'} ne "Deutschland") {   # hardcoded

    $self->redirect_to(action => 'show', id => $::form->{import_id});

  }

}

#

# Helper

#

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

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

                                         ]);

  return @{$addressdata}[0];

}

  foreach my $items (@{$self->shop_order_items}) {

    my $item = SL::DB::OrderItem->new;

    my $part = SL::DB::Manager::Part->find_by( partnumber => $items->{partnumber} );

$main::lxdebug->dump(0, 'WH: SO PART',\$part);

    $item->assign_attributes(

        parts_id        => $part->id,

  my ($self, $id) = @_;

  my $url = $self->url;

  # Muss noch angepasst werden

    my $data = $self->connector->get("http://$url/api/orders/$ordnumber?useNumberAsId=true");

    $ordnumber++;

    $::lxdebug->dump(0, "WH: DATA ", \$data);

      billing_greeting        => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),

      billing_lastname        => $import->{data}->{billing}->{lastName},

      billing_phone           => $import->{data}->{billing}->{phone},

      billing_vat             => $import->{data}->{billing}->{vatId},

      billing_zipcode         => $import->{data}->{billing}->{zipCode},

      customer_city           => $import->{data}->{billing}->{city},

      customer_greeting       => ($import->{data}->{billing}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),

      customer_lastname       => $import->{data}->{billing}->{lastName},

      customer_phone          => $import->{data}->{billing}->{phone},

      customer_vat            => $import->{data}->{billing}->{vatId},

      customer_zipcode        => $import->{data}->{billing}->{zipCode},

      customer_newsletter     => $import->{data}->{customer}->{newsletter},

      delivery_greeting       => ($import->{data}->{shipping}->{salutation} eq 'mr' ? 'Herr' : 'Frau'),

      delivery_lastname       => $import->{data}->{shipping}->{lastName},

      delivery_phone          => $import->{data}->{shipping}->{phone},

      delivery_vat            => $import->{data}->{shipping}->{vatId},

      delivery_zipcode        => $import->{data}->{shipping}->{zipCode},

      host                    => $import->{data}->{shop}->{hosts},

sub init_connector {

  my ($self) = @_;

  my $ua = LWP::UserAgent->new;

  $ua->credentials(

      $self->url,

      $self->config->login => $self->config->password

  );

  return $ua;

};

    $('#action_print').click(kivi.MassInvoiceCreatePrint.checkInvoiceSelection);

  };

});

$(kivi.MassInvoiceCreatePrint.setup);

<h1>[% title %]</h1>

[%- PROCESS 'shop_order/_filter.html' filter=SELF.models.filtered.laundered %]

<hr>

 <table id="shoplist">

  <thead>

   <tr class="listheading">

    <td>[% IF shop_order.transferred == 1 %]<a href="controller.pl?id=[% shop_order.id %]&action=ShopOrder/show">[% 'Show order' | $T8 %]<br>[% shop_order.transferred_date_as_date %]</a>

        [% ELSE %]

          [% IF transferable == 1 %]

          [% END %]

        <a href="controller.pl?id=[% shop_order.id %]&action=ShopOrder/show">[% 'Create order' | $T8 %][% END %]</a></td>

  </tr>

 </table>

 <hr>

  <p>

  </p>

 </form>