projekt kivitendo

    $query = qq|UPDATE ap SET invnumber = ?,

                transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,

                currency_id = (SELECT id FROM currencies WHERE name = ?), notes = ?, department_id = ?, storno = ?, storno_id = ?,

                globalproject_id = ?, direct_debit = ?

               WHERE id = ?|;

    @values = ($form->{invnumber}, conv_date($form->{transdate}),

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

                  $form->{taxincluded} ? 't' : 'f', $form->{invtotal},

                  $form->{invpaid}, $form->{netamount},

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

                  conv_i($form->{department_id}), $form->{storno},

    $query =

      qq|UPDATE ar set

           invnumber = ?, ordnumber = ?, transdate = ?, customer_id = ?,

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

           netamount = ?, notes = ?, department_id = ?,

           employee_id = ?, storno = ?, storno_id = ?, globalproject_id = ?,

           direct_debit = ?

         WHERE id = ?|;

    my @values = ($form->{invnumber}, $form->{ordnumber}, conv_date($form->{transdate}), conv_i($form->{customer_id}), $form->{taxincluded} ? 't' : 'f', $form->{amount},

                  $form->{currency},

                  $form->{netamount}, $form->{notes}, conv_i($form->{department_id}),

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

  my $query    =

    qq|SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ar.id, ac.amount, ac.taxkey, ac.memo,

         ct.name, ct.ustid, ct.customernumber AS vcnumber, ct.id AS customer_id, NULL AS vendor_id,

         $ar_accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         ar.invoice,

       UNION ALL

       SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,ap.id, ac.amount, ac.taxkey, ac.memo,

         ct.name, ct.ustid, ct.vendornumber AS vcnumber, NULL AS customer_id, ct.id AS vendor_id,

         $ap_accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         ap.invoice,

       UNION ALL

       SELECT ac.acc_trans_id, ac.transdate, ac.gldate, ac.trans_id,gl.id, ac.amount, ac.taxkey, ac.memo,

         gl.description AS name, NULL as ustid, '' AS vcname, NULL AS customer_id, NULL AS vendor_id,

         c.accno, c.description AS accname, c.taxkey_id as charttax, c.datevautomatik, c.id, ac.chart_link AS link,

         FALSE AS invoice,

  reference      => { type => 'text' },

  storno         => { type => 'boolean', default => 'false' },

  storno_id      => { type => 'integer' },

  taxincluded    => { type => 'boolean' },

  transdate      => { type => 'date', default => 'now' },

  type           => { type => 'text' },

    $query =

      qq|SELECT

           a.cp_id, a.invnumber, a.transdate, a.${table}_id, a.datepaid, a.deliverydate,

           a.mtime, a.itime,

           a.intnotes, a.department_id, a.amount AS oldinvtotal,

           a.paid AS oldtotalpaid, a.employee_id, a.gldate, a.type,

  $query =

    qq|UPDATE gl SET

         reference = ?, description = ?, notes = ?,

         storno = ?, storno_id = ?, ob_transaction = ?, cb_transaction = ?

       WHERE id = ?|;

  @values = ($form->{reference}, $form->{description}, $form->{notes},

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

             conv_i($form->{id}));

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

  if ($form->{id}) {

    $query =

           g.storno, g.storno_id,

           g.department_id, d.description AS department,

           e.name AS employee, g.taxincluded, g.gldate,

-- @depends: release_3_5_6_1

ALTER TABLE ap ADD COLUMN tax_point DATE;

ALTER TABLE ar ADD COLUMN tax_point DATE;

ALTER TABLE oe ADD COLUMN tax_point DATE;

                <th align="right" nowrap>[% 'Due Date' | $T8 %]</th>

                <td>[% L.date_tag('duedate', duedate) %]</td>

              </tr>

              <tr>

                <th align=right nowrap>[% 'Delivery Date' | $T8 %]</th>

                <td>[% L.date_tag('deliverydate', deliverydate) %]</td>

                <th align=right nowrap>[% 'Due Date' | $T8 %]</th>

                <td>[% L.date_tag('duedate', duedate) %]</td>

              </tr>

              <tr>

                <th align=right nowrap>[% 'Delivery Date' | $T8 %]</th>

                <td>[% L.date_tag('deliverydate', deliverydate) %]</td>

        <tr>

          <th [%- departments_style -%]align="right">[% 'Department' | $T8 %]</th>

          <td [%- departments_style -%]>[% L.select_tag('department_id', ALL_DEPARTMENTS, default = department_id, title_key = 'description', with_empty = 1) %]</td>

        </tr>

        <tr>

          <th align="right">[% 'Description' | $T8 %]</th>

          <td>[% L.areainput_tag('description', description, cols=50, readonly=readonly) %]</td>

        </tr>

        <tr>

        </tr>

      <tr>

       <td colspan=4>