projekt kivitendo

  # the possible default price sources to use for the shops: sellprice, lastcost,

  push( @{ $pricesources } , { id => "master_data/sellprice", name => t8("Master Data")." - ".t8("Sellprice") },

                             { id => "master_data/listprice", name => t8("Master Data")." - ".t8("Listprice") },

                             { id => "master_data/lastcost",  name => t8("Master Data")." - ".t8("Lastcost") }

    push( @{ $pricesources } , { id => "pricegroup/".$pg->id, name => t8("Pricegroup") . " - " . $pg->pricegroup} );

   scalar                 => [ qw(price_sources) ],

__PACKAGE__->run_before('load_pricesources',    only => [ qw(create_or_edit_popup) ]);

  # data to upload to shop. Goes to SL::Connector::XXXConnector.

    my $attributes->{last_update} = $now;

    $self->shop_part->assign_attributes(%{ $attributes });

    $self->shop_part->save;

      $self->render('shop_part/categories', { output => 0 }, CATEGORIES => $categories )

sub action_show_price_n_pricesource {

  my ($self) = @_;

  my ( $price, $price_src_str ) = $self->get_price_n_pricesource($::form->{pricesource});

  #TODO Price must be formatted. $price_src_str must be translated

  $self->js->html('#price_' . $self->shop_part->id, $price)

           ->html('#active_price_source_' . $self->shop_part->id, $price_src_str)

           ->render;

}

sub action_show_stock {

  my ($self) = @_;

  my ( $stock_local, $stock_onlineshop );

  require SL::Shop;

  my $shop = SL::Shop->new( config => $self->shop_part->shop );

  my $shop_article = $shop->connector->get_article($self->shop_part->part->partnumber);

  $stock_local = $self->shop_part->part->onhand;

  $stock_onlineshop = $shop_article->{data}->{mainDetail}->{inStock};

  $self->js->html('#stock_' . $self->shop_part->id, $stock_local."/".$stock_onlineshop)

           ->render;

}

  my ( $price, $price_src_str ) = $self->get_price_n_pricesource($self->shop_part->active_price_source);

  #TODO Price must be formatted. $price_src_str must be translated

           ->html('#price_' . $self->shop_part->id, $price)

           ->html('#active_price_source_' . $self->shop_part->id, $price_src_str)

sub load_pricesources {

  my ($self) = @_;

  # the price sources to use for the article: sellprice, lastcost,

  # listprice, or one of the pricegroups. It overwrites the default pricesource from the shopconfig.

  # TODO: implement valid pricerules for the article

  my $pricesources;

  push( @{ $pricesources } , { id => "master_data/sellprice", name => t8("Master Data")." - ".t8("Sellprice") },

                             { id => "master_data/listprice", name => t8("Master Data")." - ".t8("Listprice") },

                             { id => "master_data/lastcost",  name => t8("Master Data")." - ".t8("Lastcost") }

                             );

  my $pricegroups = SL::DB::Manager::Pricegroup->get_all;

  foreach my $pg ( @$pricegroups ) {

    push( @{ $pricesources } , { id => "pricegroup/".$pg->id, name => t8("Pricegroup") . " - " . $pg->pricegroup} );

  };

  $self->price_sources( $pricesources );

}

sub get_price_n_pricesource {

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

  my ( $price_src_str, $price_src_id ) = split(/\//,$pricesource);

  require SL::DB::Pricegroup;

  require SL::DB::Part;

  #TODO Price must be formatted. Translations for $price_grp_str

  my $price;

  if ($price_src_str eq "master_data") {

    my $part = SL::DB::Manager::Part->get_all( where => [id => $self->shop_part->part_id], with_objects => ['prices'],limit => 1)->[0];

    $price = $part->$price_src_id;

    $price_src_str = $price_src_id;

  }else{

    my $part = SL::DB::Manager::Part->get_all( where => [id => $self->shop_part->part_id, 'prices.'.pricegroup_id => $price_src_id], with_objects => ['prices'],limit => 1)->[0];

    my $pricegrp = SL::DB::Manager::Pricegroup->find_by( id => $price_src_id )->pricegroup;

    $price =  $part->prices->[0]->price;

    $price_src_str = $pricegrp;

  }

  return($price,$price_src_str);

}

  connector         => { type => 'text' },

  description       => { type => 'text' },

  id                => { type => 'serial', not_null => 1 },

  last_order_number => { type => 'integer' },

  login             => { type => 'text' },

  obsolete          => { type => 'boolean', default => 'false', not_null => 1 },

  orders_to_fetch   => { type => 'integer' },

  password          => { type => 'text' },

  port              => { type => 'integer' },

  price_source      => { type => 'text' },

  pricetype         => { type => 'text' },

  sortkey           => { type => 'integer' },

  url               => { type => 'text' },

  active              => { type => 'boolean', default => 'false', not_null => 1 },

  active_price_source => { type => 'text' },

  front_page          => { type => 'boolean', default => 'false', not_null => 1 },

  id                  => { type => 'serial', not_null => 1 },

  itime               => { type => 'timestamp', default => 'now()' },

  last_update         => { type => 'timestamp' },

  metatag_description => { type => 'text' },

  metatag_keywords    => { type => 'text' },

  metatag_title       => { type => 'text' },

  mtime               => { type => 'timestamp' },

  part_id             => { type => 'integer', not_null => 1 },

  shop_category       => { type => 'array' },

  shop_description    => { type => 'text' },

  shop_id             => { type => 'integer', not_null => 1 },

  show_date           => { type => 'date' },

  sortorder           => { type => 'integer' },

sub get_article { die 'get_article needs to be implemented' }

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

  # TODO: Prices (pricerules, pricegroups, multiple prices)

  my $upload_content;

    $upload_content = SL::JSON::decode_json($data_json);

    $upload_content = SL::JSON::decode_json($data_json);

  }

  if(@upload_img) {

    $self->connector->put("http://$url/api/generateArticleImages/$part->{partnumber}?useNumberAsId=true");

    #$self->connector->delete("http://$url/api/caches/");

  return $upload_content->{success};

}

sub get_article {

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

  my $url = $self->url;

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

  my $data_json = $data->content;

  return SL::JSON::decode_json($data_json);

  //shows the Name and price in _shop.html. Pricerules not implemented yet, just master_data and pricegroups

  ns.update_price_n_price_source = function(shop_part_id,price_source) {

    $.post('controller.pl', { action: 'ShopPart/show_price_n_pricesource', shop_part_id: shop_part_id, pricesource: price_source }, function(data) {

      kivi.eval_json_result(data);

    });

  }

  //shows the local and the online stock

  ns.update_stock = function(shop_part_id) {

    $.post('controller.pl', { action: 'ShopPart/show_stock', shop_part_id: shop_part_id }, function(data) {

      kivi.eval_json_result(data);

    });

  }

-- @tag: shop_parts_4

-- @description: Add tables for part information for shop

-- @charset: UTF-8

-- @depends: release_3_3_0 shops

-- @ignore: 0

ALTER TABLE shop_parts ADD COLUMN active_price_source text;

ALTER TABLE shop_parts ADD COLUMN metatag_keywords text;

ALTER TABLE shop_parts ADD COLUMN metatag_description text;

ALTER TABLE shop_parts ADD COLUMN metatag_title text;

ALTER TABLE shop_parts DROP COLUMN meta_tags;

-- @tag: shops2

-- @description: Alter table shops more columns for configuration

-- @charset: UTF-8

-- @depends: release_3_4_0 shops

-- @ignore: 0

ALTER TABLE shops ADD COLUMN last_order_number integer;

ALTER TABLE shops ADD COLUMN orders_to_fetch integer;

 <h2>[% LxERP.t8("Active shops:") %]</h2>

 <table width="100%">

  <tr class="listheading">

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

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

   <th>[% LxERP.t8("Stock Local/Shop") %]</th>

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

  <tr class="listrow">

   <td> [% L.html_tag('span',LxERP.t8(), id => 'active_price_source_' _ shop_part.id) %] </td>

   <td>[% L.html_tag('span','Price', id => 'price_' _ shop_part.id) %]</td>

   <td>[% L.html_tag('span','Stock', id => 'stock_' _ shop_part.id) %]</td>

  <script type="text/javascript">

    $(function() {

      kivi.shop_part.update_price_n_price_source([% shop_part.id %],'[% shop_part.active_price_source %]');

      kivi.shop_part.update_stock([% shop_part.id %]);

    });

  </script>

<h2>[% LxERP.t8("Shopvariables and Images - valid for all shops") %]</h2>

      kivi.shop_part.show_images([% shop_part.part_id %]);

[%- USE Dumper -%]

[% Dumper.dump_html(SELF) %]

    <tr>

      <th align="right">[% 'Price Source' | $T8 %]</th>

      [% IF SELF.shop_part.active_price_source %]

        [% SET price_source = SELF.shop_part.active_price_source %]

      [% ELSE %]

        [% SET price_source = SELF.shop_part.shop.price_source %]

      [% END %]

      <td>[% L.select_tag('shop_part.active_price_source', SELF.price_sources, value_key = 'id', title_key = 'name', with_empty = 0, default = price_source, default_value_key='id' ) %]</td>

    </tr>

     <td>[% LxERP.t8("Meta tag title") %]</td>

     <td>[% L.input_tag("shop_part.metatag_title", SELF.shop_part.metatag_title, size=12) %]</td>

    </tr>

    <tr>

     <td>[% LxERP.t8("Meta tag keywords") %]</td>

     <td>[% L.input_tag("shop_part.metatag_keywords", SELF.shop_part.metatag_keywords, size=22) %]</td>

    </tr>

    <tr>

     <td>[% LxERP.t8("Meta tag description") %]</td>

     <td>[% L.textarea_tag("shop_part.metatag_description", SELF.shop_part.metatag_description, rows=4) %]</td>

[%- USE Dumper -%]

[% # Dumper.dump_html(SELF.shop) %]

    <td>[% L.select_tag('shop.price_source', SELF.price_sources, value_key = 'id', title_key = 'name', with_empty = 0, default = SELF.shop.price_source, default_value_key='id' ) %]</td>

  <tr>

  <tr>

    <th align="right">[% 'Last ordernumber' | $T8 %]</th>

    <td>[%- L.input_tag("shop.last_order_number", SELF.shop.last_order_number, size=12) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Orders to fetch' | $T8 %]</th>

    <td>[%- L.input_tag("shop.orders_to_fetch", SELF.shop.orders_to_fetch, size=12) %]</td>

  </tr>