projekt kivitendo

    ["delivery_plan",                  $locale->text("Show delivery plan")],

  'scalar --get_set_init' => [ qw(models all_edit_right) ],

__PACKAGE__->run_before(sub { $::auth->assert('delivery_plan'); });

sub delivery_plan_query {

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

  my $oe_owner = $_[0]->all_edit_right ? '' : " oe.eployee_id = $employee_id AND";

  [

  'order.customer_id' => { gt => 0 },

  'order.closed' => 0,

  or => [ 'order.quotation' => 0, 'order.quotation' => undef ],

  # filter by shipped_qty < qty, read from innermost to outermost

  'id' => [ \"

    -- 3. resolve the desired information about those

    SELECT oi.id FROM (

      -- 2. slice only part, orderitem and both quantities from it

      SELECT parts_id, trans_id, qty, SUM(doi_qty) AS doi_qty FROM (

        -- 1. join orderitems and deliverorder items via record_links.

        --    also add customer data to filter for sales_orders

        SELECT oi.parts_id, oi.trans_id, oi.id, oi.qty, doi.qty AS doi_qty

        FROM orderitems oi, oe, record_links rl, delivery_order_items doi

        WHERE

          oe.id = oi.trans_id AND

          oe.customer_id IS NOT NULL AND

          (oe.quotation = 'f' OR oe.quotation IS NULL) AND

          NOT oe.closed AND

          $oe_owner

          rl.from_id = oe.id AND

          rl.from_id = oi.trans_id AND

          oe.id = oi.trans_id AND

          rl.from_table = 'oe' AND

          rl.to_table = 'delivery_orders' AND

          rl.to_id = doi.delivery_order_id AND

          oi.parts_id = doi.parts_id

      ) tuples GROUP BY parts_id, trans_id, qty

    ) partials

    LEFT JOIN orderitems oi ON partials.parts_id = oi.parts_id AND partials.trans_id = oi.trans_id

    WHERE oi.qty > doi_qty

    UNION ALL

    -- 4. since the join over record_links fails for sales_orders wihtout any delivery order

    --    retrieve those without record_links at all

    SELECT oi.id FROM orderitems oi, oe

    WHERE

      oe.id = oi.trans_id AND

      oe.customer_id IS NOT NULL AND

      (oe.quotation = 'f' OR oe.quotation IS NULL) AND

      NOT oe.closed AND

      $oe_owner

      oi.trans_id NOT IN (

        SELECT from_id

        FROM record_links rl

        WHERE

          rl.from_table ='oe' AND

          rl.to_table = 'delivery_orders'

      )

    UNION ALL

    -- 5. In case someone deleted a line of the delivery_order there will be a record_link (4 fails)

    --    but there won't be a delivery_order_items to find (3 fails too). Search for orphaned orderitems this way

    SELECT oi.id FROM orderitems AS oi, oe, record_links AS rl

    WHERE

      rl.from_table = 'oe' AND

      rl.to_table = 'delivery_orders' AND

      oi.trans_id = rl.from_id AND

      oi.parts_id NOT IN (

        SELECT doi.parts_id FROM delivery_order_items AS doi WHERE doi.delivery_order_id = rl.to_id

      ) AND

      oe.id = oi.trans_id AND

      oe.customer_id IS NOT NULL AND

      (oe.quotation = 'f' OR oe.quotation IS NULL) AND

      $oe_owner

      NOT oe.closed

  " ],

  ]

}

    query        => $self->delivery_plan_query,

sub init_all_edit_right {

  $::auth->assert('sales_all_edit', 1)

}

  'Show delivery plan'          => 'Lieferplan anzeigen',

ACCESS=delivery_plan

# @tag: delivery_plan_rights

# @description: Setzt das neue Recht den Lieferplan anzuzeigen

# @depends: release_3_0_0

package SL::DBUpgrade2::delivery_plan_rights;

use strict;

use utf8;

use parent qw(SL::DBUpgrade2::Base);

use SL::DBUtils;

sub run {

  my ($self) = @_;

  my $groups = $main::auth->read_groups();

  foreach my $group (values %{$groups}) {

    $group->{rights}->{delivery_plan_rights} = $group->{rights}->{sales_order_edit};

    $main::auth->save_group($group);

  }

  return 1;

} # end run

1;