projekt kivitendo

  my $dbh = $form->get_standard_dbh;

  my $sth;

  my (@project_ids);

  $form->{TEMPLATE_ARRAYS} = {};

          $sortorder = qq|ORDER BY a.oid|;

        }

          qq|SELECT p.partnumber, p.description, p.unit, a.qty, pg.partsgroup

             FROM assembly a

             JOIN parts p ON (a.parts_id = p.id)

                transdate   = ?, orddate       = ?, quodate       = ?, customer_id   = ?,

                amount      = ?, netamount     = ?, paid          = ?,

                duedate     = ?, deliverydate  = ?, invoice       = ?, shippingpoint = ?,

                currency_id = (SELECT id FROM currencies WHERE name = ?),

                department_id = ?, payment_id    = ?, taxincluded   = ?,

                type        = ?, language_id   = ?, taxzone_id    = ?, shipto_id     = ?,

             conv_date($form->{"invdate"}),  conv_date($form->{"orddate"}),    conv_date($form->{"quodate"}),    conv_i($form->{"customer_id"}),

                       $amount,                        $netamount,                       $form->{"paid"},

             conv_date($form->{"duedate"}),  conv_date($form->{"deliverydate"}),    '1',                                $form->{"shippingpoint"},

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

                       $form->{"type"},         conv_i($form->{"language_id"}),   conv_i($form->{"taxzone_id"}), conv_i($form->{"shipto_id"}),

                conv_i($form->{"employee_id"}), conv_i($form->{"salesman_id"}),   conv_i($form->{storno_id}),           $form->{"storno"} ? 't' : 'f',

           a.invnumber, a.ordnumber, a.quonumber, a.cusordnumber,

           a.orddate, a.quodate, a.globalproject_id,

           a.transdate AS invdate, a.deliverydate, a.paid, a.storno, a.gldate,

           a.duedate, a.taxincluded, (SELECT cu.name FROM currencies cu WHERE cu.id=a.currency_id) AS currency, a.shipto_id, a.cp_id,

           a.employee_id, a.salesman_id, a.payment_id,

           a.language_id, a.delivery_customer_id, a.delivery_vendor_id, a.type,

  # get customer

  $query =

    qq|SELECT

         c.email, c.cc, c.bcc, c.language_id, c.payment_id, c.delivery_term_id,

         c.street, c.zipcode, c.city, c.country,

         c.notes AS intnotes, c.klass as customer_klass, c.taxzone_id, c.salesman_id, cu.name AS curr,