projekt kivitendo

  my $query =

    qq|SELECT ct.*, cp.*, ct.notes as customernotes,

         ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail,

       FROM customer ct

       LEFT JOIN contacts cp on ct.id = cp.cp_cv_id

       WHERE (ct.id = ?) $where

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

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

      do_query($form, $dbh, $query, $form->{"id"}, $form->{"id"}, $form->{currency});

      if (!$form->{invnumber}) {

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

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

                shipvia     = ?, terms         = ?, notes         = ?, intnotes      = ?,

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

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

                employee_id = ?, salesman_id   = ?, storno_id     = ?, storno        = ?,

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

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

           a.shippingpoint, a.shipvia, a.terms, a.notes, a.intnotes, a.taxzone_id,

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

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

           a.transaction_description, a.donumber, a.invnumber_for_credit_note,

         c.id AS customer_id, c.name AS customer, c.discount as customer_discount, c.creditlimit, c.terms,

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

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

         c.taxincluded_checked, c.direct_debit,

         $duedate + COALESCE(pt.terms_netto, 0) AS duedate,

         b.discount AS tradediscount, b.description AS business

  $query =

    qq|SELECT o.amount,

         (SELECT e.buy FROM exchangerate e

            AND e.transdate = o.transdate)

       FROM oe o

       WHERE o.customer_id = ?