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

#

# actions

#

my ($self) = @_;

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

'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);

}

# trigger rendering values for second row/longdescription as hidden,

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

# from the source.

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

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

}

$self->pre_render();

'order/form',

);

}

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;

# Set new reqdate unless changed

if ($order->reqdate == $saved_order->reqdate) {

} else {

$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.

# If PDF creation was requested and succeeded, the pdf is stored in a session

# file and the filename is stored as session value with an unique key. A

# javascript function with this key is then called. This function calls the

# download action below (action_download_pdf), which offers the file for

# download.

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;

}

$language = SL::DB::Language->new(id => $::form->{print_options}->{language_id})->load if $::form->{print_options}->{language_id};

$form->{format} = $format;

$form->{formname} = $formname;

$form->{language} = '_' . $language->template_code if $language;

my $pdf_filename = $form->generate_attachment_filename();

my $pdf;

formname => $formname,

language => $language,

groupitems => $groupitems });

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

}

if ($media eq 'screen') {

# screen/download

my $sfile = SL::SessionFile::Random->new(mode => "w");

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

$sfile->fh->close;

my $key = join('_', Time::HiRes::gettimeofday(), int rand 1000000000000);

$self->js

} 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'));

}

type => $self->type,

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', $@));

}

}

SL::File->save(object_id => $self->order->id,

mime_type => 'application/pdf',

source => 'created',

file_type => 'document',

file_name => $pdf_filename,

file_contents => $pdf);

} or do {

$self->js->flash('error', t8('Storing PDF in storage backend failed: #1', $@));

}

#

# It needs to get the key for the session value to get the pdf file.

my ($self) = @_;

my $key = $::form->{key};

$tmp_filename,

type => 'application/pdf',

name => $::form->{pdf_filename},

);

}

my ($self) = @_;

my $cv_method = $self->cv;

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} = 'de';

$form->{format} = 'pdf';

$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) = @_;

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

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

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

$language = SL::DB::Language->new(id => $::form->{print_options}->{language_id})->load if $::form->{print_options}->{language_id};

my $pdf;

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

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

language => $language,

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

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

}

my $sfile = SL::SessionFile::Random->new(mode => "w");

$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};

$self->js

->val('#order_intnotes', $intnotes)

}

#

# 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

start_date_as_date => $::form->{transdate} || $::form->current_date,

extend_automatically_by => 12,

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' });

$::form->{AR} = [ grep { $_->{link} =~ m/(?:^|:)AR(?::|$)/ } @{ $::form->{ALL_CHARTS} } ];

if ($::form->{customer_id}) {

$::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(where => [ cp_cv_id => $::form->{customer_id} ]);

}

$self->render('oe/edit_periodic_invoices_config', { layout => 0 },

popup_dialog => 1,

popup_js_close_function => 'kivi.Order.close_periodic_invoices_config_dialog()',

popup_js_assign_function => 'kivi.Order.assign_periodic_invoices_config()',

config => $config,

%$::form);

}

# assign the values of the periodic invoices config dialog

# as yaml in the hidden tag and set the status.

sub action_assign_periodic_invoices_config {

my ($self) = @_;

$::form->isblank('start_date_as_date', $::locale->text('The start date is missing.'));

terminated => $::form->{terminated} ? 1 : 0,

direct_debit => $::form->{direct_debit} ? 1 : 0,

periodicity => (any { $_ eq $::form->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES) ? $::form->{periodicity} : 'm',

order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',

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

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

printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,

copies => $::form->{copies} * 1 ? $::form->{copies} : 1,

extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,

ar_chart_id => $::form->{ar_chart_id} * 1,

email_recipient_contact_id => $::form->{email_recipient_contact_id} * 1 || undef,

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

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

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

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

};

my $periodic_invoices_config = YAML::Dump($config);