1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger, Accounting
9 # Copyright (c) 1998-2003
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
29 #======================================================================
32 #======================================================================
35 use List::MoreUtils qw(uniq);
36 use List::Util qw(max sum);
37 use POSIX qw(strftime);
40 use SL::DB::DeliveryOrder;
44 use SL::MoreCommon qw(ary_diff restore_form save_form);
45 use SL::ReportGenerator;
47 use Sort::Naturally ();
48 require "bin/mozilla/common.pl";
49 require "bin/mozilla/io.pl";
50 require "bin/mozilla/reportgenerator.pl";
59 $main::auth->assert($main::form->{type} . '_edit');
63 $main::lxdebug->enter_sub();
69 my $form = $main::form;
70 my $locale = $main::locale;
72 if ($form->{type} eq 'purchase_delivery_order') {
73 $form->{vc} = 'vendor';
74 $form->{title} = $action eq "edit" ? $locale->text('Edit Purchase Delivery Order') : $locale->text('Add Purchase Delivery Order');
76 $form->{vc} = 'customer';
77 $form->{title} = $action eq "edit" ? $locale->text('Edit Sales Delivery Order') : $locale->text('Add Sales Delivery Order');
80 $form->{heading} = $locale->text('Delivery Order');
82 $main::lxdebug->leave_sub();
86 $main::lxdebug->enter_sub();
90 if (($::form->{type} =~ /purchase/) && !$::instance_conf->get_allow_new_purchase_invoice) {
91 $::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));
94 my $form = $main::form;
98 $form->{show_details} = $::myconfig{show_form_details};
99 $form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});
105 $main::lxdebug->leave_sub();
109 $main::lxdebug->enter_sub();
113 my $form = $main::form;
115 $form->{show_details} = $::myconfig{show_form_details};
117 # show history button
118 $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
119 #/show hhistory button
121 $form->{simple_save} = 0;
123 set_headings("edit");
125 # editing without stuff to edit? try adding it first
126 if ($form->{rowcount} && !$form->{print_and_save}) {
127 # map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});
131 undef $form->{rowcount};
133 $main::lxdebug->leave_sub();
136 } elsif (!$form->{id}) {
138 $main::lxdebug->leave_sub();
142 my ($language_id, $printer_id);
143 if ($form->{print_and_save}) {
144 $form->{action} = "dispatcher";
145 $form->{action_print} = "1";
146 $form->{resubmit} = 1;
147 $language_id = $form->{language_id};
148 $printer_id = $form->{printer_id};
151 set_headings("edit");
156 if ($form->{print_and_save}) {
157 $form->{language_id} = $language_id;
158 $form->{printer_id} = $printer_id;
163 $main::lxdebug->leave_sub();
167 $main::lxdebug->enter_sub();
171 my $form = $main::form;
172 my %myconfig = %main::myconfig;
174 # retrieve order/quotation
175 my $editing = $form->{id};
177 DO->retrieve('vc' => $form->{vc},
178 'ids' => $form->{id});
180 $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes delivery_term_id currency));
182 # get customer / vendor
183 if ($form->{vc} eq 'vendor') {
184 IR->get_vendor(\%myconfig, \%$form);
185 $form->{discount} = $form->{vendor_discount};
187 IS->get_customer(\%myconfig, \%$form);
188 $form->{discount} = $form->{customer_discount};
191 $form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id delivery_term_id));
192 $form->restore_vars(qw(currency)) if ($form->{id} || $form->{convert_from_oe_ids});
193 $form->restore_vars(qw(taxincluded)) if $form->{id};
194 $form->restore_vars(qw(salesman_id)) if $editing;
196 $main::lxdebug->leave_sub();
200 $main::lxdebug->enter_sub();
204 my $form = $main::form;
205 my %myconfig = %main::myconfig;
207 $form->{formname} = $form->{type} unless $form->{formname};
210 foreach my $ref (@{ $form->{form_details} }) {
211 $form->{rowcount} = ++$i;
213 map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
215 for my $i (1 .. $form->{rowcount}) {
217 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
219 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
221 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
223 my $decimalplaces = ($dec > 2) ? $dec : 2;
225 # copy reqdate from deliverydate for invoice -> order conversion
226 $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};
228 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
229 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
231 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
232 $dec_qty = length $dec_qty;
233 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
236 $main::lxdebug->leave_sub();
239 sub setup_do_action_bar {
240 my @transfer_qty = qw(kivi.SalesPurchase.delivery_order_check_transfer_qty);
241 my @req_trans_desc = qw(kivi.SalesPurchase.check_transaction_description) x!!$::instance_conf->get_require_transaction_description_ps;
242 my $is_customer = $::form->{vc} eq 'customer';
244 for my $bar ($::request->layout->get('actionbar')) {
248 submit => [ '#form', { action => "update" } ],
249 id => 'update_button',
250 checks => [ 'kivi.validate_form' ],
251 accesskey => 'enter',
257 submit => [ '#form', { action => "save" } ],
258 checks => [ 'kivi.validate_form' ],
259 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
263 submit => [ '#form', { action => "save_as_new" } ],
264 checks => [ 'kivi.validate_form' ],
265 disabled => !$::form->{id},
268 t8('Mark as closed'),
269 submit => [ '#form', { action => "mark_closed" } ],
270 checks => [ 'kivi.validate_form' ],
271 confirm => t8('This will remove the delivery order from showing as open even if contents are not delivered. Proceed?'),
272 disabled => !$::form->{id} ? t8('This record has not been saved yet.')
273 : $::form->{closed} ? t8('This record has already been closed.')
276 ], # end of combobox "Save"
280 submit => [ '#form', { action => "delete" } ],
281 confirm => t8('Do you really want to delete this object?'),
282 disabled => !$::form->{id} ? t8('This record has not been saved yet.')
283 : $::form->{delivered} ? t8('This record has already been delivered.')
284 : ($::form->{vc} eq 'customer' && !$::instance_conf->get_sales_delivery_order_show_delete) ? t8('Deleting this type of record has been disabled in the configuration.')
285 : ($::form->{vc} eq 'vendor' && !$::instance_conf->get_purchase_delivery_order_show_delete) ? t8('Deleting this type of record has been disabled in the configuration.')
292 submit => [ '#form', { action => "transfer_out" } ],
293 checks => [ 'kivi.validate_form', @transfer_qty ],
294 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
295 only_if => $is_customer,
298 t8('Transfer out via default'),
299 submit => [ '#form', { action => "transfer_out_default" } ],
300 checks => [ 'kivi.validate_form' ],
301 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
302 only_if => $is_customer && $::instance_conf->get_transfer_default,
306 submit => [ '#form', { action => "transfer_in" } ],
307 checks => [ 'kivi.validate_form', @transfer_qty ],
308 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
309 only_if => !$is_customer,
312 t8('Transfer in via default'),
313 submit => [ '#form', { action => "transfer_in_default" } ],
314 checks => [ 'kivi.validate_form' ],
315 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
316 only_if => !$is_customer && $::instance_conf->get_transfer_default,
318 ], # end of combobox "Transfer out"
325 submit => [ '#form', { action => "invoice" } ],
326 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
330 action => [ t8('Export') ],
333 call => [ 'kivi.SalesPurchase.show_print_dialog' ],
334 checks => [ 'kivi.validate_form' ],
338 call => [ 'kivi.SalesPurchase.show_email_dialog' ],
339 checks => [ 'kivi.validate_form' ],
341 ], # end of combobox "Export"
344 action => [ t8('more') ],
347 call => [ 'set_history_window', $::form->{id} * 1, 'id' ],
348 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
352 call => [ 'follow_up_window' ],
353 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
355 ], # end if combobox "more"
358 $::request->layout->add_javascripts('kivi.Validator.js');
361 sub setup_do_search_action_bar {
364 for my $bar ($::request->layout->get('actionbar')) {
368 submit => [ '#form' ],
369 accesskey => 'enter',
370 checks => [ 'kivi.validate_form' ],
374 $::request->layout->add_javascripts('kivi.Validator.js');
377 sub setup_do_orders_action_bar {
380 for my $bar ($::request->layout->get('actionbar')) {
384 submit => [ '#form', { action => 'invoice_multi' } ],
385 checks => [ [ 'kivi.check_if_entries_selected', '#form tbody input[type=checkbox]' ] ],
386 accesskey => 'enter',
390 call => [ 'kivi.SalesPurchase.show_print_dialog', 'js:kivi.MassDeliveryOrderPrint.submitMultiOrders' ],
391 checks => [ [ 'kivi.check_if_entries_selected', '#form tbody input[type=checkbox]' ] ],
398 $main::lxdebug->enter_sub();
402 my $form = $main::form;
403 my %myconfig = %main::myconfig;
405 my $class = "SL::DB::" . ($form->{vc} eq 'customer' ? 'Customer' : 'Vendor');
406 $form->{VC_OBJ} = $class->load_cached($form->{ $form->{vc} . '_id' });
408 $form->{CONTACT_OBJ} = $form->{cp_id} ? SL::DB::Contact->load_cached($form->{cp_id}) : undef;
409 my $current_employee = SL::DB::Manager::Employee->current;
410 $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
411 $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
412 $form->{employee_id} ||= $current_employee->id;
413 $form->{salesman_id} ||= $current_employee->id;
415 my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
416 $form->get_lists("price_factors" => "ALL_PRICE_FACTORS",
417 "business_types" => "ALL_BUSINESS_TYPES",
419 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;
422 my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
423 my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
425 if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
428 customer_id => $::form->{customer_id},
429 billable_customer_id => $::form->{customer_id},
434 and => [ active => 1, @customer_cond ],
438 $::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
439 $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
440 $::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
441 $::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
442 or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
444 $::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
446 cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
449 cp_id => $::form->{cp_id} * 1
454 my $dispatch_to_popup = '';
455 if ($form->{resubmit} && ($form->{format} eq "html")) {
456 $dispatch_to_popup = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";
457 $dispatch_to_popup .= "document.do.submit();";
458 } elsif ($form->{resubmit}) {
459 # emulate click for resubmitting actions
460 $dispatch_to_popup = "document.do.${_}.click(); " for grep { /^action_/ } keys %$form;
462 $::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
465 $form->{follow_up_trans_info} = $form->{donumber} .'('. $form->{VC_OBJ}->name .')' if $form->{VC_OBJ};
467 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.File kivi.MassDeliveryOrderPrint kivi.SalesPurchase kivi.Part kivi.CustomerVendor kivi.Validator ckeditor/ckeditor ckeditor/adapters/jquery kivi.io));
470 push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
472 $::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ];
474 setup_do_action_bar();
477 # Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'
478 # und Erweiterung für Bug 1760:
479 # Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf
480 # nicht überlebt. Konsequent jetzt auf L umgestellt
481 # $ perldoc SL::Template::Plugin::L
482 # Daher entsprechend nur die Anpassung in form_header
483 # und in DO.pm gemacht. 4 Testfälle:
484 # department_id speichern | i.O.
485 # department_id lesen | i.O.
486 # department leer überlebt erneuern | i.O.
487 # department nicht leer überlebt erneuern | i.O.
488 # $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});
489 print $form->parse_html_template('do/form_header');
491 $main::lxdebug->leave_sub();
495 $main::lxdebug->enter_sub();
499 my $form = $main::form;
501 $form->{PRINT_OPTIONS} = setup_sales_purchase_print_options();
502 $form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
504 print $form->parse_html_template('do/form_footer',
505 {transfer_default => ($::instance_conf->get_transfer_default)});
507 $main::lxdebug->leave_sub();
510 sub update_delivery_order {
511 $main::lxdebug->enter_sub();
515 my $form = $main::form;
516 my %myconfig = %main::myconfig;
518 set_headings($form->{"id"} ? "edit" : "add");
520 $form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};
525 $payment_id = $form->{payment_id} if $form->{payment_id};
527 my $vc = $form->{vc};
528 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
529 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
531 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
532 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
535 $form->{discount} = $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};
536 # Problem: Wenn man ohne Erneuern einen Kunden/Lieferanten
537 # wechselt, wird der entsprechende Kunden/ Lieferantenrabatt
538 # nicht übernommen. Grundproblem: In Commit 82574e78
539 # hab ich aus discount customer_discount und vendor_discount
540 # gemacht und entsprechend an den Oberflächen richtig hin-
541 # geschoben. Die damals bessere Lösung wäre gewesen:
542 # In den Templates nur die hidden für form-discount wieder ein-
543 # setzen dann wäre die Verrenkung jetzt nicht notwendig.
544 # TODO: Ggf. Bugfix 1284, 1575 und 817 wieder zusammenführen
545 # Testfälle: Kunden mit Rabatt 0 -> Rabatt 20 i.O.
546 # Kunde mit Rabatt 20 -> Rabatt 0 i.O.
547 # Kunde mit Rabatt 20 -> Rabatt 5,5 i.O.
548 $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
550 my $i = $form->{rowcount};
552 if ( ($form->{"partnumber_$i"} eq "")
553 && ($form->{"description_$i"} eq "")
554 && ($form->{"partsgroup_$i"} eq "")) {
561 if ($form->{type} eq 'purchase_delivery_order') {
562 IR->retrieve_item(\%myconfig, $form);
565 IS->retrieve_item(\%myconfig, $form);
569 my $rows = scalar @{ $form->{item_list} };
572 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
573 if( !$form->{"qty_$i"} ) {
574 $form->{"qty_$i"} = 1;
579 select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
580 $::dispatcher->end_request;
584 my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
586 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
588 $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
591 $form->{"sellprice_$i"} = $sellprice;
593 my $record = _make_record();
594 my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
595 my $best_price = $price_source->best_price;
596 my $best_discount = $price_source->best_discount;
599 $::form->{"sellprice_$i"} = $best_price->price;
600 $::form->{"active_price_source_$i"} = $best_price->source;
602 if ($best_discount) {
603 $::form->{"discount_$i"} = $best_discount->discount;
604 $::form->{"active_discount_source_$i"} = $best_discount->source;
608 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
609 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
610 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
611 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
618 # ok, so this is a new part
619 # ask if it is a part or service item
621 if ( $form->{"partsgroup_$i"}
622 && ($form->{"partsnumber_$i"} eq "")
623 && ($form->{"description_$i"} eq "")) {
625 $form->{"discount_$i"} = "";
626 $form->{"not_discountable_$i"} = "";
630 $form->{"id_$i"} = 0;
636 $main::lxdebug->leave_sub();
640 $main::lxdebug->enter_sub();
644 my $form = $main::form;
645 my %myconfig = %main::myconfig;
646 my $locale = $main::locale;
648 $form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
650 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
652 "business_types" => "ALL_BUSINESS_TYPES");
653 $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
654 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all_sorted;
655 $form->{title} = $locale->text('Delivery Orders');
657 setup_do_search_action_bar();
661 print $form->parse_html_template('do/search');
663 $main::lxdebug->leave_sub();
667 $main::lxdebug->enter_sub();
671 my $form = $main::form;
672 my %myconfig = %main::myconfig;
673 my $locale = $main::locale;
674 my $cgi = $::request->{cgi};
676 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.MassDeliveryOrderPrint kivi.SalesPurchase));
677 ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
679 report_generator_set_default_sort('transdate', 1);
683 $form->{rowcount} = scalar @{ $form->{DO} };
686 ids transdate reqdate
688 ordnumber customernumber cusordnumber
689 name employee salesman
690 shipvia globalprojectnumber
691 transaction_description department
696 $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
697 $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
699 $form->{title} = $locale->text('Delivery Orders');
701 my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
703 my $report = SL::ReportGenerator->new(\%myconfig, $form);
705 my @hidden_variables = map { "l_${_}" } @columns;
706 push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
707 transaction_description transdatefrom transdateto reqdatefrom reqdateto
708 type vc employee_id salesman_id project_id parts_partnumber parts_description
709 insertdatefrom insertdateto business_id);
711 my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
714 'ids' => { 'text' => '<input type="checkbox" id="multi_all" value="1">', 'align' => 'center' },
715 'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
716 'reqdate' => { 'text' => $locale->text('Reqdate'), },
717 'id' => { 'text' => $locale->text('ID'), },
718 'donumber' => { 'text' => $locale->text('Delivery Order'), },
719 'ordnumber' => { 'text' => $locale->text('Order'), },
720 'customernumber' => { 'text' => $locale->text('Customer Number'), },
721 'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
722 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
723 'employee' => { 'text' => $locale->text('Employee'), },
724 'salesman' => { 'text' => $locale->text('Salesman'), },
725 'shipvia' => { 'text' => $locale->text('Ship via'), },
726 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
727 'transaction_description' => { 'text' => $locale->text('Transaction description'), },
728 'open' => { 'text' => $locale->text('Open'), },
729 'delivered' => { 'text' => $locale->text('Delivered'), },
730 'department' => { 'text' => $locale->text('Department'), },
731 'insertdate' => { 'text' => $locale->text('Insert Date'), },
734 foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
735 my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
736 $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
739 $form->{"l_type"} = "Y";
740 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
742 $column_defs{ids}->{visible} = 'HTML';
744 $report->set_columns(%column_defs);
745 $report->set_column_order(@columns);
747 $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
749 $report->set_sort_indicator($form->{sort}, $form->{sortdir});
752 if ($form->{customer}) {
753 push @options, $locale->text('Customer') . " : $form->{customer}";
755 if ($form->{vendor}) {
756 push @options, $locale->text('Vendor') . " : $form->{vendor}";
758 if ($form->{cp_name}) {
759 push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
761 if ($form->{department_id}) {
762 push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description;
764 if ($form->{donumber}) {
765 push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
767 if ($form->{ordnumber}) {
768 push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
770 push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
771 if ($form->{business_id}) {
772 my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
773 push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
775 if ($form->{transaction_description}) {
776 push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
778 if ($form->{parts_description}) {
779 push @options, $locale->text('Part Description') . " : $form->{parts_description}";
781 if ($form->{parts_partnumber}) {
782 push @options, $locale->text('Part Number') . " : $form->{parts_partnumber}";
784 if ( $form->{transdatefrom} or $form->{transdateto} ) {
785 push @options, $locale->text('Delivery Order Date');
786 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
787 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
789 if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
790 push @options, $locale->text('Reqdate');
791 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
792 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
794 if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
795 push @options, $locale->text('Insert Date');
796 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
797 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
800 push @options, $locale->text('Open');
802 if ($form->{closed}) {
803 push @options, $locale->text('Closed');
805 if ($form->{delivered}) {
806 push @options, $locale->text('Delivered');
808 if ($form->{notdelivered}) {
809 push @options, $locale->text('Not delivered');
812 my $pr = SL::DB::Manager::Printer->find_by(
813 printer_description => $::locale->text("sales_delivery_order_printer"));
815 $form->{printer_id} = $pr->id;
818 my $print_options = SL::Helper::PrintOptions->get_print_options(
820 hide_language_id => 1,
826 $report->set_options('top_info_text' => join("\n", @options),
827 'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
828 'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom', { print_options => $print_options }),
829 'output_format' => 'HTML',
830 'title' => $form->{title},
831 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
833 $report->set_options_from_form();
834 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
836 # add sort and escape callback, this one we use for the add sub
837 $form->{callback} = $href .= "&sort=$form->{sort}";
839 # escape callback for href
840 my $callback = $form->escape($href);
842 my $edit_url = build_std_url('action=edit', 'type', 'vc');
843 my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
847 foreach my $dord (@{ $form->{DO} }) {
848 $dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
849 $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
851 my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
853 my $ord_id = $dord->{id};
855 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $ord_id)
856 . $cgi->checkbox('-name' => "multi_id_${idx}",' id' => "multi_id_id_".$ord_id, '-value' => 1, '-label' => ''),
857 'valign' => 'center',
861 $row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
862 $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
863 $report->add_data($row);
868 setup_do_orders_action_bar();
870 $report->generate_with_headers();
872 $main::lxdebug->leave_sub();
876 $main::lxdebug->enter_sub();
882 my $form = $main::form;
883 my %myconfig = %main::myconfig;
884 my $locale = $main::locale;
886 $form->mtime_ischanged('delivery_orders');
888 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
890 $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
892 $form->{donumber} =~ s/^\s*//g;
893 $form->{donumber} =~ s/\s*$//g;
895 my $msg = ucfirst $form->{vc};
896 $form->isblank($form->{vc} . "_id", $locale->text($msg . " missing!"));
898 # $locale->text('Customer missing!');
899 # $locale->text('Vendor missing!');
901 remove_emptied_rows();
904 # if the name changed get new values
905 my $vc = $form->{vc};
906 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
907 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
909 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
910 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
913 $::dispatcher->end_request;
916 $form->{id} = 0 if $form->{saveasnew};
920 if(!exists $form->{addition}) {
921 $form->{snumbers} = qq|donumber_| . $form->{donumber};
922 $form->{addition} = "SAVED";
925 # /saving the history
927 $form->{simple_save} = 1;
928 if (!$params{no_redirect} && !$form->{print_and_save}) {
929 delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
931 $::dispatcher->end_request;
933 $main::lxdebug->leave_sub();
937 $main::lxdebug->enter_sub();
941 my $form = $main::form;
942 my %myconfig = %main::myconfig;
943 my $locale = $main::locale;
947 if(!exists $form->{addition}) {
948 $form->{snumbers} = qq|donumber_| . $form->{donumber};
949 $form->{addition} = "DELETED";
952 # /saving the history
954 $form->info($locale->text('Delivery Order deleted!'));
955 $::dispatcher->end_request;
958 $form->error($locale->text('Cannot delete delivery order!'));
960 $main::lxdebug->leave_sub();
964 $main::lxdebug->enter_sub();
966 my $form = $main::form;
967 my %myconfig = %main::myconfig;
968 my $locale = $main::locale;
971 $form->mtime_ischanged('delivery_orders');
973 $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
975 $form->{convert_from_do_ids} = $form->{id};
976 # if we have a reqdate (Liefertermin), this is definetely the preferred
977 # deliverydate for invoices
978 $form->{deliverydate} = $form->{reqdate} || $form->{transdate};
979 $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
980 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
981 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
985 delete @{$form}{qw(id closed delivered)};
987 my ($script, $buysell);
988 if ($form->{type} eq 'purchase_delivery_order') {
989 $form->{title} = $locale->text('Add Vendor Invoice');
990 $form->{script} = 'ir.pl';
995 $form->{title} = $locale->text('Add Sales Invoice');
996 $form->{script} = 'is.pl';
1001 for my $i (1 .. $form->{rowcount}) {
1002 map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount);
1004 # adds a customer/vendor discount, unless we have a workflow case
1005 # CAVEAT: has to be done, after the above parse_amount
1006 unless ($form->{"ordnumber"}) {
1007 if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
1008 # und rabattfähig sind, dann
1009 unless ($form->{"not_discountable_$i"}) {
1010 $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
1014 $form->{"donumber_$i"} = $form->{donumber};
1015 $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
1018 $form->{type} = "invoice";
1021 $main::locale = Locale->new("$myconfig{countrycode}", "$script");
1022 $locale = $main::locale;
1024 require "bin/mozilla/$form->{script}";
1026 my $currency = $form->{currency};
1029 if ($form->{ordnumber}) {
1030 require SL::DB::Order;
1031 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
1033 $form->{orddate} = $order->transdate_as_date;
1034 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
1038 $form->{currency} = $currency;
1039 $form->{exchangerate} = "";
1040 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
1041 $form->{exchangerate} = $form->{forex} if ($form->{forex});
1046 for my $i (1 .. $form->{rowcount}) {
1047 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
1049 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
1051 my $decimalplaces = ($dec > 2) ? $dec : 2;
1053 # copy delivery date from reqdate for order -> invoice conversion
1054 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
1055 unless $form->{"deliverydate_$i"};
1058 $form->{"sellprice_$i"} =
1059 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
1062 $form->{"lastcost_$i"} =
1063 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
1066 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
1067 $dec_qty = length $dec_qty;
1069 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
1075 $main::lxdebug->leave_sub();
1079 $main::lxdebug->enter_sub();
1081 my $form = $main::form;
1082 my %myconfig = %main::myconfig;
1083 my $locale = $main::locale;
1086 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
1088 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
1090 if (!scalar @do_ids) {
1091 $form->show_generic_error($locale->text('You have not selected any delivery order.'));
1094 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
1096 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
1097 $form->show_generic_error($form->{vc} eq 'customer' ?
1098 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
1099 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
1100 'back_button' => 1);
1103 my $source_type = $form->{type};
1104 $form->{convert_from_do_ids} = join ' ', @do_ids;
1105 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
1106 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
1107 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
1108 # $shell: perldoc perlunc; /delete EXPR
1109 $form->{donumber} = delete $form->{donumber_array};
1110 $form->{ordnumber} = delete $form->{ordnumber_array};
1111 $form->{cusordnumber} = delete $form->{cusordnumber_array};
1112 $form->{deliverydate} = $form->{transdate};
1113 $form->{transdate} = $form->current_date(\%myconfig);
1114 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
1115 $form->{type} = "invoice";
1116 $form->{closed} = 0;
1117 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1119 my ($script, $buysell);
1120 if ($source_type eq 'purchase_delivery_order') {
1121 $form->{title} = $locale->text('Add Vendor Invoice');
1122 $form->{script} = 'ir.pl';
1127 $form->{title} = $locale->text('Add Sales Invoice');
1128 $form->{script} = 'is.pl';
1133 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
1135 # get vendor or customer discount
1137 my $saved_form = save_form();
1138 if ($form->{vc} eq 'vendor') {
1139 IR->get_vendor(\%myconfig, \%$form);
1140 $vc_discount = $form->{vendor_discount};
1142 IS->get_customer(\%myconfig, \%$form);
1143 $vc_discount = $form->{customer_discount};
1145 # use payment terms from customer or vendor
1146 restore_form($saved_form,0,qw(payment_id));
1148 $form->{rowcount} = 0;
1149 foreach my $ref (@{ $form->{form_details} }) {
1150 $form->{rowcount}++;
1151 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
1152 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
1153 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
1154 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
1156 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
1157 # und keinen anderen discount wert an $i ...
1158 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
1161 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
1162 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
1163 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
1165 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
1167 delete $form->{form_details};
1169 $locale = Locale->new("$myconfig{countrycode}", "$script");
1171 require "bin/mozilla/$form->{script}";
1178 $main::lxdebug->leave_sub();
1182 $main::lxdebug->enter_sub();
1186 my $form = $main::form;
1188 $form->{saveasnew} = 1;
1189 $form->{closed} = 0;
1190 $form->{delivered} = 0;
1191 map { delete $form->{$_} } qw(printed emailed queued);
1192 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1193 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1194 # Let kivitendo assign a new order number if the user hasn't changed the
1195 # previous one. If it has been changed manually then use it as-is.
1196 $form->{donumber} =~ s/^\s*//g;
1197 $form->{donumber} =~ s/\s*$//g;
1198 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1199 delete($form->{donumber});
1204 $main::lxdebug->leave_sub();
1207 sub calculate_stock_in_out {
1208 $main::lxdebug->enter_sub();
1210 my $form = $main::form;
1214 if (!$form->{"id_${i}"}) {
1215 $main::lxdebug->leave_sub();
1219 my $all_units = AM->retrieve_all_units();
1221 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1222 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1224 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1225 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1226 my $matches = $do_qty == $sum;
1228 my $content = $form->format_amount_units('amount' => $sum * 1,
1229 'part_unit' => $form->{"partunit_$i"},
1230 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1231 'conv_units' => 'convertible_not_smaller',
1233 $content = qq|<span id="stock_in_out_qty_display_${i}">${content}</span><input type=hidden id='stock_in_out_qty_matches_$i' value='$matches'> <input type="button" onclick="open_stock_in_out_window('${in_out}', $i);" value="?">|;
1235 $main::lxdebug->leave_sub();
1240 sub get_basic_bin_wh_info {
1241 $main::lxdebug->enter_sub();
1243 my $stock_info = shift;
1245 my $form = $main::form;
1247 foreach my $sinfo (@{ $stock_info }) {
1248 next unless ($sinfo->{bin_id});
1250 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1251 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1254 $main::lxdebug->leave_sub();
1257 sub stock_in_out_form {
1258 $main::lxdebug->enter_sub();
1260 my $form = $main::form;
1262 if ($form->{in_out} eq 'out') {
1268 $main::lxdebug->leave_sub();
1271 sub redo_stock_info {
1272 $main::lxdebug->enter_sub();
1276 my $form = $main::form;
1278 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1280 if ($params{add_empty_row}) {
1282 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1283 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1287 @{ $params{stock_info} } = @non_empty;
1289 $main::lxdebug->leave_sub();
1292 sub update_stock_in {
1293 $main::lxdebug->enter_sub();
1295 my $form = $main::form;
1296 my %myconfig = %main::myconfig;
1298 my $stock_info = [];
1300 foreach my $i (1..$form->{rowcount}) {
1301 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1302 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1303 bestbefore qty unit delivery_order_items_stock_id) };
1306 display_stock_in_form($stock_info);
1308 $main::lxdebug->leave_sub();
1312 $main::lxdebug->enter_sub();
1314 my $form = $main::form;
1316 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1318 display_stock_in_form($stock_info);
1320 $main::lxdebug->leave_sub();
1323 sub display_stock_in_form {
1324 $main::lxdebug->enter_sub();
1326 my $stock_info = shift;
1328 my $form = $main::form;
1329 my %myconfig = %main::myconfig;
1330 my $locale = $main::locale;
1332 $form->{title} = $locale->text('Stock');
1334 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1336 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1337 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1338 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1339 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1342 my $units = AM->retrieve_units(\%myconfig, $form);
1343 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1344 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1346 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1347 'bins' => 'BINS' });
1349 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1351 get_basic_bin_wh_info($stock_info);
1353 $form->header(no_layout => 1);
1354 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1355 'STOCK_INFO' => $stock_info,
1356 'PART_INFO' => $part_info, });
1358 $main::lxdebug->leave_sub();
1361 sub _stock_in_out_set_qty_display {
1362 my $stock_info = shift;
1364 my $all_units = AM->retrieve_all_units();
1365 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1366 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1367 part_unit => $form->{partunit},
1368 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1369 conv_units => 'convertible_not_smaller',
1374 $main::lxdebug->enter_sub();
1376 my $form = $main::form;
1377 my %myconfig = %main::myconfig;
1379 my $stock_info = [];
1381 foreach my $i (1..$form->{rowcount}) {
1382 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1384 next if ($form->{"qty_$i"} <= 0);
1386 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1389 $form->{stock} = YAML::Dump($stock_info);
1391 _stock_in_out_set_qty_display($stock_info);
1393 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1394 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1397 print $form->parse_html_template('do/set_stock_in_out', {
1398 qty_matches => $do_qty == $transfer_qty,
1401 $main::lxdebug->leave_sub();
1404 sub stock_out_form {
1405 $main::lxdebug->enter_sub();
1407 my $form = $main::form;
1408 my %myconfig = %main::myconfig;
1409 my $locale = $main::locale;
1411 $form->{title} = $locale->text('Release From Stock');
1413 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1415 my $units = AM->retrieve_units(\%myconfig, $form);
1416 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1418 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1420 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1422 if (!$form->{delivered}) {
1423 foreach my $row (@contents) {
1424 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1425 'part_unit' => $part_info->{unit},
1426 'conv_units' => 'convertible_not_smaller',
1429 foreach my $sinfo (@{ $stock_info }) {
1430 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1431 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1432 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1433 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1435 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1440 get_basic_bin_wh_info($stock_info);
1442 foreach my $sinfo (@{ $stock_info }) {
1443 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1447 $form->header(no_layout => 1);
1448 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1449 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1450 'PART_INFO' => $part_info, });
1452 $main::lxdebug->leave_sub();
1456 $main::lxdebug->enter_sub();
1458 my $form = $main::form;
1459 my %myconfig = %main::myconfig;
1460 my $locale = $main::locale;
1462 my $stock_info = [];
1464 foreach my $i (1 .. $form->{rowcount}) {
1465 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1467 next if ($form->{"qty_$i"} <= 0);
1469 push @{ $stock_info }, {
1470 'warehouse_id' => $form->{"warehouse_id_$i"},
1471 'bin_id' => $form->{"bin_id_$i"},
1472 'chargenumber' => $form->{"chargenumber_$i"},
1473 'bestbefore' => $form->{"bestbefore_$i"},
1474 'qty' => $form->{"qty_$i"},
1475 'unit' => $form->{"unit_$i"},
1477 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1481 my @errors = DO->check_stock_availability('requests' => $stock_info,
1482 'parts_id' => $form->{parts_id});
1484 $form->{stock} = YAML::Dump($stock_info);
1487 $form->{ERRORS} = [];
1488 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1489 stock_in_out_form();
1492 _stock_in_out_set_qty_display($stock_info);
1494 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1495 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1498 print $form->parse_html_template('do/set_stock_in_out', {
1499 qty_matches => $do_qty == $transfer_qty,
1503 $main::lxdebug->leave_sub();
1507 $main::lxdebug->enter_sub();
1509 my $form = $main::form;
1510 my %myconfig = %main::myconfig;
1511 my $locale = $main::locale;
1513 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1514 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'));
1517 save(no_redirect => 1);
1519 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1523 my $units = AM->retrieve_units(\%myconfig, $form);
1524 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1527 $form->{ERRORS} = [];
1529 foreach my $i (1 .. $form->{rowcount}) {
1530 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1532 my $row_sum_base_qty = 0;
1533 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1535 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1536 $request->{parts_id} = $form->{"id_$i"};
1537 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1539 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1541 push @all_requests, $request;
1544 next if (0 == $row_sum_base_qty);
1546 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1548 # if ($do_base_qty != $row_sum_base_qty) {
1549 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1550 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1554 if (@{ $form->{ERRORS} }) {
1555 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1557 set_headings('edit');
1559 $main::lxdebug->leave_sub();
1561 $::dispatcher->end_request;
1565 DO->transfer_in_out('direction' => 'in',
1566 'requests' => \@all_requests);
1568 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1570 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1573 $main::lxdebug->leave_sub();
1577 $main::lxdebug->enter_sub();
1579 my $form = $main::form;
1580 my %myconfig = %main::myconfig;
1581 my $locale = $main::locale;
1583 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1584 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'));
1587 save(no_redirect => 1);
1589 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1593 my $units = AM->retrieve_units(\%myconfig, $form);
1594 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1597 $form->{ERRORS} = [];
1599 foreach my $i (1 .. $form->{rowcount}) {
1600 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1602 my $row_sum_base_qty = 0;
1603 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1605 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1606 $request->{parts_id} = $form->{"id_$i"};
1607 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1608 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1610 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1612 $request_map{$map_key} ||= $request;
1613 $request_map{$map_key}->{sum_base_qty} ||= 0;
1614 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1615 $row_sum_base_qty += $request->{base_qty};
1617 push @all_requests, $request;
1620 next if (0 == $row_sum_base_qty);
1622 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1624 # if ($do_base_qty != $row_sum_base_qty) {
1625 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1626 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1631 my @bin_ids = map { $_->{bin_id} } values %request_map;
1632 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1633 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1635 foreach my $inv (@contents) {
1636 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1638 next unless ($request_map{$map_key});
1640 my $request = $request_map{$map_key};
1641 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1644 foreach my $request (values %request_map) {
1645 next if ($request->{ok});
1647 my $pinfo = $part_info_map{$request->{parts_id}};
1648 my $binfo = $bin_info_map{$request->{bin_id}};
1650 if ($::instance_conf->get_show_bestbefore) {
1651 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1652 $pinfo->{description},
1653 $binfo->{warehouse_description},
1654 $binfo->{bin_description},
1655 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1656 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1657 $form->format_amount_units('amount' => $request->{sum_base_qty},
1658 'part_unit' => $pinfo->{unit},
1659 'conv_units' => 'convertible_not_smaller'));
1661 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1662 $pinfo->{description},
1663 $binfo->{warehouse_description},
1664 $binfo->{bin_description},
1665 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1666 $form->format_amount_units('amount' => $request->{sum_base_qty},
1667 'part_unit' => $pinfo->{unit},
1668 'conv_units' => 'convertible_not_smaller'));
1673 if (@{ $form->{ERRORS} }) {
1674 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1676 set_headings('edit');
1678 $main::lxdebug->leave_sub();
1680 $::dispatcher->end_request;
1683 DO->transfer_in_out('direction' => 'out',
1684 'requests' => \@all_requests);
1686 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1688 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1691 $main::lxdebug->leave_sub();
1695 $main::lxdebug->enter_sub();
1697 my $form = $main::form;
1699 DO->close_orders('ids' => [ $form->{id} ]);
1701 $form->{closed} = 1;
1705 $main::lxdebug->leave_sub();
1709 $::lxdebug->enter_sub;
1711 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1714 retrieve_partunits();
1716 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1717 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1719 $::form->language_payment(\%::myconfig);
1721 Common::webdav_folder($::form);
1724 display_row(++$::form->{rowcount});
1727 $::lxdebug->leave_sub;
1731 call_sub($main::form->{yes_nextsub});
1735 call_sub($main::form->{no_nextsub});
1739 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1743 my $form = $main::form;
1744 my $locale = $main::locale;
1746 foreach my $action (qw(update print save transfer_out transfer_out_default sort
1747 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1748 if ($form->{"action_${action}"}) {
1754 $form->error($locale->text('No action defined.'));
1757 sub transfer_out_default {
1758 $main::lxdebug->enter_sub();
1760 my $form = $main::form;
1762 transfer_in_out_default('direction' => 'out');
1764 $main::lxdebug->leave_sub();
1767 sub transfer_in_default {
1768 $main::lxdebug->enter_sub();
1770 my $form = $main::form;
1772 transfer_in_out_default('direction' => 'in');
1774 $main::lxdebug->leave_sub();
1777 # Falls das Standardlagerverfahren aktiv ist, wird
1778 # geprüft, ob alle Standardlagerplätze für die Auslager-
1779 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1780 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1781 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1782 sub transfer_in_out_default {
1783 $main::lxdebug->enter_sub();
1785 my $form = $main::form;
1786 my %myconfig = %main::myconfig;
1787 my $locale = $main::locale;
1790 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1792 Common::check_params(\%params, qw(direction));
1794 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1795 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1796 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1797 $default_bin_id = $::instance_conf->get_bin_id;
1801 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1803 my $units = AM->retrieve_units(\%myconfig, $form);
1804 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1805 foreach my $i (1 .. $form->{rowcount}) {
1806 next unless ($form->{"id_$i"});
1807 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1808 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1810 $form->show_generic_error($locale->text("Cannot transfer negative entries." )) if ($qty < 0);
1811 # if we do not want to transfer services and this part is a service, set qty to zero
1812 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1813 # ... and push only a empty (undef) element to @all_requests (will skip check for bin_id and warehouse_id and will not alter the row)
1815 $qty = 0 if (!$::instance_conf->get_transfer_default_services && $part_info_map{$form->{"id_$i"}}->{part_type} eq 'service');
1816 $qty_parts{$form->{"id_$i"}} += $qty;
1818 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1819 undef $form->{"stock_in_$i"};
1822 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1823 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1825 push @all_requests, ($qty == 0) ? { } : {
1826 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1827 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1828 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1830 'parts_id' => $form->{"id_$i"},
1831 'comment' => $locale->text("Default transfer delivery order"),
1832 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1833 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1834 'oe_id' => $form->{id},
1835 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1839 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1840 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1841 foreach my $key (keys %qty_parts) {
1843 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1844 next unless ($part_info_map{$key}{bin_id}); # abbruch
1846 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1847 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1849 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1850 # deshalb rückmeldung nach oben geben, manuell auszulagern
1851 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1852 $missing_default_bins{$key}{chargenumber} = 1;
1854 if ($max_qty < $qty_parts{$key}){
1855 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1861 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1862 if (scalar (keys %missing_default_bins)) {
1864 foreach my $fehler (keys %missing_default_bins) {
1866 my $ware = WH->get_part_description(parts_id => $fehler);
1867 if ($missing_default_bins{$fehler}{missing_bin}){
1868 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1870 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1871 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1872 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1874 if ($missing_default_bins{$fehler}{chargenumber}){
1875 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1876 Hier kann man nicht automatisch entscheiden.
1877 Bitte diesen Lieferschein manuell auslagern.
1880 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1881 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1882 # Lagerplatz Lagerplatz-Korrektur
1883 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1884 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1885 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1886 # entsprechende defaults holen
1887 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1888 # lagerplatz wegbuchen!
1889 foreach (@all_requests) {
1890 if ($_->{parts_id} eq $fehler){
1891 $_->{bin_id} = $default_bin_id_ignore_onhand;
1892 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1896 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1897 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ));
1903 # hier der eigentliche fallunterschied für in oder out
1904 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1906 # dieser array_ref ist für DO->save da:
1907 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1908 # gefüllt werden kann.
1909 # could be dumped to the form in the first loop,
1910 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1911 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1913 foreach (@all_requests){
1915 next unless scalar(%{ $_ });
1916 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1919 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1920 # und in delivery_order_items_stock speichern
1922 # ... and fill back the persistent dois_id for inventory fk
1923 undef (@all_requests);
1924 foreach my $i (1 .. $form->{rowcount}) {
1925 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1926 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1928 DO->transfer_in_out('direction' => $prefix,
1929 'requests' => \@all_requests);
1931 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1933 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1934 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1940 $main::lxdebug->enter_sub();
1944 my $form = $main::form;
1947 save(no_redirect => 1); # has to be done, at least for newly added positions
1949 # hashify partnumbers, positions. key is delivery_order_items_id
1950 for my $i (1 .. ($form->{rowcount}) ) {
1951 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1952 if ($form->{id} && $form->{"discount_$i"}) {
1953 # prepare_order assumes a db value if there is a form->id and multiplies *100
1954 # We hope for new controller code (no more format_amount/parse_amount distinction)
1955 $form->{"discount_$i"} /=100;
1958 # naturally sort partnumbers and get a sorted array of doi_ids
1959 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1964 for (@sorted_doi_ids) {
1965 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1968 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1969 # another format_amount to change it back, for the next save ;-(
1970 # works great except for row discounts (see above comment)
1974 $main::lxdebug->leave_sub();
1986 do.pl - Script for all calls to delivery order
1994 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1995 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
2001 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
2002 Example coding for database scripts and templates in (git show af2f24b8), check also
2003 autogeneration for rose (scripts/rose_auto_create_model.pl --h)