1 package SL::Controller::PriceSource;
5 use parent qw(SL::Controller::Base);
7 use List::MoreUtils qw(any uniq apply);
9 use SL::Locale::String qw(t8);
12 use Rose::Object::MakeMethods::Generic
14 scalar => [ qw(record_item) ],
15 'scalar --get_set_init' => [ qw(js record) ],
18 __PACKAGE__->run_before('check_auth');
24 sub action_price_popup {
27 my $record_item = _make_record_item($::form->{row});
29 if (($old_unit = $record_item->{__additional_form_attributes}{unit_old}) && $old_unit ne $record_item->unit) {
30 # reset unit changes. the way these interact on update breaks stuff
31 $record_item->unit_obj(SL::DB::Manager::Unit->find_by(name => $old_unit));
32 $self->js->val("select[name='unit_$::form->{row}']", $old_unit);
35 $self->render_price_dialog($record_item);
38 sub render_price_dialog {
39 my ($self, $record_item) = @_;
41 my $price_source = SL::PriceSource->new(record_item => $record_item, record => $self->record);
45 'kivi.io.price_chooser_dialog',
46 t8('Available Prices'),
47 $self->render('oe/price_sources_dialog', { output => 0 }, price_source => $price_source)
52 # $self->js->text('#dialog_flash_error_content', join ' ', @errors);
53 # $self->js->show('#dialog_flash_error');
56 $self->js->render($self);
65 $::auth->assert('edit_prices');
76 sub _make_record_item {
80 sales_order => 'OrderItem',
81 purchase_order => 'OrderItem',
82 sales_quotation => 'OrderItem',
83 request_quotation => 'OrderItem',
84 invoice => 'InvoiceItem',
85 purchase_invoice => 'InvoiceItem',
86 credit_note => 'InvoiceItem',
87 purchase_delivery_order => 'DeliveryOrderItem',
88 sales_delivery_order => 'DeliveryOrderItem',
93 $class = 'SL::DB::' . $class;
95 eval "require $class";
97 my $obj = $::form->{"orderitems_id_$row"}
98 ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{"orderitems_id_$row"})
101 for my $method (apply { s/_$row$// } grep { /_$row$/ } keys %$::form) {
102 if ($obj->meta->column($method)) {
103 if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
104 $obj->${\"$method\_as_date"}($::form->{"$method\_$row"});
105 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
106 $obj->${\"$method\_as_number"}($::form->{"$method\_$row"});
107 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
108 $obj->$method(!!$::form->{$method});
110 $obj->$method($::form->{"$method\_$row"});
113 $obj->{__additional_form_attributes}{$method} = $::form->{"$method\_$row"};
117 if ($::form->{"id_$row"}) {
118 $obj->part(SL::DB::Part->load_cached($::form->{"id_$row"}));
125 my ($with_items) = @_;
128 sales_order => 'Order',
129 purchase_order => 'Order',
130 sales_quotation => 'Order',
131 request_quotation => 'Order',
132 purchase_invoice => 'PurchaseInvoice',
133 purchase_delivery_order => 'DeliveryOrder',
134 sales_delivery_order => 'DeliveryOrder',
135 }->{$::form->{type}};
137 if ($::form->{type} =~ /invoice|credit_note/) {
138 $class = $::form->{vc} eq 'customer' ? 'Invoice'
139 : $::form->{vc} eq 'vendor' ? 'PurchaseInvoice'
140 : do { die 'unknown invoice type' };
143 return unless $class;
145 $class = 'SL::DB::' . $class;
147 eval "require $class";
149 my $obj = $::form->{id}
150 ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{id})
153 for my $method (keys %$::form) {
154 next unless $obj->can($method);
155 next unless $obj->meta->column($method);
157 if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
158 $obj->${\"$method\_as_date"}($::form->{$method});
159 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
160 $obj->${\"$method\_as\_number"}($::form->{$method});
161 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
162 $obj->$method(!!$::form->{$method});
164 $obj->$method($::form->{$method});
170 for my $i (1 .. $::form->{rowcount}) {
171 next unless $::form->{"id_$i"};
172 push @items, _make_record_item($i)
175 $obj->items(@items) if @items;
177 $obj->is_sales(!!$obj->customer_id) if $class eq 'SL::DB::DeliveryOrder';