my ($self) = @_;
$self->order->transdate(DateTime->now_local());
- my $extra_days = $self->{type} eq 'sales_quotation' ? $::instance_conf->get_reqdate_interval :
- $self->{type} eq 'sales_order' ? $::instance_conf->get_delivery_date_interval : 1;
- $self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days)) if !$self->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)
+ && (!$self->order->reqdate)) {
+ $self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days));
+ }
$self->pre_render();
? DateTime->today_local
: $order->transdate;
- # Set new reqdate unless changed
+ # 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' ? $::instance_conf->get_reqdate_interval :
- $self->{type} eq 'sales_order' ? $::instance_conf->get_delivery_date_interval : 1;
- $new_attrs{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days);
+ 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;
}
$self->js->flash('info', t8('The PDF has been printed'));
}
- # copy file to webdav folder
- if ($self->order->number && $::instance_conf->get_webdav_documents) {
- my $webdav = SL::Webdav->new(
- type => $self->type,
- number => $self->order->number,
- );
- 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', $@));
- }
- }
- if ($self->order->number && $::instance_conf->get_doc_storage) {
- eval {
- SL::File->save(object_id => $self->order->id,
- object_type => $self->type,
- mime_type => 'application/pdf',
- source => 'created',
- file_type => 'document',
- file_name => $pdf_filename,
- file_contents => $pdf);
- 1;
- } or do {
- $self->js->flash('error', t8('Storing PDF in storage backend failed: #1', $@));
- }
+ my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $pdf_filename);
+ if (scalar @warnings) {
+ $self->js->flash('warning', $_) for @warnings;
}
$self->save_history('PRINTED');
- $self->js->render;
+ $self->js
+ ->run('kivi.ActionBar.setEnabled', '#save_and_email_action')
+ ->render;
}
# open the email dialog
$form->{language} = '_' . $self->order->language->template_code if $self->order->language;
$form->{language_id} = $self->order->language->id if $self->order->language;
$form->{format} = 'pdf';
+ $form->{cp_id} = $self->order->contact->cp_id if $self->order->contact;
$email_form->{subject} = $form->generate_email_subject();
$email_form->{attachment_filename} = $form->generate_attachment_filename();
return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self);
}
+ my @warnings = store_pdf_to_webdav_and_filemanagement($self->order, $pdf, $::form->{attachment_filename});
+ if (scalar @warnings) {
+ flash_later('warning', $_) for @warnings;
+ }
+
my $sfile = SL::SessionFile::Random->new(mode => "w");
$sfile->fh->print($pdf);
$sfile->fh->close;
],
action => [
t8('Save and E-mail'),
+ id => 'save_and_email_action',
call => [ 'kivi.Order.save', 'save_and_show_email_dialog', $::instance_conf->get_order_warn_duplicate_parts ],
disabled => !$self->order->id ? t8('This object has not been saved yet.') : undef,
],
)->save;
}
+sub store_pdf_to_webdav_and_filemanagement {
+ my($order, $content, $filename) = @_;
+
+ my @errors;
+
+ # copy file to webdav folder
+ if ($order->number && $::instance_conf->get_webdav_documents) {
+ my $webdav = SL::Webdav->new(
+ type => $order->type,
+ number => $order->number,
+ );
+ my $webdav_file = SL::Webdav::File->new(
+ webdav => $webdav,
+ filename => $filename,
+ );
+ eval {
+ $webdav_file->store(data => \$content);
+ 1;
+ } or do {
+ push @errors, t8('Storing PDF to webdav folder failed: #1', $@);
+ };
+ }
+ if ($order->id && $::instance_conf->get_doc_storage) {
+ eval {
+ SL::File->save(object_id => $order->id,
+ object_type => $order->type,
+ mime_type => 'application/pdf',
+ source => 'created',
+ file_type => 'document',
+ file_name => $filename,
+ file_contents => $content);
+ 1;
+ } or do {
+ push @errors, t8('Storing PDF in storage backend failed: #1', $@);
+ };
+ }
+
+ return @errors;
+}
+
1;
__END__