Form::read_logo gibt es in dieser Version nicht
[kivitendo-erp.git] / SL / Controller / PriceSource.pm
1 package SL::Controller::PriceSource;
2
3 use strict;
4
5 use parent qw(SL::Controller::Base);
6
7 use List::MoreUtils qw(any uniq apply);
8 use SL::Locale::String qw(t8);
9 use SL::PriceSource;
10
11 use Rose::Object::MakeMethods::Generic
12 (
13  scalar => [ qw(record_item) ],
14  'scalar --get_set_init' => [ qw(record) ],
15 );
16
17 __PACKAGE__->run_before('check_auth');
18
19 #
20 # actions
21 #
22
23 sub action_price_popup {
24   my ($self) = @_;
25
26   my $record_item = _make_record_item($::form->{row});
27   my $old_unit;
28   if (($old_unit = $record_item->{__additional_form_attributes}{unit_old}) && $old_unit ne $record_item->unit) {
29     # reset unit changes. the way these interact on update breaks stuff
30     $record_item->unit_obj(SL::DB::Manager::Unit->find_by(name => $old_unit));
31     $self->js->val("select[name='unit_$::form->{row}']", $old_unit);
32   }
33
34   $self->render_price_dialog($record_item);
35 }
36
37 sub render_price_dialog {
38   my ($self, $record_item) = @_;
39
40   my $price_source = SL::PriceSource->new(record_item => $record_item, record => $self->record);
41
42   $self->js
43     ->run(
44       'kivi.io.price_chooser_dialog',
45       t8('Available Prices'),
46       $self->render('oe/price_sources_dialog', { output => 0 }, price_source => $price_source)
47     )
48     ->reinit_widgets;
49
50 #   if (@errors) {
51 #     $self->js->text('#dialog_flash_error_content', join ' ', @errors);
52 #     $self->js->show('#dialog_flash_error');
53 #   }
54
55   $self->js->render;
56 }
57
58
59 #
60 # internal stuff
61 #
62
63 sub check_auth {
64   $::auth->assert('edit_prices');
65 }
66
67 sub init_record {
68   _make_record();
69 }
70
71 sub _make_record_item {
72   my ($row) = @_;
73
74   my $class = {
75     sales_order             => 'OrderItem',
76     purchase_order          => 'OrderItem',
77     sales_quotation         => 'OrderItem',
78     request_quotation       => 'OrderItem',
79     invoice                 => 'InvoiceItem',
80     purchase_invoice        => 'InvoiceItem',
81     credit_note             => 'InvoiceItem',
82     purchase_delivery_order => 'DeliveryOrderItem',
83     sales_delivery_order    => 'DeliveryOrderItem',
84   }->{$::form->{type}};
85
86   return unless $class;
87
88   $class = 'SL::DB::' . $class;
89
90   my %translated_methods = (
91     'SL::DB::OrderItem' => {
92       id                      => 'parts_id',
93       orderitems_id           => 'id',
94     },
95     'SL::DB::DeliveryOrderItem' => {
96       id                      => 'parts_id',
97       delivery_order_items_id => 'id',
98     },
99     'SL::DB::InvoiceItem' => {
100       id                      => 'parts_id',
101       invoice_id => 'id',
102     },
103   );
104
105   eval "require $class";
106
107   my $obj = $::form->{"orderitems_id_$row"}
108           ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{"orderitems_id_$row"})
109           : $class->new;
110
111   for my $key (grep { /_$row$/ } keys %$::form) {
112     my $method = $key;
113     $method =~ s/_$row$//;
114     $method = $translated_methods{$class}{$method} // $method;
115     my $value = $::form->{$key};
116     if ($obj->meta->column($method)) {
117       if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
118         $obj->${\"$method\_as_date"}($value);
119       } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
120         $obj->${\"$method\_as_number"}($value);
121       } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
122         $obj->$method(!!$value);
123       } else {
124         $obj->$method($value);
125       }
126     } else {
127       $obj->{__additional_form_attributes}{$method} = $value;
128     }
129   }
130
131   if ($::form->{"id_$row"}) {
132     $obj->part(SL::DB::Part->load_cached($::form->{"id_$row"}));
133   }
134
135   return $obj;
136 }
137
138 sub _make_record {
139   my ($with_items) = @_;
140
141   my $class = {
142     sales_order             => 'Order',
143     purchase_order          => 'Order',
144     sales_quotation         => 'Order',
145     request_quotation       => 'Order',
146     purchase_invoice        => 'PurchaseInvoice',
147     purchase_delivery_order => 'DeliveryOrder',
148     sales_delivery_order    => 'DeliveryOrder',
149   }->{$::form->{type}};
150
151   if ($::form->{type} =~ /invoice|credit_note/) {
152     $class = $::form->{vc} eq 'customer' ? 'Invoice'
153            : $::form->{vc} eq 'vendor'   ? 'PurchaseInvoice'
154            : do { die 'unknown invoice type' };
155   }
156
157   return unless $class;
158
159   $class = 'SL::DB::' . $class;
160
161   eval "require $class";
162
163   my $obj = $::form->{id}
164           ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{id})
165           : $class->new;
166
167   for my $method (keys %$::form) {
168     next unless $obj->can($method);
169     next unless $obj->meta->column($method);
170
171     if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
172       $obj->${\"$method\_as_date"}($::form->{$method});
173     } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
174       $obj->${\"$method\_as\_number"}($::form->{$method});
175     } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
176       $obj->$method(!!$::form->{$method});
177     } else {
178       $obj->$method($::form->{$method});
179     }
180   }
181
182   if ($with_items) {
183     my @items;
184     for my $i (1 .. $::form->{rowcount}) {
185       next unless $::form->{"id_$i"};
186       push @items, _make_record_item($i)
187     }
188
189     $obj->items(@items) if @items;
190   }
191   $obj->is_sales(!!$obj->customer_id) if $class eq 'SL::DB::DeliveryOrder';
192
193   return $obj;
194 }
195
196 1;
197