projekt kivitendo

                invoice      = ?, taxzone_id  = ?, notes         = ?, taxincluded = ?,

                intnotes     = ?, curr        = ?, storno_id     = ?, storno      = ?,

                cp_id        = ?, employee_id = ?, department_id = ?,

              WHERE id = ?|;

  @values = (

                $form->{invnumber},          $form->{ordnumber},           $form->{quonumber},      conv_date($form->{invdate}),

                $form->{intnotes},           $form->{currency},     conv_i($form->{storno_id}),     $form->{storno}      ? 't' : 'f',

         conv_i($form->{cp_id}),      conv_i($form->{employee_id}), conv_i($form->{department_id}),

         conv_i($form->{globalproject_id}),

         conv_i($form->{id})

  );

  do_query($form, $dbh, $query, @values);

  $query = qq|SELECT cp_id, invnumber, transdate AS invdate, duedate,

                orddate, quodate, globalproject_id,

                ordnumber, quonumber, paid, taxincluded, notes, taxzone_id, storno, gldate,

              FROM ap

              WHERE id = ?|;

  $ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{id}));

         v.id AS vendor_id, v.name AS vendor, v.discount as vendor_discount,

         v.creditlimit, v.terms, v.notes AS intnotes,

         v.email, v.cc, v.bcc, v.language_id, v.payment_id,

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

         b.description AS business

       FROM vendor v