Inventory-Helper: Restmenge auch runden, Stück immer ganzzahlig
[kivitendo-erp.git] / SL / Controller / TopQuickSearch / CustomerVendor.pm
1 package SL::Controller::TopQuickSearch::CustomerVendor;
2
3 use strict;
4 use parent qw(Rose::Object);
5
6 use SL::Locale::String qw(t8);
7 use SL::Controller::Helper::GetModels;
8 use SL::Controller::Base;
9
10 use Rose::Object::MakeMethods::Generic (
11   'scalar --get_set_init' => [ qw(models) ],
12 );
13
14 # nope. this is only for subclassing
15 sub auth { 'NOT ALLOWED' }
16
17 sub name { die 'must be overwritten' }
18
19 sub description_config { die 'must be overwritten' }
20
21 sub description_field { die 'must be overwritten' }
22
23 sub query_autocomplete {
24   my ($self) = @_;
25
26   my $objects = $self->models->get;
27
28   [
29     map {
30      value       => $_->displayable_name,
31      label       => $_->displayable_name,
32      id          => $_->id,
33     }, @$objects
34   ];
35 }
36
37 sub select_autocomplete {
38   $_[0]->redirect_to_object($::form->{id});
39 }
40
41 sub do_search {
42   my ($self) = @_;
43
44   my $objects = $self->models->get;
45
46   return !@$objects     ? ()
47        : @$objects == 1 ? $self->redirect_to_object($objects->[0]->id)
48        :                  $self->redirect_to_search($::form->{term});
49 }
50
51 sub redirect_to_search {
52   SL::Controller::Base->new->url_for(
53     controller => 'ct.pl',
54     action     => 'list_names',
55     db         => $_[0]->db,
56     sortdir    => 0,
57     status     => 'all',
58     obsolete   => 'N',
59     all        => $_[1],
60     (map {; "l_$_" => 'Y' } $_[0]->db . "number", qw(name street contact phone zipcode email city country gln)),
61
62   );
63 }
64
65 sub redirect_to_object {
66   SL::Controller::Base->new->url_for(
67     controller => 'CustomerVendor',
68     action     => 'edit',
69     db         => $_[0]->db,
70     id         => $_[1],
71   );
72 }
73
74 sub init_models {
75   my ($self) = @_;
76
77   my $cvnumber = $self->db eq 'customer' ? 'customernumber' : 'vendornumber';
78
79   SL::Controller::Helper::GetModels->new(
80     controller => $self,
81     model      => $self->model,
82     source     => {
83       filter => {
84         'all:substr:multi::ilike' => $::form->{term}, # all filter spec is set in SL::DB::Manager::Customer
85         or => [ obsolete => undef, obsolete => 0 ],
86       },
87     },
88     sorted     => {
89       _default   => {
90         by  => $cvnumber,
91         dir => 0,
92       },
93       $cvnumber => $self->db eq 'customer' ? t8('Customer Number') : t8('Vendor Number'),
94     },
95     paginated  => {
96       per_page => 10,
97     },
98   )
99 }
100
101 sub type {
102   die 'must be overwritten'
103 }
104
105 sub cv {
106   die 'must be overwritten'
107 }
108
109 sub model {
110   die 'must be overwritten'
111 };
112
113 1;