projekt kivitendo

  # stuff different from the whole will not be overwritten, but saved with a suffix.

  $query =

    qq|SELECT doi.id AS delivery_order_items_id,

         doi.sellprice, doi.parts_id AS id, doi.unit, doi.discount, p.bin, p.notes AS partnotes,

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

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

          $sameitem = ($ref->{partsgroup}) ? $ref->{partsgroup} : "--";

          push(@{ $form->{description} }, $sameitem);

        }

        push(@{ $form->{description} }, $form->format_amount($myconfig, $ref->{qty} * $form->{"qty_$i"}) . qq|, $ref->{partnumber}, $ref->{description}|);

        map({ push(@{ $form->{$_} }, "") } grep({ $_ ne "description" } @arrays));

           i.description, i.longdescription, i.qty, i.fxsellprice AS sellprice, i.discount, i.parts_id AS id, i.unit, i.deliverydate AS reqdate,

           i.project_id, i.serialnumber, i.id AS invoice_pos, i.pricegroup_id, i.ordnumber, i.transdate, i.cusordnumber, i.subtotal, i.lastcost,

           i.price_factor_id, i.price_factor, i.marge_price_factor,

           pr.projectnumber, pg.partsgroup, prg.pricegroup

         FROM invoice i

           c2.accno AS income_accno,    c2.new_chart_id AS income_new_chart,    date($transdate) - c2.valid_from as income_valid,

           c3.accno AS expense_accno,   c3.new_chart_id AS expense_new_chart,   date($transdate) - c3.valid_from as expense_valid,

           oe.ordnumber AS ordnumber_oe, oe.transdate AS transdate_oe, oe.cusordnumber AS cusordnumber_oe,

           o.sellprice, o.parts_id AS id, o.unit, o.discount, p.bin, p.notes AS partnotes, p.inventory_accno_id AS part_inventory_accno_id,

           o.reqdate, o.project_id, o.serialnumber, o.ship, o.lastcost,

           o.ordnumber, o.transdate, o.cusordnumber, o.subtotal, o.longdescription,