projekt kivitendo

package SL::Controller::Order;

use strict;

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

use SL::DB::Order;

use SL::DB::Default;

use SL::DB::Unit;

use SL::DB::Language;

use File::Spec;

use Rose::Object::MakeMethods::Generic

(

# safety

__PACKAGE__->run_before('_check_auth');

__PACKAGE__->run_before('_recalc',

__PACKAGE__->run_before('_get_unalterable_data',

#

# actions

#

my ($self) = @_;

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

$self->_pre_render();

$self->render(

'order/form',

title => $self->type eq _sales_order_type() ? $::locale->text('Add Sales Order')

: $self->type eq _purchase_order_type() ? $::locale->text('Add Purchase Order')

: '',

%{$self->{template_args}}

);

}

my ($self) = @_;

$self->_recalc();

$self->render(

'order/form',

title => $self->type eq _sales_order_type() ? $::locale->text('Edit Sales Order')

: $self->type eq _purchase_order_type() ? $::locale->text('Edit Purchase Order')

: '',

%{$self->{template_args}}

);

}

my ($self) = @_;

my $errors = $self->_delete();

if (scalar @{ $errors }) {

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

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

}

flash_later('info', $::locale->text('The order has been deleted'));

my @redirect_params = (

);

$self->redirect_to(@redirect_params);

}

my ($self) = @_;

my $errors = $self->_save();

if (scalar @{ $errors }) {

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

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

}

flash_later('info', $::locale->text('The order has been saved'));

my @redirect_params = (

action => 'edit',

type => $self->type,

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

);

$self->redirect_to(@redirect_params);

}

#

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

# only pdf by now

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

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

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->{ordnumber} = $self->order->ordnumber;

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

$form->{formname} = $formname;

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

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

my $pdf;

my @errors = _create_pdf($self->order, \$pdf, { format => $format,

formname => $formname,

language => $language,

groupitems => $groupitems });

if (scalar @errors) {

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

$::auth->set_session_value("Order::create_pdf-${key}" => $sfile->file_name);

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

}

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

}

}

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

my $tmp_filename = $::auth->get_session_value("Order::create_pdf-${key}");

return $self->send_file(

$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->{ordnumber} = $self->order->ordnumber;

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

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

my %files = $self->_get_files_for_email_dialog();

my $dialog_html = $self->render('common/_send_email_dialog', { output => 0 },

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

if (($::form->{attachment_policy} // '') eq 'normal') {

my $language;

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

my $pdf;

my @errors = _create_pdf($self->order, \$pdf, {media => $::form->{media},

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

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

language => $language,

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

if (scalar @errors) {

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)

}

# delivery order

my ($self) = @_;

my $errors = $self->_save();

if (scalar @{ $errors }) {

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

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

}

flash_later('info', $::locale->text('The order has been saved'));

my @redirect_params = (

controller => 'oe.pl',

action => 'oe_delivery_order_from_order',

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

);

$self->redirect_to(@redirect_params);

}

# invoice

sub action_save_and_invoice {

my ($self) = @_;

my $errors = $self->_save();

if (scalar @{ $errors }) {

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

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

}

flash_later('info', $::locale->text('The order has been saved'));

my @redirect_params = (

controller => 'oe.pl',

action => 'oe_invoice_from_order',

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

);

$self->redirect_to(@redirect_params);

}

# This action is called on an change of the customer/vendor picker.

my ($self) = @_;

my $cv_method = $self->cv;

if ($self->order->$cv_method->contacts && scalar @{ $self->order->$cv_method->contacts } > 0) {

$self->js->show('#cp_row');

} else {

$self->js->hide('#cp_row');

}

if ($self->order->$cv_method->shipto && scalar @{ $self->order->$cv_method->shipto } > 0) {

$self->js->show('#shipto_row');

} else {

$self->js->hide('#shipto_row');

}

if ($self->order->is_sales) {

$self->order->taxincluded(defined($self->order->$cv_method->taxincluded_checked)

? $self->order->$cv_method->taxincluded_checked

: $::myconfig{taxincluded_checked});

$self->order->delivery_term_id($self->order->$cv_method->delivery_term_id);

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

->val( '#order_intnotes', $self->order->$cv_method->notes)

->focus( '#order_' . $self->cv . '_id');

$self->_js_redisplay_amounts_and_taxes;

$self->js->render();

my ($self) = @_;

my $idx = first_index { $_ eq $::form->{item_id} } @{ $::form->{orderitem_ids} };

my $old_unit_obj = SL::DB::Unit->new(name => $::form->{old_unit})->load;

$item->sellprice($item->unit_obj->convert_to($item->sellprice, $old_unit_obj));

$self->_recalc();

$self->js

$self->js->render();

}

my ($self) = @_;

my $form_attr = $::form->{add_item};

return unless $form_attr->{parts_id};

ITEM => $item,

ID => $item_id,

);

if ( $item->part->is_assortment ) {

$form_attr->{qty_as_number} = 1 unless $form_attr->{qty_as_number};

foreach my $assortment_item ( @{$item->part->assortment_items} ) {

my $attr = { parts_id => $assortment_item->parts_id,

qty => $assortment_item->qty * $::form->parse_amount(\%::myconfig, $form_attr->{qty_as_number}), # TODO $form_attr->{unit}

unit => $assortment_item->unit,

description => $assortment_item->part->description,

};

my $item = _new_item($self->order, $attr);

# set discount to 100% if item isn't supposed to be charged, overwriting any customer discount

$item->discount(1) unless $assortment_item->charge;

$self->_recalc();

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

my $row_as_html = $self->p->render('order/tabs/_row',

ITEM => $item,

ID => $item_id,

);

$self->js

->append('#row_table_id', $row_as_html);

};

};

$self->js

->run('kivi.Order.row_table_scroll_down')

->run('kivi.Order.renumber_positions')

$self->js->render();

}