1 package SL::Controller::PriceSource;
5 use parent qw(SL::Controller::Base);
7 use List::MoreUtils qw(any uniq apply);
8 use SL::Locale::String qw(t8);
11 use Rose::Object::MakeMethods::Generic
13 scalar => [ qw(record_item) ],
14 'scalar --get_set_init' => [ qw(record) ],
17 __PACKAGE__->run_before('check_auth');
23 sub action_price_popup {
26 my $record_item = _make_record_item($::form->{row});
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);
34 $self->render_price_dialog($record_item);
37 sub render_price_dialog {
38 my ($self, $record_item) = @_;
40 my $price_source = SL::PriceSource->new(record_item => $record_item, record => $self->record);
44 'kivi.io.price_chooser_dialog',
45 t8('Available Prices'),
46 $self->render('oe/price_sources_dialog', { output => 0 }, price_source => $price_source)
51 # $self->js->text('#dialog_flash_error_content', join ' ', @errors);
52 # $self->js->show('#dialog_flash_error');
64 if ($::form->{vc} eq 'customer') {
65 $::auth->assert('sales_edit_prices');
66 } elsif ($::form->{vc} eq 'vendor') {
67 $::auth->assert('purchase_edit_prices');
69 $::auth->assert('no_such_right');
77 sub _make_record_item {
81 sales_order => 'OrderItem',
82 purchase_order => 'OrderItem',
83 sales_quotation => 'OrderItem',
84 request_quotation => 'OrderItem',
85 invoice => 'InvoiceItem',
86 invoice_for_advance_payment => 'InvoiceItem',
87 purchase_invoice => 'InvoiceItem',
88 credit_note => 'InvoiceItem',
89 purchase_delivery_order => 'DeliveryOrderItem',
90 sales_delivery_order => 'DeliveryOrderItem',
95 $class = 'SL::DB::' . $class;
97 my %translated_methods = (
98 'SL::DB::OrderItem' => {
100 orderitems_id => 'id',
102 'SL::DB::DeliveryOrderItem' => {
104 delivery_order_items_id => 'id',
106 'SL::DB::InvoiceItem' => {
112 eval "require $class";
114 my $obj = $::form->{"orderitems_id_$row"}
115 ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{"orderitems_id_$row"})
118 for my $key (grep { /_$row$/ } keys %$::form) {
120 $method =~ s/_$row$//;
121 $method = $translated_methods{$class}{$method} // $method;
122 my $value = $::form->{$key};
123 if ($obj->meta->column($method)) {
124 if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
125 $obj->${\"$method\_as_date"}($value);
126 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
127 $obj->${\"$method\_as_number"}($value);
128 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
129 $obj->$method(!!$value);
131 $obj->$method($value);
134 $obj->{__additional_form_attributes}{$method} = $value;
138 if ($::form->{"id_$row"}) {
139 $obj->part(SL::DB::Part->load_cached($::form->{"id_$row"}));
146 my ($with_items) = @_;
149 sales_order => 'Order',
150 purchase_order => 'Order',
151 sales_quotation => 'Order',
152 request_quotation => 'Order',
153 purchase_invoice => 'PurchaseInvoice',
154 purchase_delivery_order => 'DeliveryOrder',
155 sales_delivery_order => 'DeliveryOrder',
156 }->{$::form->{type}};
158 if ($::form->{type} =~ /invoice|invoice_for_advance_payment|credit_note/) {
159 $class = $::form->{vc} eq 'customer' ? 'Invoice'
160 : $::form->{vc} eq 'vendor' ? 'PurchaseInvoice'
161 : do { die 'unknown invoice type' };
164 return unless $class;
166 $class = 'SL::DB::' . $class;
168 eval "require $class";
170 my $obj = $::form->{id}
171 ? $class->meta->convention_manager->auto_manager_class_name->find_by(id => $::form->{id})
174 for my $method (keys %$::form) {
175 next unless $obj->can($method);
176 next unless $obj->meta->column($method);
178 if ($obj->meta->column($method)->isa('Rose::DB::Object::Metadata::Column::Date')) {
179 $obj->${\"$method\_as_date"}($::form->{$method});
180 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::(?:Numeric|Float|DoublePrecsion)$/) {
181 $obj->${\"$method\_as\_number"}($::form->{$method});
182 } elsif ((ref $obj->meta->column($method)) =~ /^Rose::DB::Object::Metadata::Column::Boolean$/) {
183 $obj->$method(!!$::form->{$method});
185 $obj->$method($::form->{$method});
191 for my $i (1 .. $::form->{rowcount}) {
192 next unless $::form->{"id_$i"};
193 push @items, _make_record_item($i)
196 $obj->items(@items) if @items;
198 $obj->is_sales(!!$obj->customer_id) if $class eq 'SL::DB::DeliveryOrder';