projekt kivitendo

  my $vc = $form->{vc} eq "customer" ? "customer" : "vendor";

  $query =

         ct.name, dord.${vc}_id, dord.globalproject_id,

         dord.closed, dord.delivered, dord.shippingpoint, dord.shipvia,

         dord.transaction_description,

         pr.projectnumber AS globalprojectnumber,

         e.name AS employee,

         sm.name AS salesman,

         oe.id AS oe_id

       FROM delivery_orders dord

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

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

       LEFT JOIN employee sm ON (dord.salesman_id = sm.id)

       LEFT JOIN project pr ON (dord.globalproject_id = pr.id)

       LEFT JOIN oe ON ((dord.ordnumber = oe.ordnumber) AND NOT COALESCE(oe.quotation, FALSE))|;

  push @where, ($form->{type} eq 'sales_delivery_order' ? '' : 'NOT ') . qq|COALESCE(dord.is_sales, FALSE)|;

    "id"                      => "dord.id",

    "donumber"                => "dord.donumber",

    "ordnumber"               => "dord.ordnumber",

    "name"                    => "ct.name",

    "employee"                => "e.name",

    "salesman"                => "sm.name",

         id, delivery_order_id, parts_id, description, longdescription, qty, base_qty,

         sellprice, discount, unit, reqdate, project_id, serialnumber,

         ordnumber, transdate, cusordnumber,

       VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,

  my $h_item = prepare_query($form, $dbh, $q_item);

  my $q_item_stock =

               $form->{"cusordnumber_$i"},

               $form->{"lastcost_$i"},

               conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}),

    do_statement($form, $h_item, $q_item, @values);

    my $stock_info = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_$i"});

  # save DO record

  $query =

    qq|UPDATE delivery_orders SET

         customer_id = ?, reqdate = ?,

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

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

       WHERE id = ?|;

  @values = ($form->{donumber}, $form->{ordnumber},

             conv_i($form->{vendor_id}), conv_i($form->{customer_id}),

             conv_date($reqdate), $form->{shippingpoint}, $form->{shipvia},

             $form->{notes}, $form->{intnotes},

    # so if any of these infos is important (or even different) for any item,

    # it will be killed out and then has to be fetched from the item scope query further down

    $query =

           dord.shippingpoint, dord.shipvia, dord.notes, dord.intnotes,

           e.name AS employee, dord.employee_id, dord.salesman_id,

           dord.${vc}_id, cv.name AS ${vc},

           doi.reqdate, doi.project_id, doi.serialnumber, doi.lastcost,

           doi.ordnumber, doi.transdate, doi.cusordnumber, doi.longdescription,

           doi.price_factor_id, doi.price_factor, doi.marge_price_factor,

           pr.projectnumber,

           pg.partsgroup

         FROM delivery_order_items doi

    qw(runningnumber number description longdescription qty unit

       partnotes serialnumber reqdate projectnumber

       si_runningnumber si_number si_description

  my $sameitem = "";

  foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {

    push @{ $form->{serialnumber} },    $form->{"serialnumber_$i"};

    push @{ $form->{reqdate} },         $form->{"reqdate_$i"};

    push @{ $form->{projectnumber} },   $projectnumbers{$form->{"project_id_$i"}};

    if ($form->{"assembly_$i"}) {

      $sameitem = "";