use SL::SessionFile::Random;
use SL::PriceSource;
use SL::Form;
+use SL::Webdav;
use SL::DB::Order;
use SL::DB::Customer;
use SL::DB::Default;
use SL::DB::Unit;
use SL::DB::Price;
+use SL::DB::Part;
use SL::Helper::DateTime;
use SL::Helper::CreatePDF qw(:all);
+use SL::Controller::Helper::GetModels;
+
use List::Util qw(max first);
use List::MoreUtils qw(none pairwise first_index);
use English qw(-no_match_vars);
use Rose::Object::MakeMethods::Generic
(
- 'scalar --get_set_init' => [ qw(order valid_types type cv p) ],
+ 'scalar --get_set_init' => [ qw(order valid_types type cv p multi_items_models) ],
);
my ($self) = @_;
$self->order->transdate(DateTime->now_local());
+ $self->order->reqdate(DateTime->today_local->next_workday) if !$self->order->reqdate;
$self->_pre_render();
$self->render(
my $key = join('_', Time::HiRes::gettimeofday(), int rand 1000000000000);
$::auth->set_session_value("Order::create_pdf-${key}" => $sfile->file_name);
- $::form->{formname} = $self->type;
- $::form->{language} = 'de';
- my $pdf_filename = $::form->get_formname_translation . '_' . $self->order->ordnumber . '.pdf';
+ my $form = Form->new;
+ $form->{ordnumber} = $self->order->ordnumber;
+ $form->{formname} = $self->type;
+ $form->{type} = $self->type;
+ $form->{language} = 'de';
+ $form->{format} = 'pdf';
+
+ my $pdf_filename = $form->generate_attachment_filename();
+
+ # copy file to webdav folder
+ if ($self->order->ordnumber && $::instance_conf->get_webdav_documents) {
+ my $webdav = SL::Webdav->new(
+ type => $self->type,
+ number => $self->order->ordnumber,
+ );
+ my $webdav_file = SL::Webdav::File->new(
+ webdav => $webdav,
+ filename => $pdf_filename,
+ );
+ eval {
+ $webdav_file->store(data => \$pdf);
+ 1;
+ } or do {
+ $self->js->flash('error', t8('Storing PDF to webdav folder failed: #1', $@));
+ }
+ }
$self->js
->run('download_pdf', $pdf_filename, $key)
: $::myconfig{taxincluded_checked});
}
+ $self->order->payment_id($self->order->$cv_method->payment_id);
+ $self->order->delivery_term_id($self->order->$cv_method->delivery_term_id);
+
$self->_recalc();
$self->js
- ->replaceWith('#order_cp_id', $self->build_contact_select)
- ->replaceWith('#order_shipto_id', $self->build_shipto_select)
- ->val( '#order_taxzone_id', $self->order->taxzone_id)
- ->val( '#order_taxincluded', $self->order->taxincluded)
+ ->replaceWith('#order_cp_id', $self->build_contact_select)
+ ->replaceWith('#order_shipto_id', $self->build_shipto_select)
+ ->val( '#order_taxzone_id', $self->order->taxzone_id)
+ ->val( '#order_taxincluded', $self->order->taxincluded)
+ ->val( '#order_payment_id', $self->order->payment_id)
+ ->val( '#order_delivery_term_id', $self->order->delivery_term_id)
->focus( '#order_' . $self->cv . '_id');
$self->_js_redisplay_amounts_and_taxes;
}
sub action_show_multi_items_dialog {
- my ($self) = @_;
-
- $self->{multi_items}->{parts} = SL::DB::Manager::Part->get_all_sorted(where => [ obsolete => 0 ]);
- my $dialog_html = $self->render('order/tabs/_multi_items_dialog', { output => 0 });
+ require SL::DB::PartsGroup;
+ $_[0]->render('order/tabs/_multi_items_dialog', { layout => 0 },
+ all_partsgroups => SL::DB::Manager::PartsGroup->get_all);
+}
- $self->js
- ->run('show_multi_items_dialog', $dialog_html, t8('Add multiple parts'))
- ->reinit_widgets
- ->render();
+sub action_multi_items_update_result {
+ $_[0]->render('order/tabs/_multi_items_result', { layout => 0 },
+ multi_items => $_[0]->multi_items_models->get);
}
sub action_add_multi_items {
my ($self) = @_;
- my @form_attr = grep { $_->{qty} } @{ $::form->{add_multi_items} };
- return unless scalar @form_attr;
+ my @form_attr = grep { $_->{qty_as_number} } @{ $::form->{add_multi_items} };
+ return $self->js->render() unless scalar @form_attr;
my @items;
foreach my $attr (@form_attr) {
_make_order();
}
+sub init_multi_items_models {
+ SL::Controller::Helper::GetModels->new(
+ controller => $_[0],
+ model => 'Part',
+ with_objects => [ qw(unit_obj) ],
+ disable_plugin => 'paginated',
+ source => $::form->{multi_items},
+ sorted => {
+ _default => {
+ by => 'partnumber',
+ dir => 1,
+ },
+ partnumber => t8('Partnumber'),
+ description => t8('Description')}
+ );
+}
+
sub _check_auth {
my ($self) = @_;
my ($self) = @_;
$self->{all_taxzones} = SL::DB::Manager::TaxZone->get_all_sorted();
+ $self->{all_departments} = SL::DB::Manager::Department->get_all_sorted();
$self->{all_employees} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->employee_id,
deleted => 0 ] ],
sort_by => 'name');
}
+ if ($self->order->ordnumber && $::instance_conf->get_webdav) {
+ my $webdav = SL::Webdav->new(
+ type => $self->type,
+ number => $self->order->ordnumber,
+ );
+ my $webdav_path = $webdav->webdav_path;
+ my @all_objects = $webdav->get_all_objects;
+ @{ $self->{template_args}->{WEBDAV} } = map { { name => $_->filename,
+ type => t8('File'),
+ link => File::Spec->catdir($webdav_path, $_->filename),
+ } } @all_objects;
+ }
+
$::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery);
}