projekt kivitendo

package SL::Controller::Order;

use strict;

use parent qw(SL::Controller::Base);

use SL::DB::Default;

use SL::DB::Unit;

use SL::DB::Language;

use File::Spec;

use Rose::Object::MakeMethods::Generic

(

# safety

print send_email) ]);

print send_email) ]);

#

# actions

#

my ($self) = @_;

$self->order->transdate(DateTime->now_local());

$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;

|| ($self->type eq sales_quotation_type() && $::instance_conf->get_reqdate_on)

$self->order->reqdate(DateTime->today_local->next_workday(extra_days => $extra_days));

}

'order/form',

);

}

my ($self) = @_;

$self->load_order;

} else {

# this is to edit an order from an unsaved order object

# set item ids to new fake id, to identify them as new items

foreach my $item (@{$self->order->items_sorted}) {

$item->{new_fake_id} = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000);

}

# are loaded only on demand. So we need to keep the values from

# the source.

$_->{render_second_row} = 1 for @{ $self->order->items_sorted };

$self->pre_render();

'order/form',

);

}

sub action_edit_collective {

my ($self) = @_;

# collect order ids

my @multi_ids = map {

$_ =~ m{^multi_id_(\d+)$} && $::form->{'multi_id_' . $1} && $::form->{'trans_id_' . $1} && $::form->{'trans_id_' . $1}

} grep { $_ =~ m{^multi_id_\d+$} } keys %$::form;

# fall back to add if no ids are given

if (scalar @multi_ids == 0) {

$self->action_add();

return;

}

# 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->action_save_as_new();

return;

}

# make new order from given orders

my @multi_orders = map { SL::DB::Order->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->action_edit();

}

my ($self) = @_;

if (scalar @{ $errors }) {

$self->js->flash('error', $_) foreach @{ $errors };

return $self->js->render();

}

: $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);

);

$self->redirect_to(@redirect_params);

}

my ($self) = @_;

if (scalar @{ $errors }) {

$self->js->flash('error', $_) foreach @{ $errors };

return $self->js->render();

}

: $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);

action => 'edit',

type => $self->type,

id => $self->order->id,

);

$self->redirect_to(@redirect_params);

}

sub action_save_as_new {

my ($self) = @_;

if (!$order->id) {

return $self->js->render();

}

my $saved_order = SL::DB::Order->new(id => $order->id)->load;

# If it has been changed manually then use it as-is.

? ''

: trim($order->number);

$new_attrs{transdate} = ($order->transdate == $saved_order->transdate)

? DateTime->today_local

: $order->transdate;

$self->type eq sales_order_type() ? $::instance_conf->get_delivery_date_interval : 1;

|| ($self->type eq sales_quotation_type() && !$::instance_conf->get_reqdate_on)) {

} else {

$new_attrs{reqdate} = DateTime->today_local->next_workday(extra_days => $extra_days);

}

$new_attrs{reqdate} = $order->reqdate;

# Update employee

# Create new record from current one

$self->order(SL::DB::Order->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);

# save

$self->action_save();

}

#

# This is called if "print" is pressed in the print dialog.

# via send_file (which uses ajax in this case).

if (scalar @{ $errors }) {

$self->js->flash('error', $_) foreach @{ $errors };

return $self->js->render();

}

my $media = $::form->{print_options}->{media};

my $formname = $::form->{print_options}->{formname};

my $copies = $::form->{print_options}->{copies};

my $groupitems = $::form->{print_options}->{groupitems};

if (none { $format eq $_ } qw(pdf opendocument opendocument_pdf)) {

if (none { $media eq $_ } qw(screen printer)) {

return $self->js->flash('error', t8('Media \'#1\' is not supported yet/anymore.', $media))->render;

}

$form->{format} = $format;

$form->{formname} = $formname;

my $pdf;

formname => $formname,

return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render;

}

if ($media eq 'screen') {

# screen/download

$self->send_file(

\$pdf,

type => SL::MIME->mime_type_from_ext($pdf_filename),

name => $pdf_filename,

js_no_render => 1,

);

} elsif ($media eq 'printer') {

# printer

my $printer_id = $::form->{print_options}->{printer_id};

copies => $copies,

content => $pdf,

);

$self->js->flash('info', t8('The PDF has been printed'));

}

$self->js->flash('warning', $_) for @warnings;

$self->save_history('PRINTED');

->run('kivi.ActionBar.setEnabled', '#save_and_email_action')

->render;

if (scalar @{ $errors }) {

$self->js->flash('error', $_) foreach @{ $errors };

return $self->js->render();

}

if (!$self->order->$cv_method) {

return $self->js->flash('error', $self->cv eq 'customer' ? t8('Cannot send E-mail without customer given') : t8('Cannot send E-mail without vendor given'))

->render($self);

}

$email_form->{to} = $self->order->contact->cp_email if $self->order->contact;

$email_form->{to} ||= $self->order->$cv_method->email;

$email_form->{cc} = $self->order->$cv_method->cc;

$email_form->{bcc} = join ', ', grep $_, $self->order->$cv_method->bcc, SL::DB::Default->get->global_bcc;

my $form = Form->new;

$form->{type} = $self->type;

$form->{language_id} = $self->order->language->id if $self->order->language;

$email_form->{attachment_filename} = $form->generate_attachment_filename();

$email_form->{message} = $form->generate_email_body();

$email_form->{js_send_function} = 'kivi.Order.send_email()';

email_form => $email_form,

show_bcc => $::auth->assert('email_bcc', 'may fail'),

FILES => \%files,

is_customer => $self->cv eq 'customer',

);

$self->js

->render($self);

}

#

sub action_send_email {

my ($self) = @_;

if (scalar @{ $errors }) {

$self->js->run('kivi.Order.close_email_dialog');

$self->js->flash('error', $_) foreach @{ $errors };

return $self->js->render();

}

my %field_names = (to => 'email');

$::form->{cwd} = getcwd();

$::form->{tmpdir} = $::lx_office_conf{paths}->{userspath};

formname => $::form->{print_options}->{formname},

return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self);

}

flash_later('warning', $_) for @warnings;

}

$sfile->fh->print($pdf);

$sfile->fh->close;

$::form->{tmpfile} = $sfile->file_name;

$::form->{tmpdir} = $sfile->get_path; # for Form::cleanup which may be called in Form::send_email

my $intnotes = $self->order->intnotes;

$intnotes .= "\n\n" if $self->order->intnotes;

$intnotes .= t8('[email]') . "\n";

$intnotes .= t8('Date') . ": " . $::locale->format_date_object(DateTime->now_local, precision => 'seconds') . "\n";

$intnotes .= t8('Cc') . ": " . $::form->{cc} . "\n" if $::form->{cc};

$intnotes .= t8('Bcc') . ": " . $::form->{bcc} . "\n" if $::form->{bcc};

$intnotes .= t8('Subject') . ": " . $::form->{subject} . "\n\n";

$intnotes .= t8('Message') . ": " . $::form->{message};

my @redirect_params = (

action => 'edit',

type => $self->type,

id => $self->order->id,

);

$self->redirect_to(@redirect_params);

#

# If there are values in the form (i.e. dialog was opened before),

# then use this values. Create new ones, else.

sub action_show_periodic_invoices_config_dialog {

my ($self) = @_;

$config ||= SL::DB::PeriodicInvoicesConfig->new(periodicity => 'm',

order_value_periodicity => 'p', # = same as periodicity

active => 1,

email_subject => GenericTranslations->get(

language_id => $::form->{language_id},

translation_type =>"preset_text_periodic_invoices_email_subject"),

email_body => GenericTranslations->get(

language_id => $::form->{language_id},

translation_type =>"preset_text_periodic_invoices_email_body"),

);

$config->periodicity('m') if none { $_ eq $config->periodicity } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES;

$config->order_value_periodicity('p') if none { $_ eq $config->order_value_periodicity } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES);

$::form->get_lists(printers => "ALL_PRINTERS",

charts => { key => 'ALL_CHARTS',

transdate => 'current_date' });