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();
240 $main::lxdebug->enter_sub();
244 my $form = $main::form;
245 my %myconfig = %main::myconfig;
247 my $class = "SL::DB::" . ($form->{vc} eq 'customer' ? 'Customer' : 'Vendor');
248 $form->{VC_OBJ} = $class->load_cached($form->{ $form->{vc} . '_id' });
250 $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
251 $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
253 my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
254 $form->get_lists("price_factors" => "ALL_PRICE_FACTORS",
255 "business_types" => "ALL_BUSINESS_TYPES",
257 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
260 my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
261 my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
263 if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
266 customer_id => $::form->{customer_id},
267 billable_customer_id => $::form->{customer_id},
272 and => [ active => 1, @customer_cond ],
276 $::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
277 $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
278 $::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
279 $::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
280 or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
282 $::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
284 cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
287 cp_id => $::form->{cp_id} * 1
292 my $dispatch_to_popup = '';
293 if ($form->{resubmit} && ($form->{format} eq "html")) {
294 $dispatch_to_popup = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";
295 $dispatch_to_popup .= "document.do.submit();";
296 } elsif ($form->{resubmit}) {
297 # emulate click for resubmitting actions
298 $dispatch_to_popup = "document.do.${_}.click(); " for grep { /^action_/ } keys %$form;
300 $::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
303 $form->{follow_up_trans_info} = $form->{donumber} .'('. $form->{VC_OBJ}->name .')';
305 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.SalesPurchase ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_customer autocomplete_part));
308 push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
310 $::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ];
313 # Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'
314 # und Erweiterung für Bug 1760:
315 # Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf
316 # nicht überlebt. Konsequent jetzt auf L umgestellt
317 # $ perldoc SL::Template::Plugin::L
318 # Daher entsprechend nur die Anpassung in form_header
319 # und in DO.pm gemacht. 4 Testfälle:
320 # department_id speichern | i.O.
321 # department_id lesen | i.O.
322 # department leer überlebt erneuern | i.O.
323 # department nicht leer überlebt erneuern | i.O.
324 # $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});
325 print $form->parse_html_template('do/form_header');
327 $main::lxdebug->leave_sub();
331 $main::lxdebug->enter_sub();
335 my $form = $main::form;
337 $form->{PRINT_OPTIONS} = print_options('inline' => 1);
338 $form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
340 print $form->parse_html_template('do/form_footer',
341 {transfer_default => ($::instance_conf->get_transfer_default)});
343 $main::lxdebug->leave_sub();
346 sub update_delivery_order {
347 $main::lxdebug->enter_sub();
351 my $form = $main::form;
352 my %myconfig = %main::myconfig;
354 set_headings($form->{"id"} ? "edit" : "add");
356 $form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};
361 $payment_id = $form->{payment_id} if $form->{payment_id};
363 my $vc = $form->{vc};
364 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
365 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
367 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
368 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
371 $form->{discount} = $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};
372 # Problem: Wenn man ohne Erneuern einen Kunden/Lieferanten
373 # wechselt, wird der entsprechende Kunden/ Lieferantenrabatt
374 # nicht übernommen. Grundproblem: In Commit 82574e78
375 # hab ich aus discount customer_discount und vendor_discount
376 # gemacht und entsprechend an den Oberflächen richtig hin-
377 # geschoben. Die damals bessere Lösung wäre gewesen:
378 # In den Templates nur die hidden für form-discount wieder ein-
379 # setzen dann wäre die Verrenkung jetzt nicht notwendig.
380 # TODO: Ggf. Bugfix 1284, 1575 und 817 wieder zusammenführen
381 # Testfälle: Kunden mit Rabatt 0 -> Rabatt 20 i.O.
382 # Kunde mit Rabatt 20 -> Rabatt 0 i.O.
383 # Kunde mit Rabatt 20 -> Rabatt 5,5 i.O.
384 $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
386 my $i = $form->{rowcount};
388 if ( ($form->{"partnumber_$i"} eq "")
389 && ($form->{"description_$i"} eq "")
390 && ($form->{"partsgroup_$i"} eq "")) {
397 if ($form->{type} eq 'purchase_delivery_order') {
398 IR->retrieve_item(\%myconfig, $form);
401 IS->retrieve_item(\%myconfig, $form);
405 my $rows = scalar @{ $form->{item_list} };
408 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
409 if( !$form->{"qty_$i"} ) {
410 $form->{"qty_$i"} = 1;
415 select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
416 $::dispatcher->end_request;
420 my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
422 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
424 $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
427 $form->{"sellprice_$i"} = $sellprice;
429 my $record = _make_record();
430 my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
431 my $best_price = $price_source->best_price;
432 my $best_discount = $price_source->best_discount;
435 $::form->{"sellprice_$i"} = $best_price->price;
436 $::form->{"active_price_source_$i"} = $best_price->source;
438 if ($best_discount) {
439 $::form->{"discount_$i"} = $best_discount->discount;
440 $::form->{"active_discount_source_$i"} = $best_discount->source;
444 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
445 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
446 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
447 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
454 # ok, so this is a new part
455 # ask if it is a part or service item
457 if ( $form->{"partsgroup_$i"}
458 && ($form->{"partsnumber_$i"} eq "")
459 && ($form->{"description_$i"} eq "")) {
461 $form->{"discount_$i"} = "";
462 $form->{"not_discountable_$i"} = "";
466 $form->{"id_$i"} = 0;
472 $main::lxdebug->leave_sub();
476 $main::lxdebug->enter_sub();
480 my $form = $main::form;
481 my %myconfig = %main::myconfig;
482 my $locale = $main::locale;
484 $form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
486 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
488 "business_types" => "ALL_BUSINESS_TYPES");
489 $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
490 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
491 $form->{title} = $locale->text('Delivery Orders');
495 print $form->parse_html_template('do/search');
497 $main::lxdebug->leave_sub();
501 $main::lxdebug->enter_sub();
505 my $form = $main::form;
506 my %myconfig = %main::myconfig;
507 my $locale = $main::locale;
508 my $cgi = $::request->{cgi};
510 ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
512 report_generator_set_default_sort('transdate', 1);
516 $form->{rowcount} = scalar @{ $form->{DO} };
519 ids transdate reqdate
521 ordnumber customernumber cusordnumber
522 name employee salesman
523 shipvia globalprojectnumber
524 transaction_description department
529 $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
530 $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
532 $form->{title} = $locale->text('Delivery Orders');
534 my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
536 my $report = SL::ReportGenerator->new(\%myconfig, $form);
538 my @hidden_variables = map { "l_${_}" } @columns;
539 push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
540 transaction_description transdatefrom transdateto reqdatefrom reqdateto
541 type vc employee_id salesman_id project_id parts_partnumber parts_description
542 insertdatefrom insertdateto business_id);
544 my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
547 'ids' => { 'text' => '', },
548 'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
549 'reqdate' => { 'text' => $locale->text('Reqdate'), },
550 'id' => { 'text' => $locale->text('ID'), },
551 'donumber' => { 'text' => $locale->text('Delivery Order'), },
552 'ordnumber' => { 'text' => $locale->text('Order'), },
553 'customernumber' => { 'text' => $locale->text('Customer Number'), },
554 'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
555 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
556 'employee' => { 'text' => $locale->text('Employee'), },
557 'salesman' => { 'text' => $locale->text('Salesman'), },
558 'shipvia' => { 'text' => $locale->text('Ship via'), },
559 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
560 'transaction_description' => { 'text' => $locale->text('Transaction description'), },
561 'open' => { 'text' => $locale->text('Open'), },
562 'delivered' => { 'text' => $locale->text('Delivered'), },
563 'department' => { 'text' => $locale->text('Department'), },
564 'insertdate' => { 'text' => $locale->text('Insert Date'), },
567 foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
568 my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
569 $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
572 $form->{"l_type"} = "Y";
573 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
575 $column_defs{ids}->{visible} = 'HTML';
577 $report->set_columns(%column_defs);
578 $report->set_column_order(@columns);
580 $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
582 $report->set_sort_indicator($form->{sort}, $form->{sortdir});
585 if ($form->{customer}) {
586 push @options, $locale->text('Customer') . " : $form->{customer}";
588 if ($form->{vendor}) {
589 push @options, $locale->text('Vendor') . " : $form->{vendor}";
591 if ($form->{cp_name}) {
592 push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
594 if ($form->{department_id}) {
595 push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description;
597 if ($form->{donumber}) {
598 push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
600 if ($form->{ordnumber}) {
601 push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
603 push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
604 if ($form->{business_id}) {
605 my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
606 push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
608 if ($form->{transaction_description}) {
609 push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
611 if ($form->{parts_description}) {
612 push @options, $locale->text('Part Description') . " : $form->{parts_description}";
614 if ($form->{parts_partnumber}) {
615 push @options, $locale->text('Part Number') . " : $form->{parts_partnumber}";
617 if ( $form->{transdatefrom} or $form->{transdateto} ) {
618 push @options, $locale->text('Delivery Order Date');
619 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
620 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
622 if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
623 push @options, $locale->text('Reqdate');
624 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
625 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
627 if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
628 push @options, $locale->text('Insert Date');
629 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
630 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
633 push @options, $locale->text('Open');
635 if ($form->{closed}) {
636 push @options, $locale->text('Closed');
638 if ($form->{delivered}) {
639 push @options, $locale->text('Delivered');
641 if ($form->{notdelivered}) {
642 push @options, $locale->text('Not delivered');
645 $report->set_options('top_info_text' => join("\n", @options),
646 'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
647 'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom'),
648 'output_format' => 'HTML',
649 'title' => $form->{title},
650 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
652 $report->set_options_from_form();
653 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
655 # add sort and escape callback, this one we use for the add sub
656 $form->{callback} = $href .= "&sort=$form->{sort}";
658 # escape callback for href
659 my $callback = $form->escape($href);
661 my $edit_url = build_std_url('action=edit', 'type', 'vc');
662 my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
666 foreach my $dord (@{ $form->{DO} }) {
667 $dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
668 $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
670 my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
673 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $dord->{id})
674 . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
675 'valign' => 'center',
679 $row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
680 $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
681 $report->add_data($row);
686 $report->generate_with_headers();
688 $main::lxdebug->leave_sub();
692 $main::lxdebug->enter_sub();
698 my $form = $main::form;
699 my %myconfig = %main::myconfig;
700 my $locale = $main::locale;
702 $form->mtime_ischanged('delivery_orders');
704 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
706 $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
708 $form->{donumber} =~ s/^\s*//g;
709 $form->{donumber} =~ s/\s*$//g;
711 my $msg = ucfirst $form->{vc};
712 $form->isblank($form->{vc} . "_id", $locale->text($msg . " missing!"));
714 # $locale->text('Customer missing!');
715 # $locale->text('Vendor missing!');
717 remove_emptied_rows();
720 # if the name changed get new values
721 my $vc = $form->{vc};
722 if (($form->{"previous_${vc}_id"} || $form->{"${vc}_id"}) != $form->{"${vc}_id"}) {
723 $::form->{salesman_id} = SL::DB::Manager::Employee->current->id if exists $::form->{salesman_id};
725 IS->get_customer(\%myconfig, $form) if $vc eq 'customer';
726 IR->get_vendor(\%myconfig, $form) if $vc eq 'vendor';
729 $::dispatcher->end_request;
732 $form->{id} = 0 if $form->{saveasnew};
736 if(!exists $form->{addition}) {
737 $form->{snumbers} = qq|donumber_| . $form->{donumber};
738 $form->{addition} = "SAVED";
741 # /saving the history
743 $form->{simple_save} = 1;
744 if (!$params{no_redirect} && !$form->{print_and_save}) {
745 delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
747 $::dispatcher->end_request;
749 $main::lxdebug->leave_sub();
753 $main::lxdebug->enter_sub();
757 my $form = $main::form;
758 my %myconfig = %main::myconfig;
759 my $locale = $main::locale;
763 if(!exists $form->{addition}) {
764 $form->{snumbers} = qq|donumber_| . $form->{donumber};
765 $form->{addition} = "DELETED";
768 # /saving the history
770 $form->info($locale->text('Delivery Order deleted!'));
771 $::dispatcher->end_request;
774 $form->error($locale->text('Cannot delete delivery order!'));
776 $main::lxdebug->leave_sub();
780 $main::lxdebug->enter_sub();
782 my $form = $main::form;
783 my %myconfig = %main::myconfig;
784 my $locale = $main::locale;
787 $form->mtime_ischanged('delivery_orders');
789 $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
791 $form->{convert_from_do_ids} = $form->{id};
792 $form->{deliverydate} = $form->{transdate};
793 $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
794 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
795 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
799 delete @{$form}{qw(id closed delivered)};
801 my ($script, $buysell);
802 if ($form->{type} eq 'purchase_delivery_order') {
803 $form->{title} = $locale->text('Add Vendor Invoice');
804 $form->{script} = 'ir.pl';
809 $form->{title} = $locale->text('Add Sales Invoice');
810 $form->{script} = 'is.pl';
815 for my $i (1 .. $form->{rowcount}) {
816 map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount);
818 # adds a customer/vendor discount, unless we have a workflow case
819 # CAVEAT: has to be done, after the above parse_amount
820 unless ($form->{"ordnumber"}) {
821 if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
822 # und rabattfähig sind, dann
823 unless ($form->{"not_discountable_$i"}) {
824 $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
828 $form->{"donumber_$i"} = $form->{donumber};
829 $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
832 $form->{type} = "invoice";
835 $main::locale = Locale->new("$myconfig{countrycode}", "$script");
836 $locale = $main::locale;
838 require "bin/mozilla/$form->{script}";
840 my $currency = $form->{currency};
843 if ($form->{ordnumber}) {
844 require SL::DB::Order;
845 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
847 $form->{orddate} = $order->transdate_as_date;
848 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
852 $form->{currency} = $currency;
853 $form->{exchangerate} = "";
854 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
855 $form->{exchangerate} = $form->{forex} if ($form->{forex});
860 for my $i (1 .. $form->{rowcount}) {
861 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
863 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
865 my $decimalplaces = ($dec > 2) ? $dec : 2;
867 # copy delivery date from reqdate for order -> invoice conversion
868 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
869 unless $form->{"deliverydate_$i"};
872 $form->{"sellprice_$i"} =
873 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
876 $form->{"lastcost_$i"} =
877 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
880 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
881 $dec_qty = length $dec_qty;
883 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
889 $main::lxdebug->leave_sub();
893 $main::lxdebug->enter_sub();
895 my $form = $main::form;
896 my %myconfig = %main::myconfig;
897 my $locale = $main::locale;
900 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
902 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
904 if (!scalar @do_ids) {
905 $form->show_generic_error($locale->text('You have not selected any delivery order.'));
908 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
910 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
911 $form->show_generic_error($form->{vc} eq 'customer' ?
912 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
913 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
917 my $source_type = $form->{type};
918 $form->{convert_from_do_ids} = join ' ', @do_ids;
919 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
920 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
921 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
922 # $shell: perldoc perlunc; /delete EXPR
923 $form->{donumber} = delete $form->{donumber_array};
924 $form->{ordnumber} = delete $form->{ordnumber_array};
925 $form->{cusordnumber} = delete $form->{cusordnumber_array};
926 $form->{deliverydate} = $form->{transdate};
927 $form->{transdate} = $form->current_date(\%myconfig);
928 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
929 $form->{type} = "invoice";
931 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
933 my ($script, $buysell);
934 if ($source_type eq 'purchase_delivery_order') {
935 $form->{title} = $locale->text('Add Vendor Invoice');
936 $form->{script} = 'ir.pl';
941 $form->{title} = $locale->text('Add Sales Invoice');
942 $form->{script} = 'is.pl';
947 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
949 # get vendor or customer discount
951 my $saved_form = save_form();
952 if ($form->{vc} eq 'vendor') {
953 IR->get_vendor(\%myconfig, \%$form);
954 $vc_discount = $form->{vendor_discount};
956 IS->get_customer(\%myconfig, \%$form);
957 $vc_discount = $form->{customer_discount};
959 # use payment terms from customer or vendor
960 restore_form($saved_form,0,qw(payment_id));
962 $form->{rowcount} = 0;
963 foreach my $ref (@{ $form->{form_details} }) {
965 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
966 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
967 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
968 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
970 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
971 # und keinen anderen discount wert an $i ...
972 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
975 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
976 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
977 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
979 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
981 delete $form->{form_details};
983 $locale = Locale->new("$myconfig{countrycode}", "$script");
985 require "bin/mozilla/$form->{script}";
992 $main::lxdebug->leave_sub();
996 $main::lxdebug->enter_sub();
1000 my $form = $main::form;
1002 $form->{saveasnew} = 1;
1003 $form->{closed} = 0;
1004 $form->{delivered} = 0;
1005 map { delete $form->{$_} } qw(printed emailed queued);
1006 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1007 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1008 # Let kivitendo assign a new order number if the user hasn't changed the
1009 # previous one. If it has been changed manually then use it as-is.
1010 $form->{donumber} =~ s/^\s*//g;
1011 $form->{donumber} =~ s/\s*$//g;
1012 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1013 delete($form->{donumber});
1018 $main::lxdebug->leave_sub();
1022 $main::lxdebug->enter_sub();
1026 $::form->mtime_ischanged('delivery_orders','mail');
1028 $::form->{print_and_save} = 1;
1030 my $saved_form = save_form();
1034 restore_form($saved_form, 0, qw(id ordnumber quonumber));
1038 $main::lxdebug->leave_sub();
1041 sub calculate_stock_in_out {
1042 $main::lxdebug->enter_sub();
1044 my $form = $main::form;
1048 if (!$form->{"id_${i}"}) {
1049 $main::lxdebug->leave_sub();
1053 my $all_units = AM->retrieve_all_units();
1055 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1056 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1058 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1059 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1060 my $matches = $do_qty == $sum;
1062 my $content = $form->format_amount_units('amount' => $sum * 1,
1063 'part_unit' => $form->{"partunit_$i"},
1064 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1065 'conv_units' => 'convertible_not_smaller',
1067 $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="?">|;
1069 $main::lxdebug->leave_sub();
1074 sub get_basic_bin_wh_info {
1075 $main::lxdebug->enter_sub();
1077 my $stock_info = shift;
1079 my $form = $main::form;
1081 foreach my $sinfo (@{ $stock_info }) {
1082 next unless ($sinfo->{bin_id});
1084 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1085 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1088 $main::lxdebug->leave_sub();
1091 sub stock_in_out_form {
1092 $main::lxdebug->enter_sub();
1094 my $form = $main::form;
1096 if ($form->{in_out} eq 'out') {
1102 $main::lxdebug->leave_sub();
1105 sub redo_stock_info {
1106 $main::lxdebug->enter_sub();
1110 my $form = $main::form;
1112 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1114 if ($params{add_empty_row}) {
1116 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1117 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1121 @{ $params{stock_info} } = @non_empty;
1123 $main::lxdebug->leave_sub();
1126 sub update_stock_in {
1127 $main::lxdebug->enter_sub();
1129 my $form = $main::form;
1130 my %myconfig = %main::myconfig;
1132 my $stock_info = [];
1134 foreach my $i (1..$form->{rowcount}) {
1135 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1136 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1137 bestbefore qty unit delivery_order_items_stock_id) };
1140 display_stock_in_form($stock_info);
1142 $main::lxdebug->leave_sub();
1146 $main::lxdebug->enter_sub();
1148 my $form = $main::form;
1150 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1152 display_stock_in_form($stock_info);
1154 $main::lxdebug->leave_sub();
1157 sub display_stock_in_form {
1158 $main::lxdebug->enter_sub();
1160 my $stock_info = shift;
1162 my $form = $main::form;
1163 my %myconfig = %main::myconfig;
1164 my $locale = $main::locale;
1166 $form->{title} = $locale->text('Stock');
1168 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1170 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1171 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1172 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1173 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1176 my $units = AM->retrieve_units(\%myconfig, $form);
1177 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1178 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1180 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1181 'bins' => 'BINS' });
1183 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1185 get_basic_bin_wh_info($stock_info);
1187 $form->header(no_layout => 1);
1188 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1189 'STOCK_INFO' => $stock_info,
1190 'PART_INFO' => $part_info, });
1192 $main::lxdebug->leave_sub();
1195 sub _stock_in_out_set_qty_display {
1196 my $stock_info = shift;
1198 my $all_units = AM->retrieve_all_units();
1199 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1200 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1201 part_unit => $form->{partunit},
1202 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1203 conv_units => 'convertible_not_smaller',
1208 $main::lxdebug->enter_sub();
1210 my $form = $main::form;
1211 my %myconfig = %main::myconfig;
1213 my $stock_info = [];
1215 foreach my $i (1..$form->{rowcount}) {
1216 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1218 next if ($form->{"qty_$i"} <= 0);
1220 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1223 $form->{stock} = YAML::Dump($stock_info);
1225 _stock_in_out_set_qty_display($stock_info);
1227 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1228 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1231 print $form->parse_html_template('do/set_stock_in_out', {
1232 qty_matches => $do_qty == $transfer_qty,
1235 $main::lxdebug->leave_sub();
1238 sub stock_out_form {
1239 $main::lxdebug->enter_sub();
1241 my $form = $main::form;
1242 my %myconfig = %main::myconfig;
1243 my $locale = $main::locale;
1245 $form->{title} = $locale->text('Release From Stock');
1247 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1249 my $units = AM->retrieve_units(\%myconfig, $form);
1250 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1252 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1254 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1256 if (!$form->{delivered}) {
1257 foreach my $row (@contents) {
1258 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1259 'part_unit' => $part_info->{unit},
1260 'conv_units' => 'convertible_not_smaller',
1263 foreach my $sinfo (@{ $stock_info }) {
1264 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1265 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1266 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1267 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1269 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1274 get_basic_bin_wh_info($stock_info);
1276 foreach my $sinfo (@{ $stock_info }) {
1277 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1281 $form->header(no_layout => 1);
1282 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1283 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1284 'PART_INFO' => $part_info, });
1286 $main::lxdebug->leave_sub();
1290 $main::lxdebug->enter_sub();
1292 my $form = $main::form;
1293 my %myconfig = %main::myconfig;
1294 my $locale = $main::locale;
1296 my $stock_info = [];
1298 foreach my $i (1 .. $form->{rowcount}) {
1299 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1301 next if ($form->{"qty_$i"} <= 0);
1303 push @{ $stock_info }, {
1304 'warehouse_id' => $form->{"warehouse_id_$i"},
1305 'bin_id' => $form->{"bin_id_$i"},
1306 'chargenumber' => $form->{"chargenumber_$i"},
1307 'bestbefore' => $form->{"bestbefore_$i"},
1308 'qty' => $form->{"qty_$i"},
1309 'unit' => $form->{"unit_$i"},
1311 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1315 my @errors = DO->check_stock_availability('requests' => $stock_info,
1316 'parts_id' => $form->{parts_id});
1318 $form->{stock} = YAML::Dump($stock_info);
1321 $form->{ERRORS} = [];
1322 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1323 stock_in_out_form();
1326 _stock_in_out_set_qty_display($stock_info);
1328 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1329 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1332 print $form->parse_html_template('do/set_stock_in_out', {
1333 qty_matches => $do_qty == $transfer_qty,
1337 $main::lxdebug->leave_sub();
1341 $main::lxdebug->enter_sub();
1343 my $form = $main::form;
1344 my %myconfig = %main::myconfig;
1345 my $locale = $main::locale;
1347 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1348 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'));
1351 save(no_redirect => 1);
1353 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1357 my $units = AM->retrieve_units(\%myconfig, $form);
1358 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1361 $form->{ERRORS} = [];
1363 foreach my $i (1 .. $form->{rowcount}) {
1364 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1366 my $row_sum_base_qty = 0;
1367 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1369 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1370 $request->{parts_id} = $form->{"id_$i"};
1371 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1373 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1375 push @all_requests, $request;
1378 next if (0 == $row_sum_base_qty);
1380 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1382 # if ($do_base_qty != $row_sum_base_qty) {
1383 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1384 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1388 if (@{ $form->{ERRORS} }) {
1389 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1391 set_headings('edit');
1393 $main::lxdebug->leave_sub();
1395 $::dispatcher->end_request;
1399 DO->transfer_in_out('direction' => 'in',
1400 'requests' => \@all_requests);
1402 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1404 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1407 $main::lxdebug->leave_sub();
1411 $main::lxdebug->enter_sub();
1413 my $form = $main::form;
1414 my %myconfig = %main::myconfig;
1415 my $locale = $main::locale;
1417 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1418 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'));
1421 save(no_redirect => 1);
1423 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1427 my $units = AM->retrieve_units(\%myconfig, $form);
1428 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1431 $form->{ERRORS} = [];
1433 foreach my $i (1 .. $form->{rowcount}) {
1434 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1436 my $row_sum_base_qty = 0;
1437 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1439 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1440 $request->{parts_id} = $form->{"id_$i"};
1441 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1442 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1444 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1446 $request_map{$map_key} ||= $request;
1447 $request_map{$map_key}->{sum_base_qty} ||= 0;
1448 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1449 $row_sum_base_qty += $request->{base_qty};
1451 push @all_requests, $request;
1454 next if (0 == $row_sum_base_qty);
1456 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1458 # if ($do_base_qty != $row_sum_base_qty) {
1459 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1460 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1465 my @bin_ids = map { $_->{bin_id} } values %request_map;
1466 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1467 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1469 foreach my $inv (@contents) {
1470 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1472 next unless ($request_map{$map_key});
1474 my $request = $request_map{$map_key};
1475 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1478 foreach my $request (values %request_map) {
1479 next if ($request->{ok});
1481 my $pinfo = $part_info_map{$request->{parts_id}};
1482 my $binfo = $bin_info_map{$request->{bin_id}};
1484 if ($::instance_conf->get_show_bestbefore) {
1485 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1486 $pinfo->{description},
1487 $binfo->{warehouse_description},
1488 $binfo->{bin_description},
1489 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1490 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1491 $form->format_amount_units('amount' => $request->{sum_base_qty},
1492 'part_unit' => $pinfo->{unit},
1493 'conv_units' => 'convertible_not_smaller'));
1495 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1496 $pinfo->{description},
1497 $binfo->{warehouse_description},
1498 $binfo->{bin_description},
1499 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1500 $form->format_amount_units('amount' => $request->{sum_base_qty},
1501 'part_unit' => $pinfo->{unit},
1502 'conv_units' => 'convertible_not_smaller'));
1507 if (@{ $form->{ERRORS} }) {
1508 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1510 set_headings('edit');
1512 $main::lxdebug->leave_sub();
1514 $::dispatcher->end_request;
1517 DO->transfer_in_out('direction' => 'out',
1518 'requests' => \@all_requests);
1520 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1522 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1525 $main::lxdebug->leave_sub();
1529 $main::lxdebug->enter_sub();
1531 my $form = $main::form;
1533 DO->close_orders('ids' => [ $form->{id} ]);
1535 $form->{closed} = 1;
1539 $main::lxdebug->leave_sub();
1543 $::lxdebug->enter_sub;
1545 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1548 retrieve_partunits();
1550 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1551 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1553 $::form->language_payment(\%::myconfig);
1555 Common::webdav_folder($::form);
1558 display_row(++$::form->{rowcount});
1561 $::lxdebug->leave_sub;
1565 call_sub($main::form->{yes_nextsub});
1569 call_sub($main::form->{no_nextsub});
1573 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1577 my $form = $main::form;
1578 my $locale = $main::locale;
1580 foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default sort
1581 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1582 if ($form->{"action_${action}"}) {
1588 $form->error($locale->text('No action defined.'));
1591 sub transfer_out_default {
1592 $main::lxdebug->enter_sub();
1594 my $form = $main::form;
1596 transfer_in_out_default('direction' => 'out');
1598 $main::lxdebug->leave_sub();
1601 sub transfer_in_default {
1602 $main::lxdebug->enter_sub();
1604 my $form = $main::form;
1606 transfer_in_out_default('direction' => 'in');
1608 $main::lxdebug->leave_sub();
1611 # Falls das Standardlagerverfahren aktiv ist, wird
1612 # geprüft, ob alle Standardlagerplätze für die Auslager-
1613 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1614 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1615 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1616 sub transfer_in_out_default {
1617 $main::lxdebug->enter_sub();
1619 my $form = $main::form;
1620 my %myconfig = %main::myconfig;
1621 my $locale = $main::locale;
1624 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1626 Common::check_params(\%params, qw(direction));
1628 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1629 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1630 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1631 $default_bin_id = $::instance_conf->get_bin_id;
1635 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1637 my $units = AM->retrieve_units(\%myconfig, $form);
1638 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1639 foreach my $i (1 .. $form->{rowcount}) {
1640 next unless ($form->{"id_$i"});
1641 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1642 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1644 $form->show_generic_error($locale->text("Cannot transfer negative entries." )) if ($qty < 0);
1645 # if we do not want to transfer services and this part is a service, set qty to zero
1646 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1647 # ... 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)
1649 $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});
1650 $qty_parts{$form->{"id_$i"}} += $qty;
1652 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1653 undef $form->{"stock_in_$i"};
1656 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1657 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1659 push @all_requests, ($qty == 0) ? { } : {
1660 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1661 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1662 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1664 'parts_id' => $form->{"id_$i"},
1665 'comment' => $locale->text("Default transfer delivery order"),
1666 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1667 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1668 'oe_id' => $form->{id},
1669 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1673 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1674 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1675 foreach my $key (keys %qty_parts) {
1677 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1678 next unless ($part_info_map{$key}{bin_id}); # abbruch
1680 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1681 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1683 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1684 # deshalb rückmeldung nach oben geben, manuell auszulagern
1685 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1686 $missing_default_bins{$key}{chargenumber} = 1;
1688 if ($max_qty < $qty_parts{$key}){
1689 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1695 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1696 if (scalar (keys %missing_default_bins)) {
1698 foreach my $fehler (keys %missing_default_bins) {
1700 my $ware = WH->get_part_description(parts_id => $fehler);
1701 if ($missing_default_bins{$fehler}{missing_bin}){
1702 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1704 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1705 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1706 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1708 if ($missing_default_bins{$fehler}{chargenumber}){
1709 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1710 Hier kann man nicht automatisch entscheiden.
1711 Bitte diesen Lieferschein manuell auslagern.
1714 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1715 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1716 # Lagerplatz Lagerplatz-Korrektur
1717 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1718 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1719 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1720 # entsprechende defaults holen
1721 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1722 # lagerplatz wegbuchen!
1723 foreach (@all_requests) {
1724 if ($_->{parts_id} eq $fehler){
1725 $_->{bin_id} = $default_bin_id_ignore_onhand;
1726 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1730 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1731 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ));
1737 # hier der eigentliche fallunterschied für in oder out
1738 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1740 # dieser array_ref ist für DO->save da:
1741 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1742 # gefüllt werden kann.
1743 # could be dumped to the form in the first loop,
1744 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1745 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1747 foreach (@all_requests){
1749 next unless scalar(%{ $_ });
1750 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1753 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1754 # und in delivery_order_items_stock speichern
1756 # ... and fill back the persistent dois_id for inventory fk
1757 undef (@all_requests);
1758 foreach my $i (1 .. $form->{rowcount}) {
1759 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1760 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1762 DO->transfer_in_out('direction' => $prefix,
1763 'requests' => \@all_requests);
1765 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1767 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1768 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1774 $main::lxdebug->enter_sub();
1778 my $form = $main::form;
1781 save(no_redirect => 1); # has to be done, at least for newly added positions
1783 # hashify partnumbers, positions. key is delivery_order_items_id
1784 for my $i (1 .. ($form->{rowcount}) ) {
1785 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1786 if ($form->{id} && $form->{"discount_$i"}) {
1787 # prepare_order assumes a db value if there is a form->id and multiplies *100
1788 # We hope for new controller code (no more format_amount/parse_amount distinction)
1789 $form->{"discount_$i"} /=100;
1792 # naturally sort partnumbers and get a sorted array of doi_ids
1793 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1798 for (@sorted_doi_ids) {
1799 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1802 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1803 # another format_amount to change it back, for the next save ;-(
1804 # works great except for row discounts (see above comment)
1808 $main::lxdebug->leave_sub();
1820 do.pl - Script for all calls to delivery order
1828 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1829 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
1835 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
1836 Example coding for database scripts and templates in (git show af2f24b8), check also
1837 autogeneration for rose (scripts/rose_auto_create_model.pl --h)