Revision 4d3ce527
Von Sven Schöling vor fast 3 Jahren hinzugefügt
- ID 4d3ce52751ba328509c3ecf03c7de37c3aab20c9
- Vorgänger d332663c
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
| 1 |
package SL::Controller::Order; |
|
| 1 |
package SL::Controller::DeliveryOrder;
|
|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
use parent qw(SL::Controller::Base); |
| ... | ... | |
| 14 | 14 |
use SL::Util qw(trim); |
| 15 | 15 |
use SL::YAML; |
| 16 | 16 |
use SL::DB::History; |
| 17 |
use SL::DB::Order; |
|
| 17 |
use SL::DB::DeliveryOrder;
|
|
| 18 | 18 |
use SL::DB::Default; |
| 19 | 19 |
use SL::DB::Unit; |
| 20 | 20 |
use SL::DB::Part; |
| ... | ... | |
| 28 | 28 |
|
| 29 | 29 |
use SL::Helper::CreatePDF qw(:all); |
| 30 | 30 |
use SL::Helper::PrintOptions; |
| 31 |
use SL::Helper::ShippedQty; |
|
| 32 | 31 |
use SL::Helper::UserPreferences::PositionsScrollbar; |
| 33 | 32 |
use SL::Helper::UserPreferences::UpdatePositions; |
| 34 | 33 |
|
| ... | ... | |
| 69 | 68 |
my ($self) = @_; |
| 70 | 69 |
|
| 71 | 70 |
$self->order->transdate(DateTime->now_local()); |
| 72 |
my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 73 |
$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 71 |
my $extra_days = $self->type eq vendor_in_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 72 |
$self->type eq customer_in_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 74 | 73 |
|
| 75 |
if ( ($self->type eq sales_order_type() && $::instance_conf->get_deliverydate_on)
|
|
| 76 |
|| ($self->type eq sales_quotation_type() && $::instance_conf->get_reqdate_on)
|
|
| 74 |
if ( ($self->type eq customer_in_type() && $::instance_conf->get_deliverydate_on)
|
|
| 75 |
|| ($self->type eq vendor_in_type() && $::instance_conf->get_reqdate_on)
|
|
| 77 | 76 |
&& (!$self->order->reqdate)) {
|
| 78 | 77 |
$self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days)); |
| 79 | 78 |
} |
| ... | ... | |
| 81 | 80 |
|
| 82 | 81 |
$self->pre_render(); |
| 83 | 82 |
$self->render( |
| 84 |
'order/form', |
|
| 83 |
'delivery_order/form',
|
|
| 85 | 84 |
title => $self->get_title_for('add'),
|
| 86 | 85 |
%{$self->{template_args}}
|
| 87 | 86 |
); |
| ... | ... | |
| 110 | 109 |
$self->recalc(); |
| 111 | 110 |
$self->pre_render(); |
| 112 | 111 |
$self->render( |
| 113 |
'order/form', |
|
| 112 |
'delivery_order/form',
|
|
| 114 | 113 |
title => $self->get_title_for('edit'),
|
| 115 | 114 |
%{$self->{template_args}}
|
| 116 | 115 |
); |
| ... | ... | |
| 133 | 132 |
|
| 134 | 133 |
# fall back to save as new if only one id is given |
| 135 | 134 |
if (scalar @multi_ids == 1) {
|
| 136 |
$self->order(SL::DB::Order->new(id => $multi_ids[0])->load); |
|
| 135 |
$self->order(SL::DB::DeliveryOrder->new(id => $multi_ids[0])->load);
|
|
| 137 | 136 |
$self->action_save_as_new(); |
| 138 | 137 |
return; |
| 139 | 138 |
} |
| 140 | 139 |
|
| 141 | 140 |
# make new order from given orders |
| 142 |
my @multi_orders = map { SL::DB::Order->new(id => $_)->load } @multi_ids;
|
|
| 141 |
my @multi_orders = map { SL::DB::DeliveryOrder->new(id => $_)->load } @multi_ids;
|
|
| 143 | 142 |
$self->{converted_from_oe_id} = join ' ', map { $_->id } @multi_orders;
|
| 144 |
$self->order(SL::DB::Order->new_from_multi(\@multi_orders, sort_sources_by => 'transdate')); |
|
| 143 |
$self->order(SL::DB::DeliveryOrder->new_from_multi(\@multi_orders, sort_sources_by => 'transdate'));
|
|
| 145 | 144 |
|
| 146 | 145 |
$self->action_edit(); |
| 147 | 146 |
} |
| ... | ... | |
| 157 | 156 |
return $self->js->render(); |
| 158 | 157 |
} |
| 159 | 158 |
|
| 160 |
my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been deleted')
|
|
| 161 |
: $self->type eq purchase_order_type() ? $::locale->text('The order has been deleted')
|
|
| 162 |
: $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been deleted')
|
|
| 163 |
: $self->type eq request_quotation_type() ? $::locale->text('The rfq has been deleted')
|
|
| 159 |
my $text = $self->type eq customer_in_type() ? $::locale->text('The order has been deleted')
|
|
| 160 |
: $self->type eq customer_out_type() ? $::locale->text('The order has been deleted')
|
|
| 161 |
: $self->type eq vendor_in_type() ? $::locale->text('The quotation has been deleted')
|
|
| 162 |
: $self->type eq vendor_out_type() ? $::locale->text('The rfq has been deleted')
|
|
| 164 | 163 |
: ''; |
| 165 | 164 |
flash_later('info', $text);
|
| 166 | 165 |
|
| ... | ... | |
| 183 | 182 |
return $self->js->render(); |
| 184 | 183 |
} |
| 185 | 184 |
|
| 186 |
my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been saved')
|
|
| 187 |
: $self->type eq purchase_order_type() ? $::locale->text('The order has been saved')
|
|
| 188 |
: $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been saved')
|
|
| 189 |
: $self->type eq request_quotation_type() ? $::locale->text('The rfq has been saved')
|
|
| 185 |
my $text = $self->type eq customer_in_type() ? $::locale->text('The order has been saved')
|
|
| 186 |
: $self->type eq customer_out_type() ? $::locale->text('The order has been saved')
|
|
| 187 |
: $self->type eq vendor_in_type() ? $::locale->text('The quotation has been saved')
|
|
| 188 |
: $self->type eq vendor_out_type() ? $::locale->text('The rfq has been saved')
|
|
| 190 | 189 |
: ''; |
| 191 | 190 |
flash_later('info', $text);
|
| 192 | 191 |
|
| ... | ... | |
| 211 | 210 |
} |
| 212 | 211 |
|
| 213 | 212 |
# load order from db to check if values changed |
| 214 |
my $saved_order = SL::DB::Order->new(id => $order->id)->load; |
|
| 213 |
my $saved_order = SL::DB::DeliveryOrder->new(id => $order->id)->load;
|
|
| 215 | 214 |
|
| 216 | 215 |
my %new_attrs; |
| 217 | 216 |
# Lets assign a new number if the user hasn't changed the previous one. |
| ... | ... | |
| 227 | 226 |
|
| 228 | 227 |
# Set new reqdate unless changed if it is enabled in client config |
| 229 | 228 |
if ($order->reqdate == $saved_order->reqdate) {
|
| 230 |
my $extra_days = $self->type eq sales_quotation_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 231 |
$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 229 |
my $extra_days = $self->type eq vendor_in_type() ? $::instance_conf->get_reqdate_interval :
|
|
| 230 |
$self->type eq customer_in_type() ? $::instance_conf->get_delivery_date_interval : 1;
|
|
| 232 | 231 |
|
| 233 |
if ( ($self->type eq sales_order_type() && !$::instance_conf->get_deliverydate_on)
|
|
| 234 |
|| ($self->type eq sales_quotation_type() && !$::instance_conf->get_reqdate_on)) {
|
|
| 232 |
if ( ($self->type eq customer_in_type() && !$::instance_conf->get_deliverydate_on)
|
|
| 233 |
|| ($self->type eq vendor_in_type() && !$::instance_conf->get_reqdate_on)) {
|
|
| 235 | 234 |
$new_attrs{reqdate} = '';
|
| 236 | 235 |
} else {
|
| 237 | 236 |
$new_attrs{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days);
|
| ... | ... | |
| 244 | 243 |
$new_attrs{employee} = SL::DB::Manager::Employee->current;
|
| 245 | 244 |
|
| 246 | 245 |
# Create new record from current one |
| 247 |
$self->order(SL::DB::Order->new_from($order, destination_type => $order->type, attributes => \%new_attrs)); |
|
| 246 |
$self->order(SL::DB::DeliveryOrder->new_from($order, destination_type => $order->type, attributes => \%new_attrs));
|
|
| 248 | 247 |
|
| 249 | 248 |
# no linked records on save as new |
| 250 | 249 |
delete $::form->{$_} for qw(converted_from_oe_id converted_from_orderitems_ids);
|
| ... | ... | |
| 420 | 419 |
$email_form->{subject} = $form->generate_email_subject();
|
| 421 | 420 |
$email_form->{attachment_filename} = $form->generate_attachment_filename();
|
| 422 | 421 |
$email_form->{message} = $form->generate_email_body();
|
| 423 |
$email_form->{js_send_function} = 'kivi.Order.send_email()';
|
|
| 422 |
$email_form->{js_send_function} = 'kivi.DeliveryOrder.send_email()';
|
|
| 424 | 423 |
|
| 425 | 424 |
my %files = $self->get_files_for_email_dialog(); |
| 426 | 425 |
$self->{all_employees} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);
|
| ... | ... | |
| 433 | 432 |
); |
| 434 | 433 |
|
| 435 | 434 |
$self->js |
| 436 |
->run('kivi.Order.show_email_dialog', $dialog_html)
|
|
| 435 |
->run('kivi.DeliveryOrder.show_email_dialog', $dialog_html)
|
|
| 437 | 436 |
->reinit_widgets |
| 438 | 437 |
->render($self); |
| 439 | 438 |
} |
| ... | ... | |
| 447 | 446 |
my $errors = $self->save(); |
| 448 | 447 |
|
| 449 | 448 |
if (scalar @{ $errors }) {
|
| 450 |
$self->js->run('kivi.Order.close_email_dialog');
|
|
| 449 |
$self->js->run('kivi.DeliveryOrder.close_email_dialog');
|
|
| 451 | 450 |
$self->js->flash('error', $_) foreach @{ $errors };
|
| 452 | 451 |
return $self->js->render(); |
| 453 | 452 |
} |
| ... | ... | |
| 520 | 519 |
$self->redirect_to(@redirect_params); |
| 521 | 520 |
} |
| 522 | 521 |
|
| 523 |
# open the periodic invoices config dialog |
|
| 524 |
# |
|
| 525 |
# If there are values in the form (i.e. dialog was opened before), |
|
| 526 |
# then use this values. Create new ones, else. |
|
| 527 |
sub action_show_periodic_invoices_config_dialog {
|
|
| 528 |
my ($self) = @_; |
|
| 529 |
|
|
| 530 |
my $config = make_periodic_invoices_config_from_yaml(delete $::form->{config});
|
|
| 531 |
$config ||= SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $::form->{id}) if $::form->{id};
|
|
| 532 |
$config ||= SL::DB::PeriodicInvoicesConfig->new(periodicity => 'm', |
|
| 533 |
order_value_periodicity => 'p', # = same as periodicity |
|
| 534 |
start_date_as_date => $::form->{transdate_as_date} || $::form->current_date,
|
|
| 535 |
extend_automatically_by => 12, |
|
| 536 |
active => 1, |
|
| 537 |
email_subject => GenericTranslations->get( |
|
| 538 |
language_id => $::form->{language_id},
|
|
| 539 |
translation_type =>"preset_text_periodic_invoices_email_subject"), |
|
| 540 |
email_body => GenericTranslations->get( |
|
| 541 |
language_id => $::form->{language_id},
|
|
| 542 |
translation_type =>"preset_text_periodic_invoices_email_body"), |
|
| 543 |
); |
|
| 544 |
$config->periodicity('m') if none { $_ eq $config->periodicity } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES;
|
|
| 545 |
$config->order_value_periodicity('p') if none { $_ eq $config->order_value_periodicity } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES);
|
|
| 546 |
|
|
| 547 |
$::form->get_lists(printers => "ALL_PRINTERS", |
|
| 548 |
charts => { key => 'ALL_CHARTS',
|
|
| 549 |
transdate => 'current_date' }); |
|
| 550 |
|
|
| 551 |
$::form->{AR} = [ grep { $_->{link} =~ m/(?:^|:)AR(?::|$)/ } @{ $::form->{ALL_CHARTS} } ];
|
|
| 552 |
|
|
| 553 |
if ($::form->{customer_id}) {
|
|
| 554 |
$::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(where => [ cp_cv_id => $::form->{customer_id} ]);
|
|
| 555 |
my $customer_object = SL::DB::Manager::Customer->find_by(id => $::form->{customer_id});
|
|
| 556 |
$::form->{postal_invoice} = $customer_object->postal_invoice;
|
|
| 557 |
$::form->{email_recipient_invoice_address} = $::form->{postal_invoice} ? '' : $customer_object->invoice_mail;
|
|
| 558 |
$config->send_email(0) if $::form->{postal_invoice};
|
|
| 559 |
} |
|
| 560 |
|
|
| 561 |
$self->render('oe/edit_periodic_invoices_config', { layout => 0 },
|
|
| 562 |
popup_dialog => 1, |
|
| 563 |
popup_js_close_function => 'kivi.Order.close_periodic_invoices_config_dialog()', |
|
| 564 |
popup_js_assign_function => 'kivi.Order.assign_periodic_invoices_config()', |
|
| 565 |
config => $config, |
|
| 566 |
%$::form); |
|
| 567 |
} |
|
| 568 |
|
|
| 569 |
# assign the values of the periodic invoices config dialog |
|
| 570 |
# as yaml in the hidden tag and set the status. |
|
| 571 |
sub action_assign_periodic_invoices_config {
|
|
| 572 |
my ($self) = @_; |
|
| 573 |
|
|
| 574 |
$::form->isblank('start_date_as_date', $::locale->text('The start date is missing.'));
|
|
| 575 |
|
|
| 576 |
my $config = { active => $::form->{active} ? 1 : 0,
|
|
| 577 |
terminated => $::form->{terminated} ? 1 : 0,
|
|
| 578 |
direct_debit => $::form->{direct_debit} ? 1 : 0,
|
|
| 579 |
periodicity => (any { $_ eq $::form->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES) ? $::form->{periodicity} : 'm',
|
|
| 580 |
order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',
|
|
| 581 |
start_date_as_date => $::form->{start_date_as_date},
|
|
| 582 |
end_date_as_date => $::form->{end_date_as_date},
|
|
| 583 |
first_billing_date_as_date => $::form->{first_billing_date_as_date},
|
|
| 584 |
print => $::form->{print} ? 1 : 0,
|
|
| 585 |
printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,
|
|
| 586 |
copies => $::form->{copies} * 1 ? $::form->{copies} : 1,
|
|
| 587 |
extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,
|
|
| 588 |
ar_chart_id => $::form->{ar_chart_id} * 1,
|
|
| 589 |
send_email => $::form->{send_email} ? 1 : 0,
|
|
| 590 |
email_recipient_contact_id => $::form->{email_recipient_contact_id} * 1 || undef,
|
|
| 591 |
email_recipient_address => $::form->{email_recipient_address},
|
|
| 592 |
email_sender => $::form->{email_sender},
|
|
| 593 |
email_subject => $::form->{email_subject},
|
|
| 594 |
email_body => $::form->{email_body},
|
|
| 595 |
}; |
|
| 596 |
|
|
| 597 |
my $periodic_invoices_config = SL::YAML::Dump($config); |
|
| 598 |
|
|
| 599 |
my $status = $self->get_periodic_invoices_status($config); |
|
| 600 |
|
|
| 601 |
$self->js |
|
| 602 |
->remove('#order_periodic_invoices_config')
|
|
| 603 |
->insertAfter(hidden_tag('order.periodic_invoices_config', $periodic_invoices_config), '#periodic_invoices_status')
|
|
| 604 |
->run('kivi.Order.close_periodic_invoices_config_dialog')
|
|
| 605 |
->html('#periodic_invoices_status', $status)
|
|
| 606 |
->flash('info', t8('The periodic invoices config has been assigned.'))
|
|
| 607 |
->render($self); |
|
| 608 |
} |
|
| 609 |
|
|
| 610 |
sub action_get_has_active_periodic_invoices {
|
|
| 611 |
my ($self) = @_; |
|
| 612 |
|
|
| 613 |
my $config = make_periodic_invoices_config_from_yaml(delete $::form->{config});
|
|
| 614 |
$config ||= SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $::form->{id}) if $::form->{id};
|
|
| 615 |
|
|
| 616 |
my $has_active_periodic_invoices = |
|
| 617 |
$self->type eq sales_order_type() |
|
| 618 |
&& $config |
|
| 619 |
&& $config->active |
|
| 620 |
&& (!$config->end_date || ($config->end_date > DateTime->today_local)) |
|
| 621 |
&& $config->get_previous_billed_period_start_date; |
|
| 622 |
|
|
| 623 |
$_[0]->render(\ !!$has_active_periodic_invoices, { type => 'text' });
|
|
| 624 |
} |
|
| 625 | 522 |
|
| 626 | 523 |
# save the order and redirect to the frontend subroutine for a new |
| 627 | 524 |
# delivery order |
| ... | ... | |
| 713 | 610 |
->val( '#order_intnotes', $self->order->intnotes) |
| 714 | 611 |
->val( '#order_language_id', $self->order->$cv_method->language_id) |
| 715 | 612 |
->focus( '#order_' . $self->cv . '_id') |
| 716 |
->run('kivi.Order.update_exchangerate');
|
|
| 613 |
->run('kivi.DeliveryOrder.update_exchangerate');
|
|
| 717 | 614 |
|
| 718 | 615 |
$self->js_redisplay_amounts_and_taxes; |
| 719 | 616 |
$self->js_redisplay_cvpartnumbers; |
| ... | ... | |
| 767 | 664 |
$self->recalc(); |
| 768 | 665 |
|
| 769 | 666 |
$self->js |
| 770 |
->run('kivi.Order.update_sellprice', $::form->{item_id}, $item->sellprice_as_number);
|
|
| 667 |
->run('kivi.DeliveryOrder.update_sellprice', $::form->{item_id}, $item->sellprice_as_number);
|
|
| 771 | 668 |
$self->js_redisplay_line_values; |
| 772 | 669 |
$self->js_redisplay_amounts_and_taxes; |
| 773 | 670 |
$self->js->render(); |
| ... | ... | |
| 790 | 687 |
$self->get_item_cvpartnumber($item); |
| 791 | 688 |
|
| 792 | 689 |
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
|
| 793 |
my $row_as_html = $self->p->render('order/tabs/_row',
|
|
| 690 |
my $row_as_html = $self->p->render('delivery_order/tabs/_row',
|
|
| 794 | 691 |
ITEM => $item, |
| 795 | 692 |
ID => $item_id, |
| 796 | 693 |
SELF => $self, |
| ... | ... | |
| 821 | 718 |
$self->recalc(); |
| 822 | 719 |
$self->get_item_cvpartnumber($item); |
| 823 | 720 |
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
|
| 824 |
my $row_as_html = $self->p->render('order/tabs/_row',
|
|
| 721 |
my $row_as_html = $self->p->render('delivery_order/tabs/_row',
|
|
| 825 | 722 |
ITEM => $item, |
| 826 | 723 |
ID => $item_id, |
| 827 | 724 |
SELF => $self, |
| ... | ... | |
| 838 | 735 |
|
| 839 | 736 |
$self->js |
| 840 | 737 |
->val('.add_item_input', '')
|
| 841 |
->run('kivi.Order.init_row_handlers')
|
|
| 842 |
->run('kivi.Order.renumber_positions')
|
|
| 738 |
->run('kivi.DeliveryOrder.init_row_handlers')
|
|
| 739 |
->run('kivi.DeliveryOrder.renumber_positions')
|
|
| 843 | 740 |
->focus('#add_item_parts_id_name');
|
| 844 | 741 |
|
| 845 |
$self->js->run('kivi.Order.row_table_scroll_down') if !$::form->{insert_before_item_id};
|
|
| 742 |
$self->js->run('kivi.DeliveryOrder.row_table_scroll_down') if !$::form->{insert_before_item_id};
|
|
| 846 | 743 |
|
| 847 | 744 |
$self->js_redisplay_amounts_and_taxes; |
| 848 | 745 |
$self->js->render(); |
| ... | ... | |
| 881 | 778 |
foreach my $item (@items) {
|
| 882 | 779 |
$self->get_item_cvpartnumber($item); |
| 883 | 780 |
my $item_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
|
| 884 |
my $row_as_html = $self->p->render('order/tabs/_row',
|
|
| 781 |
my $row_as_html = $self->p->render('delivery_order/tabs/_row',
|
|
| 885 | 782 |
ITEM => $item, |
| 886 | 783 |
ID => $item_id, |
| 887 | 784 |
SELF => $self, |
| ... | ... | |
| 898 | 795 |
|
| 899 | 796 |
$self->js |
| 900 | 797 |
->run('kivi.Part.close_picker_dialogs')
|
| 901 |
->run('kivi.Order.init_row_handlers')
|
|
| 902 |
->run('kivi.Order.renumber_positions')
|
|
| 798 |
->run('kivi.DeliveryOrder.init_row_handlers')
|
|
| 799 |
->run('kivi.DeliveryOrder.renumber_positions')
|
|
| 903 | 800 |
->focus('#add_item_parts_id_name');
|
| 904 | 801 |
|
| 905 |
$self->js->run('kivi.Order.row_table_scroll_down') if !$::form->{insert_before_item_id};
|
|
| 802 |
$self->js->run('kivi.DeliveryOrder.row_table_scroll_down') if !$::form->{insert_before_item_id};
|
|
| 906 | 803 |
|
| 907 | 804 |
$self->js_redisplay_amounts_and_taxes; |
| 908 | 805 |
$self->js->render(); |
| ... | ... | |
| 962 | 859 |
} |
| 963 | 860 |
} |
| 964 | 861 |
$self->js |
| 965 |
->run('kivi.Order.redisplay_items', \@to_sort)
|
|
| 862 |
->run('kivi.DeliveryOrder.redisplay_items', \@to_sort)
|
|
| 966 | 863 |
->render; |
| 967 | 864 |
} |
| 968 | 865 |
|
| ... | ... | |
| 992 | 889 |
$self->js_load_second_row($item, $item_id, 0); |
| 993 | 890 |
} |
| 994 | 891 |
|
| 995 |
$self->js->run('kivi.Order.init_row_handlers') if $self->order->is_sales; # for lastcosts change-callback
|
|
| 892 |
$self->js->run('kivi.DeliveryOrder.init_row_handlers') if $self->order->is_sales; # for lastcosts change-callback
|
|
| 996 | 893 |
|
| 997 | 894 |
$self->js->render(); |
| 998 | 895 |
} |
| ... | ... | |
| 1029 | 926 |
$item->active_price_source($price_src); |
| 1030 | 927 |
|
| 1031 | 928 |
$self->js |
| 1032 |
->run('kivi.Order.update_sellprice', $item_id, $item->sellprice_as_number)
|
|
| 929 |
->run('kivi.DeliveryOrder.update_sellprice', $item_id, $item->sellprice_as_number)
|
|
| 1033 | 930 |
->html('.row_entry:has(#item_' . $item_id . ') [name = "partnumber"] a', $item->part->partnumber)
|
| 1034 | 931 |
->val ('.row_entry:has(#item_' . $item_id . ') [name = "order.orderitems[].description"]', $item->description)
|
| 1035 | 932 |
->val ('.row_entry:has(#item_' . $item_id . ') [name = "order.orderitems[].longdescription"]', $item->longdescription);
|
| ... | ... | |
| 1060 | 957 |
$item->parse_custom_variable_values; |
| 1061 | 958 |
} |
| 1062 | 959 |
|
| 1063 |
my $row_as_html = $self->p->render('order/tabs/_second_row', ITEM => $item, TYPE => $self->type);
|
|
| 960 |
my $row_as_html = $self->p->render('delivery_order/tabs/_second_row', ITEM => $item, TYPE => $self->type);
|
|
| 1064 | 961 |
|
| 1065 | 962 |
$self->js |
| 1066 | 963 |
->html('#second_row_' . $item_id, $row_as_html)
|
| ... | ... | |
| 1089 | 986 |
} |
| 1090 | 987 |
|
| 1091 | 988 |
$self->js |
| 1092 |
->run('kivi.Order.redisplay_line_values', $is_sales, \@data);
|
|
| 989 |
->run('kivi.DeliveryOrder.redisplay_line_values', $is_sales, \@data);
|
|
| 1093 | 990 |
} |
| 1094 | 991 |
|
| 1095 | 992 |
sub js_redisplay_amounts_and_taxes {
|
| ... | ... | |
| 1135 | 1032 |
my @data = map {[$_->{cvpartnumber}]} @{ $self->order->items_sorted };
|
| 1136 | 1033 |
|
| 1137 | 1034 |
$self->js |
| 1138 |
->run('kivi.Order.redisplay_cvpartnumbers', \@data);
|
|
| 1035 |
->run('kivi.DeliveryOrder.redisplay_cvpartnumbers', \@data);
|
|
| 1139 | 1036 |
} |
| 1140 | 1037 |
|
| 1141 | 1038 |
sub js_reset_order_and_item_ids_after_save {
|
| ... | ... | |
| 1165 | 1062 |
# |
| 1166 | 1063 |
|
| 1167 | 1064 |
sub init_valid_types {
|
| 1168 |
[ sales_order_type(), purchase_order_type(), sales_quotation_type(), request_quotation_type() ];
|
|
| 1065 |
[ customer_in_type(), customer_out_type(), vendor_in_type(), vendor_out_type() ];
|
|
| 1169 | 1066 |
} |
| 1170 | 1067 |
|
| 1171 | 1068 |
sub init_type {
|
| ... | ... | |
| 1181 | 1078 |
sub init_cv {
|
| 1182 | 1079 |
my ($self) = @_; |
| 1183 | 1080 |
|
| 1184 |
my $cv = (any { $self->type eq $_ } (sales_order_type(), sales_quotation_type())) ? 'customer'
|
|
| 1185 |
: (any { $self->type eq $_ } (purchase_order_type(), request_quotation_type())) ? 'vendor'
|
|
| 1081 |
my $cv = (any { $self->type eq $_ } (customer_in_type(), vendor_in_type())) ? 'customer'
|
|
| 1082 |
: (any { $self->type eq $_ } (customer_out_type(), vendor_out_type())) ? 'vendor'
|
|
| 1186 | 1083 |
: die "Not a valid type for order"; |
| 1187 | 1084 |
|
| 1188 | 1085 |
return $cv; |
| ... | ... | |
| 1227 | 1124 |
sub check_auth {
|
| 1228 | 1125 |
my ($self) = @_; |
| 1229 | 1126 |
|
| 1230 |
my $right_for = { map { $_ => $_.'_edit' } @{$self->valid_types} };
|
|
| 1231 |
|
|
| 1232 |
my $right = $right_for->{ $self->type };
|
|
| 1127 |
my $right = $self->type =~ /customer/ ? 'sales_delivery_order_edit' : 'purchase_delivery_order_edit'; |
|
| 1233 | 1128 |
$right ||= 'DOES_NOT_EXIST'; |
| 1234 | 1129 |
|
| 1235 | 1130 |
$::auth->assert($right); |
| ... | ... | |
| 1286 | 1181 |
# Needed, if customer/vendor changed. |
| 1287 | 1182 |
sub build_business_info_row |
| 1288 | 1183 |
{
|
| 1289 |
$_[0]->p->render('order/tabs/_business_info_row', SELF => $_[0]);
|
|
| 1184 |
$_[0]->p->render('delivery_order/tabs/_business_info_row', SELF => $_[0]);
|
|
| 1290 | 1185 |
} |
| 1291 | 1186 |
|
| 1292 | 1187 |
# build the rows for displaying taxes |
| ... | ... | |
| 1312 | 1207 |
->run( |
| 1313 | 1208 |
'kivi.io.price_chooser_dialog', |
| 1314 | 1209 |
t8('Available Prices'),
|
| 1315 |
$self->render('order/tabs/_price_sources_dialog', { output => 0 }, price_source => $price_source)
|
|
| 1210 |
$self->render('delivery_order/tabs/_price_sources_dialog', { output => 0 }, price_source => $price_source)
|
|
| 1316 | 1211 |
) |
| 1317 | 1212 |
->reinit_widgets; |
| 1318 | 1213 |
|
| ... | ... | |
| 1329 | 1224 |
|
| 1330 | 1225 |
return if !$::form->{id};
|
| 1331 | 1226 |
|
| 1332 |
$self->order(SL::DB::Order->new(id => $::form->{id})->load);
|
|
| 1227 |
$self->order(SL::DB::DeliveryOrder->new(id => $::form->{id})->load);
|
|
| 1333 | 1228 |
|
| 1334 | 1229 |
# Add an empty custom shipto to the order, so that the dialog can render the cvar inputs. |
| 1335 | 1230 |
# You need a custom shipto object to call cvars_by_config to get the cvars. |
| 1336 |
$self->order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])) if !$self->order->custom_shipto;
|
|
| 1231 |
$self->order->custom_shipto(SL::DB::Shipto->new(module => 'DO', custom_variables => [])) if !$self->order->custom_shipto;
|
|
| 1337 | 1232 |
|
| 1338 | 1233 |
return $self->order; |
| 1339 | 1234 |
} |
| ... | ... | |
| 1351 | 1246 |
# be retrieved via items until the order is saved. Adding empty items to new |
| 1352 | 1247 |
# order here solves this problem. |
| 1353 | 1248 |
my $order; |
| 1354 |
$order = SL::DB::Order->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};
|
|
| 1355 |
$order ||= SL::DB::Order->new(orderitems => [], |
|
| 1356 |
quotation => (any { $self->type eq $_ } (sales_quotation_type(), request_quotation_type())),
|
|
| 1249 |
$order = SL::DB::DeliveryOrder->new(id => $::form->{id})->load(with => [ 'orderitems', 'orderitems.part' ]) if $::form->{id};
|
|
| 1250 |
$order ||= SL::DB::DeliveryOrder->new(orderitems => [],
|
|
| 1251 |
quotation => (any { $self->type eq $_ } (vendor_in_type(), vendor_out_type())),
|
|
| 1357 | 1252 |
currency_id => $::instance_conf->get_currency_id(),); |
| 1358 | 1253 |
|
| 1359 | 1254 |
my $cv_id_method = $self->cv . '_id'; |
| ... | ... | |
| 1363 | 1258 |
} |
| 1364 | 1259 |
|
| 1365 | 1260 |
my $form_orderitems = delete $::form->{order}->{orderitems};
|
| 1366 |
my $form_periodic_invoices_config = delete $::form->{order}->{periodic_invoices_config};
|
|
| 1367 | 1261 |
|
| 1368 | 1262 |
$order->assign_attributes(%{$::form->{order}});
|
| 1369 | 1263 |
|
| 1370 | 1264 |
$self->setup_custom_shipto_from_form($order, $::form); |
| 1371 | 1265 |
|
| 1372 |
if (my $periodic_invoices_config_attrs = $form_periodic_invoices_config ? SL::YAML::Load($form_periodic_invoices_config) : undef) {
|
|
| 1373 |
my $periodic_invoices_config = $order->periodic_invoices_config || $order->periodic_invoices_config(SL::DB::PeriodicInvoicesConfig->new); |
|
| 1374 |
$periodic_invoices_config->assign_attributes(%$periodic_invoices_config_attrs); |
|
| 1375 |
} |
|
| 1376 |
|
|
| 1377 | 1266 |
# remove deleted items |
| 1378 | 1267 |
$self->item_ids_to_delete([]); |
| 1379 | 1268 |
foreach my $idx (reverse 0..$#{$order->orderitems}) {
|
| ... | ... | |
| 1412 | 1301 |
# add_custom_variables adds cvars to an orderitem with no cvars for saving, but |
| 1413 | 1302 |
# they cannot be retrieved via custom_variables until the order/orderitem is |
| 1414 | 1303 |
# saved. Adding empty custom_variables to new orderitem here solves this problem. |
| 1415 |
$item ||= SL::DB::OrderItem->new(custom_variables => []); |
|
| 1304 |
$item ||= SL::DB::DeliveryOrderItem->new(custom_variables => []);
|
|
| 1416 | 1305 |
|
| 1417 | 1306 |
$item->assign_attributes(%$attr); |
| 1418 | 1307 |
|
| ... | ... | |
| 1432 | 1321 |
sub new_item {
|
| 1433 | 1322 |
my ($record, $attr) = @_; |
| 1434 | 1323 |
|
| 1435 |
my $item = SL::DB::OrderItem->new; |
|
| 1324 |
my $item = SL::DB::DeliveryOrderItem->new;
|
|
| 1436 | 1325 |
|
| 1437 | 1326 |
# Remove attributes where the user left or set the inputs empty. |
| 1438 | 1327 |
# So these attributes will be undefined and we can distinguish them |
| ... | ... | |
| 1546 | 1435 |
sub recalc {
|
| 1547 | 1436 |
my ($self) = @_; |
| 1548 | 1437 |
|
| 1549 |
my %pat = $self->order->calculate_prices_and_taxes(); |
|
| 1550 |
|
|
| 1551 |
$self->{taxes} = [];
|
|
| 1552 |
foreach my $tax_id (keys %{ $pat{taxes_by_tax_id} }) {
|
|
| 1553 |
my $netamount = sum0 map { $pat{amounts}->{$_}->{amount} } grep { $pat{amounts}->{$_}->{tax_id} == $tax_id } keys %{ $pat{amounts} };
|
|
| 1554 |
|
|
| 1555 |
push(@{ $self->{taxes} }, { amount => $pat{taxes_by_tax_id}->{$tax_id},
|
|
| 1556 |
netamount => $netamount, |
|
| 1557 |
tax => SL::DB::Tax->new(id => $tax_id)->load }); |
|
| 1558 |
} |
|
| 1559 |
pairwise { $a->{linetotal} = $b->{linetotal} } @{$self->order->items_sorted}, @{$pat{items}};
|
|
| 1438 |
# nothing to do here |
|
| 1560 | 1439 |
} |
| 1561 | 1440 |
|
| 1562 | 1441 |
# get data for saving, printing, ..., that is not changed in the form |
| ... | ... | |
| 1615 | 1494 |
$self->order->custom_shipto(undef); |
| 1616 | 1495 |
} |
| 1617 | 1496 |
|
| 1618 |
SL::DB::OrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete || []};
|
|
| 1497 |
SL::DB::DeliveryOrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete || []};
|
|
| 1619 | 1498 |
$self->order->save(cascade => 1); |
| 1620 | 1499 |
|
| 1621 | 1500 |
# link records |
| 1622 | 1501 |
if ($::form->{converted_from_oe_id}) {
|
| 1623 | 1502 |
my @converted_from_oe_ids = split ' ', $::form->{converted_from_oe_id};
|
| 1624 | 1503 |
foreach my $converted_from_oe_id (@converted_from_oe_ids) {
|
| 1625 |
my $src = SL::DB::Order->new(id => $converted_from_oe_id)->load; |
|
| 1504 |
my $src = SL::DB::DeliveryOrder->new(id => $converted_from_oe_id)->load;
|
|
| 1626 | 1505 |
$src->update_attributes(closed => 1) if $src->type =~ /_quotation$/; |
| 1627 | 1506 |
$src->link_to_record($self->order); |
| 1628 | 1507 |
} |
| ... | ... | |
| 1631 | 1510 |
foreach (@{ $self->order->items_sorted }) {
|
| 1632 | 1511 |
my $from_id = $::form->{converted_from_orderitems_ids}->[$idx];
|
| 1633 | 1512 |
next if !$from_id; |
| 1634 |
SL::DB::RecordLink->new(from_table => 'orderitems',
|
|
| 1513 |
SL::DB::RecordLink->new(from_table => 'delivery_order_items',
|
|
| 1635 | 1514 |
from_id => $from_id, |
| 1636 |
to_table => 'orderitems',
|
|
| 1515 |
to_table => 'delivery_order_items',
|
|
| 1637 | 1516 |
to_id => $_->id |
| 1638 | 1517 |
)->save; |
| 1639 | 1518 |
$idx++; |
| ... | ... | |
| 1660 | 1539 |
return $self->js->render(); |
| 1661 | 1540 |
} |
| 1662 | 1541 |
|
| 1663 |
my $destination_type = $::form->{type} eq sales_order_type() ? sales_quotation_type() : request_quotation_type();
|
|
| 1542 |
my $destination_type = $::form->{type} eq customer_in_type() ? vendor_in_type() : vendor_out_type();
|
|
| 1664 | 1543 |
|
| 1665 |
$self->order(SL::DB::Order->new_from($self->order, destination_type => $destination_type)); |
|
| 1544 |
$self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
|
|
| 1666 | 1545 |
$self->{converted_from_oe_id} = delete $::form->{id};
|
| 1667 | 1546 |
|
| 1668 | 1547 |
# set item ids to new fake id, to identify them as new items |
| ... | ... | |
| 1686 | 1565 |
$_->{render_second_row} = 1 for @{ $self->order->items_sorted };
|
| 1687 | 1566 |
|
| 1688 | 1567 |
$self->render( |
| 1689 |
'order/form', |
|
| 1568 |
'delivery_order/form',
|
|
| 1690 | 1569 |
title => $self->get_title_for('edit'),
|
| 1691 | 1570 |
%{$self->{template_args}}
|
| 1692 | 1571 |
); |
| ... | ... | |
| 1703 | 1582 |
return $self->js->render(); |
| 1704 | 1583 |
} |
| 1705 | 1584 |
|
| 1706 |
my $destination_type = $::form->{type} eq sales_quotation_type() ? sales_order_type()
|
|
| 1707 |
: $::form->{type} eq request_quotation_type() ? purchase_order_type()
|
|
| 1708 |
: $::form->{type} eq purchase_order_type() ? sales_order_type()
|
|
| 1709 |
: $::form->{type} eq sales_order_type() ? purchase_order_type()
|
|
| 1585 |
my $destination_type = $::form->{type} eq vendor_in_type() ? customer_in_type()
|
|
| 1586 |
: $::form->{type} eq vendor_out_type() ? customer_out_type()
|
|
| 1587 |
: $::form->{type} eq customer_out_type() ? customer_in_type()
|
|
| 1588 |
: $::form->{type} eq customer_in_type() ? customer_out_type()
|
|
| 1710 | 1589 |
: ''; |
| 1711 | 1590 |
|
| 1712 | 1591 |
# check for direct delivery |
| 1713 | 1592 |
# copy shipto in custom shipto (custom shipto will be copied by new_from() in case) |
| 1714 | 1593 |
my $custom_shipto; |
| 1715 |
if ( $::form->{type} eq sales_order_type() && $destination_type eq purchase_order_type()
|
|
| 1594 |
if ( $::form->{type} eq customer_in_type() && $destination_type eq customer_out_type()
|
|
| 1716 | 1595 |
&& $::form->{use_shipto} && $self->order->shipto) {
|
| 1717 |
$custom_shipto = $self->order->shipto->clone('SL::DB::Order');
|
|
| 1596 |
$custom_shipto = $self->order->shipto->clone('SL::DB::DeliveryOrder');
|
|
| 1718 | 1597 |
} |
| 1719 | 1598 |
|
| 1720 |
$self->order(SL::DB::Order->new_from($self->order, destination_type => $destination_type)); |
|
| 1599 |
$self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
|
|
| 1721 | 1600 |
$self->{converted_from_oe_id} = delete $::form->{id};
|
| 1722 | 1601 |
|
| 1723 | 1602 |
# set item ids to new fake id, to identify them as new items |
| ... | ... | |
| 1725 | 1604 |
$item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);
|
| 1726 | 1605 |
} |
| 1727 | 1606 |
|
| 1728 |
if ($::form->{type} eq sales_order_type() && $destination_type eq purchase_order_type()) {
|
|
| 1607 |
if ($::form->{type} eq customer_in_type() && $destination_type eq customer_out_type()) {
|
|
| 1729 | 1608 |
if ($::form->{use_shipto}) {
|
| 1730 | 1609 |
$self->order->custom_shipto($custom_shipto) if $custom_shipto; |
| 1731 | 1610 |
} else {
|
| ... | ... | |
| 1750 | 1629 |
$_->{render_second_row} = 1 for @{ $self->order->items_sorted };
|
| 1751 | 1630 |
|
| 1752 | 1631 |
$self->render( |
| 1753 |
'order/form', |
|
| 1632 |
'delivery_order/form',
|
|
| 1754 | 1633 |
title => $self->get_title_for('edit'),
|
| 1755 | 1634 |
%{$self->{template_args}}
|
| 1756 | 1635 |
); |
| ... | ... | |
| 1774 | 1653 |
obsolete => 0 ] ]); |
| 1775 | 1654 |
$self->{all_delivery_terms} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
|
| 1776 | 1655 |
$self->{current_employee_id} = SL::DB::Manager::Employee->current->id;
|
| 1777 |
$self->{periodic_invoices_status} = $self->get_periodic_invoices_status($self->order->periodic_invoices_config);
|
|
| 1778 | 1656 |
$self->{order_probabilities} = [ map { { title => ($_ * 10) . '%', id => $_ * 10 } } (0..10) ];
|
| 1779 | 1657 |
$self->{positions_scrollbar_height} = SL::Helper::UserPreferences::PositionsScrollbar->new()->get_height();
|
| 1780 | 1658 |
|
| ... | ... | |
| 1797 | 1675 |
$item->active_discount_source($price_source->discount_from_source($item->active_discount_source)); |
| 1798 | 1676 |
} |
| 1799 | 1677 |
|
| 1800 |
if (any { $self->type eq $_ } (sales_order_type(), purchase_order_type())) {
|
|
| 1801 |
# Calculate shipped qtys here to prevent calling calculate for every item via the items method. |
|
| 1802 |
# Do not use write_to_objects to prevent order->delivered to be set, because this should be |
|
| 1803 |
# the value from db, which can be set manually or is set when linked delivery orders are saved. |
|
| 1804 |
SL::Helper::ShippedQty->new->calculate($self->order)->write_to(\@{$self->order->items});
|
|
| 1805 |
} |
|
| 1806 |
|
|
| 1807 | 1678 |
if ($self->order->number && $::instance_conf->get_webdav) {
|
| 1808 | 1679 |
my $webdav = SL::Webdav->new( |
| 1809 | 1680 |
type => $self->type, |
| ... | ... | |
| 1818 | 1689 |
|
| 1819 | 1690 |
$self->get_item_cvpartnumber($_) for @{$self->order->items_sorted};
|
| 1820 | 1691 |
|
| 1821 |
$::request->{layout}->use_javascript("${_}.js") for qw(kivi.SalesPurchase kivi.Order kivi.File ckeditor/ckeditor ckeditor/adapters/jquery
|
|
| 1822 |
edit_periodic_invoices_config calculate_qty kivi.Validator follow_up show_history);
|
|
| 1692 |
$::request->{layout}->use_javascript("${_}.js") for qw(kivi.SalesPurchase kivi.DeliveryOrder kivi.File ckeditor/ckeditor ckeditor/adapters/jquery
|
|
| 1693 |
calculate_qty kivi.Validator follow_up show_history); |
|
| 1823 | 1694 |
$self->setup_edit_action_bar; |
| 1824 | 1695 |
} |
| 1825 | 1696 |
|
| 1826 | 1697 |
sub setup_edit_action_bar {
|
| 1827 | 1698 |
my ($self, %params) = @_; |
| 1828 | 1699 |
|
| 1829 |
my $deletion_allowed = (any { $self->type eq $_ } (sales_quotation_type(), request_quotation_type()))
|
|
| 1830 |
|| (($self->type eq sales_order_type()) && $::instance_conf->get_sales_order_show_delete)
|
|
| 1831 |
|| (($self->type eq purchase_order_type()) && $::instance_conf->get_purchase_order_show_delete);
|
|
| 1700 |
my $deletion_allowed = (any { $self->type eq $_ } (vendor_in_type(), vendor_out_type()))
|
|
| 1701 |
|| (($self->type eq customer_in_type()) && $::instance_conf->get_sales_order_show_delete)
|
|
| 1702 |
|| (($self->type eq customer_out_type()) && $::instance_conf->get_purchase_order_show_delete);
|
|
| 1832 | 1703 |
|
| 1833 | 1704 |
for my $bar ($::request->layout->get('actionbar')) {
|
| 1834 | 1705 |
$bar->add( |
| 1835 | 1706 |
combobox => [ |
| 1836 | 1707 |
action => [ |
| 1837 | 1708 |
t8('Save'),
|
| 1838 |
call => [ 'kivi.Order.save', 'save', $::instance_conf->get_order_warn_duplicate_parts, |
|
| 1709 |
call => [ 'kivi.DeliveryOrder.save', 'save', $::instance_conf->get_order_warn_duplicate_parts,
|
|
| 1839 | 1710 |
$::instance_conf->get_order_warn_no_deliverydate, |
| 1840 | 1711 |
], |
| 1841 |
checks => [ 'kivi.Order.check_save_active_periodic_invoices', ['kivi.validate_form','#order_form'] ],
|
|
| 1712 |
checks => [ ['kivi.validate_form','#order_form'] ], |
|
| 1842 | 1713 |
], |
| 1843 | 1714 |
action => [ |
| 1844 | 1715 |
t8('Save as new'),
|
| 1845 |
call => [ 'kivi.Order.save', 'save_as_new', $::instance_conf->get_order_warn_duplicate_parts ], |
|
| 1846 |
checks => [ 'kivi.Order.check_save_active_periodic_invoices' ], |
|
| 1716 |
call => [ 'kivi.DeliveryOrder.save', 'save_as_new', $::instance_conf->get_order_warn_duplicate_parts ], |
|
| 1847 | 1717 |
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
|
| 1848 | 1718 |
], |
| 1849 | 1719 |
], # end of combobox "Save" |
| ... | ... | |
| 1854 | 1724 |
], |
| 1855 | 1725 |
action => [ |
| 1856 | 1726 |
t8('Save and Quotation'),
|
| 1857 |
submit => [ '#order_form', { action => "Order/sales_quotation" } ],
|
|
| 1858 |
only_if => (any { $self->type eq $_ } (sales_order_type())),
|
|
| 1727 |
submit => [ '#order_form', { action => "DeliveryOrder/sales_quotation" } ],
|
|
| 1728 |
only_if => (any { $self->type eq $_ } (customer_in_type())),
|
|
| 1859 | 1729 |
], |
| 1860 | 1730 |
action => [ |
| 1861 | 1731 |
t8('Save and RFQ'),
|
| 1862 |
submit => [ '#order_form', { action => "Order/request_for_quotation" } ],
|
|
| 1863 |
only_if => (any { $self->type eq $_ } (purchase_order_type())),
|
|
| 1732 |
submit => [ '#order_form', { action => "DeliveryOrder/request_for_quotation" } ],
|
|
| 1733 |
only_if => (any { $self->type eq $_ } (customer_out_type())),
|
|
| 1864 | 1734 |
], |
| 1865 | 1735 |
action => [ |
| 1866 | 1736 |
t8('Save and Sales Order'),
|
| 1867 |
submit => [ '#order_form', { action => "Order/sales_order" } ],
|
|
| 1868 |
only_if => (any { $self->type eq $_ } (sales_quotation_type(), purchase_order_type())),
|
|
| 1737 |
submit => [ '#order_form', { action => "DeliveryOrder/sales_order" } ],
|
|
| 1738 |
only_if => (any { $self->type eq $_ } (vendor_in_type(), customer_out_type())),
|
|
| 1869 | 1739 |
], |
| 1870 | 1740 |
action => [ |
| 1871 | 1741 |
t8('Save and Purchase Order'),
|
| 1872 |
call => [ 'kivi.Order.purchase_order_check_for_direct_delivery' ], |
|
| 1873 |
only_if => (any { $self->type eq $_ } (sales_order_type(), request_quotation_type())),
|
|
| 1742 |
call => [ 'kivi.DeliveryOrder.purchase_order_check_for_direct_delivery' ],
|
|
| 1743 |
only_if => (any { $self->type eq $_ } (customer_in_type(), vendor_out_type())),
|
|
| 1874 | 1744 |
], |
| 1875 | 1745 |
action => [ |
| 1876 | 1746 |
t8('Save and Delivery Order'),
|
| 1877 |
call => [ 'kivi.Order.save', 'save_and_delivery_order', $::instance_conf->get_order_warn_duplicate_parts, |
|
| 1747 |
call => [ 'kivi.DeliveryOrder.save', 'save_and_delivery_order', $::instance_conf->get_order_warn_duplicate_parts,
|
|
| 1878 | 1748 |
$::instance_conf->get_order_warn_no_deliverydate, |
| 1879 | 1749 |
], |
| 1880 |
checks => [ 'kivi.Order.check_save_active_periodic_invoices' ], |
|
| 1881 |
only_if => (any { $self->type eq $_ } (sales_order_type(), purchase_order_type()))
|
|
| 1750 |
only_if => (any { $self->type eq $_ } (customer_in_type(), customer_out_type()))
|
|
| 1882 | 1751 |
], |
| 1883 | 1752 |
action => [ |
| 1884 | 1753 |
t8('Save and Invoice'),
|
| 1885 |
call => [ 'kivi.Order.save', 'save_and_invoice', $::instance_conf->get_order_warn_duplicate_parts ], |
|
| 1886 |
checks => [ 'kivi.Order.check_save_active_periodic_invoices' ], |
|
| 1754 |
call => [ 'kivi.DeliveryOrder.save', 'save_and_invoice', $::instance_conf->get_order_warn_duplicate_parts ], |
|
| 1887 | 1755 |
], |
| 1888 | 1756 |
action => [ |
| 1889 | 1757 |
t8('Save and AP Transaction'),
|
| 1890 |
call => [ 'kivi.Order.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ], |
|
| 1891 |
only_if => (any { $self->type eq $_ } (purchase_order_type()))
|
|
| 1758 |
call => [ 'kivi.DeliveryOrder.save', 'save_and_ap_transaction', $::instance_conf->get_order_warn_duplicate_parts ],
|
|
| 1759 |
only_if => (any { $self->type eq $_ } (customer_out_type()))
|
|
| 1892 | 1760 |
], |
| 1893 | 1761 |
|
| 1894 | 1762 |
], # end of combobox "Workflow" |
| ... | ... | |
| 1899 | 1767 |
], |
| 1900 | 1768 |
action => [ |
| 1901 | 1769 |
t8('Save and preview PDF'),
|
| 1902 |
call => [ 'kivi.Order.save', 'preview_pdf', $::instance_conf->get_order_warn_duplicate_parts, |
|
| 1770 |
call => [ 'kivi.DeliveryOrder.save', 'preview_pdf', $::instance_conf->get_order_warn_duplicate_parts,
|
|
| 1903 | 1771 |
$::instance_conf->get_order_warn_no_deliverydate, |
| 1904 | 1772 |
], |
| 1905 | 1773 |
], |
| 1906 | 1774 |
action => [ |
| 1907 | 1775 |
t8('Save and print'),
|
| 1908 |
call => [ 'kivi.Order.show_print_options', $::instance_conf->get_order_warn_duplicate_parts, |
|
| 1776 |
call => [ 'kivi.DeliveryOrder.show_print_options', $::instance_conf->get_order_warn_duplicate_parts,
|
|
| 1909 | 1777 |
$::instance_conf->get_order_warn_no_deliverydate, |
| 1910 | 1778 |
], |
| 1911 | 1779 |
], |
| 1912 | 1780 |
action => [ |
| 1913 | 1781 |
t8('Save and E-mail'),
|
| 1914 | 1782 |
id => 'save_and_email_action', |
| 1915 |
call => [ 'kivi.Order.save', 'save_and_show_email_dialog', $::instance_conf->get_order_warn_duplicate_parts, |
|
| 1783 |
call => [ 'kivi.DeliveryOrder.save', 'save_and_show_email_dialog', $::instance_conf->get_order_warn_duplicate_parts,
|
|
| 1916 | 1784 |
$::instance_conf->get_order_warn_no_deliverydate, |
| 1917 | 1785 |
], |
| 1918 | 1786 |
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
|
| ... | ... | |
| 1927 | 1795 |
|
| 1928 | 1796 |
action => [ |
| 1929 | 1797 |
t8('Delete'),
|
| 1930 |
call => [ 'kivi.Order.delete_order' ], |
|
| 1798 |
call => [ 'kivi.DeliveryOrder.delete_order' ],
|
|
| 1931 | 1799 |
confirm => $::locale->text('Do you really want to delete this object?'),
|
| 1932 | 1800 |
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
|
| 1933 | 1801 |
only_if => $deletion_allowed, |
| ... | ... | |
| 1939 | 1807 |
], |
| 1940 | 1808 |
action => [ |
| 1941 | 1809 |
t8('Follow-Up'),
|
| 1942 |
call => [ 'kivi.Order.follow_up_window' ], |
|
| 1810 |
call => [ 'kivi.DeliveryOrder.follow_up_window' ],
|
|
| 1943 | 1811 |
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
|
| 1944 | 1812 |
only_if => $::auth->assert('productivity', 1),
|
| 1945 | 1813 |
], |
| ... | ... | |
| 2047 | 1915 |
return %files; |
| 2048 | 1916 |
} |
| 2049 | 1917 |
|
| 2050 |
sub make_periodic_invoices_config_from_yaml {
|
|
| 2051 |
my ($yaml_config) = @_; |
|
| 2052 |
|
|
| 2053 |
return if !$yaml_config; |
|
| 2054 |
my $attr = SL::YAML::Load($yaml_config); |
|
| 2055 |
return if 'HASH' ne ref $attr; |
|
| 2056 |
return SL::DB::PeriodicInvoicesConfig->new(%$attr); |
|
| 2057 |
} |
|
| 2058 |
|
|
| 2059 |
|
|
| 2060 |
sub get_periodic_invoices_status {
|
|
| 2061 |
my ($self, $config) = @_; |
|
| 2062 |
|
|
| 2063 |
return if $self->type ne sales_order_type(); |
|
| 2064 |
return t8('not configured') if !$config;
|
|
| 2065 |
|
|
| 2066 |
my $active = ('HASH' eq ref $config) ? $config->{active}
|
|
| 2067 |
: ('SL::DB::PeriodicInvoicesConfig' eq ref $config) ? $config->active
|
|
| 2068 |
: die "Cannot get status of periodic invoices config"; |
|
| 2069 |
|
|
| 2070 |
return $active ? t8('active') : t8('inactive');
|
|
| 2071 |
} |
|
| 2072 | 1918 |
|
| 2073 | 1919 |
sub get_title_for {
|
| 2074 | 1920 |
my ($self, $action) = @_; |
| ... | ... | |
| 2076 | 1922 |
return '' if none { lc($action)} qw(add edit);
|
| 2077 | 1923 |
|
| 2078 | 1924 |
# for locales: |
| 2079 |
# $::locale->text("Add Sales Order");
|
|
| 2080 |
# $::locale->text("Add Purchase Order");
|
|
| 2081 |
# $::locale->text("Add Quotation");
|
|
| 2082 |
# $::locale->text("Add Request for Quotation");
|
|
| 2083 |
# $::locale->text("Edit Sales Order");
|
|
| 2084 |
# $::locale->text("Edit Purchase Order");
|
|
| 2085 |
# $::locale->text("Edit Quotation");
|
|
| 2086 |
# $::locale->text("Edit Request for Quotation");
|
|
| 1925 |
# $::locale->text("Add Sales Delivery Order");
|
|
| 1926 |
# $::locale->text("Add Purchase Delivery Order");
|
|
| 1927 |
# $::locale->text("Edit Sales Delivery Order");
|
|
| 1928 |
# $::locale->text("Edit Purchase Delivery Order");
|
|
| 2087 | 1929 |
|
| 2088 | 1930 |
$action = ucfirst(lc($action)); |
| 2089 |
return $self->type eq sales_order_type() ? $::locale->text("$action Sales Order")
|
|
| 2090 |
: $self->type eq purchase_order_type() ? $::locale->text("$action Purchase Order")
|
|
| 2091 |
: $self->type eq sales_quotation_type() ? $::locale->text("$action Quotation")
|
|
| 2092 |
: $self->type eq request_quotation_type() ? $::locale->text("$action Request for Quotation")
|
|
| 1931 |
return $self->type eq customer_in_type() ? $::locale->text("$action Sales Delivery Order")
|
|
| 1932 |
: $self->type eq customer_out_type() ? $::locale->text("$action Sales Delivery Order")
|
|
| 1933 |
: $self->type eq vendor_in_type() ? $::locale->text("$action Purchase Delivery Order")
|
|
| 1934 |
: $self->type eq vendor_out_type() ? $::locale->text("$action Purchase Delivery Quotation")
|
|
| 2093 | 1935 |
: ''; |
| 2094 | 1936 |
} |
| 2095 | 1937 |
|
| ... | ... | |
| 2132 | 1974 |
return $texts; |
| 2133 | 1975 |
} |
| 2134 | 1976 |
|
| 2135 |
sub sales_order_type {
|
|
| 2136 |
'sales_order';
|
|
| 1977 |
sub customer_in_type {
|
|
| 1978 |
'customer_in_delivery_order';
|
|
| 2137 | 1979 |
} |
| 2138 | 1980 |
|
| 2139 |
sub purchase_order_type {
|
|
| 2140 |
'purchase_order';
|
|
| 1981 |
sub customer_out_type {
|
|
| 1982 |
'customer_out_delivery_order';
|
|
| 2141 | 1983 |
} |
| 2142 | 1984 |
|
| 2143 |
sub sales_quotation_type {
|
|
| 2144 |
'sales_quotation';
|
|
| 1985 |
sub vendor_in_type {
|
|
| 1986 |
'vendor_in_delivery_order';
|
|
| 2145 | 1987 |
} |
| 2146 | 1988 |
|
| 2147 |
sub request_quotation_type {
|
|
| 2148 |
'request_quotation';
|
|
| 1989 |
sub vendor_out_type {
|
|
| 1990 |
'vendor_out_delivery_order';
|
|
| 2149 | 1991 |
} |
| 2150 | 1992 |
|
| 2151 | 1993 |
sub nr_key {
|
| 2152 |
return $_[0]->type eq sales_order_type() ? 'ordnumber' |
|
| 2153 |
: $_[0]->type eq purchase_order_type() ? 'ordnumber' |
|
| 2154 |
: $_[0]->type eq sales_quotation_type() ? 'quonumber' |
|
| 2155 |
: $_[0]->type eq request_quotation_type() ? 'quonumber' |
|
| 2156 |
: ''; |
|
| 1994 |
'donumber' |
|
| 2157 | 1995 |
} |
| 2158 | 1996 |
|
| 2159 | 1997 |
sub save_and_redirect_to {
|
| ... | ... | |
| 2166 | 2004 |
return $self->js->render(); |
| 2167 | 2005 |
} |
| 2168 | 2006 |
|
| 2169 |
my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been saved')
|
|
| 2170 |
: $self->type eq purchase_order_type() ? $::locale->text('The order has been saved')
|
|
| 2171 |
: $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been saved')
|
|
| 2172 |
: $self->type eq request_quotation_type() ? $::locale->text('The rfq has been saved')
|
|
| 2173 |
: ''; |
|
| 2007 |
my $text = $::locale->text('The delivery_order has been saved');
|
|
| 2174 | 2008 |
flash_later('info', $text);
|
| 2175 | 2009 |
|
| 2176 | 2010 |
$self->redirect_to(%params, id => $self->order->id); |
| ... | ... | |
| 2293 | 2127 |
|
| 2294 | 2128 |
=over 4 |
| 2295 | 2129 |
|
| 2296 |
=item * C<SL/Controller/Order.pm> |
|
| 2130 |
=item * C<SL/Controller/DeliveryOrder.pm>
|
|
| 2297 | 2131 |
|
| 2298 | 2132 |
the controller |
| 2299 | 2133 |
|
| 2300 |
=item * C<template/webpages/order/form.html> |
|
| 2134 |
=item * C<template/webpages/delivery_order/form.html>
|
|
| 2301 | 2135 |
|
| 2302 | 2136 |
main form |
| 2303 | 2137 |
|
| 2304 |
=item * C<template/webpages/order/tabs/basic_data.html> |
|
| 2138 |
=item * C<template/webpages/delivery_order/tabs/basic_data.html>
|
|
| 2305 | 2139 |
|
| 2306 | 2140 |
Main tab for basic_data. |
| 2307 | 2141 |
|
| ... | ... | |
| 2310 | 2144 |
|
| 2311 | 2145 |
=over 4 |
| 2312 | 2146 |
|
| 2313 |
=item * C<template/webpages/order/tabs/_business_info_row.html> |
|
| 2147 |
=item * C<template/webpages/delivery_order/tabs/_business_info_row.html>
|
|
| 2314 | 2148 |
|
| 2315 | 2149 |
For displaying information on business type |
| 2316 | 2150 |
|
| 2317 |
=item * C<template/webpages/order/tabs/_item_input.html> |
|
| 2151 |
=item * C<template/webpages/delivery_order/tabs/_item_input.html>
|
|
| 2318 | 2152 |
|
| 2319 | 2153 |
The input line for items |
| 2320 | 2154 |
|
| 2321 |
=item * C<template/webpages/order/tabs/_row.html> |
|
| 2155 |
=item * C<template/webpages/delivery_order/tabs/_row.html>
|
|
| 2322 | 2156 |
|
| 2323 | 2157 |
One row for already entered items |
| 2324 | 2158 |
|
| 2325 |
=item * C<template/webpages/order/tabs/_tax_row.html> |
|
| 2159 |
=item * C<template/webpages/delivery_order/tabs/_tax_row.html>
|
|
| 2326 | 2160 |
|
| 2327 | 2161 |
Displaying tax information |
| 2328 | 2162 |
|
| 2329 |
=item * C<template/webpages/order/tabs/_price_sources_dialog.html> |
|
| 2163 |
=item * C<template/webpages/delivery_order/tabs/_price_sources_dialog.html>
|
|
| 2330 | 2164 |
|
| 2331 | 2165 |
Dialog for selecting price and discount sources |
| 2332 | 2166 |
|
| 2333 | 2167 |
=back |
| 2334 | 2168 |
|
| 2335 |
=item * C<js/kivi.Order.js> |
|
| 2169 |
=item * C<js/kivi.DeliveryOrder.js>
|
|
| 2336 | 2170 |
|
| 2337 | 2171 |
java script functions |
| 2338 | 2172 |
|
Auch abrufbar als: Unified diff
DeliveryOrder: Anpassungen