projekt kivitendo

  $amount = $netamount + $tax;

  # save AR record

  $query = qq|UPDATE ar set

                invnumber   = ?, ordnumber     = ?, quonumber     = ?, cusordnumber  = ?,

                transdate   = ?, orddate       = ?, quodate       = ?, customer_id   = ?,

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

                cp_id       = ?, marge_total   = ?, marge_percent = ?, 

                globalproject_id               = ?, delivery_customer_id             = ?,

              WHERE id = ?|;

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

             conv_date($form->{"invdate"}),  conv_date($form->{"orddate"}),    conv_date($form->{"quodate"}),    conv_i($form->{"customer_id"}), 

                conv_i($form->{"cp_id"}),            1 * $form->{marge_total} ,      1 * $form->{marge_percent},

                conv_i($form->{"globalproject_id"}),                              conv_i($form->{"delivery_customer_id"}), 

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

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

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

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

    # retrieve invoice

    $query =

      qq|SELECT

           a.invnumber, a.ordnumber, a.quonumber, a.cusordnumber,

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

           a.transaction_description,

           a.marge_total, a.marge_percent,

         FROM ar a

         LEFT JOIN employee e ON (e.id = a.employee_id)

         WHERE a.id = ?|;