projekt kivitendo

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

    $form->get_employee($dbh);

  }

  $form->{defaultcurrency} = $form->get_default_currency($myconfig);

  ($null, $form->{department_id}) = split(/--/, $form->{department});

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

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

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

                globalproject_id               = ?, delivery_customer_id             = ?,

                transaction_description        = ?, delivery_vendor_id               = ?,

		donumber    = ?

              WHERE id = ?|;

  @values = (          $form->{"invnumber"},           $form->{"ordnumber"},             $form->{"quonumber"},          $form->{"cusordnumber"},

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

                       $form->{"shipvia"},      conv_i($form->{"terms"}),                $form->{"notes"},              $form->{"intnotes"},

                       $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->{"cp_id"}),            1 * $form->{marge_total} ,      1 * $form->{marge_percent},

                       $form->{transaction_description},                          conv_i($form->{"delivery_vendor_id"}),

		       $form->{"donumber"}, #das entsprechende feld lieferscheinnummer aus der html-form 12.02.09 jb

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

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

  if($form->{"formname"} eq "credit_note") {

    for my $i (1 .. $form->{rowcount}) {

      $query = qq|UPDATE parts SET onhand = onhand - ? WHERE id = ?|;

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

    }

  }

  if ($form->{storno}) {

    $query =

      qq!UPDATE ar SET

    my $transdate = $form->{deliverydate} ? $dbh->quote($form->{deliverydate})

                  : $form->{invdate}      ? $dbh->quote($form->{invdate})

                  :                         "current_date";

    my $taxzone_id = $form->{taxzone_id} *= 1;

    $taxzone_id = 0 if (0 > $taxzone_id) || (3 < $taxzone_id);

           LEFT JOIN chart c ON (c.id = t.chart_id)

           WHERE t.id IN

             (SELECT tk.tax_id FROM taxkeys tk

                AND startdate <= date($transdate)

              ORDER BY startdate DESC LIMIT 1)

           ORDER BY c.accno|;

    my $i = 0;

    while (my $ptr = $stw->fetchrow_hashref('NAME_lc')) {

      if (($ptr->{accno} eq "") && ($ptr->{rate} == 0)) {

        $i++;

        $ptr->{accno} = $i;