projekt kivitendo

    push @{ $orders_fetched }, $new_orders ;

  foreach my $shop_fetched(@{ $orders_fetched }) {

    flash_later('info', t8('From shop #1 :  #2 shoporders has been fetched', $shop_fetched->{shop_id}, $shop_fetched->{number_of_orders}));

  }

  $self->redirect_to(controller => "ShopOrder", action => 'list');

  $order->calculate_prices_and_taxes;

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

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

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

                  'pricegroup_id'         => (split '\/',$shop->price_source)[0] eq "pricegroup" ?  (split '\/',$shop->price_source)[1] : undef,

                  'taxzone_id'            => $shop->taxzone_id,

                  'currency'              => $::instance_conf->get_currency_id,

                  #'payment_id'            => 7345,# TODO hardcoded

SL::Controller::ShopOrder - Shoporder CRUD Controller

=head1 DESCRIPTION

Fetches the shoporders and transfers them to orders.

Relations for shoporders

=over 2

=item shop_order_items

=item shops

=item shop_parts

=back

=head1 URL ACTIONS

=over 4

=item C<action_get_orders>

Fetches the shoporders with the shopconnector class

=item C<action_list>

List the shoporders by different filters.

From the List you can transfer shoporders into orders in batch where it is possible or one by one.

=item C<action_show>

Shows one order. From here you can apply/change/select customer data and transfer the shoporder to an order.

=item C<action_delete>

Marks the shoporder as obsolete. It's for shoporders you don't want to transfer.

=item C<action_undelete>

Marks the shoporder obsolete = false

=item C<action_transfer>

Transfers one shoporder to an order.

=item C<action_apply_customer>

Applys a new customer from the shoporder.

=back

=head1 TASKSERVER ACTIONS

=over 4

=item C<action_mass_transfer>

Transfers more shoporders by backgroundjob called from the taskserver to orders.

=item C<action_transfer_status>

Shows the backgroundjobdata for the popup status window

=back

=head1 SETUP

=over 4

=item C<setup>

=back

=head1 INITS

=over 4

=item C<init_shoporder>

=item C<init_transfered>

Transferstatuses for the filter dropdown

=back

None yet. :)

W. Hahn E<lt>wh@futureworldsearch.netE<gt>

use SL::DB::Shop;

        active_price_source => $_->active_price_source,

) AND obsolete = 'F'

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

  my $customer = 0;

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

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

                    'pricegroup_id'         => (split '\/',$shop->price_source)[0] eq "pricegroup" ?  (split '\/',$shop->price_source)[1] : undef,

                    'taxzone_id'            => $shop->taxzone_id,

    # check if the proposal is the right customer, could be different names under the same address. Depends on how first- and familyname is handled. Here is for customername = companyname or customername = "firstname familyname"

    $customer = SL::DB::Manager::Customer->find_by( id       => $customer_proposals->[0]->id,

                                                    name     => $name,

                                                    email    => $self->billing_email,

                                                    street   => $self->billing_street,

                                                    zipcode  => $self->billing_zipcode,

                                                    city     => $self->billing_city,

                                                    obsolete => 'F',

                                                  );

  return $customer;

=item C<get_customer>

returns only one customer from the check_for_existing_customers if the return from it is 0 or 1 customer.

When it is 0 get customer creates a new customer object of the shop order billing data and returns it

=head1 TODO

some variables like payments could be better implemented. Transaction description is hardcoded

    my %params = ( filter => [  property   => 'customerId',

                                  value      => 1,

                             ],

                 );

    my @filter = (  { property   => 'customerId',

                        value      => 1,

                      }

                 );

                 %params = ( filter => [ @filter ]);

    my $orders_data      = $self->connector->get($url . "api/orders?limit=$otf&filter[0][property]=number&filter[0][expression]=>&filter[0][value]=" . $self->config->last_order_number);

    my $orders_data_json = $orders_data->content;

    my $orders_import    = SL::JSON::decode_json($orders_data_json);

    if ($orders_import->{success}){

      foreach my $shoporder(@{ $orders_import->{data} }){

        my $data      = $self->connector->get($url . "api/orders/" . $shoporder->{id});

        my $data_json = $data->content;

        my $import    = SL::JSON::decode_json($data_json);

      if(ref($customer)){

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

  [% # Dumper.dump_html(shop_order) %]

    [% IF shop_order.kivi_customer.id && shop_order.kivi_customer.order_lock == 0 && shop_order.open_invoices == 0 %] [% SET transferable = 1 %] [% SET transferable_class = 'style="background:rgba(43, 208, 54, 0.5);"' %] [% ELSE %] [% SET transferable = 0 %] [% SET transferable_class = '' %][% END %]

      <br>[% IF shop_order.open_invoices > 0 || shop_order.customer.order_lock == 1 %][% SET alertclass = 'style="background:rgba(255,0,0,1);"' %][% ELSE %][% SET alertclass = '' %][% END %]<span [% alertclass %]>&nbsp;&nbsp;[% HTML.escape(shop_order.kivi_customer.customernumber) %] -- [% shop_order.open_invoices %]&nbsp;&nbsp;</span></td>

                [% FOREACH prop = PROPOSALS %][% IF prop.order_lock %][% SET orderlock_class = 'style="background:rgba(232, 32, 23, 0.2);"' %][% ELSE %][% SET orderlock_class = '' %][% END %]