projekt kivitendo

use SL::Common;

use SL::CVar;

use SL::DB::DeliveryOrder;

use SL::DB::Status;

use SL::DBUtils;

use SL::Helper::ShippedQty;

       LEFT JOIN department dep ON (dord.department_id = dep.id)

|;

  if ($form->{department_id}) {

    push @where,  qq|dord.department_id = ?|;

  $form->{employee_id} = (split /--/, $form->{employee})[1] if !$form->{employee_id};

  $form->get_employee($dbh) unless ($form->{employee_id});

  my (@processed_doi, @processed_dois);

  if ($form->{id}) {

    $query = qq|SELECT nextval('id')|;

    ($form->{id}) = selectrow_query($form, $dbh, $query);

  }

  my $project_id;

SQL

  my $h_item_stock = prepare_query($form, $dbh, $q_item_stock);

  for my $i (1 .. $form->{rowcount}) {

    next if (!$form->{"id_$i"});

         shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, closed = ?,

         delivered = ?, department_id = ?, language_id = ?, shipto_id = ?,

         globalproject_id = ?, employee_id = ?, salesman_id = ?, cp_id = ?, transaction_description = ?,

         delivery_term_id = ?

       WHERE id = ?|;

             conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

             $form->{transaction_description},

             conv_i($form->{taxzone_id}), $form->{taxincluded} ? 't' : 'f', conv_i($form->{payment_id}), $form->{currency},

             conv_i($form->{delivery_term_id}),

             conv_i($form->{id}));

  delete $form->{convert_from_oe_ids};

  unless ($::instance_conf->get_shipped_qty_require_stock_out) {

    $self->mark_orders_if_delivered('do_id' => $form->{id},

  }

  $form->{saved_donumber} = $form->{donumber};

         dord.itime, dord.mtime,

         dord.globalproject_id, dord.delivered, dord.transaction_description,

         dord.taxzone_id, dord.taxincluded, dord.payment_id, (SELECT cu.name FROM currencies cu WHERE cu.id=dord.currency_id) AS currency,

       FROM delivery_orders dord

       JOIN ${vc} cv ON (dord.${vc}_id = cv.id)

       LEFT JOIN employee e ON (dord.employee_id = e.id)

  }

  if ($mode eq 'single') {

    $query =

      qq|SELECT id as delivery_order_items_stock_id, qty, unit, bin_id,

                           (SELECT description FROM warehouse WHERE id = ?) AS warehouse|;

  my $h_bin_wh = prepare_query($form, $dbh, $q_bin_wh);

  my $num_si   = 0;

  if ($::instance_conf->get_shipped_qty_require_stock_out) {

    $self->mark_orders_if_delivered('do_id' => $form->{id},

  }

  $main::lxdebug->leave_sub();

  return $delivered ? 1 : 0;

}

1;