projekt kivitendo

    $uid = substr($uid, 2, 75);

    $query = qq|INSERT INTO ap (invnumber, employee_id)

    $dbh->do($query) || $form->dberror($query);

    $query = qq|SELECT a.id FROM ap a

  $lxdebug->enter_sub();

  # set option selected

    $form->{"select$item"} =~ s/ selected//;

    $form->{"select$item"} =~

      s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;

      <tr>

      <th align="right">| . $locale->text('Employee') . qq|</th>

      <td>| .

                             '-values' => \@values, '-labels' => \%labels)) . qq|

      </td>

      </tr>|;

    $form->error($locale->text("Invoice has already been storno'd!"));

  }

  invoice_links();

  prepare_invoice();

  relink_accounts();

  $form->{id} = "";

  $form->{invnumber} = "Storno zu " . $form->{invnumber};

  $form->{rowcount}++;

  $lxdebug->leave_sub();

}