X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FOrder.pm;h=bd20669ac509beab42516ef9a35861b33a735c89;hb=55a7b3ba511071b369e6fd4f86bfe769cac8fbca;hp=9aaa1f15f2842d0a91da52bbea40743a3e4151d0;hpb=763d39921a6e901b2322525404c358907036ec36;p=kivitendo-erp.git diff --git a/SL/Controller/Order.pm b/SL/Controller/Order.pm index 9aaa1f15f..bd20669ac 100644 --- a/SL/Controller/Order.pm +++ b/SL/Controller/Order.pm @@ -4,8 +4,11 @@ use strict; use parent qw(SL::Controller::Base); use SL::Helper::Flash; -use SL::ClientJS; use SL::Presenter; +use SL::Locale::String; +use SL::SessionFile::Random; +use SL::PriceSource; +use SL::Form; use SL::DB::Order; use SL::DB::Customer; @@ -17,26 +20,26 @@ use SL::DB::Default; use SL::DB::Unit; use SL::Helper::DateTime; +use SL::Helper::CreatePDF qw(:all); -use List::Util qw(max); -use List::MoreUtils qw(none); +use List::Util qw(max first); +use List::MoreUtils qw(none pairwise); +use English qw(-no_match_vars); use Rose::Object::MakeMethods::Generic ( - 'scalar' => [ qw(order) ], - 'scalar --get_set_init' => [ qw(valid_types type cv js p) ], + 'scalar --get_set_init' => [ qw(order valid_types type cv p) ], ); # safety __PACKAGE__->run_before('_check_auth'); -__PACKAGE__->run_before('_load_or_new_order', - only => [ qw(add edit update save customer_vendor_changed set_item_values) ]); - -__PACKAGE__->run_before('_setup', - only => [ qw(edit update save) ]); +__PACKAGE__->run_before('_recalc', + only => [ qw(edit update save save_and_delivery_order create_pdf send_email) ]); +__PACKAGE__->run_before('_get_unalterable_data', + only => [ qw(save save_and_delivery_order create_pdf send_email) ]); # # actions @@ -86,8 +89,14 @@ sub action_update { sub action_save { my ($self) = @_; - $self->_save(); + 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, @@ -97,13 +106,141 @@ sub action_save { $self->redirect_to(@redirect_params); } +sub action_create_pdf { + my ($self) = @_; + + my $pdf; + my @errors = _create_pdf($self->order, \$pdf); + 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; + + my $tmp_filename = $sfile->file_name; + my $pdf_filename = t8('Sales Order') . '_' . $self->order->ordnumber . '.pdf'; + + $self->js + ->run('download_pdf', $tmp_filename, $pdf_filename) + ->flash('info', t8('The PDF has been created'))->render($self); +} + +sub action_download_pdf { + my ($self) = @_; + + return $self->send_file( + $::form->{tmp_filename}, + type => 'application/pdf', + name => $::form->{pdf_filename}, + ); +} + +sub action_show_email_dialog { + my ($self) = @_; + + my $cv_method = $self->cv; + + if (!$self->order->$cv_method) { + return $self->js->flash('error', t8('Cannot send E-mail without ' . $self->cv)) + ->render($self); + } + + $self->{email}->{to} = $self->order->contact->cp_email if $self->order->contact; + $self->{email}->{to} ||= $self->order->$cv_method->email; + $self->{email}->{cc} = $self->order->$cv_method->cc; + $self->{email}->{bcc} = join ', ', grep $_, $self->order->$cv_method->bcc, SL::DB::Default->get->global_bcc; + # Todo: get addresses from shipto, if any + + my $form = Form->new; + $form->{ordnumber} = $self->order->ordnumber; + $form->{formname} = $self->type; + $form->{type} = $self->type; + $form->{language} = 'de'; + $form->{format} = 'pdf'; + + $self->{email}->{subject} = $form->generate_email_subject(); + $self->{email}->{attachment_filename} = $form->generate_attachment_filename(); + $self->{email}->{message} = $form->create_email_signature(); + + my $dialog_html = $self->render('order/tabs/_email_dialog', { output => 0 }); + $self->js + ->run('show_email_dialog', $dialog_html) + ->reinit_widgets + ->render($self); +} + +# Todo: handling error messages: flash is not displayed in dialog, but in the main form +sub action_send_email { + my ($self) = @_; + + my $mail = Mailer->new; + $mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|; + $mail->{$_} = $::form->{email}->{$_} for qw(to cc bcc subject message); + + my $pdf; + my @errors = _create_pdf($self->order, \$pdf, {media => 'email'}); + if (scalar @errors) { + return $self->js->flash('error', t8('Conversion to PDF failed: #1', $errors[0]))->render($self); + } + + $mail->{attachments} = [{ "content" => $pdf, + "name" => $::form->{email}->{attachment_filename} }]; + + if (my $err = $mail->send) { + return $self->js->flash('error', t8('Sending E-mail: ') . $err) + ->render($self); + } + + # internal notes + 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('To (email)') . ": " . $mail->{to} . "\n"; + $intnotes .= t8('Cc') . ": " . $mail->{cc} . "\n" if $mail->{cc}; + $intnotes .= t8('Bcc') . ": " . $mail->{bcc} . "\n" if $mail->{bcc}; + $intnotes .= t8('Subject') . ": " . $mail->{subject} . "\n\n"; + $intnotes .= t8('Message') . ": " . $mail->{message}; + + $self->js + ->val('#order_intnotes', $intnotes) + ->run('close_email_dialog') + ->render($self); +} + +sub action_save_and_delivery_order { + my ($self) = @_; + + my $errors = $self->_save(); + + if (scalar @{ $errors }) { + $self->js->flash('error', $_) foreach @{ $errors }; + return $self->js->render(); + } + + my $delivery_order = $self->order->convert_to_delivery_order($self->order); + + flash_later('info', $::locale->text('The order has been saved')); + my @redirect_params = ( + controller => 'do.pl', + action => 'edit', + type => $delivery_order->type, + id => $delivery_order->id, + vc => $delivery_order->is_sales ? 'customer' : 'vendor', + ); + + $self->redirect_to(@redirect_params); +} + sub action_customer_vendor_changed { my ($self) = @_; - if ($self->type eq _sales_order_type()) { + if ($self->cv eq 'customer') { $self->order->customer(SL::DB::Manager::Customer->find_by_or_create(id => $::form->{cv_id})); - } elsif ($self->type eq _purchase_order_type()) { + } elsif ($self->cv eq 'vendor') { $self->order->vendor(SL::DB::Manager::Vendor->find_by_or_create(id => $::form->{cv_id})); } @@ -123,58 +260,103 @@ sub action_customer_vendor_changed { ->replaceWith('#order_cp_id', $self->build_contact_select) ->replaceWith('#order_shipto_id', $self->build_shipto_select) ->val('#order_taxzone_id', $self->order->{$self->cv}->taxzone_id) - ->focus('#order_' . $self->cv . ' _id') + ->focus('#order_' . $self->cv . '_id') ->render($self); } -sub action_add_item_row { +sub action_add_item { my ($self) = @_; - my $random_id = join('_', 'new', Time::HiRes::gettimeofday(), int rand 1000000000000); - my $row_as_html = $self->p->render('order/tabs/_row', ITEM => {id => $random_id}); + my $form_attr = $::form->{add_item}; + + return unless $form_attr->{parts_id}; + + my $item = SL::DB::OrderItem->new; + $item->assign_attributes(%$form_attr); + + my $part = SL::DB::Part->new(id => $form_attr->{parts_id})->load; + my $cv_method = $self->cv; + my $cv_discount = $self->order->$cv_method? $self->order->$cv_method->discount : 0.0; + + my %new_attr; + $new_attr{part} = $part; + $new_attr{description} = $part->description if ! $item->description; + $new_attr{qty} = 1.0 if ! $item->qty; + $new_attr{unit} = $part->unit; + $new_attr{sellprice} = $part->sellprice if ! $item->sellprice; + $new_attr{discount} = $cv_discount if ! $item->discount; + + # add_custom_variables adds cvars to an orderitem with no cvars for saving, but + # they cannot be retrieved via custom_variables until the order/orderitem is + # saved. Adding empty custom_variables to new orderitem here solves this problem. + $new_attr{custom_variables} = []; + + $item->assign_attributes(%new_attr); + + $self->order->add_items($item); + + $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 tbody', $row_as_html) - ->focus('#row_table_id tr:last [id$="parts_id_name"]') - ->off('[id^="order_orderitems"][id$="parts_id"]', 'change', 'set_item_values') - ->on('[id^="order_orderitems"][id$="parts_id"]', 'change', 'set_item_values') - ->render($self); + ->append('#row_table_id', $row_as_html) + ->val('#add_item_parts_id', '') + ->val('#add_item_parts_id_name', '') + ->val('#add_item_description', '') + ->val('#add_item_qty_as_number', '') + ->val('#add_item_sellprice_as_number', '') + ->val('#add_item_discount_as_percent', '') + ->run('row_table_scroll_down') + ->run('row_set_keyboard_events_by_id', $item_id) + ->on('.recalc', 'change', 'recalc_amounts_and_taxes') + ->focus('#add_item_parts_id_name'); + + $self->_js_redisplay_amounts_and_taxes; + $self->js->render(); } -sub action_set_item_values { +sub action_recalc_amounts_and_taxes { my ($self) = @_; - my $part = SL::DB::Part->new(id => $::form->{parts_id})->load; + $self->_recalc(); - my $is_new = $::form->{item_id} =~ m{^new_}; - my $item_id = $is_new ? undef : $::form->{item_id}; - my $item = SL::DB::Manager::OrderItem->find_by_or_create(id => $item_id); + $self->_js_redisplay_linetotals; + $self->_js_redisplay_amounts_and_taxes; + $self->js->render(); +} - my $cv_class = "SL::DB::" . ucfirst($self->cv); - my $cv_discount = $::form->{cv_id}? $cv_class->new(id => $::form->{$self->cv . '_id'})->load->discount :0.0; +sub _js_redisplay_linetotals { + my ($self) = @_; - $item->assign_attributes( - parts_id => $part->id, - qty => $::form->{qty} ? $::form->parse_amount(\%::myconfig, $::form->{qty}) : 1.0, - unit => $part->unit, - discount => $::form->{discount} ? $::form->parse_amount(\%::myconfig, $::form->{discount}) : $cv_discount, - sellprice => $::form->{sellprice} ? $::form->parse_amount(\%::myconfig, $::form->{sellprice}) : $part->sellprice, - ); + my @data = map {$::form->format_amount(\%::myconfig, $_->{linetotal}, 2, 0)} @{ $self->order->items }; + $self->js + ->run('redisplay_linetotals', \@data); +} - $self->order->add_items([$item]); - $self->_setup(); - my $linetotal = _linetotal($self->order, $item); +sub _js_redisplay_amounts_and_taxes { + my ($self) = @_; + + if (scalar @{ $self->{taxes} }) { + $self->js->show('#taxincluded_row_id'); + } else { + $self->js->hide('#taxincluded_row_id'); + } + + if ($self->order->taxincluded) { + $self->js->hide('#subtotal_row_id'); + } else { + $self->js->show('#subtotal_row_id'); + } $self->js - ->val( '#' . $::form->{qty_dom_id}, $item->qty_as_number) - ->val( '#' . $::form->{unit_dom_id}, $item->unit) - ->val( '#' . $::form->{sellprice_dom_id}, $item->sellprice_as_number) - ->val( '#' . $::form->{discount_dom_id}, $item->discount_as_number) - ->run('recalc_linetotal', $::form->{item_id}, $::form->format_amount(\%::myconfig, $linetotal, -2)) - ->render($self); + ->html('#netamount_id', $::form->format_amount(\%::myconfig, $self->order->netamount, -2)) + ->html('#amount_id', $::form->format_amount(\%::myconfig, $self->order->amount, -2)) + ->remove('.tax_row') + ->insertBefore($self->build_tax_rows, '#amount_row_id'); } - # # helpers # @@ -203,14 +385,14 @@ sub init_cv { return $cv; } -sub init_js { - SL::ClientJS->new; -} - sub init_p { SL::Presenter->get; } +sub init_order { + _make_order(); +} + sub _check_auth { my ($self) = @_; @@ -246,94 +428,145 @@ sub build_shipto_select { ); } -sub _load_or_new_order { +sub build_tax_rows { my ($self) = @_; - return $self->order(SL::DB::Manager::Order->find_by_or_create(id => $::form->{id})); + my $rows_as_html; + foreach my $tax (@{ $self->{taxes} }) { + $rows_as_html .= $self->p->render('order/tabs/_tax_row', TAX => $tax, TAXINCLUDED => $self->order->taxincluded); + } + return $rows_as_html; } -sub _setup { + +sub _make_order { my ($self) = @_; - $self->order->assign_attributes(%{$::form->{order}}); + # add_items adds items to an order with no items for saving, but they cannot + # be retrieved via items until the order is saved. Adding empty items to new + # order here solves this problem. + my $order; + $order = SL::DB::Manager::Order->find_by(id => $::form->{id}) if $::form->{id}; + $order ||= SL::DB::Order->new(orderitems => []); + + $order->assign_attributes(%{$::form->{order}}); + + return $order; +} + + +sub _recalc { + my ($self) = @_; # bb: todo: currency later $self->order->currency_id($::instance_conf->get_currency_id()); my %pat = $self->order->calculate_prices_and_taxes(); - + $self->{taxes} = []; foreach my $tax_chart_id (keys %{ $pat{taxes} }) { my $tax = SL::DB::Manager::Tax->find_by(chart_id => $tax_chart_id); - push(@{ $self->{taxes} }, { amount => $pat{taxes}->{$tax_chart_id}, - tax => $tax }); + + my @amount_keys = grep { $pat{amounts}->{$_}->{tax_id} == $tax->id } keys %{ $pat{amounts} }; + push(@{ $self->{taxes} }, { amount => $pat{taxes}->{$tax_chart_id}, + netamount => $pat{amounts}->{$amount_keys[0]}->{amount}, + tax => $tax }); } - foreach my $item ($self->order->items) { - $item->{linetotal} = _linetotal($self->order, $item); + pairwise { $a->{linetotal} = $b->{linetotal} } @{$self->order->items}, @{$pat{items}}; +} + + +sub _get_unalterable_data { + my ($self) = @_; + + foreach my $item (@{ $self->order->items }) { + if ($item->id) { + # load data from orderitems (db) + my $db_item = SL::DB::OrderItem->new(id => $item->id)->load; + $item->$_($db_item->$_) for qw(active_discount_source active_price_source longdescription); + } else { + # set data from part (or other sources) + $item->longdescription($item->part->notes); + #$item->active_price_source(''); + #$item->active_discount_source(''); + } } } + sub _save { my ($self) = @_; + # autovivify all cvars that are not in the form (cvars_by_config can do it) + foreach my $item (@{ $self->order->items }) { + $item->cvars_by_config; + } + + my $errors = []; my $db = $self->order->db; $db->do_transaction( sub { $self->order->save(); - }) || die($db->error); + }) || push(@{$errors}, $db->error); + + return $errors; } sub _pre_render { my ($self) = @_; - $self->{all_taxzones} = SL::DB::Manager::TaxZone->get_all_sorted(); - $self->{all_employees} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->employee_id, - deleted => 0 ] ], - sort_by => 'name'); - $self->{all_projects} = SL::DB::Manager::Project->get_all(where => [ or => [ id => $self->order->globalproject_id, - active => 1 ] ], - sort_by => 'projectnumber'); + $self->{all_taxzones} = SL::DB::Manager::TaxZone->get_all_sorted(); + $self->{all_employees} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->employee_id, + deleted => 0 ] ], + sort_by => 'name'); + $self->{all_salesmen} = SL::DB::Manager::Employee->get_all(where => [ or => [ id => $self->order->salesman_id, + deleted => 0 ] ], + sort_by => 'name'); + $self->{all_projects} = SL::DB::Manager::Project->get_all(where => [ or => [ id => $self->order->globalproject_id, + active => 1 ] ], + sort_by => 'projectnumber'); + $self->{all_payment_terms} = SL::DB::Manager::PaymentTerm->get_all_sorted(); + $self->{all_delivery_terms} = SL::DB::Manager::DeliveryTerm->get_all_sorted(); $self->{current_employee_id} = SL::DB::Manager::Employee->current->id; -} - -# The following subs are more or less copied/pasted from SL::DB::Helper::PriceTaxCalculator. -sub _linetotal { - my ($order, $item) = @_; - - # bb: todo: currencies are not handled by now - my $exchangerate = _get_exchangerate($order); - - my $num_dec = max 2, _num_decimal_places($item->sellprice); - my $discount = _round($item->sellprice * ($item->discount || 0), $num_dec); - my $sellprice = _round($item->sellprice - $discount, $num_dec); - my $linetotal = _round($sellprice * $item->qty / $item->price_factor, 2 ) * $exchangerate; - $linetotal = _round($linetotal, 2 ); - - return $linetotal; -} -sub _get_exchangerate { - my ($order) = @_; - require SL::DB::Default; - - my $exchangerate = 1; - my $currency = $order->currency_id ? $order->currency->name || '' : ''; - if ($currency ne SL::DB::Default->get_default_currency) { - $exchangerate = $::form->check_exchangerate(\%::myconfig, $currency, $order->transdate, $order->is_sales ? 'buy' : 'sell'); - } - - return $exchangerate; -} - -sub _num_decimal_places { - return length( (split(/\./, '' . ($_[0] * 1), 2))[1] || '' ); + $::request->{layout}->use_javascript("${_}.js") for qw(ckeditor/ckeditor ckeditor/adapters/jquery); } -sub _round { - return $::form->round_amount(@_); +sub _create_pdf { + my ($order, $pdf_ref, $params) = @_; + + my $print_form = Form->new(''); + $print_form->{type} = 'sales_order'; + $print_form->{formname} = 'sales_order', + $print_form->{format} = $params->{format} || 'pdf', + $print_form->{media} = $params->{media} || 'file'; + + $order->flatten_to_form($print_form, format_amounts => 1); + # flatten_to_form sets payment_terms from customer/vendor - we do not want that here + delete $print_form->{payment_terms} if !$print_form->{payment_id}; + + my @errors = (); + $print_form->throw_on_error(sub { + eval { + $print_form->prepare_for_printing; + + $$pdf_ref = SL::Helper::CreatePDF->create_pdf( + template => SL::Helper::CreatePDF->find_template(name => $print_form->{formname}), + variables => $print_form, + variable_content_types => { + longdescription => 'html', + partnotes => 'html', + notes => 'html', + }, + ); + 1; + } || push @errors, ref($EVAL_ERROR) eq 'SL::X::FormError' ? $EVAL_ERROR->getMessage : $EVAL_ERROR; + }); + + return @errors; } sub _sales_order_type { @@ -345,3 +578,22 @@ sub _purchase_order_type { } 1; + +__END__ + +=encoding utf-8 + +=head1 NAME + +SL::Controller::Order - controller for orders + +=head1 TODO + +Testing, PriceSources, pricefactor, units, currency, delivered, delivery order created, ... + +=head1 AUTHOR + +Bernd Bleßmann Ebernd@kivitendo-premium.deE + +=cut +