projekt kivitendo

    qq|SELECT o.id, o.ordnumber, o.transdate, o.reqdate, | .

    qq|  o.amount, ct.name, o.netamount, o.${vc}_id, o.globalproject_id, | .

    qq|  o.closed, o.delivered, o.quonumber, o.shippingpoint, o.shipvia, | .

    qq|  ex.$rate AS exchangerate, | .

    qq|  pr.projectnumber AS globalprojectnumber, | .

    qq|  e.name AS employee | .

    push(@values, conv_date($form->{transdateto}));

  }

  my $sortorder = join(', ', ("o.id", $form->sort_columns("transdate", $ordnumber, "name")));

  my %allowed_sort_columns =

    ("transdate" => "o.transdate",

     "quonumber" => "o.quonumber",

     "name" => "ct.name",

     "employee" => "e.name",

  if ($form->{sort} && grep($form->{sort}, keys(%allowed_sort_columns))) {

    $sortorder = $allowed_sort_columns{$form->{sort}};

  }

    qq|shippingpoint = ?, shipvia = ?, notes = ?, intnotes = ?, curr = ?, closed = ?, | .

    qq|delivered = ?, proforma = ?, quotation = ?, department_id = ?, language_id = ?, | .

    qq|taxzone_id = ?, shipto_id = ?, payment_id = ?, delivery_vendor_id = ?, delivery_customer_id = ?, | .

    qq|WHERE id = ?|;

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

             conv_i($form->{delivery_customer_id}),

             conv_i($form->{globalproject_id}), conv_i($form->{employee_id}),

             conv_i($form->{salesman_id}), conv_i($form->{cp_id}),

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

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

      qq|  o.closed, o.reqdate, o.quonumber, o.department_id, o.cusordnumber, | .

      qq|  d.description AS department, o.payment_id, o.language_id, o.taxzone_id, | .

      qq|  o.delivery_customer_id, o.delivery_vendor_id, o.proforma, o.shipto_id, | .

      qq|FROM oe o | .

      qq|JOIN ${vc} cv ON (o.${vc}_id = cv.id) | .

      qq|LEFT JOIN employee e ON (o.employee_id = e.id) | .