projekt kivitendo

                invnumber = ?, transdate = ?, ordnumber = ?, vendor_id = ?, taxincluded = ?,

                amount = ?, duedate = ?, paid = ?, netamount = ?,

                curr = ?, notes = ?, department_id = ?, storno = ?, storno_id = ?,

               WHERE id = ?|;

    @values = ($form->{invnumber}, conv_date($form->{transdate}),

                  $form->{ordnumber}, conv_i($form->{vendor_id}),

                  $form->{currency}, $form->{notes},

                  conv_i($form->{department_id}), $form->{storno},

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

                  $form->{id});

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

  # Hotfix f?r Bug 1837 - Besser w?re es alte Buchungsbelege

  # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch

  # nicht f?r ver?nderbare Belege (oe, do, ...)

  my $query = qq|SELECT count(*) FROM $table $obsolete|;

  my ($count) = selectrow_query($self, $dbh, $query);

  }

  my $extra_columns = '';

  if ($self->{id}) {

    $query =

  AP->get_transdate(\%myconfig, $form);

  $form->{initial_transdate} = $form->{transdate};

  $form->{transdate} = $form->{initial_transdate};

  &display_form;

  $form->{title} = "Edit";

  &display_form;

  $main::lxdebug->leave_sub();

sub create_links {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  $main::auth->assert('general_ledger');

  $form->create_links("AP", \%myconfig, "vendor");

  IR->get_vendor(\%myconfig, \%$form);

  $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";

  $form->{rowcount}  = 1;

                <td align="right"><input name="taxincluded" class="checkbox" type="checkbox" value="1" [% IF ( taxincluded ) %]checked[% END %]></td>

                <th align=left nowrap>[% 'Tax Included' | $T8 %]</th>

              </tr>

            </table>

          </td>