projekt kivitendo

  $query =

    qq|INSERT INTO ar (id,          invnumber, transdate, gldate, customer_id,

                       taxincluded, amount,    netamount, paid,   duedate,

                       employee_id)

       VALUES (

         ?,                     -- id

         (SELECT duedate FROM dunning WHERE dunning_id = ? LIMIT 1),

         'f',                   -- invoice

         (SELECT id FROM currencies WHERE name = ?), -- curr

         ?,                     -- notes

         -- employee_id:

         (SELECT id FROM employee WHERE login = ?)

             $amount,

             $dunning_id,       # duedate

             $curr,             # default currency

             sprintf($main::locale->text('Automatically created invoice for fee and interest for dunning %s'), $dunning_id), # notes

             $::myconfig{login});   # employee_id

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