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., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
31 #======================================================================
34 use List::MoreUtils qw(uniq);
35 use List::Util qw(max sum);
36 use POSIX qw(strftime);
39 use SL::DB::DeliveryOrder;
43 use SL::MoreCommon qw(ary_diff restore_form save_form);
44 use SL::ReportGenerator;
46 use Sort::Naturally ();
47 require "bin/mozilla/arap.pl";
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 # get customer/vendor
175 $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
177 # retrieve order/quotation
178 my $editing = $form->{id};
180 DO->retrieve('vc' => $form->{vc},
181 'ids' => $form->{id});
183 $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes delivery_term_id currency));
185 # get customer / vendor
186 if ($form->{vc} eq 'vendor') {
187 IR->get_vendor(\%myconfig, \%$form);
188 $form->{discount} = $form->{vendor_discount};
190 IS->get_customer(\%myconfig, \%$form);
191 $form->{discount} = $form->{customer_discount};
194 $form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id delivery_term_id));
195 $form->restore_vars(qw(currency)) if ($form->{id} || $form->{convert_from_oe_ids});
196 $form->restore_vars(qw(taxincluded)) if $form->{id};
197 $form->restore_vars(qw(salesman_id)) if $editing;
199 if ($form->{"all_$form->{vc}"}) {
200 unless ($form->{"$form->{vc}_id"}) {
201 $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
205 ($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} };
206 $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
208 $form->{employee} = "$form->{employee}--$form->{employee_id}";
210 $main::lxdebug->leave_sub();
214 $main::lxdebug->enter_sub();
218 my $form = $main::form;
219 my %myconfig = %main::myconfig;
221 $form->{formname} = $form->{type} unless $form->{formname};
224 foreach my $ref (@{ $form->{form_details} }) {
225 $form->{rowcount} = ++$i;
227 map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
229 for my $i (1 .. $form->{rowcount}) {
231 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
233 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
235 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
237 my $decimalplaces = ($dec > 2) ? $dec : 2;
239 # copy reqdate from deliverydate for invoice -> order conversion
240 $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};
242 $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
243 $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
245 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
246 $dec_qty = length $dec_qty;
247 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
250 $main::lxdebug->leave_sub();
254 $main::lxdebug->enter_sub();
258 my $form = $main::form;
259 my %myconfig = %main::myconfig;
261 $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
262 $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};
264 my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
265 $form->get_lists($vc => "ALL_VC",
266 "price_factors" => "ALL_PRICE_FACTORS",
267 "departments" => "ALL_DEPARTMENTS",
268 "business_types" => "ALL_BUSINESS_TYPES",
272 my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
273 my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
275 if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
278 customer_id => $::form->{customer_id},
279 billable_customer_id => $::form->{customer_id},
284 and => [ active => 1, @customer_cond ],
288 $::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
289 $::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
290 $::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
291 $::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
292 or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
294 $::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
296 cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
299 cp_id => $::form->{cp_id} * 1
304 map { $_->{value} = "$_->{description}--$_->{id}" } @{ $form->{ALL_DEPARTMENTS} };
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 "departments" => "ALL_DEPARTMENTS",
505 "$form->{vc}s" => "ALL_VC",
506 "business_types" => "ALL_BUSINESS_TYPES");
507 $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
509 $form->{SHOW_VC_DROP_DOWN} = $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };
510 $form->{title} = $locale->text('Delivery Orders');
514 print $form->parse_html_template('do/search');
516 $main::lxdebug->leave_sub();
520 $main::lxdebug->enter_sub();
524 my $form = $main::form;
525 my %myconfig = %main::myconfig;
526 my $locale = $main::locale;
527 my $cgi = $::request->{cgi};
529 $form->{department_id} = (split /--/, $form->{department})[-1];
530 ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
532 report_generator_set_default_sort('transdate', 1);
536 $form->{rowcount} = scalar @{ $form->{DO} };
539 ids transdate reqdate
541 ordnumber customernumber cusordnumber
542 name employee salesman
543 shipvia globalprojectnumber
544 transaction_description department
549 $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
550 $form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});
552 $form->{title} = $locale->text('Delivery Orders');
554 my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
556 my $report = SL::ReportGenerator->new(\%myconfig, $form);
558 my @hidden_variables = map { "l_${_}" } @columns;
559 push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
560 transaction_description transdatefrom transdateto reqdatefrom reqdateto
561 type vc employee_id salesman_id project_id parts_partnumber parts_description
562 insertdatefrom insertdateto business_id);
564 my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
567 'ids' => { 'text' => '', },
568 'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
569 'reqdate' => { 'text' => $locale->text('Reqdate'), },
570 'id' => { 'text' => $locale->text('ID'), },
571 'donumber' => { 'text' => $locale->text('Delivery Order'), },
572 'ordnumber' => { 'text' => $locale->text('Order'), },
573 'customernumber' => { 'text' => $locale->text('Customer Number'), },
574 'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
575 'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
576 'employee' => { 'text' => $locale->text('Employee'), },
577 'salesman' => { 'text' => $locale->text('Salesman'), },
578 'shipvia' => { 'text' => $locale->text('Ship via'), },
579 'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
580 'transaction_description' => { 'text' => $locale->text('Transaction description'), },
581 'open' => { 'text' => $locale->text('Open'), },
582 'delivered' => { 'text' => $locale->text('Delivered'), },
583 'department' => { 'text' => $locale->text('Department'), },
584 'insertdate' => { 'text' => $locale->text('Insert Date'), },
587 foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
588 my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
589 $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
592 $form->{"l_type"} = "Y";
593 map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
595 $column_defs{ids}->{visible} = 'HTML';
597 $report->set_columns(%column_defs);
598 $report->set_column_order(@columns);
600 $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
602 $report->set_sort_indicator($form->{sort}, $form->{sortdir});
605 if ($form->{customer}) {
606 push @options, $locale->text('Customer') . " : $form->{customer}";
608 if ($form->{vendor}) {
609 push @options, $locale->text('Vendor') . " : $form->{vendor}";
611 if ($form->{cp_name}) {
612 push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
614 if ($form->{department}) {
615 my ($department) = split /--/, $form->{department};
616 push @options, $locale->text('Department') . " : $department";
618 if ($form->{donumber}) {
619 push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
621 if ($form->{ordnumber}) {
622 push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
624 push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
625 if ($form->{business_id}) {
626 my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
627 push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
629 if ($form->{transaction_description}) {
630 push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
632 if ($form->{parts_description}) {
633 push @options, $locale->text('Part Description') . " : $form->{parts_description}";
635 if ($form->{parts_partnumber}) {
636 push @options, $locale->text('Part Number') . " : $form->{parts_partnumber}";
638 if ( $form->{transdatefrom} or $form->{transdateto} ) {
639 push @options, $locale->text('Delivery Order Date');
640 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
641 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
643 if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
644 push @options, $locale->text('Reqdate');
645 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
646 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
648 if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
649 push @options, $locale->text('Insert Date');
650 push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
651 push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
654 push @options, $locale->text('Open');
656 if ($form->{closed}) {
657 push @options, $locale->text('Closed');
659 if ($form->{delivered}) {
660 push @options, $locale->text('Delivered');
662 if ($form->{notdelivered}) {
663 push @options, $locale->text('Not delivered');
666 $report->set_options('top_info_text' => join("\n", @options),
667 'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
668 'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom'),
669 'output_format' => 'HTML',
670 'title' => $form->{title},
671 'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
673 $report->set_options_from_form();
674 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
676 # add sort and escape callback, this one we use for the add sub
677 $form->{callback} = $href .= "&sort=$form->{sort}";
679 # escape callback for href
680 my $callback = $form->escape($href);
682 my $edit_url = build_std_url('action=edit', 'type', 'vc');
683 my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
687 foreach my $dord (@{ $form->{DO} }) {
688 $dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
689 $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
691 my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
694 'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $dord->{id})
695 . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
696 'valign' => 'center',
700 $row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
701 $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
702 $report->add_data($row);
707 $report->generate_with_headers();
709 $main::lxdebug->leave_sub();
713 $main::lxdebug->enter_sub();
719 my $form = $main::form;
720 my %myconfig = %main::myconfig;
721 my $locale = $main::locale;
723 $form->mtime_ischanged('delivery_orders');
725 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
727 $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
729 $form->{donumber} =~ s/^\s*//g;
730 $form->{donumber} =~ s/\s*$//g;
732 my $msg = ucfirst $form->{vc};
733 $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
735 # $locale->text('Customer missing!');
736 # $locale->text('Vendor missing!');
738 remove_emptied_rows();
741 # if the name changed get new values
742 if (check_name($form->{vc})) {
744 $::dispatcher->end_request;
747 $form->{id} = 0 if $form->{saveasnew};
751 if(!exists $form->{addition}) {
752 $form->{snumbers} = qq|donumber_| . $form->{donumber};
753 $form->{addition} = "SAVED";
756 # /saving the history
758 $form->{simple_save} = 1;
759 if (!$params{no_redirect} && !$form->{print_and_save}) {
760 delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
762 $::dispatcher->end_request;
764 $main::lxdebug->leave_sub();
768 $main::lxdebug->enter_sub();
772 my $form = $main::form;
773 my %myconfig = %main::myconfig;
774 my $locale = $main::locale;
778 if(!exists $form->{addition}) {
779 $form->{snumbers} = qq|donumber_| . $form->{donumber};
780 $form->{addition} = "DELETED";
783 # /saving the history
785 $form->info($locale->text('Delivery Order deleted!'));
786 $::dispatcher->end_request;
789 $form->error($locale->text('Cannot delete delivery order!'));
791 $main::lxdebug->leave_sub();
795 $main::lxdebug->enter_sub();
797 my $form = $main::form;
798 my %myconfig = %main::myconfig;
799 my $locale = $main::locale;
802 $form->mtime_ischanged('delivery_orders');
804 $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
806 $form->{convert_from_do_ids} = $form->{id};
807 $form->{deliverydate} = $form->{transdate};
808 $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
809 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
810 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
814 delete @{$form}{qw(id closed delivered)};
816 my ($script, $buysell);
817 if ($form->{type} eq 'purchase_delivery_order') {
818 $form->{title} = $locale->text('Add Vendor Invoice');
819 $form->{script} = 'ir.pl';
824 $form->{title} = $locale->text('Add Sales Invoice');
825 $form->{script} = 'is.pl';
830 for my $i (1 .. $form->{rowcount}) {
832 unless ($form->{"ordnumber"}) {
833 if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
834 # und rabattfähig sind, dann
835 unless ($form->{"not_discountable_$i"}) {
836 $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
840 map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor discount);
841 $form->{"donumber_$i"} = $form->{donumber};
842 $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
845 $form->{type} = "invoice";
848 $main::locale = Locale->new("$myconfig{countrycode}", "$script");
849 $locale = $main::locale;
851 require "bin/mozilla/$form->{script}";
853 my $currency = $form->{currency};
856 if ($form->{ordnumber}) {
857 require SL::DB::Order;
858 if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
860 $form->{orddate} = $order->transdate_as_date;
861 $form->{$_} = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
865 $form->{currency} = $currency;
866 $form->{exchangerate} = "";
867 $form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
868 $form->{exchangerate} = $form->{forex} if ($form->{forex});
873 for my $i (1 .. $form->{rowcount}) {
874 $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
876 my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
878 my $decimalplaces = ($dec > 2) ? $dec : 2;
880 # copy delivery date from reqdate for order -> invoice conversion
881 $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
882 unless $form->{"deliverydate_$i"};
885 $form->{"sellprice_$i"} =
886 $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
889 $form->{"lastcost_$i"} =
890 $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
893 (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
894 $dec_qty = length $dec_qty;
896 $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
902 $main::lxdebug->leave_sub();
906 $main::lxdebug->enter_sub();
908 my $form = $main::form;
909 my %myconfig = %main::myconfig;
910 my $locale = $main::locale;
913 $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
915 my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
917 if (!scalar @do_ids) {
918 $form->show_generic_error($locale->text('You have not selected any delivery order.'), 'back_button' => 1);
921 map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
923 if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
924 $form->show_generic_error($form->{vc} eq 'customer' ?
925 $locale->text('You cannot create an invoice for delivery orders for different customers.') :
926 $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
930 my $source_type = $form->{type};
931 $form->{convert_from_do_ids} = join ' ', @do_ids;
932 # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
933 # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
934 # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
935 # $shell: perldoc perlunc; /delete EXPR
936 $form->{donumber} = delete $form->{donumber_array};
937 $form->{ordnumber} = delete $form->{ordnumber_array};
938 $form->{cusordnumber} = delete $form->{cusordnumber_array};
939 $form->{deliverydate} = $form->{transdate};
940 $form->{transdate} = $form->current_date(\%myconfig);
941 $form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
942 $form->{type} = "invoice";
944 $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
946 my ($script, $buysell);
947 if ($source_type eq 'purchase_delivery_order') {
948 $form->{title} = $locale->text('Add Vendor Invoice');
949 $form->{script} = 'ir.pl';
954 $form->{title} = $locale->text('Add Sales Invoice');
955 $form->{script} = 'is.pl';
960 map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
962 # get vendor or customer discount
964 my $saved_form = save_form();
965 if ($form->{vc} eq 'vendor') {
966 IR->get_vendor(\%myconfig, \%$form);
967 $vc_discount = $form->{vendor_discount};
969 IS->get_customer(\%myconfig, \%$form);
970 $vc_discount = $form->{customer_discount};
972 # use payment terms from customer or vendor
973 restore_form($saved_form,0,qw(payment_id));
975 $form->{rowcount} = 0;
976 foreach my $ref (@{ $form->{form_details} }) {
978 $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
979 map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
980 map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
981 $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
983 if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
984 # und keinen anderen discount wert an $i ...
985 $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
988 $form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
989 # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
990 # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
992 $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
994 delete $form->{form_details};
996 $locale = Locale->new("$myconfig{countrycode}", "$script");
998 require "bin/mozilla/$form->{script}";
1005 $main::lxdebug->leave_sub();
1009 $main::lxdebug->enter_sub();
1013 my $form = $main::form;
1015 $form->{saveasnew} = 1;
1016 $form->{closed} = 0;
1017 $form->{delivered} = 0;
1018 map { delete $form->{$_} } qw(printed emailed queued);
1019 delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1020 $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1021 # Let kivitendo assign a new order number if the user hasn't changed the
1022 # previous one. If it has been changed manually then use it as-is.
1023 $form->{donumber} =~ s/^\s*//g;
1024 $form->{donumber} =~ s/\s*$//g;
1025 if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1026 delete($form->{donumber});
1031 $main::lxdebug->leave_sub();
1035 $main::lxdebug->enter_sub();
1039 $::form->mtime_ischanged('delivery_orders','mail');
1041 $::form->{print_and_save} = 1;
1043 my $saved_form = save_form();
1047 restore_form($saved_form, 0, qw(id ordnumber quonumber));
1051 $main::lxdebug->leave_sub();
1054 sub calculate_stock_in_out {
1055 $main::lxdebug->enter_sub();
1057 my $form = $main::form;
1061 if (!$form->{"id_${i}"}) {
1062 $main::lxdebug->leave_sub();
1066 my $all_units = AM->retrieve_all_units();
1068 my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
1069 my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1071 my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1072 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1073 my $matches = $do_qty == $sum;
1075 my $content = $form->format_amount_units('amount' => $sum * 1,
1076 'part_unit' => $form->{"partunit_$i"},
1077 'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1078 'conv_units' => 'convertible_not_smaller',
1080 $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="?">|;
1082 $main::lxdebug->leave_sub();
1087 sub get_basic_bin_wh_info {
1088 $main::lxdebug->enter_sub();
1090 my $stock_info = shift;
1092 my $form = $main::form;
1094 foreach my $sinfo (@{ $stock_info }) {
1095 next unless ($sinfo->{bin_id});
1097 my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1098 map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1101 $main::lxdebug->leave_sub();
1104 sub stock_in_out_form {
1105 $main::lxdebug->enter_sub();
1107 my $form = $main::form;
1109 if ($form->{in_out} eq 'out') {
1115 $main::lxdebug->leave_sub();
1118 sub redo_stock_info {
1119 $main::lxdebug->enter_sub();
1123 my $form = $main::form;
1125 my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1127 if ($params{add_empty_row}) {
1129 'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1130 'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
1134 @{ $params{stock_info} } = @non_empty;
1136 $main::lxdebug->leave_sub();
1139 sub update_stock_in {
1140 $main::lxdebug->enter_sub();
1142 my $form = $main::form;
1143 my %myconfig = %main::myconfig;
1145 my $stock_info = [];
1147 foreach my $i (1..$form->{rowcount}) {
1148 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1149 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1150 bestbefore qty unit delivery_order_items_stock_id) };
1153 display_stock_in_form($stock_info);
1155 $main::lxdebug->leave_sub();
1159 $main::lxdebug->enter_sub();
1161 my $form = $main::form;
1163 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1165 display_stock_in_form($stock_info);
1167 $main::lxdebug->leave_sub();
1170 sub display_stock_in_form {
1171 $main::lxdebug->enter_sub();
1173 my $stock_info = shift;
1175 my $form = $main::form;
1176 my %myconfig = %main::myconfig;
1177 my $locale = $main::locale;
1179 $form->{title} = $locale->text('Stock');
1181 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1183 # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1184 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1185 $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1186 $part_info->{bin_id} ||= $::instance_conf->get_bin_id;
1189 my $units = AM->retrieve_units(\%myconfig, $form);
1190 # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1191 my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1193 $form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
1194 'bins' => 'BINS' });
1196 redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1198 get_basic_bin_wh_info($stock_info);
1200 $form->header(no_layout => 1);
1201 print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
1202 'STOCK_INFO' => $stock_info,
1203 'PART_INFO' => $part_info, });
1205 $main::lxdebug->leave_sub();
1208 sub _stock_in_out_set_qty_display {
1209 my $stock_info = shift;
1211 my $all_units = AM->retrieve_all_units();
1212 my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1213 $form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
1214 part_unit => $form->{partunit},
1215 amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1216 conv_units => 'convertible_not_smaller',
1221 $main::lxdebug->enter_sub();
1223 my $form = $main::form;
1224 my %myconfig = %main::myconfig;
1226 my $stock_info = [];
1228 foreach my $i (1..$form->{rowcount}) {
1229 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1231 next if ($form->{"qty_$i"} <= 0);
1233 push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1236 $form->{stock} = YAML::Dump($stock_info);
1238 _stock_in_out_set_qty_display($stock_info);
1240 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1241 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1244 print $form->parse_html_template('do/set_stock_in_out', {
1245 qty_matches => $do_qty == $transfer_qty,
1248 $main::lxdebug->leave_sub();
1251 sub stock_out_form {
1252 $main::lxdebug->enter_sub();
1254 my $form = $main::form;
1255 my %myconfig = %main::myconfig;
1256 my $locale = $main::locale;
1258 $form->{title} = $locale->text('Release From Stock');
1260 my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});
1262 my $units = AM->retrieve_units(\%myconfig, $form);
1263 my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1265 my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});
1267 my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1269 if (!$form->{delivered}) {
1270 foreach my $row (@contents) {
1271 $row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
1272 'part_unit' => $part_info->{unit},
1273 'conv_units' => 'convertible_not_smaller',
1276 foreach my $sinfo (@{ $stock_info }) {
1277 next if (($row->{bin_id} != $sinfo->{bin_id}) ||
1278 ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1279 ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1280 ($row->{bestbefore} ne $sinfo->{bestbefore}));
1282 map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1287 get_basic_bin_wh_info($stock_info);
1289 foreach my $sinfo (@{ $stock_info }) {
1290 map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1294 $form->header(no_layout => 1);
1295 print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
1296 'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1297 'PART_INFO' => $part_info, });
1299 $main::lxdebug->leave_sub();
1303 $main::lxdebug->enter_sub();
1305 my $form = $main::form;
1306 my %myconfig = %main::myconfig;
1307 my $locale = $main::locale;
1309 my $stock_info = [];
1311 foreach my $i (1 .. $form->{rowcount}) {
1312 $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1314 next if ($form->{"qty_$i"} <= 0);
1316 push @{ $stock_info }, {
1317 'warehouse_id' => $form->{"warehouse_id_$i"},
1318 'bin_id' => $form->{"bin_id_$i"},
1319 'chargenumber' => $form->{"chargenumber_$i"},
1320 'bestbefore' => $form->{"bestbefore_$i"},
1321 'qty' => $form->{"qty_$i"},
1322 'unit' => $form->{"unit_$i"},
1324 'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
1328 my @errors = DO->check_stock_availability('requests' => $stock_info,
1329 'parts_id' => $form->{parts_id});
1331 $form->{stock} = YAML::Dump($stock_info);
1334 $form->{ERRORS} = [];
1335 map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1336 stock_in_out_form();
1339 _stock_in_out_set_qty_display($stock_info);
1341 my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1342 my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1345 print $form->parse_html_template('do/set_stock_in_out', {
1346 qty_matches => $do_qty == $transfer_qty,
1350 $main::lxdebug->leave_sub();
1354 $main::lxdebug->enter_sub();
1356 my $form = $main::form;
1357 my %myconfig = %main::myconfig;
1358 my $locale = $main::locale;
1360 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1361 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'), 'back_button' => 1);
1364 save(no_redirect => 1);
1366 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1370 my $units = AM->retrieve_units(\%myconfig, $form);
1371 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1374 $form->{ERRORS} = [];
1376 foreach my $i (1 .. $form->{rowcount}) {
1377 next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1379 my $row_sum_base_qty = 0;
1380 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1382 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1383 $request->{parts_id} = $form->{"id_$i"};
1384 $row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1386 $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1388 push @all_requests, $request;
1391 next if (0 == $row_sum_base_qty);
1393 my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1395 # if ($do_base_qty != $row_sum_base_qty) {
1396 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1397 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1401 if (@{ $form->{ERRORS} }) {
1402 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1404 set_headings('edit');
1406 $main::lxdebug->leave_sub();
1408 $::dispatcher->end_request;
1412 DO->transfer_in_out('direction' => 'in',
1413 'requests' => \@all_requests);
1415 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1417 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1420 $main::lxdebug->leave_sub();
1424 $main::lxdebug->enter_sub();
1426 my $form = $main::form;
1427 my %myconfig = %main::myconfig;
1428 my $locale = $main::locale;
1430 if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1431 $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'), 'back_button' => 1);
1434 save(no_redirect => 1);
1436 my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1440 my $units = AM->retrieve_units(\%myconfig, $form);
1441 my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1444 $form->{ERRORS} = [];
1446 foreach my $i (1 .. $form->{rowcount}) {
1447 next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1449 my $row_sum_base_qty = 0;
1450 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1452 foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1453 $request->{parts_id} = $form->{"id_$i"};
1454 $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1455 $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1457 my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1459 $request_map{$map_key} ||= $request;
1460 $request_map{$map_key}->{sum_base_qty} ||= 0;
1461 $request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
1462 $row_sum_base_qty += $request->{base_qty};
1464 push @all_requests, $request;
1467 next if (0 == $row_sum_base_qty);
1469 my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1471 # if ($do_base_qty != $row_sum_base_qty) {
1472 # push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1473 # $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1478 my @bin_ids = map { $_->{bin_id} } values %request_map;
1479 my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1480 my @contents = DO->get_item_availability('parts_id' => \@part_ids);
1482 foreach my $inv (@contents) {
1483 my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1485 next unless ($request_map{$map_key});
1487 my $request = $request_map{$map_key};
1488 $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1491 foreach my $request (values %request_map) {
1492 next if ($request->{ok});
1494 my $pinfo = $part_info_map{$request->{parts_id}};
1495 my $binfo = $bin_info_map{$request->{bin_id}};
1497 if ($::instance_conf->get_show_bestbefore) {
1498 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1499 $pinfo->{description},
1500 $binfo->{warehouse_description},
1501 $binfo->{bin_description},
1502 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1503 $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1504 $form->format_amount_units('amount' => $request->{sum_base_qty},
1505 'part_unit' => $pinfo->{unit},
1506 'conv_units' => 'convertible_not_smaller'));
1508 push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1509 $pinfo->{description},
1510 $binfo->{warehouse_description},
1511 $binfo->{bin_description},
1512 $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1513 $form->format_amount_units('amount' => $request->{sum_base_qty},
1514 'part_unit' => $pinfo->{unit},
1515 'conv_units' => 'convertible_not_smaller'));
1520 if (@{ $form->{ERRORS} }) {
1521 push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1523 set_headings('edit');
1525 $main::lxdebug->leave_sub();
1527 $::dispatcher->end_request;
1530 DO->transfer_in_out('direction' => 'out',
1531 'requests' => \@all_requests);
1533 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1535 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1538 $main::lxdebug->leave_sub();
1542 $main::lxdebug->enter_sub();
1544 my $form = $main::form;
1546 DO->close_orders('ids' => [ $form->{id} ]);
1548 $form->{closed} = 1;
1552 $main::lxdebug->leave_sub();
1556 $::lxdebug->enter_sub;
1558 $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1561 retrieve_partunits();
1563 my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1564 $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1566 $::form->language_payment(\%::myconfig);
1568 Common::webdav_folder($::form);
1571 display_row(++$::form->{rowcount});
1574 $::lxdebug->leave_sub;
1578 call_sub($main::form->{yes_nextsub});
1582 call_sub($main::form->{no_nextsub});
1586 call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1590 my $form = $main::form;
1591 my $locale = $main::locale;
1593 foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default sort
1594 transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1595 if ($form->{"action_${action}"}) {
1601 $form->error($locale->text('No action defined.'));
1604 sub transfer_out_default {
1605 $main::lxdebug->enter_sub();
1607 my $form = $main::form;
1609 transfer_in_out_default('direction' => 'out');
1611 $main::lxdebug->leave_sub();
1614 sub transfer_in_default {
1615 $main::lxdebug->enter_sub();
1617 my $form = $main::form;
1619 transfer_in_out_default('direction' => 'in');
1621 $main::lxdebug->leave_sub();
1624 # Falls das Standardlagerverfahren aktiv ist, wird
1625 # geprüft, ob alle Standardlagerplätze für die Auslager-
1626 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1627 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1628 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1629 sub transfer_in_out_default {
1630 $main::lxdebug->enter_sub();
1632 my $form = $main::form;
1633 my %myconfig = %main::myconfig;
1634 my $locale = $main::locale;
1637 my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1639 Common::check_params(\%params, qw(direction));
1641 # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1642 if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1643 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1644 $default_bin_id = $::instance_conf->get_bin_id;
1648 my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1650 my $units = AM->retrieve_units(\%myconfig, $form);
1651 %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1652 foreach my $i (1 .. $form->{rowcount}) {
1653 next unless ($form->{"id_$i"});
1654 my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1655 my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1657 $form->show_generic_error($locale->text("Cannot transfer negative entries." ), 'back_button' => 1) if ($qty < 0);
1658 # if we do not want to transfer services and this part is a service, set qty to zero
1659 # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1660 # ... 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)
1662 $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});
1663 $qty_parts{$form->{"id_$i"}} += $qty;
1665 delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1666 undef $form->{"stock_in_$i"};
1669 $part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
1670 $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1672 push @all_requests, ($qty == 0) ? { } : {
1673 'chargenumber' => '', #?? die müsste entsprechend geholt werden
1674 #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1675 'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1677 'parts_id' => $form->{"id_$i"},
1678 'comment' => $locale->text("Default transfer delivery order"),
1679 'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1680 'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1681 'oe_id' => $form->{id},
1682 'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1686 # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1687 # check if bin (transfer in and transfer out and qty (transfer out) is correct
1688 foreach my $key (keys %qty_parts) {
1690 $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1691 next unless ($part_info_map{$key}{bin_id}); # abbruch
1693 if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
1694 my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1696 # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1697 # deshalb rückmeldung nach oben geben, manuell auszulagern
1698 # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1699 $missing_default_bins{$key}{chargenumber} = 1;
1701 if ($max_qty < $qty_parts{$key}){
1702 $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1708 # Abfrage für Fehlerbehandlung (nur bei direction == out)
1709 if (scalar (keys %missing_default_bins)) {
1711 foreach my $fehler (keys %missing_default_bins) {
1713 my $ware = WH->get_part_description(parts_id => $fehler);
1714 if ($missing_default_bins{$fehler}{missing_bin}){
1715 $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1717 if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
1718 $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1719 " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
1721 if ($missing_default_bins{$fehler}{chargenumber}){
1722 $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1723 Hier kann man nicht automatisch entscheiden.
1724 Bitte diesen Lieferschein manuell auslagern.
1727 # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1728 # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1729 # Lagerplatz Lagerplatz-Korrektur
1730 my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1731 my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
1732 if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1733 # entsprechende defaults holen
1734 # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1735 # lagerplatz wegbuchen!
1736 foreach (@all_requests) {
1737 if ($_->{parts_id} eq $fehler){
1738 $_->{bin_id} = $default_bin_id_ignore_onhand;
1739 $_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
1743 #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1744 $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ), 'back_button' => 1);
1750 # hier der eigentliche fallunterschied für in oder out
1751 my $prefix = $params{direction} eq 'in' ? 'in' : 'out';
1753 # dieser array_ref ist für DO->save da:
1754 # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1755 # gefüllt werden kann.
1756 # could be dumped to the form in the first loop,
1757 # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1758 # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1760 foreach (@all_requests){
1762 next unless scalar(%{ $_ });
1763 $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1766 save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1767 # und in delivery_order_items_stock speichern
1769 # ... and fill back the persistent dois_id for inventory fk
1770 undef (@all_requests);
1771 foreach my $i (1 .. $form->{rowcount}) {
1772 next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1773 push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1775 DO->transfer_in_out('direction' => $prefix,
1776 'requests' => \@all_requests);
1778 SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1780 $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1781 $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1787 $main::lxdebug->enter_sub();
1791 my $form = $main::form;
1794 save(no_redirect => 1); # has to be done, at least for newly added positions
1796 # hashify partnumbers, positions. key is delivery_order_items_id
1797 for my $i (1 .. ($form->{rowcount}) ) {
1798 $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1799 if ($form->{id} && $form->{"discount_$i"}) {
1800 # prepare_order assumes a db value if there is a form->id and multiplies *100
1801 # We hope for new controller code (no more format_amount/parse_amount distinction)
1802 $form->{"discount_$i"} /=100;
1805 # naturally sort partnumbers and get a sorted array of doi_ids
1806 my @sorted_doi_ids = sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;
1811 for (@sorted_doi_ids) {
1812 $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1815 # all parse_amounts changes are in form (i.e. , to .) therefore we need
1816 # another format_amount to change it back, for the next save ;-(
1817 # works great except for row discounts (see above comment)
1821 $main::lxdebug->leave_sub();
1833 do.pl - Script for all calls to delivery order
1842 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1843 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
1849 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
1850 Example coding for database scripts and templates in (git show af2f24b8), check also
1851 autogeneration for rose (scripts/rose_auto_create_model.pl --h)