projekt kivitendo

  $form->{duedate} ||= $form->{invdate};

  # connect to database

  my $sth;

  my $query = qq|SELECT date | . conv_dateq($form->{duedate}) . qq| - date | . conv_dateq($form->{invdate}) . qq| AS terms|;

  $form->{username} = $myconfig->{name};

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form, @wanted_vars) = @_;

  # connect to database

  my $language_id = $form->{language_id};

                                                  'allow_fallback'   => 1);

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form, $locale) = @_;

  # connect to database, turn off autocommit

  my (%payments, $old_form, $row, $item, $query, %keep_vars);

  restore_form($old_form);

  my $rc = $dbh->commit();

  $main::lxdebug->leave_sub();

  my ($self, $myconfig, $form) = @_;

  # connect to database

  &reverse_invoice($dbh, $form);

  do_query($form, $dbh, qq|DELETE FROM status WHERE trans_id = ?|, @values);

  my $rc = $dbh->commit;

  if ($rc) {

    my $spool = $::lx_office_conf{paths}->{spool};

  my ($self, $myconfig, $form) = @_;

  # connect to database

  my $i = $form->{rowcount};

    map { $item->{"ic_cvar_" . $_->{name} } = $_->{value} } @{ $custom_variables };

  }

  $main::lxdebug->leave_sub();

}

  my ($self, $myconfig, $form) = @_;

  $form->{"PRICES"} = {};

            $pkr->{selected}  = ' selected';

          }

        } elsif ( ($form->parse_amount($myconfig, $price_new)

                  and ($price_new ne 0) and defined $price_new) {

          # sellprice has changed

          # when loading existing invoices $price_new is NULL

    $pkq->finish;

  }

  $main::lxdebug->leave_sub();

}

  # ToDO: die when this happens and throw an error

  $main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/);

  my $query = qq|SELECT storno FROM $table WHERE storno_id = ?|;

  my ($result) = selectrow_query($form, $dbh, $query, $form->{id});

  $main::lxdebug->leave_sub();

  return $result;

  # ToDO: die when this happens and throw an error

  $main::lxdebug->leave_sub() and return 0 if ($table =~ /\W/);

  my $query = qq|SELECT storno FROM $table WHERE id = ?|;

  my ($result) = selectrow_query($form, $dbh, $query, $id);

  $main::lxdebug->leave_sub();

  return $result;

  my ($self, $myconfig, $form) = @_;

  my $query = qq| SELECT accno FROM chart WHERE id = (SELECT ar_paid_accno_id FROM defaults)|;

  my ($result) = selectrow_query($form, $dbh, $query);

  $main::lxdebug->leave_sub();

  return $result;