projekt kivitendo

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

  my (@filter_values, $filter);

    push(@{$parts}, $ref);

  }

  $sth->finish();

  $main::lxdebug->leave_sub();

  my ($self, $myconfig, $form, $order_by, $order_dir, $is_vendor, $allow_both) = @_;

  my (@filter_values, $filter);

  if ($form->{"name"}) {

    push(@{$customers}, $ref);

  }

  $sth->finish();

  $main::lxdebug->leave_sub();

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

  my (@filter_values, $filter);

  if ($form->{"name"}) {

    push(@{$delivery_customers}, $ref);

  }

  $sth->finish();

  $main::lxdebug->leave_sub();

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

  my (@filter_values, $filter);

  if ($form->{"name"}) {

    push(@{$vendors}, $ref);

  }

  $sth->finish();

  $main::lxdebug->leave_sub();

  $vc = $vc eq "customer" ? "customer" : "vendor";

  my $query;

  my $ref = selectfirst_hashref_query($form, $dbh, $query, $vc_id);

  if (!$ref) {

    $main::lxdebug->leave_sub();

    return 0;

  }

  # Only show default pricegroup for customer, not vendor, which is why this is outside the main query

  ($form->{pricegroup}) = selectrow_query($form, $dbh, qq|SELECT pricegroup FROM pricegroup WHERE id = ?|, $form->{pricegroup_id});

  $main::lxdebug->leave_sub();

  return 1;

  $prefix ||= "";

  my $query = qq|SELECT * FROM shipto WHERE shipto_id = ?|;

  my $ref   = selectfirst_hashref_query($form, $dbh, $query, $shipto_id);

  );

  $form->{"${prefix}shiptocvar_$_->{name}"} = $_->{value} for @{ $cvars };

  $main::lxdebug->leave_sub();

}