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;
243 for my $bar ($::request->layout->get('actionbar')) {
247 submit => [ '#form', { action_update => 1 } ],
248 accesskey => 'enter',
254 submit => [ '#form', { action_save => 1 } ],
255 checks => [ @req_trans_desc ],
256 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
260 submit => [ '#form', { action_save_as_new => 1 } ],
261 checks => [ @req_trans_desc ],
262 disabled => !$::form->{id},
265 t8('Mark as closed'),
266 submit => [ '#form', { action_mark_closed => 1 } ],
267 checks => [ @req_trans_desc ],
268 confirm => t8('This will remove the delivery order from showing as open even if contents are not delivered. Proceed?'),
269 disabled => !$::form->{id} ? t8('This record has not been saved yet.')
270 : $::form->{closed} ? t8('This record has already been closed.')
273 ], # end of combobox "Save"
277 submit => [ '#form', { action_delete => 1 } ],
278 confirm => t8('Do you really want to delete this object?'),
279 disabled => !$::form->{id} ? t8('This record has not been saved yet.')
280 : $::form->{delivered} ? t8('This record has already been delivered.')
281 : ($::form->{vc} eq 'customer' && !$::instance_conf->get_sales_delivery_order_show_delete) ? t8('Deleting this type of record has been disabled in the configuration.')
282 : ($::form->{vc} eq 'vendor' && !$::instance_conf->get_purchase_delivery_order_show_delete) ? t8('Deleting this type of record has been disabled in the configuration.')
289 submit => [ '#form', { action_transfer_out => 1 } ],
290 checks => [ @req_trans_desc, @transfer_qty ],
291 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
292 ]) x ($::form->{vc} eq 'customer'),
294 t8('Transfer out via default'),
295 submit => [ '#form', { action_transfer_out_default => 1 } ],
296 checks => [ @req_trans_desc, @transfer_qty ],
297 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
298 ]) x ($::form->{vc} eq 'customer' && $::instance_conf->get_transfer_default),
301 submit => [ '#form', { action_transfer_in => 1 } ],
302 checks => [ @req_trans_desc, @transfer_qty ],
303 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
304 ]) x ($::form->{vc} eq 'vendor'),
306 t8('Transfer in via default'),
307 submit => [ '#form', { action_transfer_in_default => 1 } ],
308 checks => [ @req_trans_desc, @transfer_qty ],
309 disabled => $::form->{delivered} ? t8('This record has already been delivered.') : undef,
310 ]) x ($::form->{vc} eq 'vendor' && $::instance_conf->get_transfer_default),
311 ], # end of combobox "Transfer out"
318 submit => [ '#form', { action_invoice => 1 } ],
319 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
323 action => [ t8('Export') ],
326 submit => [ '#form', { action_print => 1 } ],
327 checks => [ @req_trans_desc ],
331 submit => [ '#form', { action_print => 1 } ],
332 checks => [ @req_trans_desc ],
334 ], # end of combobox "Export"
337 action => [ t8('more') ],
340 call => [ 'set_history_window', $::form->{id} * 1, 'id' ],
341 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
345 call => [ 'follow_up_window' ],
346 disabled => !$::form->{id} ? t8('This record has not been saved yet.') : undef,
348 ], # end if combobox "more"
354 $main::lxdebug->enter_sub();
358 my $form = $main::form;
359 my %myconfig = %main::myconfig;
361 my $class = "SL::DB::" . ($form->{vc} eq 'customer' ? 'Customer' : 'Vendor');
362 $form->{VC_OBJ} = $class->load_cached($form->{ $form->{vc} . '_id' });
364 $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
365 $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
367 my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
368 $form->get_lists("price_factors" => "ALL_PRICE_FACTORS",
369 "business_types" => "ALL_BUSINESS_TYPES",
371 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
374 my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
375 my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
377 if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
380 customer_id => $::form->{customer_id},
381 billable_customer_id => $::form->{customer_id},
386 and => [ active => 1, @customer_cond ],
390 $::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
391 $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
392 $::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
393 $::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
394 or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
396 $::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
398 cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
401 cp_id => $::form->{cp_id} * 1
406 my $dispatch_to_popup = '';
407 if ($form->{resubmit} && ($form->{format} eq "html")) {
408 $dispatch_to_popup = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";
409 $dispatch_to_popup .= "document.do.submit();";
410 } elsif ($form->{resubmit}) {
411 # emulate click for resubmitting actions
412 $dispatch_to_popup = "document.do.${_}.click(); " for grep { /^action_/ } keys %$form;
414 $::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
417 $form->{follow_up_trans_info} = $form->{donumber} .'('. $form->{VC_OBJ}->name .')';
419 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.File kivi.MassDeliveryOrderPrint kivi.SalesPurchase kivi.Part ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_customer));
422 push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
424 $::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ];
426 setup_do_action_bar();
429 # Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'
430 # und Erweiterung für Bug 1760:
431 # Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf
432 # nicht überlebt. Konsequent jetzt auf L umgestellt
433 # $ perldoc SL::Template::Plugin::L
434 # Daher entsprechend nur die Anpassung in form_header
435 # und in DO.pm gemacht. 4 Testfälle:
436 # department_id speichern | i.O.
437 # department_id lesen | i.O.
438 # department leer überlebt erneuern | i.O.
439 # department nicht leer überlebt erneuern | i.O.
440 # $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});
441 print $form->parse_html_template('do/form_header');
443 $main::lxdebug->leave_sub();
447 $main::lxdebug->enter_sub();
451 my $form = $main::form;
453 $form->{PRINT_OPTIONS} = print_options('inline' => 1);
454 $form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
456 print $form->parse_html_template('do/form_footer',
457 {transfer_default => ($::instance_conf->get_transfer_default)});
459 $main::lxdebug->leave_sub();
462 sub update_delivery_order {
463 $main::lxdebug->enter_sub();
467 my $form = $main::form;
468 my %myconfig = %main::myconfig;
470 set_headings($form->{"id"} ? "edit" : "add");
472 $form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};
477 $payment_id = $form->{payment_id} if $form->{payment_id};
479 my $vc = $form->{vc};
480 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
481 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
483 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
484 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
487 $form->{discount} = $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};
488 # Problem: Wenn man ohne Erneuern einen Kunden/Lieferanten
489 # wechselt, wird der entsprechende Kunden/ Lieferantenrabatt
490 # nicht übernommen. Grundproblem: In Commit 82574e78
491 # hab ich aus discount customer_discount und vendor_discount
492 # gemacht und entsprechend an den Oberflächen richtig hin-
493 # geschoben. Die damals bessere Lösung wäre gewesen:
494 # In den Templates nur die hidden für form-discount wieder ein-
495 # setzen dann wäre die Verrenkung jetzt nicht notwendig.
496 # TODO: Ggf. Bugfix 1284, 1575 und 817 wieder zusammenführen
497 # Testfälle: Kunden mit Rabatt 0 -> Rabatt 20 i.O.
498 # Kunde mit Rabatt 20 -> Rabatt 0 i.O.
499 # Kunde mit Rabatt 20 -> Rabatt 5,5 i.O.
500 $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
502 my $i = $form->{rowcount};
504 if ( ($form->{"partnumber_$i"} eq "")
505 && ($form->{"description_$i"} eq "")
506 && ($form->{"partsgroup_$i"} eq "")) {
513 if ($form->{type} eq 'purchase_delivery_order') {
514 IR->retrieve_item(\%myconfig, $form);
517 IS->retrieve_item(\%myconfig, $form);
521 my $rows = scalar @{ $form->{item_list} };
524 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
525 if( !$form->{"qty_$i"} ) {
526 $form->{"qty_$i"} = 1;
531 select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
532 $::dispatcher->end_request;
536 my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
538 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
540 $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
543 $form->{"sellprice_$i"} = $sellprice;
545 my $record = _make_record();
546 my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
547 my $best_price = $price_source->best_price;
548 my $best_discount = $price_source->best_discount;
551 $::form->{"sellprice_$i"} = $best_price->price;
552 $::form->{"active_price_source_$i"} = $best_price->source;
554 if ($best_discount) {
555 $::form->{"discount_$i"} = $best_discount->discount;
556 $::form->{"active_discount_source_$i"} = $best_discount->source;
560 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
561 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
562 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
563 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
570 # ok, so this is a new part
571 # ask if it is a part or service item
573 if ( $form->{"partsgroup_$i"}
574 && ($form->{"partsnumber_$i"} eq "")
575 && ($form->{"description_$i"} eq "")) {
577 $form->{"discount_$i"} = "";
578 $form->{"not_discountable_$i"} = "";
582 $form->{"id_$i"} = 0;
588 $main::lxdebug->leave_sub();
592 $main::lxdebug->enter_sub();
596 my $form = $main::form;
597 my %myconfig = %main::myconfig;
598 my $locale = $main::locale;
600 $form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
602 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
604 "business_types" => "ALL_BUSINESS_TYPES");
605 $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
606 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
607 $form->{title} = $locale->text('Delivery Orders');
611 print $form->parse_html_template('do/search');
613 $main::lxdebug->leave_sub();
617 $main::lxdebug->enter_sub();
621 my $form = $main::form;
622 my %myconfig = %main::myconfig;
623 my $locale = $main::locale;
624 my $cgi = $::request->{cgi};
626 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.MassDeliveryOrderPrint));
627 ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
629 report_generator_set_default_sort('transdate', 1);
633 $form->{rowcount} = scalar @{ $form->{DO} };
636 ids transdate reqdate
638 ordnumber customernumber cusordnumber
639 name employee salesman
640 shipvia globalprojectnumber
641 transaction_description department
646 $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
647 $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
649 $form->{title} = $locale->text('Delivery Orders');
651 my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
653 my $report = SL::ReportGenerator->new(\%myconfig, $form);
655 my @hidden_variables = map { "l_${_}" } @columns;
656 push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
657 transaction_description transdatefrom transdateto reqdatefrom reqdateto
658 type vc employee_id salesman_id project_id parts_partnumber parts_description
659 insertdatefrom insertdateto business_id);
661 my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
664 'ids' => { 'text' => '<input type="checkbox" id="multi_all" value="1">', 'align' => 'center' },
665 'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
666 'reqdate' => { 'text' => $locale->text('Reqdate'), },
667 'id' => { 'text' => $locale->text('ID'), },
668 'donumber' => { 'text' => $locale->text('Delivery Order'), },
669 'ordnumber' => { 'text' => $locale->text('Order'), },
670 'customernumber' => { 'text' => $locale->text('Customer Number'), },
671 'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
672 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
673 'employee' => { 'text' => $locale->text('Employee'), },
674 'salesman' => { 'text' => $locale->text('Salesman'), },
675 'shipvia' => { 'text' => $locale->text('Ship via'), },
676 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
677 'transaction_description' => { 'text' => $locale->text('Transaction description'), },
678 'open' => { 'text' => $locale->text('Open'), },
679 'delivered' => { 'text' => $locale->text('Delivered'), },
680 'department' => { 'text' => $locale->text('Department'), },
681 'insertdate' => { 'text' => $locale->text('Insert Date'), },
684 foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
685 my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
686 $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
689 $form->{"l_type"} = "Y";
690 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
692 $column_defs{ids}->{visible} = 'HTML';
694 $report->set_columns(%column_defs);
695 $report->set_column_order(@columns);
697 $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
699 $report->set_sort_indicator($form->{sort}, $form->{sortdir});
702 if ($form->{customer}) {
703 push @options, $locale->text('Customer') . " : $form->{customer}";
705 if ($form->{vendor}) {
706 push @options, $locale->text('Vendor') . " : $form->{vendor}";
708 if ($form->{cp_name}) {
709 push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
711 if ($form->{department_id}) {
712 push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description;
714 if ($form->{donumber}) {
715 push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
717 if ($form->{ordnumber}) {
718 push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
720 push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
721 if ($form->{business_id}) {
722 my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
723 push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
725 if ($form->{transaction_description}) {
726 push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
728 if ($form->{parts_description}) {
729 push @options, $locale->text('Part Description') . " : $form->{parts_description}";
731 if ($form->{parts_partnumber}) {
732 push @options, $locale->text('Part Number') . " : $form->{parts_partnumber}";
734 if ( $form->{transdatefrom} or $form->{transdateto} ) {
735 push @options, $locale->text('Delivery Order Date');
736 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
737 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
739 if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
740 push @options, $locale->text('Reqdate');
741 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
742 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
744 if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
745 push @options, $locale->text('Insert Date');
746 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
747 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
750 push @options, $locale->text('Open');
752 if ($form->{closed}) {
753 push @options, $locale->text('Closed');
755 if ($form->{delivered}) {
756 push @options, $locale->text('Delivered');
758 if ($form->{notdelivered}) {
759 push @options, $locale->text('Not delivered');
762 my $pr = SL::DB::Manager::Printer->find_by(
763 printer_description => $::locale->text("sales_delivery_order_printer"));
765 $form->{printer_id} = $pr->id;
768 $report->set_options('top_info_text' => join("\n", @options),
769 'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
770 'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom', { print_options => print_options(inline => 1,hide_language_id => 1) }),
771 'output_format' => 'HTML',
772 'title' => $form->{title},
773 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
775 $report->set_options_from_form();
776 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
778 # add sort and escape callback, this one we use for the add sub
779 $form->{callback} = $href .= "&sort=$form->{sort}";
781 # escape callback for href
782 my $callback = $form->escape($href);
784 my $edit_url = build_std_url('action=edit', 'type', 'vc');
785 my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
789 foreach my $dord (@{ $form->{DO} }) {
790 $dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
791 $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
793 my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
795 my $ord_id = $dord->{id};
797 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $ord_id)
798 . $cgi->checkbox('-name' => "multi_id_${idx}",' id' => "multi_id_id_".$ord_id, '-value' => 1, '-label' => ''),
799 'valign' => 'center',
803 $row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
804 $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
805 $report->add_data($row);
810 $report->generate_with_headers();
812 $main::lxdebug->leave_sub();
816 $main::lxdebug->enter_sub();
822 my $form = $main::form;
823 my %myconfig = %main::myconfig;
824 my $locale = $main::locale;
826 $form->mtime_ischanged('delivery_orders');
828 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
830 $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
832 $form->{donumber} =~ s/^\s*//g;
833 $form->{donumber} =~ s/\s*$//g;
835 my $msg = ucfirst $form->{vc};
836 $form->isblank($form->{vc} . "_id", $locale->text($msg . " missing!"));
838 # $locale->text('Customer missing!');
839 # $locale->text('Vendor missing!');
841 remove_emptied_rows();
844 # if the name changed get new values
845 my $vc = $form->{vc};
846 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
847 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
849 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
850 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
853 $::dispatcher->end_request;
856 $form->{id} = 0 if $form->{saveasnew};
860 if(!exists $form->{addition}) {
861 $form->{snumbers} = qq|donumber_| . $form->{donumber};
862 $form->{addition} = "SAVED";
865 # /saving the history
867 $form->{simple_save} = 1;
868 if (!$params{no_redirect} && !$form->{print_and_save}) {
869 delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
871 $::dispatcher->end_request;
873 $main::lxdebug->leave_sub();
877 $main::lxdebug->enter_sub();
881 my $form = $main::form;
882 my %myconfig = %main::myconfig;
883 my $locale = $main::locale;
887 if(!exists $form->{addition}) {
888 $form->{snumbers} = qq|donumber_| . $form->{donumber};
889 $form->{addition} = "DELETED";
892 # /saving the history
894 $form->info($locale->text('Delivery Order deleted!'));
895 $::dispatcher->end_request;
898 $form->error($locale->text('Cannot delete delivery order!'));
900 $main::lxdebug->leave_sub();
904 $main::lxdebug->enter_sub();
906 my $form = $main::form;
907 my %myconfig = %main::myconfig;
908 my $locale = $main::locale;
911 $form->mtime_ischanged('delivery_orders');
913 $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
915 $form->{convert_from_do_ids} = $form->{id};
916 $form->{deliverydate} = $form->{transdate};
917 $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
918 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
919 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
923 delete @{$form}{qw(id closed delivered)};
925 my ($script, $buysell);
926 if ($form->{type} eq 'purchase_delivery_order') {
927 $form->{title} = $locale->text('Add Vendor Invoice');
928 $form->{script} = 'ir.pl';
933 $form->{title} = $locale->text('Add Sales Invoice');
934 $form->{script} = 'is.pl';
939 for my $i (1 .. $form->{rowcount}) {
940 map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount);
942 # adds a customer/vendor discount, unless we have a workflow case
943 # CAVEAT: has to be done, after the above parse_amount
944 unless ($form->{"ordnumber"}) {
945 if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
946 # und rabattfähig sind, dann
947 unless ($form->{"not_discountable_$i"}) {
948 $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
952 $form->{"donumber_$i"} = $form->{donumber};
953 $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
956 $form->{type} = "invoice";
959 $main::locale = Locale->new("$myconfig{countrycode}", "$script");
960 $locale = $main::locale;
962 require "bin/mozilla/$form->{script}";
964 my $currency = $form->{currency};
967 if ($form->{ordnumber}) {
968 require SL::DB::Order;
969 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
971 $form->{orddate} = $order->transdate_as_date;
972 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
976 $form->{currency} = $currency;
977 $form->{exchangerate} = "";
978 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
979 $form->{exchangerate} = $form->{forex} if ($form->{forex});
984 for my $i (1 .. $form->{rowcount}) {
985 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
987 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
989 my $decimalplaces = ($dec > 2) ? $dec : 2;
991 # copy delivery date from reqdate for order -> invoice conversion
992 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
993 unless $form->{"deliverydate_$i"};
996 $form->{"sellprice_$i"} =
997 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
1000 $form->{"lastcost_$i"} =
1001 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
1004 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
1005 $dec_qty = length $dec_qty;
1007 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
1013 $main::lxdebug->leave_sub();
1017 $main::lxdebug->enter_sub();
1019 my $form = $main::form;
1020 my %myconfig = %main::myconfig;
1021 my $locale = $main::locale;
1024 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
1026 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
1028 if (!scalar @do_ids) {
1029 $form->show_generic_error($locale->text('You have not selected any delivery order.'));
1032 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
1034 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
1035 $form->show_generic_error($form->{vc} eq 'customer' ?
1036 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
1037 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
1038 'back_button' => 1);
1041 my $source_type = $form->{type};
1042 $form->{convert_from_do_ids} = join ' ', @do_ids;
1043 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
1044 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
1045 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
1046 # $shell: perldoc perlunc; /delete EXPR
1047 $form->{donumber} = delete $form->{donumber_array};
1048 $form->{ordnumber} = delete $form->{ordnumber_array};
1049 $form->{cusordnumber} = delete $form->{cusordnumber_array};
1050 $form->{deliverydate} = $form->{transdate};
1051 $form->{transdate} = $form->current_date(\%myconfig);
1052 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
1053 $form->{type} = "invoice";
1054 $form->{closed} = 0;
1055 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
1057 my ($script, $buysell);
1058 if ($source_type eq 'purchase_delivery_order') {
1059 $form->{title} = $locale->text('Add Vendor Invoice');
1060 $form->{script} = 'ir.pl';
1065 $form->{title} = $locale->text('Add Sales Invoice');
1066 $form->{script} = 'is.pl';
1071 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
1073 # get vendor or customer discount
1075 my $saved_form = save_form();
1076 if ($form->{vc} eq 'vendor') {
1077 IR->get_vendor(\%myconfig, \%$form);
1078 $vc_discount = $form->{vendor_discount};
1080 IS->get_customer(\%myconfig, \%$form);
1081 $vc_discount = $form->{customer_discount};
1083 # use payment terms from customer or vendor
1084 restore_form($saved_form,0,qw(payment_id));
1086 $form->{rowcount} = 0;
1087 foreach my $ref (@{ $form->{form_details} }) {
1088 $form->{rowcount}++;
1089 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
1090 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
1091 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
1092 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
1094 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
1095 # und keinen anderen discount wert an $i ...
1096 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
1099 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
1100 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
1101 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
1103 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
1105 delete $form->{form_details};
1107 $locale = Locale->new("$myconfig{countrycode}", "$script");
1109 require "bin/mozilla/$form->{script}";
1116 $main::lxdebug->leave_sub();
1120 $main::lxdebug->enter_sub();
1124 my $form = $main::form;
1126 $form->{saveasnew} = 1;
1127 $form->{closed} = 0;
1128 $form->{delivered} = 0;
1129 map { delete $form->{$_} } qw(printed emailed queued);
1130 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1131 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1132 # Let kivitendo assign a new order number if the user hasn't changed the
1133 # previous one. If it has been changed manually then use it as-is.
1134 $form->{donumber} =~ s/^\s*//g;
1135 $form->{donumber} =~ s/\s*$//g;
1136 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1137 delete($form->{donumber});
1142 $main::lxdebug->leave_sub();
1146 $main::lxdebug->enter_sub();
1150 $::form->mtime_ischanged('delivery_orders','mail');
1152 $::form->{print_and_save} = 1;
1154 my $saved_form = save_form();
1158 restore_form($saved_form, 0, qw(id ordnumber quonumber));
1162 $main::lxdebug->leave_sub();
1165 sub calculate_stock_in_out {
1166 $main::lxdebug->enter_sub();
1168 my $form = $main::form;
1172 if (!$form->{"id_${i}"}) {
1173 $main::lxdebug->leave_sub();
1177 my $all_units = AM->retrieve_all_units();
1179 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1180 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1182 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1183 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1184 my $matches = $do_qty == $sum;
1186 my $content = $form->format_amount_units('amount' => $sum * 1,
1187 'part_unit' => $form->{"partunit_$i"},
1188 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1189 'conv_units' => 'convertible_not_smaller',
1191 $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="?">|;
1193 $main::lxdebug->leave_sub();
1198 sub get_basic_bin_wh_info {
1199 $main::lxdebug->enter_sub();
1201 my $stock_info = shift;
1203 my $form = $main::form;
1205 foreach my $sinfo (@{ $stock_info }) {
1206 next unless ($sinfo->{bin_id});
1208 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1209 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1212 $main::lxdebug->leave_sub();
1215 sub stock_in_out_form {
1216 $main::lxdebug->enter_sub();
1218 my $form = $main::form;
1220 if ($form->{in_out} eq 'out') {
1226 $main::lxdebug->leave_sub();
1229 sub redo_stock_info {
1230 $main::lxdebug->enter_sub();
1234 my $form = $main::form;
1236 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1238 if ($params{add_empty_row}) {
1240 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1241 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1245 @{ $params{stock_info} } = @non_empty;
1247 $main::lxdebug->leave_sub();
1250 sub update_stock_in {
1251 $main::lxdebug->enter_sub();
1253 my $form = $main::form;
1254 my %myconfig = %main::myconfig;
1256 my $stock_info = [];
1258 foreach my $i (1..$form->{rowcount}) {
1259 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1260 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1261 bestbefore qty unit delivery_order_items_stock_id) };
1264 display_stock_in_form($stock_info);
1266 $main::lxdebug->leave_sub();
1270 $main::lxdebug->enter_sub();
1272 my $form = $main::form;
1274 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1276 display_stock_in_form($stock_info);
1278 $main::lxdebug->leave_sub();
1281 sub display_stock_in_form {
1282 $main::lxdebug->enter_sub();
1284 my $stock_info = shift;
1286 my $form = $main::form;
1287 my %myconfig = %main::myconfig;
1288 my $locale = $main::locale;
1290 $form->{title} = $locale->text('Stock');
1292 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1294 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1295 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1296 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1297 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1300 my $units = AM->retrieve_units(\%myconfig, $form);
1301 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1302 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1304 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1305 'bins' => 'BINS' });
1307 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1309 get_basic_bin_wh_info($stock_info);
1311 $form->header(no_layout => 1);
1312 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1313 'STOCK_INFO' => $stock_info,
1314 'PART_INFO' => $part_info, });
1316 $main::lxdebug->leave_sub();
1319 sub _stock_in_out_set_qty_display {
1320 my $stock_info = shift;
1322 my $all_units = AM->retrieve_all_units();
1323 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1324 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1325 part_unit => $form->{partunit},
1326 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1327 conv_units => 'convertible_not_smaller',
1332 $main::lxdebug->enter_sub();
1334 my $form = $main::form;
1335 my %myconfig = %main::myconfig;
1337 my $stock_info = [];
1339 foreach my $i (1..$form->{rowcount}) {
1340 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1342 next if ($form->{"qty_$i"} <= 0);
1344 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1347 $form->{stock} = YAML::Dump($stock_info);
1349 _stock_in_out_set_qty_display($stock_info);
1351 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1352 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1355 print $form->parse_html_template('do/set_stock_in_out', {
1356 qty_matches => $do_qty == $transfer_qty,
1359 $main::lxdebug->leave_sub();
1362 sub stock_out_form {
1363 $main::lxdebug->enter_sub();
1365 my $form = $main::form;
1366 my %myconfig = %main::myconfig;
1367 my $locale = $main::locale;
1369 $form->{title} = $locale->text('Release From Stock');
1371 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1373 my $units = AM->retrieve_units(\%myconfig, $form);
1374 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1376 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1378 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1380 if (!$form->{delivered}) {
1381 foreach my $row (@contents) {
1382 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1383 'part_unit' => $part_info->{unit},
1384 'conv_units' => 'convertible_not_smaller',
1387 foreach my $sinfo (@{ $stock_info }) {
1388 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1389 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1390 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1391 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1393 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1398 get_basic_bin_wh_info($stock_info);
1400 foreach my $sinfo (@{ $stock_info }) {
1401 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1405 $form->header(no_layout => 1);
1406 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1407 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1408 'PART_INFO' => $part_info, });
1410 $main::lxdebug->leave_sub();
1414 $main::lxdebug->enter_sub();
1416 my $form = $main::form;
1417 my %myconfig = %main::myconfig;
1418 my $locale = $main::locale;
1420 my $stock_info = [];
1422 foreach my $i (1 .. $form->{rowcount}) {
1423 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1425 next if ($form->{"qty_$i"} <= 0);
1427 push @{ $stock_info }, {
1428 'warehouse_id' => $form->{"warehouse_id_$i"},
1429 'bin_id' => $form->{"bin_id_$i"},
1430 'chargenumber' => $form->{"chargenumber_$i"},
1431 'bestbefore' => $form->{"bestbefore_$i"},
1432 'qty' => $form->{"qty_$i"},
1433 'unit' => $form->{"unit_$i"},
1435 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1439 my @errors = DO->check_stock_availability('requests' => $stock_info,
1440 'parts_id' => $form->{parts_id});
1442 $form->{stock} = YAML::Dump($stock_info);
1445 $form->{ERRORS} = [];
1446 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1447 stock_in_out_form();
1450 _stock_in_out_set_qty_display($stock_info);
1452 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1453 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1456 print $form->parse_html_template('do/set_stock_in_out', {
1457 qty_matches => $do_qty == $transfer_qty,
1461 $main::lxdebug->leave_sub();
1465 $main::lxdebug->enter_sub();
1467 my $form = $main::form;
1468 my %myconfig = %main::myconfig;
1469 my $locale = $main::locale;
1471 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1472 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'));
1475 save(no_redirect => 1);
1477 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1481 my $units = AM->retrieve_units(\%myconfig, $form);
1482 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1485 $form->{ERRORS} = [];
1487 foreach my $i (1 .. $form->{rowcount}) {
1488 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1490 my $row_sum_base_qty = 0;
1491 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1493 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1494 $request->{parts_id} = $form->{"id_$i"};
1495 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1497 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1499 push @all_requests, $request;
1502 next if (0 == $row_sum_base_qty);
1504 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1506 # if ($do_base_qty != $row_sum_base_qty) {
1507 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1508 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1512 if (@{ $form->{ERRORS} }) {
1513 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1515 set_headings('edit');
1517 $main::lxdebug->leave_sub();
1519 $::dispatcher->end_request;
1523 DO->transfer_in_out('direction' => 'in',
1524 'requests' => \@all_requests);
1526 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1528 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1531 $main::lxdebug->leave_sub();
1535 $main::lxdebug->enter_sub();
1537 my $form = $main::form;
1538 my %myconfig = %main::myconfig;
1539 my $locale = $main::locale;
1541 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1542 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'));
1545 save(no_redirect => 1);
1547 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1551 my $units = AM->retrieve_units(\%myconfig, $form);
1552 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1555 $form->{ERRORS} = [];
1557 foreach my $i (1 .. $form->{rowcount}) {
1558 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1560 my $row_sum_base_qty = 0;
1561 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1563 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1564 $request->{parts_id} = $form->{"id_$i"};
1565 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1566 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1568 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1570 $request_map{$map_key} ||= $request;
1571 $request_map{$map_key}->{sum_base_qty} ||= 0;
1572 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1573 $row_sum_base_qty += $request->{base_qty};
1575 push @all_requests, $request;
1578 next if (0 == $row_sum_base_qty);
1580 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1582 # if ($do_base_qty != $row_sum_base_qty) {
1583 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1584 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1589 my @bin_ids = map { $_->{bin_id} } values %request_map;
1590 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1591 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1593 foreach my $inv (@contents) {
1594 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1596 next unless ($request_map{$map_key});
1598 my $request = $request_map{$map_key};
1599 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1602 foreach my $request (values %request_map) {
1603 next if ($request->{ok});
1605 my $pinfo = $part_info_map{$request->{parts_id}};
1606 my $binfo = $bin_info_map{$request->{bin_id}};
1608 if ($::instance_conf->get_show_bestbefore) {
1609 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1610 $pinfo->{description},
1611 $binfo->{warehouse_description},
1612 $binfo->{bin_description},
1613 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1614 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1615 $form->format_amount_units('amount' => $request->{sum_base_qty},
1616 'part_unit' => $pinfo->{unit},
1617 'conv_units' => 'convertible_not_smaller'));
1619 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1620 $pinfo->{description},
1621 $binfo->{warehouse_description},
1622 $binfo->{bin_description},
1623 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1624 $form->format_amount_units('amount' => $request->{sum_base_qty},
1625 'part_unit' => $pinfo->{unit},
1626 'conv_units' => 'convertible_not_smaller'));
1631 if (@{ $form->{ERRORS} }) {
1632 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1634 set_headings('edit');
1636 $main::lxdebug->leave_sub();
1638 $::dispatcher->end_request;
1641 DO->transfer_in_out('direction' => 'out',
1642 'requests' => \@all_requests);
1644 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1646 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1649 $main::lxdebug->leave_sub();
1653 $main::lxdebug->enter_sub();
1655 my $form = $main::form;
1657 DO->close_orders('ids' => [ $form->{id} ]);
1659 $form->{closed} = 1;
1663 $main::lxdebug->leave_sub();
1667 $::lxdebug->enter_sub;
1669 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1672 retrieve_partunits();
1674 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1675 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1677 $::form->language_payment(\%::myconfig);
1679 Common::webdav_folder($::form);
1682 display_row(++$::form->{rowcount});
1685 $::lxdebug->leave_sub;
1689 call_sub($main::form->{yes_nextsub});
1693 call_sub($main::form->{no_nextsub});
1697 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1701 my $form = $main::form;
1702 my $locale = $main::locale;
1704 foreach my $action (qw(update print e_mail save transfer_out transfer_out_default sort
1705 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1706 if ($form->{"action_${action}"}) {
1712 $form->error($locale->text('No action defined.'));
1715 sub transfer_out_default {
1716 $main::lxdebug->enter_sub();
1718 my $form = $main::form;
1720 transfer_in_out_default('direction' => 'out');
1722 $main::lxdebug->leave_sub();
1725 sub transfer_in_default {
1726 $main::lxdebug->enter_sub();
1728 my $form = $main::form;
1730 transfer_in_out_default('direction' => 'in');
1732 $main::lxdebug->leave_sub();
1735 # Falls das Standardlagerverfahren aktiv ist, wird
1736 # geprüft, ob alle Standardlagerplätze für die Auslager-
1737 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1738 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1739 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1740 sub transfer_in_out_default {
1741 $main::lxdebug->enter_sub();
1743 my $form = $main::form;
1744 my %myconfig = %main::myconfig;
1745 my $locale = $main::locale;
1748 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1750 Common::check_params(\%params, qw(direction));
1752 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1753 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1754 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1755 $default_bin_id = $::instance_conf->get_bin_id;
1759 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1761 my $units = AM->retrieve_units(\%myconfig, $form);
1762 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1763 foreach my $i (1 .. $form->{rowcount}) {
1764 next unless ($form->{"id_$i"});
1765 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1766 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1768 $form->show_generic_error($locale->text("Cannot transfer negative entries." )) if ($qty < 0);
1769 # if we do not want to transfer services and this part is a service, set qty to zero
1770 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1771 # ... 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)
1773 $qty = 0 if (!$::instance_conf->get_transfer_default_services && !defined($part_info_map{$form->{"id_$i"}}->{inventory_accno_id}) && !$part_info_map{$form->{"id_$i"}}->{assembly});
1774 $qty_parts{$form->{"id_$i"}} += $qty;
1776 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1777 undef $form->{"stock_in_$i"};
1780 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1781 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1783 push @all_requests, ($qty == 0) ? { } : {
1784 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1785 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1786 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1788 'parts_id' => $form->{"id_$i"},
1789 'comment' => $locale->text("Default transfer delivery order"),
1790 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1791 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1792 'oe_id' => $form->{id},
1793 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1797 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1798 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1799 foreach my $key (keys %qty_parts) {
1801 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1802 next unless ($part_info_map{$key}{bin_id}); # abbruch
1804 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1805 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1807 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1808 # deshalb rückmeldung nach oben geben, manuell auszulagern
1809 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1810 $missing_default_bins{$key}{chargenumber} = 1;
1812 if ($max_qty < $qty_parts{$key}){
1813 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1819 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1820 if (scalar (keys %missing_default_bins)) {
1822 foreach my $fehler (keys %missing_default_bins) {
1824 my $ware = WH->get_part_description(parts_id => $fehler);
1825 if ($missing_default_bins{$fehler}{missing_bin}){
1826 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1828 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1829 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1830 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1832 if ($missing_default_bins{$fehler}{chargenumber}){
1833 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1834 Hier kann man nicht automatisch entscheiden.
1835 Bitte diesen Lieferschein manuell auslagern.
1838 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1839 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1840 # Lagerplatz Lagerplatz-Korrektur
1841 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1842 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1843 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1844 # entsprechende defaults holen
1845 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1846 # lagerplatz wegbuchen!
1847 foreach (@all_requests) {
1848 if ($_->{parts_id} eq $fehler){
1849 $_->{bin_id} = $default_bin_id_ignore_onhand;
1850 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1854 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1855 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ));
1861 # hier der eigentliche fallunterschied für in oder out
1862 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1864 # dieser array_ref ist für DO->save da:
1865 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1866 # gefüllt werden kann.
1867 # could be dumped to the form in the first loop,
1868 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1869 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1871 foreach (@all_requests){
1873 next unless scalar(%{ $_ });
1874 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1877 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1878 # und in delivery_order_items_stock speichern
1880 # ... and fill back the persistent dois_id for inventory fk
1881 undef (@all_requests);
1882 foreach my $i (1 .. $form->{rowcount}) {
1883 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1884 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1886 DO->transfer_in_out('direction' => $prefix,
1887 'requests' => \@all_requests);
1889 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1891 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1892 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1898 $main::lxdebug->enter_sub();
1902 my $form = $main::form;
1905 save(no_redirect => 1); # has to be done, at least for newly added positions
1907 # hashify partnumbers, positions. key is delivery_order_items_id
1908 for my $i (1 .. ($form->{rowcount}) ) {
1909 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1910 if ($form->{id} && $form->{"discount_$i"}) {
1911 # prepare_order assumes a db value if there is a form->id and multiplies *100
1912 # We hope for new controller code (no more format_amount/parse_amount distinction)
1913 $form->{"discount_$i"} /=100;
1916 # naturally sort partnumbers and get a sorted array of doi_ids
1917 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1922 for (@sorted_doi_ids) {
1923 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1926 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1927 # another format_amount to change it back, for the next save ;-(
1928 # works great except for row discounts (see above comment)
1932 $main::lxdebug->leave_sub();
1944 do.pl - Script for all calls to delivery order
1952 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1953 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
1959 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
1960 Example coding for database scripts and templates in (git show af2f24b8), check also
1961 autogeneration for rose (scripts/rose_auto_create_model.pl --h)