-package SL::Controller::Order;
+package SL::Controller::DeliveryOrder;
use strict;
use parent qw(SL::Controller::Base);
use SL::Helper::UserPreferences::UpdatePositions;
use SL::Controller::Helper::GetModels;
+use SL::Controller::DeliveryOrder::TypeData;
use List::Util qw(first sum0);
use List::UtilsBy qw(sort_by uniq_by);
use Rose::Object::MakeMethods::Generic
(
scalar => [ qw(item_ids_to_delete is_custom_shipto_to_delete) ],
- 'scalar --get_set_init' => [ qw(order valid_types type cv p all_price_factors search_cvpartnumber show_update_button part_picker_classification_ids) ],
+ 'scalar --get_set_init' => [ qw(order valid_types type cv p all_price_factors search_cvpartnumber show_update_button part_picker_classification_ids type_data) ],
);
my ($self) = @_;
$self->order->transdate(DateTime->now_local());
- my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
- $self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
-
- if ( ($self->type eq sales_order_type() && $::instance_conf->get_deliverydate_on)
- || ($self->type eq sales_quotation_type() && $::instance_conf->get_reqdate_on)
- && (!$self->order->reqdate)) {
- $self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days));
- }
+ $self->type_data->set_reqdate_by_type;
$self->pre_render();
$self->render(
- 'order/form',
+ 'delivery_order/form',
title => $self->get_title_for('add'),
%{$self->{template_args}}
);
$self->pre_render();
$self->render(
- 'order/form',
+ 'delivery_order/form',
title => $self->get_title_for('edit'),
%{$self->{template_args}}
);
# fall back to save as new if only one id is given
if (scalar @multi_ids == 1) {
- $self->order(SL::DB::Order->new(id => $multi_ids[0])->load);
+ $self->order(SL::DB::DeliveryOrder->new(id => $multi_ids[0])->load);
$self->action_save_as_new();
return;
}
# make new order from given orders
- my @multi_orders = map { SL::DB::Order->new(id => $_)->load } @multi_ids;
+ my @multi_orders = map { SL::DB::DeliveryOrder->new(id => $_)->load } @multi_ids;
$self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders;
- $self->order(SL::DB::Order->new_from_multi(\@multi_orders, sort_sources_by => 'transdate'));
+ $self->order(SL::DB::DeliveryOrder->new_from_multi(\@multi_orders, sort_sources_by => 'transdate'));
$self->action_edit();
}
return $self->js->render();
}
- my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been deleted')
- : $self->type eq purchase_order_type() ? $::locale->text('The order has been deleted')
- : $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been deleted')
- : $self->type eq request_quotation_type() ? $::locale->text('The rfq has been deleted')
- : '';
- flash_later('info', $text);
+ flash_later('info', $self->type_data->text("delete"));
my @redirect_params = (
action => 'add',
return $self->js->render();
}
- my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been saved')
- : $self->type eq purchase_order_type() ? $::locale->text('The order has been saved')
- : $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been saved')
- : $self->type eq request_quotation_type() ? $::locale->text('The rfq has been saved')
- : '';
- flash_later('info', $text);
+ flash_later('info', $self->type_data->text("saved"));
my @redirect_params = (
action => 'edit',
}
# load order from db to check if values changed
- my $saved_order = SL::DB::Order->new(id => $order->id)->load;
+ my $saved_order = SL::DB::DeliveryOrder->new(id => $order->id)->load;
my %new_attrs;
# Lets assign a new number if the user hasn't changed the previous one.
: $order->transdate;
# Set new reqdate unless changed if it is enabled in client config
- if ($order->reqdate == $saved_order->reqdate) {
- my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
- $self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
-
- if ( ($self->type eq sales_order_type() && !$::instance_conf->get_deliverydate_on)
- || ($self->type eq sales_quotation_type() && !$::instance_conf->get_reqdate_on)) {
- $new_attrs{reqdate} = '';
- } else {
- $new_attrs{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days);
- }
- } else {
- $new_attrs{reqdate} = $order->reqdate;
- }
+ $new_attrs{reqdate} = $self->get_reqdate_by_type($order->reqdate, $saved_order->reqdate);
# Update employee
$new_attrs{employee} = SL::DB::Manager::Employee->current;
# Create new record from current one
- $self->order(SL::DB::Order->new_from($order, destination_type => $order->type, attributes => \%new_attrs));
+ $self->order(SL::DB::DeliveryOrder->new_from($order, destination_type => $order->type, attributes => \%new_attrs));
# no linked records on save as new
delete $::form->{$_} for qw(converted_from_oe_id converted_from_orderitems_ids);
$self->get_item_cvpartnumber($item);
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
- my $row_as_html = $self->p->render('order/tabs/_row',
+ my $row_as_html = $self->p->render('delivery_order/tabs/_row',
ITEM => $item,
ID => $item_id,
SELF => $self,
$self->order->add_items( $item );
$self->get_item_cvpartnumber($item);
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
- my $row_as_html = $self->p->render('order/tabs/_row',
+ my $row_as_html = $self->p->render('delivery_order/tabs/_row',
ITEM => $item,
ID => $item_id,
SELF => $self,
foreach my $item (@items) {
$self->get_item_cvpartnumber($item);
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
- my $row_as_html = $self->p->render('order/tabs/_row',
+ my $row_as_html = $self->p->render('delivery_order/tabs/_row',
ITEM => $item,
ID => $item_id,
SELF => $self,
my $data = {
is_standard => $self->order->currency_id == $::instance_conf->get_currency_id,
currency_name => $self->order->currency->name,
- exchangerate => $self->order->daily_exchangerate_as_null_number,
};
$self->render(\SL::JSON::to_json($data), { type => 'json', process => 0 });
$_->{render_longdescription} = 1 for @{ $self->order->items_sorted };
$self->render(
- 'order/form',
+ 'delivery_order/form',
title => $self->get_title_for('edit'),
%{$self->{template_args}}
);
$item->parse_custom_variable_values;
}
- my $row_as_html = $self->p->render('order/tabs/_second_row', ITEM => $item, TYPE => $self->type);
+ my $row_as_html = $self->p->render('delivery_order/tabs/_second_row', ITEM => $item, TYPE => $self->type);
$self->js
->html('#second_row_' . $item_id, $row_as_html)
# helpers
#
-sub init_valid_types {
- [ sales_order_type(), purchase_order_type(), sales_quotation_type(), request_quotation_type() ];
-}
-
sub init_type {
my ($self) = @_;
if (none { $::form->{type} eq $_ } @{$self->valid_types}) {
- die "Not a valid type for order";
+ die "Not a valid type for delivery order";
}
$self->type($::form->{type});
sub init_cv {
my ($self) = @_;
- my $cv = (any { $self->type eq $_ } (sales_order_type(), sales_quotation_type())) ? 'customer'
- : (any { $self->type eq $_ } (purchase_order_type(), request_quotation_type())) ? 'vendor'
- : die "Not a valid type for order";
-
- return $cv;
+ return $self->type_data->customervendor;
}
sub init_search_cvpartnumber {
sub init_part_picker_classification_ids {
my ($self) = @_;
- my $attribute = 'used_for_' . ($self->type =~ m{sales} ? 'sale' : 'purchase');
- return [ map { $_->id } @{ SL::DB::Manager::PartClassification->get_all(where => [ $attribute => 1 ]) } ];
+ return [ map { $_->id } @{ SL::DB::Manager::PartClassification->get_all(where => $self->type_data->part_classification_query) } ];
}
sub check_auth {
my ($self) = @_;
- my $right_for = { map { $_ => $_.'_edit' } @{$self->valid_types} };
-
- my $right = $right_for->{ $self->type };
- $right ||= 'DOES_NOT_EXIST';
-
- $::auth->assert($right);
+ $::auth->assert($self->type_data->access || 'DOES_NOT_EXIST');
}
# build the selection box for contacts
# Needed, if customer/vendor changed.
sub build_business_info_row
{
- $_[0]->p->render('order/tabs/_business_info_row', SELF => $_[0]);
+ $_[0]->p->render('delivery_order/tabs/_business_info_row', SELF => $_[0]);
}
-sub render_price_dialog {
- my ($self, $record_item) = @_;
-
- my $price_source = SL::PriceSource->new(record_item => $record_item, record => $self->order);
-
- $self->js
- ->run(
- 'kivi.io.price_chooser_dialog',
- t8('Available Prices'),
- $self->render('order/tabs/_price_sources_dialog', { output => 0 }, price_source => $price_source)
- )
- ->reinit_widgets;
-
-# if (@errors) {
-# $self->js->text('#dialog_flash_error_content', join ' ', @errors);
-# $self->js->show('#dialog_flash_error');
-# }
-
- $self->js->render;
-}
-
sub load_order {
my ($self) = @_;
return if !$::form->{id};
- $self->order(SL::DB::Order->new(id => $::form->{id})->load);
+ $self->order(SL::DB::DeliveryOrder->new(id => $::form->{id})->load);
# Add an empty custom shipto to the order, so that the dialog can render the cvar inputs.
# You need a custom shipto object to call cvars_by_config to get the cvars.
# be retrieved via items until the order is saved. Adding empty items to new
# order here solves this problem.
my $order;
- $order = SL::DB::Order->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};
- $order ||= SL::DB::Order->new(orderitems => [],
- quotation => (any { $self->type eq $_ } (sales_quotation_type(), request_quotation_type())),
- currency_id => $::instance_conf->get_currency_id(),);
+ $order = SL::DB::DeliveryOrder->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};
+ $order ||= SL::DB::DeliveryOrder->new(orderitems => [], currency_id => $::instance_conf->get_currency_id(),);
my $cv_id_method = $self->cv . '_id';
if (!$::form->{id} && $::form->{$cv_id_method}) {
# add_custom_variables adds cvars to an orderitem with no cvars for saving, but
# they cannot be retrieved via custom_variables until the order/orderitem is
# saved. Adding empty custom_variables to new orderitem here solves this problem.
- $item ||= SL::DB::OrderItem->new(custom_variables => []);
+ $item ||= SL::DB::DeliveryOrderItem->new(custom_variables => []);
$item->assign_attributes(%$attr);
sub new_item {
my ($record, $attr) = @_;
- my $item = SL::DB::OrderItem->new;
+ my $item = SL::DB::DeliveryOrderItem->new;
# Remove attributes where the user left or set the inputs empty.
# So these attributes will be undefined and we can distinguish them
$price_src = $price_source->best_price
? $price_source->best_price
: $price_source->price_from_source("");
- $price_src->price($::form->round_amount($price_src->price / $record->exchangerate, 5)) if $record->exchangerate;
$price_src->price(0) if !$price_source->best_price;
}
$self->order->custom_shipto(undef);
}
- SL::DB::OrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete || []};
+ SL::DB::DeliveryOrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete || []};
$self->order->save(cascade => 1);
# link records
if ($::form->{converted_from_oe_id}) {
my @converted_from_oe_ids = split ' ', $::form->{converted_from_oe_id};
foreach my $converted_from_oe_id (@converted_from_oe_ids) {
- my $src = SL::DB::Order->new(id => $converted_from_oe_id)->load;
+ my $src = SL::DB::DeliveryOrder->new(id => $converted_from_oe_id)->load;
$src->update_attributes(closed => 1) if $src->type =~ /_quotation$/;
$src->link_to_record($self->order);
}
return $self->js->render();
}
- my $destination_type = $::form->{type} eq sales_order_type() ? sales_quotation_type() : request_quotation_type();
+ my $destination_type = $self->type_data->workflow("to_quotation_type");
- $self->order(SL::DB::Order->new_from($self->order, destination_type => $destination_type));
+ $self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
$self->{converted_from_oe_id} = delete $::form->{id};
# set item ids to new fake id, to identify them as new items
$_->{render_second_row} = 1 for @{ $self->order->items_sorted };
$self->render(
- 'order/form',
+ 'delivery_order/form',
title => $self->get_title_for('edit'),
%{$self->{template_args}}
);
return $self->js->render();
}
- my $destination_type = $::form->{type} eq sales_quotation_type() ? sales_order_type()
- : $::form->{type} eq request_quotation_type() ? purchase_order_type()
- : $::form->{type} eq purchase_order_type() ? sales_order_type()
- : $::form->{type} eq sales_order_type() ? purchase_order_type()
- : '';
+ my $destination_type = $self->type_data->workflow("to_order_type");
# check for direct delivery
# copy shipto in custom shipto (custom shipto will be copied by new_from() in case)
my $custom_shipto;
- if ( $::form->{type} eq sales_order_type() && $destination_type eq purchase_order_type()
- && $::form->{use_shipto} && $self->order->shipto) {
- $custom_shipto = $self->order->shipto->clone('SL::DB::Order');
+ if ($self->type_data->workflow("to_order_copy_shipto") && $::form->{use_shipto} && $self->order->shipto) {
+ $custom_shipto = $self->order->shipto->clone('SL::DB::DeliveryOrder');
}
- $self->order(SL::DB::Order->new_from($self->order, destination_type => $destination_type));
+ $self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
$self->{converted_from_oe_id} = delete $::form->{id};
# set item ids to new fake id, to identify them as new items
$item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
}
- if ($::form->{type} eq sales_order_type() && $destination_type eq purchase_order_type()) {
+ if ($self->type_data->workflow("to_order_copy_shipto")) {
if ($::form->{use_shipto}) {
$self->order->custom_shipto($custom_shipto) if $custom_shipto;
} else {
$_->{render_second_row} = 1 for @{ $self->order->items_sorted };
$self->render(
- 'order/form',
+ 'delivery_order/form',
title => $self->get_title_for('edit'),
%{$self->{template_args}}
);
$item->active_discount_source($price_source->discount_from_source($item->active_discount_source));
}
- if (any { $self->type eq $_ } (sales_order_type(), purchase_order_type())) {
- # Calculate shipped qtys here to prevent calling calculate for every item via the items method.
- # Do not use write_to_objects to prevent order->delivered to be set, because this should be
- # the value from db, which can be set manually or is set when linked delivery orders are saved.
- SL::Helper::ShippedQty->new->calculate($self->order)->write_to(\@{$self->order->items});
- }
-
- if ($self->order->number && $::instance_conf->get_webdav) {
+ if ($self->order->${\ $self->type_data->nr_key } && $::instance_conf->get_webdav) {
my $webdav = SL::Webdav->new(
type => $self->type,
number => $self->order->number,
sub setup_edit_action_bar {
my ($self, %params) = @_;
- my $deletion_allowed = (any { $self->type eq $_ } (sales_quotation_type(), request_quotation_type()))
- || (($self->type eq sales_order_type()) && $::instance_conf->get_sales_order_show_delete)
- || (($self->type eq purchase_order_type()) && $::instance_conf->get_purchase_order_show_delete);
+ my $deletion_allowed = $self->type_data->show_menu("delete");
for my $bar ($::request->layout->get('actionbar')) {
$bar->add(
],
action => [
t8('Save and Quotation'),
- submit => [ '#order_form', { action => "Order/sales_quotation" } ],
- only_if => (any { $self->type eq $_ } (sales_order_type())),
+ submit => [ '#order_form', { action => "DeliveryOrder/sales_quotation" } ],
+ only_if => $self->type_data->show_menu("save_and_quotation"),
],
action => [
t8('Save and RFQ'),
- submit => [ '#order_form', { action => "Order/request_for_quotation" } ],
- only_if => (any { $self->type eq $_ } (purchase_order_type())),
+ submit => [ '#order_form', { action => "DeliveryOrder/request_for_quotation" } ],
+ only_if => $self->type_data->show_menu("save_and_rfq"),
],
action => [
t8('Save and Sales Order'),
- submit => [ '#order_form', { action => "Order/sales_order" } ],
- only_if => (any { $self->type eq $_ } (sales_quotation_type(), purchase_order_type())),
+ submit => [ '#order_form', { action => "DeliveryOrder/sales_order" } ],
+ only_if => $self->type_data->show_menu("save_and_sales_order"),
],
action => [
t8('Save and Purchase Order'),
call => [ 'kivi.Order.purchase_order_check_for_direct_delivery' ],
- only_if => (any { $self->type eq $_ } (sales_order_type(), request_quotation_type())),
+ only_if => $self->type_data->show_menu("save_and_purchase_order"),
],
action => [
t8('Save and Delivery Order'),
call => [ 'kivi.Order.save', 'save_and_delivery_order', $::instance_conf->get_order_warn_duplicate_parts,
$::instance_conf->get_order_warn_no_deliverydate,
],
- only_if => (any { $self->type eq $_ } (sales_order_type(), purchase_order_type()))
+ only_if => $self->type_data->show_menu("save_and_delivery_order"),
],
action => [
t8('Save and Invoice'),
action => [
t8('Save and AP Transaction'),
call => [ 'kivi.Order.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ],
- only_if => (any { $self->type eq $_ } (purchase_order_type()))
+ only_if => $self->type_data->show_menu("save_and_ap_transaction"),
],
], # end of combobox "Workflow"
call => [ 'kivi.Order.delete_order' ],
confirm => $::locale->text('Do you really want to delete this object?'),
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
- only_if => $deletion_allowed,
+ only_if => $self->type_data->show_menu("delete"),
],
combobox => [
my ($self, $action) = @_;
return '' if none { lc($action)} qw(add edit);
-
- # for locales:
- # $::locale->text("Add Sales Order");
- # $::locale->text("Add Purchase Order");
- # $::locale->text("Add Quotation");
- # $::locale->text("Add Request for Quotation");
- # $::locale->text("Edit Sales Order");
- # $::locale->text("Edit Purchase Order");
- # $::locale->text("Edit Quotation");
- # $::locale->text("Edit Request for Quotation");
-
- $action = ucfirst(lc($action));
- return $self->type eq sales_order_type() ? $::locale->text("$action Sales Order")
- : $self->type eq purchase_order_type() ? $::locale->text("$action Purchase Order")
- : $self->type eq sales_quotation_type() ? $::locale->text("$action Quotation")
- : $self->type eq request_quotation_type() ? $::locale->text("$action Request for Quotation")
- : '';
+ return $self->type_data->text($action);
}
sub get_item_cvpartnumber {
return $texts;
}
-sub sales_order_type {
- 'sales_order';
-}
-
-sub purchase_order_type {
- 'purchase_order';
-}
-
-sub sales_quotation_type {
- 'sales_quotation';
-}
-
-sub request_quotation_type {
- 'request_quotation';
-}
-
sub nr_key {
- return $_[0]->type eq sales_order_type() ? 'ordnumber'
- : $_[0]->type eq purchase_order_type() ? 'ordnumber'
- : $_[0]->type eq sales_quotation_type() ? 'quonumber'
- : $_[0]->type eq request_quotation_type() ? 'quonumber'
- : '';
+ return $_[0]->type_data->nr_key;
}
sub save_and_redirect_to {
return $self->js->render();
}
- my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been saved')
- : $self->type eq purchase_order_type() ? $::locale->text('The order has been saved')
- : $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been saved')
- : $self->type eq request_quotation_type() ? $::locale->text('The rfq has been saved')
- : '';
- flash_later('info', $text);
+ flash_later('info', $self->type_data->text("saved"));
$self->redirect_to(%params, id => $self->order->id);
}
sub save_history {
my ($self, $addition) = @_;
- my $number_type = $self->order->type =~ m{order} ? 'ordnumber' : 'quonumber';
+ my $number_type = $self->nr_key;
my $snumbers = $number_type . '_' . $self->order->$number_type;
SL::DB::History->new(
return @errors;
}
+sub init_type_data {
+ SL::Controller::DeliveryOrder::TypeData->new($_[0]);
+}
+
+sub init_valid_types {
+ $_[0]->type_data->valid_types;
+}
+
1;
__END__
the controller
-=item * C<template/webpages/order/form.html>
+=item * C<template/webpages/delivery_order/form.html>
main form
-=item * C<template/webpages/order/tabs/basic_data.html>
+=item * C<template/webpages/delivery_order/tabs/basic_data.html>
Main tab for basic_data.
=over 4
-=item * C<template/webpages/order/tabs/_business_info_row.html>
+=item * C<template/webpages/delivery_order/tabs/_business_info_row.html>
For displaying information on business type
-=item * C<template/webpages/order/tabs/_item_input.html>
+=item * C<template/webpages/delivery_order/tabs/_item_input.html>
The input line for items
-=item * C<template/webpages/order/tabs/_row.html>
+=item * C<template/webpages/delivery_order/tabs/_row.html>
One row for already entered items
-=item * C<template/webpages/order/tabs/_tax_row.html>
+=item * C<template/webpages/delivery_order/tabs/_tax_row.html>
Displaying tax information
-=item * C<template/webpages/order/tabs/_price_sources_dialog.html>
-
-Dialog for selecting price and discount sources
-
=back
=item * C<js/kivi.Order.js>
projects / mfinanz.git / blobdiff