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 my $vc_id = $form->{type} =~ /^sales/ ? 'customer_id' : 'vendor_id';
1032 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber}, $vc_id => $form->{"$vc_id"})) {
1034 $form->{orddate} = $order->transdate_as_date;
1035 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
1039 $form->{currency} = $currency;
1040 $form->{exchangerate} = "";
1041 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
1042 $form->{exchangerate} = $form->{forex} if ($form->{forex});
1047 for my $i (1 .. $form->{rowcount}) {
1048 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
1050 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
1052 my $decimalplaces = ($dec > 2) ? $dec : 2;
1054 # copy delivery date from reqdate for order -> invoice conversion
1055 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
1056 unless $form->{"deliverydate_$i"};
1059 $form->{"sellprice_$i"} =
1060 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
1063 $form->{"lastcost_$i"} =
1064 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
1067 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
1068 $dec_qty = length $dec_qty;
1070 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
1076 $main::lxdebug->leave_sub();
1080 $main::lxdebug->enter_sub();
1082 my $form = $main::form;
1083 my %myconfig = %main::myconfig;
1084 my $locale = $main::locale;
1087 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
1089 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
1091 if (!scalar @do_ids) {
1092 $form->show_generic_error($locale->text('You have not selected any delivery order.'));
1095 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
1097 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
1098 $form->show_generic_error($form->{vc} eq 'customer' ?
1099 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
1100 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
1101 'back_button' => 1);
1104 my $source_type = $form->{type};
1105 $form->{convert_from_do_ids} = join ' ', @do_ids;
1106 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
1107 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
1108 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
1109 # $shell: perldoc perlunc; /delete EXPR
1110 $form->{donumber} = delete $form->{donumber_array};
1111 $form->{ordnumber} = delete $form->{ordnumber_array};
1112 $form->{cusordnumber} = delete $form->{cusordnumber_array};
1113 $form->{deliverydate} = $form->{transdate};
1114 $form->{transdate} = $form->current_date(\%myconfig);
1115 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
1116 $form->{type} = "invoice";
1117 $form->{closed} = 0;
1118 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1120 my ($script, $buysell);
1121 if ($source_type eq 'purchase_delivery_order') {
1122 $form->{title} = $locale->text('Add Vendor Invoice');
1123 $form->{script} = 'ir.pl';
1128 $form->{title} = $locale->text('Add Sales Invoice');
1129 $form->{script} = 'is.pl';
1134 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
1136 # get vendor or customer discount
1138 my $saved_form = save_form();
1139 if ($form->{vc} eq 'vendor') {
1140 IR->get_vendor(\%myconfig, \%$form);
1141 $vc_discount = $form->{vendor_discount};
1143 IS->get_customer(\%myconfig, \%$form);
1144 $vc_discount = $form->{customer_discount};
1146 # use payment terms from customer or vendor
1147 restore_form($saved_form,0,qw(payment_id));
1149 $form->{rowcount} = 0;
1150 foreach my $ref (@{ $form->{form_details} }) {
1151 $form->{rowcount}++;
1152 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
1153 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
1154 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
1155 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
1157 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
1158 # und keinen anderen discount wert an $i ...
1159 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
1162 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
1163 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
1164 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
1166 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
1168 delete $form->{form_details};
1170 $locale = Locale->new("$myconfig{countrycode}", "$script");
1172 require "bin/mozilla/$form->{script}";
1179 $main::lxdebug->leave_sub();
1183 $main::lxdebug->enter_sub();
1187 my $form = $main::form;
1189 $form->{saveasnew} = 1;
1190 $form->{closed} = 0;
1191 $form->{delivered} = 0;
1192 map { delete $form->{$_} } qw(printed emailed queued);
1193 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1194 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1195 # Let kivitendo assign a new order number if the user hasn't changed the
1196 # previous one. If it has been changed manually then use it as-is.
1197 $form->{donumber} =~ s/^\s*//g;
1198 $form->{donumber} =~ s/\s*$//g;
1199 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1200 delete($form->{donumber});
1205 $main::lxdebug->leave_sub();
1208 sub calculate_stock_in_out {
1209 $main::lxdebug->enter_sub();
1211 my $form = $main::form;
1215 if (!$form->{"id_${i}"}) {
1216 $main::lxdebug->leave_sub();
1220 my $all_units = AM->retrieve_all_units();
1222 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1223 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1225 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1226 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1227 my $matches = $do_qty == $sum;
1229 my $content = $form->format_amount_units('amount' => $sum * 1,
1230 'part_unit' => $form->{"partunit_$i"},
1231 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1232 'conv_units' => 'convertible_not_smaller',
1234 $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="?">|;
1236 $main::lxdebug->leave_sub();
1241 sub get_basic_bin_wh_info {
1242 $main::lxdebug->enter_sub();
1244 my $stock_info = shift;
1246 my $form = $main::form;
1248 foreach my $sinfo (@{ $stock_info }) {
1249 next unless ($sinfo->{bin_id});
1251 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1252 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1255 $main::lxdebug->leave_sub();
1258 sub stock_in_out_form {
1259 $main::lxdebug->enter_sub();
1261 my $form = $main::form;
1263 if ($form->{in_out} eq 'out') {
1269 $main::lxdebug->leave_sub();
1272 sub redo_stock_info {
1273 $main::lxdebug->enter_sub();
1277 my $form = $main::form;
1279 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1281 if ($params{add_empty_row}) {
1283 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1284 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1288 @{ $params{stock_info} } = @non_empty;
1290 $main::lxdebug->leave_sub();
1293 sub update_stock_in {
1294 $main::lxdebug->enter_sub();
1296 my $form = $main::form;
1297 my %myconfig = %main::myconfig;
1299 my $stock_info = [];
1301 foreach my $i (1..$form->{rowcount}) {
1302 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1303 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1304 bestbefore qty unit delivery_order_items_stock_id) };
1307 display_stock_in_form($stock_info);
1309 $main::lxdebug->leave_sub();
1313 $main::lxdebug->enter_sub();
1315 my $form = $main::form;
1317 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1319 display_stock_in_form($stock_info);
1321 $main::lxdebug->leave_sub();
1324 sub display_stock_in_form {
1325 $main::lxdebug->enter_sub();
1327 my $stock_info = shift;
1329 my $form = $main::form;
1330 my %myconfig = %main::myconfig;
1331 my $locale = $main::locale;
1333 $form->{title} = $locale->text('Stock');
1335 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1337 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1338 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1339 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1340 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1343 my $units = AM->retrieve_units(\%myconfig, $form);
1344 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1345 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1347 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1348 'bins' => 'BINS' });
1350 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1352 get_basic_bin_wh_info($stock_info);
1354 $form->header(no_layout => 1);
1355 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1356 'STOCK_INFO' => $stock_info,
1357 'PART_INFO' => $part_info, });
1359 $main::lxdebug->leave_sub();
1362 sub _stock_in_out_set_qty_display {
1363 my $stock_info = shift;
1365 my $all_units = AM->retrieve_all_units();
1366 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1367 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1368 part_unit => $form->{partunit},
1369 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1370 conv_units => 'convertible_not_smaller',
1375 $main::lxdebug->enter_sub();
1377 my $form = $main::form;
1378 my %myconfig = %main::myconfig;
1380 my $stock_info = [];
1382 foreach my $i (1..$form->{rowcount}) {
1383 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1385 next if ($form->{"qty_$i"} <= 0);
1387 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1390 $form->{stock} = YAML::Dump($stock_info);
1392 _stock_in_out_set_qty_display($stock_info);
1394 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1395 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1398 print $form->parse_html_template('do/set_stock_in_out', {
1399 qty_matches => $do_qty == $transfer_qty,
1402 $main::lxdebug->leave_sub();
1405 sub stock_out_form {
1406 $main::lxdebug->enter_sub();
1408 my $form = $main::form;
1409 my %myconfig = %main::myconfig;
1410 my $locale = $main::locale;
1412 $form->{title} = $locale->text('Release From Stock');
1414 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1416 my $units = AM->retrieve_units(\%myconfig, $form);
1417 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1419 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1421 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1423 if (!$form->{delivered}) {
1424 foreach my $row (@contents) {
1425 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1426 'part_unit' => $part_info->{unit},
1427 'conv_units' => 'convertible_not_smaller',
1430 foreach my $sinfo (@{ $stock_info }) {
1431 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1432 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1433 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1434 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1436 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1441 get_basic_bin_wh_info($stock_info);
1443 foreach my $sinfo (@{ $stock_info }) {
1444 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1448 $form->header(no_layout => 1);
1449 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1450 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1451 'PART_INFO' => $part_info, });
1453 $main::lxdebug->leave_sub();
1457 $main::lxdebug->enter_sub();
1459 my $form = $main::form;
1460 my %myconfig = %main::myconfig;
1461 my $locale = $main::locale;
1463 my $stock_info = [];
1465 foreach my $i (1 .. $form->{rowcount}) {
1466 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1468 next if ($form->{"qty_$i"} <= 0);
1470 push @{ $stock_info }, {
1471 'warehouse_id' => $form->{"warehouse_id_$i"},
1472 'bin_id' => $form->{"bin_id_$i"},
1473 'chargenumber' => $form->{"chargenumber_$i"},
1474 'bestbefore' => $form->{"bestbefore_$i"},
1475 'qty' => $form->{"qty_$i"},
1476 'unit' => $form->{"unit_$i"},
1478 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1482 my @errors = DO->check_stock_availability('requests' => $stock_info,
1483 'parts_id' => $form->{parts_id});
1485 $form->{stock} = YAML::Dump($stock_info);
1488 $form->{ERRORS} = [];
1489 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1490 stock_in_out_form();
1493 _stock_in_out_set_qty_display($stock_info);
1495 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1496 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1499 print $form->parse_html_template('do/set_stock_in_out', {
1500 qty_matches => $do_qty == $transfer_qty,
1504 $main::lxdebug->leave_sub();
1508 $main::lxdebug->enter_sub();
1510 my $form = $main::form;
1511 my %myconfig = %main::myconfig;
1512 my $locale = $main::locale;
1514 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1515 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'));
1518 save(no_redirect => 1);
1520 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1524 my $units = AM->retrieve_units(\%myconfig, $form);
1525 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1528 $form->{ERRORS} = [];
1530 foreach my $i (1 .. $form->{rowcount}) {
1531 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1533 my $row_sum_base_qty = 0;
1534 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1536 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1537 $request->{parts_id} = $form->{"id_$i"};
1538 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1540 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1542 push @all_requests, $request;
1545 next if (0 == $row_sum_base_qty);
1547 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1549 # if ($do_base_qty != $row_sum_base_qty) {
1550 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1551 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1555 if (@{ $form->{ERRORS} }) {
1556 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1558 set_headings('edit');
1560 $main::lxdebug->leave_sub();
1562 $::dispatcher->end_request;
1566 DO->transfer_in_out('direction' => 'in',
1567 'requests' => \@all_requests);
1569 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1571 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1574 $main::lxdebug->leave_sub();
1578 $main::lxdebug->enter_sub();
1580 my $form = $main::form;
1581 my %myconfig = %main::myconfig;
1582 my $locale = $main::locale;
1584 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1585 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'));
1588 save(no_redirect => 1);
1590 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1594 my $units = AM->retrieve_units(\%myconfig, $form);
1595 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1598 $form->{ERRORS} = [];
1600 foreach my $i (1 .. $form->{rowcount}) {
1601 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1603 my $row_sum_base_qty = 0;
1604 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1606 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1607 $request->{parts_id} = $form->{"id_$i"};
1608 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1609 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1611 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1613 $request_map{$map_key} ||= $request;
1614 $request_map{$map_key}->{sum_base_qty} ||= 0;
1615 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1616 $row_sum_base_qty += $request->{base_qty};
1618 push @all_requests, $request;
1621 next if (0 == $row_sum_base_qty);
1623 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1625 # if ($do_base_qty != $row_sum_base_qty) {
1626 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1627 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1632 my @bin_ids = map { $_->{bin_id} } values %request_map;
1633 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1634 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1636 foreach my $inv (@contents) {
1637 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1639 next unless ($request_map{$map_key});
1641 my $request = $request_map{$map_key};
1642 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1645 foreach my $request (values %request_map) {
1646 next if ($request->{ok});
1648 my $pinfo = $part_info_map{$request->{parts_id}};
1649 my $binfo = $bin_info_map{$request->{bin_id}};
1651 if ($::instance_conf->get_show_bestbefore) {
1652 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1653 $pinfo->{description},
1654 $binfo->{warehouse_description},
1655 $binfo->{bin_description},
1656 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1657 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1658 $form->format_amount_units('amount' => $request->{sum_base_qty},
1659 'part_unit' => $pinfo->{unit},
1660 'conv_units' => 'convertible_not_smaller'));
1662 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1663 $pinfo->{description},
1664 $binfo->{warehouse_description},
1665 $binfo->{bin_description},
1666 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1667 $form->format_amount_units('amount' => $request->{sum_base_qty},
1668 'part_unit' => $pinfo->{unit},
1669 'conv_units' => 'convertible_not_smaller'));
1674 if (@{ $form->{ERRORS} }) {
1675 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1677 set_headings('edit');
1679 $main::lxdebug->leave_sub();
1681 $::dispatcher->end_request;
1684 DO->transfer_in_out('direction' => 'out',
1685 'requests' => \@all_requests);
1687 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1689 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1692 $main::lxdebug->leave_sub();
1696 $main::lxdebug->enter_sub();
1698 my $form = $main::form;
1700 DO->close_orders('ids' => [ $form->{id} ]);
1702 $form->{closed} = 1;
1706 $main::lxdebug->leave_sub();
1710 $::lxdebug->enter_sub;
1712 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1715 retrieve_partunits();
1717 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1718 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1720 $::form->language_payment(\%::myconfig);
1722 Common::webdav_folder($::form);
1725 display_row(++$::form->{rowcount});
1728 $::lxdebug->leave_sub;
1732 call_sub($main::form->{yes_nextsub});
1736 call_sub($main::form->{no_nextsub});
1740 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1744 my $form = $main::form;
1745 my $locale = $main::locale;
1747 foreach my $action (qw(update print save transfer_out transfer_out_default sort
1748 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1749 if ($form->{"action_${action}"}) {
1755 $form->error($locale->text('No action defined.'));
1758 sub transfer_out_default {
1759 $main::lxdebug->enter_sub();
1761 my $form = $main::form;
1763 transfer_in_out_default('direction' => 'out');
1765 $main::lxdebug->leave_sub();
1768 sub transfer_in_default {
1769 $main::lxdebug->enter_sub();
1771 my $form = $main::form;
1773 transfer_in_out_default('direction' => 'in');
1775 $main::lxdebug->leave_sub();
1778 # Falls das Standardlagerverfahren aktiv ist, wird
1779 # geprüft, ob alle Standardlagerplätze für die Auslager-
1780 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1781 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1782 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1783 sub transfer_in_out_default {
1784 $main::lxdebug->enter_sub();
1786 my $form = $main::form;
1787 my %myconfig = %main::myconfig;
1788 my $locale = $main::locale;
1791 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1793 Common::check_params(\%params, qw(direction));
1795 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1796 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1797 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1798 $default_bin_id = $::instance_conf->get_bin_id;
1802 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1804 my $units = AM->retrieve_units(\%myconfig, $form);
1805 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1806 foreach my $i (1 .. $form->{rowcount}) {
1807 next unless ($form->{"id_$i"});
1808 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1809 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1811 $form->show_generic_error($locale->text("Cannot transfer negative entries." )) if ($qty < 0);
1812 # if we do not want to transfer services and this part is a service, set qty to zero
1813 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1814 # ... 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)
1816 $qty = 0 if (!$::instance_conf->get_transfer_default_services && $part_info_map{$form->{"id_$i"}}->{part_type} eq 'service');
1817 $qty_parts{$form->{"id_$i"}} += $qty;
1819 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1820 undef $form->{"stock_in_$i"};
1823 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1824 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1826 push @all_requests, ($qty == 0) ? { } : {
1827 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1828 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1829 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1831 'parts_id' => $form->{"id_$i"},
1832 'comment' => $locale->text("Default transfer delivery order"),
1833 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1834 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1835 'oe_id' => $form->{id},
1836 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1840 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1841 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1842 foreach my $key (keys %qty_parts) {
1844 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1845 next unless ($part_info_map{$key}{bin_id}); # abbruch
1847 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1848 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1850 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1851 # deshalb rückmeldung nach oben geben, manuell auszulagern
1852 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1853 $missing_default_bins{$key}{chargenumber} = 1;
1855 if ($max_qty < $qty_parts{$key}){
1856 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1862 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1863 if (scalar (keys %missing_default_bins)) {
1865 foreach my $fehler (keys %missing_default_bins) {
1867 my $ware = WH->get_part_description(parts_id => $fehler);
1868 if ($missing_default_bins{$fehler}{missing_bin}){
1869 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1871 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1872 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1873 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1875 if ($missing_default_bins{$fehler}{chargenumber}){
1876 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1877 Hier kann man nicht automatisch entscheiden.
1878 Bitte diesen Lieferschein manuell auslagern.
1881 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1882 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1883 # Lagerplatz Lagerplatz-Korrektur
1884 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1885 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1886 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1887 # entsprechende defaults holen
1888 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1889 # lagerplatz wegbuchen!
1890 foreach (@all_requests) {
1891 if ($_->{parts_id} eq $fehler){
1892 $_->{bin_id} = $default_bin_id_ignore_onhand;
1893 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1897 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1898 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ));
1904 # hier der eigentliche fallunterschied für in oder out
1905 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1907 # dieser array_ref ist für DO->save da:
1908 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1909 # gefüllt werden kann.
1910 # could be dumped to the form in the first loop,
1911 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1912 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1914 foreach (@all_requests){
1916 next unless scalar(%{ $_ });
1917 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1920 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1921 # und in delivery_order_items_stock speichern
1923 # ... and fill back the persistent dois_id for inventory fk
1924 undef (@all_requests);
1925 foreach my $i (1 .. $form->{rowcount}) {
1926 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1927 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1929 DO->transfer_in_out('direction' => $prefix,
1930 'requests' => \@all_requests);
1932 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1934 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1935 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1941 $main::lxdebug->enter_sub();
1945 my $form = $main::form;
1948 save(no_redirect => 1); # has to be done, at least for newly added positions
1950 # hashify partnumbers, positions. key is delivery_order_items_id
1951 for my $i (1 .. ($form->{rowcount}) ) {
1952 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1953 if ($form->{id} && $form->{"discount_$i"}) {
1954 # prepare_order assumes a db value if there is a form->id and multiplies *100
1955 # We hope for new controller code (no more format_amount/parse_amount distinction)
1956 $form->{"discount_$i"} /=100;
1959 # naturally sort partnumbers and get a sorted array of doi_ids
1960 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1965 for (@sorted_doi_ids) {
1966 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1969 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1970 # another format_amount to change it back, for the next save ;-(
1971 # works great except for row discounts (see above comment)
1975 $main::lxdebug->leave_sub();
1987 do.pl - Script for all calls to delivery order
1995 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1996 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
2002 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
2003 Example coding for database scripts and templates in (git show af2f24b8), check also
2004 autogeneration for rose (scripts/rose_auto_create_model.pl --h)