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/arap.pl";
49 require "bin/mozilla/common.pl";
50 require "bin/mozilla/io.pl";
51 require "bin/mozilla/reportgenerator.pl";
60 $main::auth->assert($main::form->{type} . '_edit');
64 $main::lxdebug->enter_sub();
70 my $form = $main::form;
71 my $locale = $main::locale;
73 if ($form->{type} eq 'purchase_delivery_order') {
74 $form->{vc} = 'vendor';
75 $form->{title} = $action eq "edit" ? $locale->text('Edit Purchase Delivery Order') : $locale->text('Add Purchase Delivery Order');
77 $form->{vc} = 'customer';
78 $form->{title} = $action eq "edit" ? $locale->text('Edit Sales Delivery Order') : $locale->text('Add Sales Delivery Order');
81 $form->{heading} = $locale->text('Delivery Order');
83 $main::lxdebug->leave_sub();
87 $main::lxdebug->enter_sub();
91 if (($::form->{type} =~ /purchase/) && !$::instance_conf->get_allow_new_purchase_invoice) {
92 $::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));
95 my $form = $main::form;
99 $form->{show_details} = $::myconfig{show_form_details};
100 $form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});
106 $main::lxdebug->leave_sub();
110 $main::lxdebug->enter_sub();
114 my $form = $main::form;
116 $form->{show_details} = $::myconfig{show_form_details};
118 # show history button
119 $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
120 #/show hhistory button
122 $form->{simple_save} = 0;
124 set_headings("edit");
126 # editing without stuff to edit? try adding it first
127 if ($form->{rowcount} && !$form->{print_and_save}) {
128 # map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});
132 undef $form->{rowcount};
134 $main::lxdebug->leave_sub();
137 } elsif (!$form->{id}) {
139 $main::lxdebug->leave_sub();
143 my ($language_id, $printer_id);
144 if ($form->{print_and_save}) {
145 $form->{action} = "dispatcher";
146 $form->{action_print} = "1";
147 $form->{resubmit} = 1;
148 $language_id = $form->{language_id};
149 $printer_id = $form->{printer_id};
152 set_headings("edit");
157 if ($form->{print_and_save}) {
158 $form->{language_id} = $language_id;
159 $form->{printer_id} = $printer_id;
164 $main::lxdebug->leave_sub();
168 $main::lxdebug->enter_sub();
172 my $form = $main::form;
173 my %myconfig = %main::myconfig;
175 # get customer/vendor
176 $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
178 # retrieve order/quotation
179 my $editing = $form->{id};
181 DO->retrieve('vc' => $form->{vc},
182 'ids' => $form->{id});
184 $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes delivery_term_id currency));
186 # get customer / vendor
187 if ($form->{vc} eq 'vendor') {
188 IR->get_vendor(\%myconfig, \%$form);
189 $form->{discount} = $form->{vendor_discount};
191 IS->get_customer(\%myconfig, \%$form);
192 $form->{discount} = $form->{customer_discount};
195 $form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id delivery_term_id));
196 $form->restore_vars(qw(currency)) if ($form->{id} || $form->{convert_from_oe_ids});
197 $form->restore_vars(qw(taxincluded)) if $form->{id};
198 $form->restore_vars(qw(salesman_id)) if $editing;
200 if ($form->{"all_$form->{vc}"}) {
201 unless ($form->{"$form->{vc}_id"}) {
202 $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
206 ($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} };
207 $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
209 $form->{employee} = "$form->{employee}--$form->{employee_id}";
211 $main::lxdebug->leave_sub();
215 $main::lxdebug->enter_sub();
219 my $form = $main::form;
220 my %myconfig = %main::myconfig;
222 $form->{formname} = $form->{type} unless $form->{formname};
225 foreach my $ref (@{ $form->{form_details} }) {
226 $form->{rowcount} = ++$i;
228 map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
230 for my $i (1 .. $form->{rowcount}) {
232 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
234 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
236 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
238 my $decimalplaces = ($dec > 2) ? $dec : 2;
240 # copy reqdate from deliverydate for invoice -> order conversion
241 $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};
243 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
244 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
246 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
247 $dec_qty = length $dec_qty;
248 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
251 $main::lxdebug->leave_sub();
255 $main::lxdebug->enter_sub();
259 my $form = $main::form;
260 my %myconfig = %main::myconfig;
262 $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
263 $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
265 my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
266 $form->get_lists($vc => "ALL_VC",
267 "price_factors" => "ALL_PRICE_FACTORS",
268 "business_types" => "ALL_BUSINESS_TYPES",
270 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
273 my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
274 my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
276 if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
279 customer_id => $::form->{customer_id},
280 billable_customer_id => $::form->{customer_id},
285 and => [ active => 1, @customer_cond ],
289 $::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
290 $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
291 $::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
292 $::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
293 or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
295 $::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
297 cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
300 cp_id => $::form->{cp_id} * 1
305 map { $_->{value} = "$_->{name}--$_->{id}" } @{ $form->{ALL_VC} };
307 $form->{SHOW_VC_DROP_DOWN} = $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };
309 $form->{oldvcname} = $form->{"old$form->{vc}"};
310 $form->{oldvcname} =~ s/--.*//;
312 my $dispatch_to_popup = '';
313 if ($form->{resubmit} && ($form->{format} eq "html")) {
314 $dispatch_to_popup = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";
315 $dispatch_to_popup .= "document.do.submit();";
316 } elsif ($form->{resubmit}) {
317 # emulate click for resubmitting actions
318 $dispatch_to_popup = "document.do.${_}.click(); " for grep { /^action_/ } keys %$form;
320 $::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
323 my $follow_up_vc = $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
324 $follow_up_vc =~ s/--\d*\s*$//;
326 $form->{follow_up_trans_info} = $form->{donumber} .'('. $follow_up_vc .')';
328 $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.SalesPurchase ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_customer autocomplete_part));
331 push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
333 $::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ];
336 # Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'
337 # und Erweiterung für Bug 1760:
338 # Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf
339 # nicht überlebt. Konsequent jetzt auf L umgestellt
340 # $ perldoc SL::Template::Plugin::L
341 # Daher entsprechend nur die Anpassung in form_header
342 # und in DO.pm gemacht. 4 Testfälle:
343 # department_id speichern | i.O.
344 # department_id lesen | i.O.
345 # department leer überlebt erneuern | i.O.
346 # department nicht leer überlebt erneuern | i.O.
347 # $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});
348 print $form->parse_html_template('do/form_header');
350 $main::lxdebug->leave_sub();
354 $main::lxdebug->enter_sub();
358 my $form = $main::form;
360 $form->{PRINT_OPTIONS} = print_options('inline' => 1);
361 $form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
363 print $form->parse_html_template('do/form_footer',
364 {transfer_default => ($::instance_conf->get_transfer_default)});
366 $main::lxdebug->leave_sub();
369 sub update_delivery_order {
370 $main::lxdebug->enter_sub();
374 my $form = $main::form;
375 my %myconfig = %main::myconfig;
377 set_headings($form->{"id"} ? "edit" : "add");
379 $form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};
384 $payment_id = $form->{payment_id} if $form->{payment_id};
386 check_name($form->{vc});
387 $form->{discount} = $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};
388 # Problem: Wenn man ohne Erneuern einen Kunden/Lieferanten
389 # wechselt, wird der entsprechende Kunden/ Lieferantenrabatt
390 # nicht übernommen. Grundproblem: In Commit 82574e78
391 # hab ich aus discount customer_discount und vendor_discount
392 # gemacht und entsprechend an den Oberflächen richtig hin-
393 # geschoben. Die damals bessere Lösung wäre gewesen:
394 # In den Templates nur die hidden für form-discount wieder ein-
395 # setzen dann wäre die Verrenkung jetzt nicht notwendig.
396 # TODO: Ggf. Bugfix 1284, 1575 und 817 wieder zusammenführen
397 # Testfälle: Kunden mit Rabatt 0 -> Rabatt 20 i.O.
398 # Kunde mit Rabatt 20 -> Rabatt 0 i.O.
399 # Kunde mit Rabatt 20 -> Rabatt 5,5 i.O.
400 $form->{payment_id} = $payment_id if $form->{payment_id} eq "";
402 my $i = $form->{rowcount};
404 if ( ($form->{"partnumber_$i"} eq "")
405 && ($form->{"description_$i"} eq "")
406 && ($form->{"partsgroup_$i"} eq "")) {
413 if ($form->{type} eq 'purchase_delivery_order') {
414 IR->retrieve_item(\%myconfig, $form);
417 IS->retrieve_item(\%myconfig, $form);
421 my $rows = scalar @{ $form->{item_list} };
424 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
425 if( !$form->{"qty_$i"} ) {
426 $form->{"qty_$i"} = 1;
431 select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
432 $::dispatcher->end_request;
436 my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
438 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
440 $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
443 $form->{"sellprice_$i"} = $sellprice;
445 my $record = _make_record();
446 my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
447 my $best_price = $price_source->best_price;
448 my $best_discount = $price_source->best_discount;
451 $::form->{"sellprice_$i"} = $best_price->price;
452 $::form->{"active_price_source_$i"} = $best_price->source;
454 if ($best_discount) {
455 $::form->{"discount_$i"} = $best_discount->discount;
456 $::form->{"active_discount_source_$i"} = $best_discount->source;
460 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
461 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
462 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
463 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
470 # ok, so this is a new part
471 # ask if it is a part or service item
473 if ( $form->{"partsgroup_$i"}
474 && ($form->{"partsnumber_$i"} eq "")
475 && ($form->{"description_$i"} eq "")) {
477 $form->{"discount_$i"} = "";
478 $form->{"not_discountable_$i"} = "";
482 $form->{"id_$i"} = 0;
488 $main::lxdebug->leave_sub();
492 $main::lxdebug->enter_sub();
496 my $form = $main::form;
497 my %myconfig = %main::myconfig;
498 my $locale = $main::locale;
500 $form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
502 $form->get_lists("projects" => { "key" => "ALL_PROJECTS",
504 "business_types" => "ALL_BUSINESS_TYPES");
505 $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
506 $form->{ALL_DEPARTMENTS} = SL::DB::Manager::Department->get_all;
507 $form->{title} = $locale->text('Delivery Orders');
511 print $form->parse_html_template('do/search');
513 $main::lxdebug->leave_sub();
517 $main::lxdebug->enter_sub();
521 my $form = $main::form;
522 my %myconfig = %main::myconfig;
523 my $locale = $main::locale;
524 my $cgi = $::request->{cgi};
526 ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
528 report_generator_set_default_sort('transdate', 1);
532 $form->{rowcount} = scalar @{ $form->{DO} };
535 ids transdate reqdate
537 ordnumber customernumber cusordnumber
538 name employee salesman
539 shipvia globalprojectnumber
540 transaction_description department
545 $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
546 $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
548 $form->{title} = $locale->text('Delivery Orders');
550 my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
552 my $report = SL::ReportGenerator->new(\%myconfig, $form);
554 my @hidden_variables = map { "l_${_}" } @columns;
555 push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
556 transaction_description transdatefrom transdateto reqdatefrom reqdateto
557 type vc employee_id salesman_id project_id parts_partnumber parts_description
558 insertdatefrom insertdateto business_id);
560 my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
563 'ids' => { 'text' => '', },
564 'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
565 'reqdate' => { 'text' => $locale->text('Reqdate'), },
566 'id' => { 'text' => $locale->text('ID'), },
567 'donumber' => { 'text' => $locale->text('Delivery Order'), },
568 'ordnumber' => { 'text' => $locale->text('Order'), },
569 'customernumber' => { 'text' => $locale->text('Customer Number'), },
570 'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
571 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
572 'employee' => { 'text' => $locale->text('Employee'), },
573 'salesman' => { 'text' => $locale->text('Salesman'), },
574 'shipvia' => { 'text' => $locale->text('Ship via'), },
575 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
576 'transaction_description' => { 'text' => $locale->text('Transaction description'), },
577 'open' => { 'text' => $locale->text('Open'), },
578 'delivered' => { 'text' => $locale->text('Delivered'), },
579 'department' => { 'text' => $locale->text('Department'), },
580 'insertdate' => { 'text' => $locale->text('Insert Date'), },
583 foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
584 my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
585 $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
588 $form->{"l_type"} = "Y";
589 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
591 $column_defs{ids}->{visible} = 'HTML';
593 $report->set_columns(%column_defs);
594 $report->set_column_order(@columns);
596 $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
598 $report->set_sort_indicator($form->{sort}, $form->{sortdir});
601 if ($form->{customer}) {
602 push @options, $locale->text('Customer') . " : $form->{customer}";
604 if ($form->{vendor}) {
605 push @options, $locale->text('Vendor') . " : $form->{vendor}";
607 if ($form->{cp_name}) {
608 push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
610 if ($form->{department_id}) {
611 push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description;
613 if ($form->{donumber}) {
614 push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
616 if ($form->{ordnumber}) {
617 push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
619 push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
620 if ($form->{business_id}) {
621 my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
622 push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
624 if ($form->{transaction_description}) {
625 push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
627 if ($form->{parts_description}) {
628 push @options, $locale->text('Part Description') . " : $form->{parts_description}";
630 if ($form->{parts_partnumber}) {
631 push @options, $locale->text('Part Number') . " : $form->{parts_partnumber}";
633 if ( $form->{transdatefrom} or $form->{transdateto} ) {
634 push @options, $locale->text('Delivery Order Date');
635 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
636 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
638 if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
639 push @options, $locale->text('Reqdate');
640 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
641 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
643 if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
644 push @options, $locale->text('Insert Date');
645 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
646 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
649 push @options, $locale->text('Open');
651 if ($form->{closed}) {
652 push @options, $locale->text('Closed');
654 if ($form->{delivered}) {
655 push @options, $locale->text('Delivered');
657 if ($form->{notdelivered}) {
658 push @options, $locale->text('Not delivered');
661 $report->set_options('top_info_text' => join("\n", @options),
662 'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
663 'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom'),
664 'output_format' => 'HTML',
665 'title' => $form->{title},
666 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
668 $report->set_options_from_form();
669 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
671 # add sort and escape callback, this one we use for the add sub
672 $form->{callback} = $href .= "&sort=$form->{sort}";
674 # escape callback for href
675 my $callback = $form->escape($href);
677 my $edit_url = build_std_url('action=edit', 'type', 'vc');
678 my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
682 foreach my $dord (@{ $form->{DO} }) {
683 $dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
684 $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
686 my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
689 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $dord->{id})
690 . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
691 'valign' => 'center',
695 $row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
696 $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
697 $report->add_data($row);
702 $report->generate_with_headers();
704 $main::lxdebug->leave_sub();
708 $main::lxdebug->enter_sub();
714 my $form = $main::form;
715 my %myconfig = %main::myconfig;
716 my $locale = $main::locale;
718 $form->mtime_ischanged('delivery_orders');
720 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
722 $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
724 $form->{donumber} =~ s/^\s*//g;
725 $form->{donumber} =~ s/\s*$//g;
727 my $msg = ucfirst $form->{vc};
728 $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
730 # $locale->text('Customer missing!');
731 # $locale->text('Vendor missing!');
733 remove_emptied_rows();
736 # if the name changed get new values
737 if (check_name($form->{vc})) {
739 $::dispatcher->end_request;
742 $form->{id} = 0 if $form->{saveasnew};
746 if(!exists $form->{addition}) {
747 $form->{snumbers} = qq|donumber_| . $form->{donumber};
748 $form->{addition} = "SAVED";
751 # /saving the history
753 $form->{simple_save} = 1;
754 if (!$params{no_redirect} && !$form->{print_and_save}) {
755 delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
757 $::dispatcher->end_request;
759 $main::lxdebug->leave_sub();
763 $main::lxdebug->enter_sub();
767 my $form = $main::form;
768 my %myconfig = %main::myconfig;
769 my $locale = $main::locale;
773 if(!exists $form->{addition}) {
774 $form->{snumbers} = qq|donumber_| . $form->{donumber};
775 $form->{addition} = "DELETED";
778 # /saving the history
780 $form->info($locale->text('Delivery Order deleted!'));
781 $::dispatcher->end_request;
784 $form->error($locale->text('Cannot delete delivery order!'));
786 $main::lxdebug->leave_sub();
790 $main::lxdebug->enter_sub();
792 my $form = $main::form;
793 my %myconfig = %main::myconfig;
794 my $locale = $main::locale;
797 $form->mtime_ischanged('delivery_orders');
799 $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
801 $form->{convert_from_do_ids} = $form->{id};
802 $form->{deliverydate} = $form->{transdate};
803 $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
804 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
805 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
809 delete @{$form}{qw(id closed delivered)};
811 my ($script, $buysell);
812 if ($form->{type} eq 'purchase_delivery_order') {
813 $form->{title} = $locale->text('Add Vendor Invoice');
814 $form->{script} = 'ir.pl';
819 $form->{title} = $locale->text('Add Sales Invoice');
820 $form->{script} = 'is.pl';
825 for my $i (1 .. $form->{rowcount}) {
826 map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount);
828 # adds a customer/vendor discount, unless we have a workflow case
829 # CAVEAT: has to be done, after the above parse_amount
830 unless ($form->{"ordnumber"}) {
831 if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
832 # und rabattfähig sind, dann
833 unless ($form->{"not_discountable_$i"}) {
834 $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
838 $form->{"donumber_$i"} = $form->{donumber};
839 $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
842 $form->{type} = "invoice";
845 $main::locale = Locale->new("$myconfig{countrycode}", "$script");
846 $locale = $main::locale;
848 require "bin/mozilla/$form->{script}";
850 my $currency = $form->{currency};
853 if ($form->{ordnumber}) {
854 require SL::DB::Order;
855 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
857 $form->{orddate} = $order->transdate_as_date;
858 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
862 $form->{currency} = $currency;
863 $form->{exchangerate} = "";
864 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
865 $form->{exchangerate} = $form->{forex} if ($form->{forex});
870 for my $i (1 .. $form->{rowcount}) {
871 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
873 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
875 my $decimalplaces = ($dec > 2) ? $dec : 2;
877 # copy delivery date from reqdate for order -> invoice conversion
878 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
879 unless $form->{"deliverydate_$i"};
882 $form->{"sellprice_$i"} =
883 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
886 $form->{"lastcost_$i"} =
887 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
890 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
891 $dec_qty = length $dec_qty;
893 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
899 $main::lxdebug->leave_sub();
903 $main::lxdebug->enter_sub();
905 my $form = $main::form;
906 my %myconfig = %main::myconfig;
907 my $locale = $main::locale;
910 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
912 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
914 if (!scalar @do_ids) {
915 $form->show_generic_error($locale->text('You have not selected any delivery order.'));
918 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
920 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
921 $form->show_generic_error($form->{vc} eq 'customer' ?
922 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
923 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
927 my $source_type = $form->{type};
928 $form->{convert_from_do_ids} = join ' ', @do_ids;
929 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
930 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
931 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
932 # $shell: perldoc perlunc; /delete EXPR
933 $form->{donumber} = delete $form->{donumber_array};
934 $form->{ordnumber} = delete $form->{ordnumber_array};
935 $form->{cusordnumber} = delete $form->{cusordnumber_array};
936 $form->{deliverydate} = $form->{transdate};
937 $form->{transdate} = $form->current_date(\%myconfig);
938 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
939 $form->{type} = "invoice";
941 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
943 my ($script, $buysell);
944 if ($source_type eq 'purchase_delivery_order') {
945 $form->{title} = $locale->text('Add Vendor Invoice');
946 $form->{script} = 'ir.pl';
951 $form->{title} = $locale->text('Add Sales Invoice');
952 $form->{script} = 'is.pl';
957 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
959 # get vendor or customer discount
961 my $saved_form = save_form();
962 if ($form->{vc} eq 'vendor') {
963 IR->get_vendor(\%myconfig, \%$form);
964 $vc_discount = $form->{vendor_discount};
966 IS->get_customer(\%myconfig, \%$form);
967 $vc_discount = $form->{customer_discount};
969 # use payment terms from customer or vendor
970 restore_form($saved_form,0,qw(payment_id));
972 $form->{rowcount} = 0;
973 foreach my $ref (@{ $form->{form_details} }) {
975 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
976 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
977 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
978 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
980 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
981 # und keinen anderen discount wert an $i ...
982 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
985 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
986 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
987 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
989 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
991 delete $form->{form_details};
993 $locale = Locale->new("$myconfig{countrycode}", "$script");
995 require "bin/mozilla/$form->{script}";
1002 $main::lxdebug->leave_sub();
1006 $main::lxdebug->enter_sub();
1010 my $form = $main::form;
1012 $form->{saveasnew} = 1;
1013 $form->{closed} = 0;
1014 $form->{delivered} = 0;
1015 map { delete $form->{$_} } qw(printed emailed queued);
1016 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1017 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1018 # Let kivitendo assign a new order number if the user hasn't changed the
1019 # previous one. If it has been changed manually then use it as-is.
1020 $form->{donumber} =~ s/^\s*//g;
1021 $form->{donumber} =~ s/\s*$//g;
1022 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1023 delete($form->{donumber});
1028 $main::lxdebug->leave_sub();
1032 $main::lxdebug->enter_sub();
1036 $::form->mtime_ischanged('delivery_orders','mail');
1038 $::form->{print_and_save} = 1;
1040 my $saved_form = save_form();
1044 restore_form($saved_form, 0, qw(id ordnumber quonumber));
1048 $main::lxdebug->leave_sub();
1051 sub calculate_stock_in_out {
1052 $main::lxdebug->enter_sub();
1054 my $form = $main::form;
1058 if (!$form->{"id_${i}"}) {
1059 $main::lxdebug->leave_sub();
1063 my $all_units = AM->retrieve_all_units();
1065 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1066 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1068 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1069 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1070 my $matches = $do_qty == $sum;
1072 my $content = $form->format_amount_units('amount' => $sum * 1,
1073 'part_unit' => $form->{"partunit_$i"},
1074 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1075 'conv_units' => 'convertible_not_smaller',
1077 $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="?">|;
1079 $main::lxdebug->leave_sub();
1084 sub get_basic_bin_wh_info {
1085 $main::lxdebug->enter_sub();
1087 my $stock_info = shift;
1089 my $form = $main::form;
1091 foreach my $sinfo (@{ $stock_info }) {
1092 next unless ($sinfo->{bin_id});
1094 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1095 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1098 $main::lxdebug->leave_sub();
1101 sub stock_in_out_form {
1102 $main::lxdebug->enter_sub();
1104 my $form = $main::form;
1106 if ($form->{in_out} eq 'out') {
1112 $main::lxdebug->leave_sub();
1115 sub redo_stock_info {
1116 $main::lxdebug->enter_sub();
1120 my $form = $main::form;
1122 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1124 if ($params{add_empty_row}) {
1126 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1127 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1131 @{ $params{stock_info} } = @non_empty;
1133 $main::lxdebug->leave_sub();
1136 sub update_stock_in {
1137 $main::lxdebug->enter_sub();
1139 my $form = $main::form;
1140 my %myconfig = %main::myconfig;
1142 my $stock_info = [];
1144 foreach my $i (1..$form->{rowcount}) {
1145 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1146 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1147 bestbefore qty unit delivery_order_items_stock_id) };
1150 display_stock_in_form($stock_info);
1152 $main::lxdebug->leave_sub();
1156 $main::lxdebug->enter_sub();
1158 my $form = $main::form;
1160 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1162 display_stock_in_form($stock_info);
1164 $main::lxdebug->leave_sub();
1167 sub display_stock_in_form {
1168 $main::lxdebug->enter_sub();
1170 my $stock_info = shift;
1172 my $form = $main::form;
1173 my %myconfig = %main::myconfig;
1174 my $locale = $main::locale;
1176 $form->{title} = $locale->text('Stock');
1178 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1180 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1181 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1182 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1183 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1186 my $units = AM->retrieve_units(\%myconfig, $form);
1187 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1188 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1190 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1191 'bins' => 'BINS' });
1193 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1195 get_basic_bin_wh_info($stock_info);
1197 $form->header(no_layout => 1);
1198 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1199 'STOCK_INFO' => $stock_info,
1200 'PART_INFO' => $part_info, });
1202 $main::lxdebug->leave_sub();
1205 sub _stock_in_out_set_qty_display {
1206 my $stock_info = shift;
1208 my $all_units = AM->retrieve_all_units();
1209 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1210 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1211 part_unit => $form->{partunit},
1212 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1213 conv_units => 'convertible_not_smaller',
1218 $main::lxdebug->enter_sub();
1220 my $form = $main::form;
1221 my %myconfig = %main::myconfig;
1223 my $stock_info = [];
1225 foreach my $i (1..$form->{rowcount}) {
1226 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1228 next if ($form->{"qty_$i"} <= 0);
1230 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1233 $form->{stock} = YAML::Dump($stock_info);
1235 _stock_in_out_set_qty_display($stock_info);
1237 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1238 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1241 print $form->parse_html_template('do/set_stock_in_out', {
1242 qty_matches => $do_qty == $transfer_qty,
1245 $main::lxdebug->leave_sub();
1248 sub stock_out_form {
1249 $main::lxdebug->enter_sub();
1251 my $form = $main::form;
1252 my %myconfig = %main::myconfig;
1253 my $locale = $main::locale;
1255 $form->{title} = $locale->text('Release From Stock');
1257 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1259 my $units = AM->retrieve_units(\%myconfig, $form);
1260 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1262 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1264 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1266 if (!$form->{delivered}) {
1267 foreach my $row (@contents) {
1268 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1269 'part_unit' => $part_info->{unit},
1270 'conv_units' => 'convertible_not_smaller',
1273 foreach my $sinfo (@{ $stock_info }) {
1274 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1275 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1276 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1277 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1279 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1284 get_basic_bin_wh_info($stock_info);
1286 foreach my $sinfo (@{ $stock_info }) {
1287 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1291 $form->header(no_layout => 1);
1292 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1293 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1294 'PART_INFO' => $part_info, });
1296 $main::lxdebug->leave_sub();
1300 $main::lxdebug->enter_sub();
1302 my $form = $main::form;
1303 my %myconfig = %main::myconfig;
1304 my $locale = $main::locale;
1306 my $stock_info = [];
1308 foreach my $i (1 .. $form->{rowcount}) {
1309 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1311 next if ($form->{"qty_$i"} <= 0);
1313 push @{ $stock_info }, {
1314 'warehouse_id' => $form->{"warehouse_id_$i"},
1315 'bin_id' => $form->{"bin_id_$i"},
1316 'chargenumber' => $form->{"chargenumber_$i"},
1317 'bestbefore' => $form->{"bestbefore_$i"},
1318 'qty' => $form->{"qty_$i"},
1319 'unit' => $form->{"unit_$i"},
1321 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1325 my @errors = DO->check_stock_availability('requests' => $stock_info,
1326 'parts_id' => $form->{parts_id});
1328 $form->{stock} = YAML::Dump($stock_info);
1331 $form->{ERRORS} = [];
1332 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1333 stock_in_out_form();
1336 _stock_in_out_set_qty_display($stock_info);
1338 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1339 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1342 print $form->parse_html_template('do/set_stock_in_out', {
1343 qty_matches => $do_qty == $transfer_qty,
1347 $main::lxdebug->leave_sub();
1351 $main::lxdebug->enter_sub();
1353 my $form = $main::form;
1354 my %myconfig = %main::myconfig;
1355 my $locale = $main::locale;
1357 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1358 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'));
1361 save(no_redirect => 1);
1363 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1367 my $units = AM->retrieve_units(\%myconfig, $form);
1368 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1371 $form->{ERRORS} = [];
1373 foreach my $i (1 .. $form->{rowcount}) {
1374 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1376 my $row_sum_base_qty = 0;
1377 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1379 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1380 $request->{parts_id} = $form->{"id_$i"};
1381 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1383 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1385 push @all_requests, $request;
1388 next if (0 == $row_sum_base_qty);
1390 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1392 # if ($do_base_qty != $row_sum_base_qty) {
1393 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1394 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1398 if (@{ $form->{ERRORS} }) {
1399 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1401 set_headings('edit');
1403 $main::lxdebug->leave_sub();
1405 $::dispatcher->end_request;
1409 DO->transfer_in_out('direction' => 'in',
1410 'requests' => \@all_requests);
1412 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1414 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1417 $main::lxdebug->leave_sub();
1421 $main::lxdebug->enter_sub();
1423 my $form = $main::form;
1424 my %myconfig = %main::myconfig;
1425 my $locale = $main::locale;
1427 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1428 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'));
1431 save(no_redirect => 1);
1433 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1437 my $units = AM->retrieve_units(\%myconfig, $form);
1438 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1441 $form->{ERRORS} = [];
1443 foreach my $i (1 .. $form->{rowcount}) {
1444 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1446 my $row_sum_base_qty = 0;
1447 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1449 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1450 $request->{parts_id} = $form->{"id_$i"};
1451 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1452 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1454 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1456 $request_map{$map_key} ||= $request;
1457 $request_map{$map_key}->{sum_base_qty} ||= 0;
1458 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1459 $row_sum_base_qty += $request->{base_qty};
1461 push @all_requests, $request;
1464 next if (0 == $row_sum_base_qty);
1466 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1468 # if ($do_base_qty != $row_sum_base_qty) {
1469 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1470 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1475 my @bin_ids = map { $_->{bin_id} } values %request_map;
1476 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1477 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1479 foreach my $inv (@contents) {
1480 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1482 next unless ($request_map{$map_key});
1484 my $request = $request_map{$map_key};
1485 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1488 foreach my $request (values %request_map) {
1489 next if ($request->{ok});
1491 my $pinfo = $part_info_map{$request->{parts_id}};
1492 my $binfo = $bin_info_map{$request->{bin_id}};
1494 if ($::instance_conf->get_show_bestbefore) {
1495 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
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 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1501 $form->format_amount_units('amount' => $request->{sum_base_qty},
1502 'part_unit' => $pinfo->{unit},
1503 'conv_units' => 'convertible_not_smaller'));
1505 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1506 $pinfo->{description},
1507 $binfo->{warehouse_description},
1508 $binfo->{bin_description},
1509 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1510 $form->format_amount_units('amount' => $request->{sum_base_qty},
1511 'part_unit' => $pinfo->{unit},
1512 'conv_units' => 'convertible_not_smaller'));
1517 if (@{ $form->{ERRORS} }) {
1518 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1520 set_headings('edit');
1522 $main::lxdebug->leave_sub();
1524 $::dispatcher->end_request;
1527 DO->transfer_in_out('direction' => 'out',
1528 'requests' => \@all_requests);
1530 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1532 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1535 $main::lxdebug->leave_sub();
1539 $main::lxdebug->enter_sub();
1541 my $form = $main::form;
1543 DO->close_orders('ids' => [ $form->{id} ]);
1545 $form->{closed} = 1;
1549 $main::lxdebug->leave_sub();
1553 $::lxdebug->enter_sub;
1555 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1558 retrieve_partunits();
1560 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1561 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1563 $::form->language_payment(\%::myconfig);
1565 Common::webdav_folder($::form);
1568 display_row(++$::form->{rowcount});
1571 $::lxdebug->leave_sub;
1575 call_sub($main::form->{yes_nextsub});
1579 call_sub($main::form->{no_nextsub});
1583 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1587 my $form = $main::form;
1588 my $locale = $main::locale;
1590 foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default sort
1591 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1592 if ($form->{"action_${action}"}) {
1598 $form->error($locale->text('No action defined.'));
1601 sub transfer_out_default {
1602 $main::lxdebug->enter_sub();
1604 my $form = $main::form;
1606 transfer_in_out_default('direction' => 'out');
1608 $main::lxdebug->leave_sub();
1611 sub transfer_in_default {
1612 $main::lxdebug->enter_sub();
1614 my $form = $main::form;
1616 transfer_in_out_default('direction' => 'in');
1618 $main::lxdebug->leave_sub();
1621 # Falls das Standardlagerverfahren aktiv ist, wird
1622 # geprüft, ob alle Standardlagerplätze für die Auslager-
1623 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1624 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1625 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1626 sub transfer_in_out_default {
1627 $main::lxdebug->enter_sub();
1629 my $form = $main::form;
1630 my %myconfig = %main::myconfig;
1631 my $locale = $main::locale;
1634 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1636 Common::check_params(\%params, qw(direction));
1638 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1639 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1640 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1641 $default_bin_id = $::instance_conf->get_bin_id;
1645 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1647 my $units = AM->retrieve_units(\%myconfig, $form);
1648 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1649 foreach my $i (1 .. $form->{rowcount}) {
1650 next unless ($form->{"id_$i"});
1651 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1652 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1654 $form->show_generic_error($locale->text("Cannot transfer negative entries." )) if ($qty < 0);
1655 # if we do not want to transfer services and this part is a service, set qty to zero
1656 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1657 # ... 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)
1659 $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});
1660 $qty_parts{$form->{"id_$i"}} += $qty;
1662 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1663 undef $form->{"stock_in_$i"};
1666 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1667 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1669 push @all_requests, ($qty == 0) ? { } : {
1670 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1671 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1672 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1674 'parts_id' => $form->{"id_$i"},
1675 'comment' => $locale->text("Default transfer delivery order"),
1676 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1677 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1678 'oe_id' => $form->{id},
1679 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1683 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1684 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1685 foreach my $key (keys %qty_parts) {
1687 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1688 next unless ($part_info_map{$key}{bin_id}); # abbruch
1690 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1691 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1693 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1694 # deshalb rückmeldung nach oben geben, manuell auszulagern
1695 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1696 $missing_default_bins{$key}{chargenumber} = 1;
1698 if ($max_qty < $qty_parts{$key}){
1699 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1705 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1706 if (scalar (keys %missing_default_bins)) {
1708 foreach my $fehler (keys %missing_default_bins) {
1710 my $ware = WH->get_part_description(parts_id => $fehler);
1711 if ($missing_default_bins{$fehler}{missing_bin}){
1712 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1714 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1715 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1716 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1718 if ($missing_default_bins{$fehler}{chargenumber}){
1719 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1720 Hier kann man nicht automatisch entscheiden.
1721 Bitte diesen Lieferschein manuell auslagern.
1724 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1725 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1726 # Lagerplatz Lagerplatz-Korrektur
1727 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1728 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1729 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1730 # entsprechende defaults holen
1731 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1732 # lagerplatz wegbuchen!
1733 foreach (@all_requests) {
1734 if ($_->{parts_id} eq $fehler){
1735 $_->{bin_id} = $default_bin_id_ignore_onhand;
1736 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1740 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1741 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ));
1747 # hier der eigentliche fallunterschied für in oder out
1748 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1750 # dieser array_ref ist für DO->save da:
1751 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1752 # gefüllt werden kann.
1753 # could be dumped to the form in the first loop,
1754 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1755 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1757 foreach (@all_requests){
1759 next unless scalar(%{ $_ });
1760 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1763 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1764 # und in delivery_order_items_stock speichern
1766 # ... and fill back the persistent dois_id for inventory fk
1767 undef (@all_requests);
1768 foreach my $i (1 .. $form->{rowcount}) {
1769 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1770 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1772 DO->transfer_in_out('direction' => $prefix,
1773 'requests' => \@all_requests);
1775 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1777 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1778 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1784 $main::lxdebug->enter_sub();
1788 my $form = $main::form;
1791 save(no_redirect => 1); # has to be done, at least for newly added positions
1793 # hashify partnumbers, positions. key is delivery_order_items_id
1794 for my $i (1 .. ($form->{rowcount}) ) {
1795 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1796 if ($form->{id} && $form->{"discount_$i"}) {
1797 # prepare_order assumes a db value if there is a form->id and multiplies *100
1798 # We hope for new controller code (no more format_amount/parse_amount distinction)
1799 $form->{"discount_$i"} /=100;
1802 # naturally sort partnumbers and get a sorted array of doi_ids
1803 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1808 for (@sorted_doi_ids) {
1809 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1812 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1813 # another format_amount to change it back, for the next save ;-(
1814 # works great except for row discounts (see above comment)
1818 $main::lxdebug->leave_sub();
1830 do.pl - Script for all calls to delivery order
1839 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1840 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
1846 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
1847 Example coding for database scripts and templates in (git show af2f24b8), check also
1848 autogeneration for rose (scripts/rose_auto_create_model.pl --h)