projekt kivitendo

  }

  my ($ar_id) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);

  $query =

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

         ?,                     -- netamount

         0,                     -- paid

         -- duedate:

         'f',                   -- invoice

         ?,                     -- curr

         ?,                     -- notes

             $amount,

             $amount,

             $dunning_id,       # duedate

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

             $form->{login});   # employee_id

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

  $query =

    qq|SELECT

         ar.duedate,   ar.notes,     ar.notes AS invoicenotes,

         c.name,      c.department_1,   c.department_2, c.street, c.zipcode, c.city, c.country,