bin/mozilla/do.pl

   1 #=====================================================================
   2 # LX-Office ERP
   3 # Copyright (C) 2004
   4 # Based on SQL-Ledger Version 2.1.9
   5 # Web http://www.lx-office.org
   6 #
   7 #=====================================================================
   8 # SQL-Ledger, Accounting
   9 # Copyright (c) 1998-2003
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #
  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.
  20 #
  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 #======================================================================
  29 #
  30 # Delivery orders
  31 #======================================================================
  32
  33 use Carp;
  34 use List::MoreUtils qw(uniq);
  35 use List::Util qw(max sum);
  36 use POSIX qw(strftime);
  37 use YAML;
  38
  39 use SL::DB::DeliveryOrder;
  40 use SL::DO;
  41 use SL::IR;
  42 use SL::IS;
  43 use SL::MoreCommon qw(ary_diff restore_form save_form);
  44 use SL::ReportGenerator;
  45 use SL::WH;
  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";
  51
  52 use strict;
  53
  54 1;
  55
  56 # end of main
  57
  58 sub check_do_access {
  59   $main::auth->assert($main::form->{type} . '_edit');
  60 }
  61
  62 sub set_headings {
  63   $main::lxdebug->enter_sub();
  64
  65   check_do_access();
  66
  67   my ($action) = @_;
  68
  69   my $form     = $main::form;
  70   my $locale   = $main::locale;
  71
  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');
  75   } else {
  76     $form->{vc}    = 'customer';
  77     $form->{title} = $action eq "edit" ? $locale->text('Edit Sales Delivery Order') : $locale->text('Add Sales Delivery Order');
  78   }
  79
  80   $form->{heading} = $locale->text('Delivery Order');
  81
  82   $main::lxdebug->leave_sub();
  83 }
  84
  85 sub add {
  86   $main::lxdebug->enter_sub();
  87
  88   check_do_access();
  89
  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."));
  92   }
  93
  94   my $form     = $main::form;
  95
  96   set_headings("add");
  97
  98   $form->{show_details} = $::myconfig{show_form_details};
  99   $form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});
 100
 101   order_links();
 102   prepare_order();
 103   display_form();
 104
 105   $main::lxdebug->leave_sub();
 106 }
 107
 108 sub edit {
 109   $main::lxdebug->enter_sub();
 110
 111   check_do_access();
 112
 113   my $form     = $main::form;
 114
 115   $form->{show_details} = $::myconfig{show_form_details};
 116
 117   # show history button
 118   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
 119   #/show hhistory button
 120
 121   $form->{simple_save} = 0;
 122
 123   set_headings("edit");
 124
 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});
 128 #     if (!$id) {
 129
 130       # reset rowcount
 131       undef $form->{rowcount};
 132       add();
 133       $main::lxdebug->leave_sub();
 134       return;
 135 #     }
 136   } elsif (!$form->{id}) {
 137     add();
 138     $main::lxdebug->leave_sub();
 139     return;
 140   }
 141
 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};
 149   }
 150
 151   set_headings("edit");
 152
 153   order_links();
 154   prepare_order();
 155
 156   if ($form->{print_and_save}) {
 157     $form->{language_id} = $language_id;
 158     $form->{printer_id}  = $printer_id;
 159   }
 160
 161   display_form();
 162
 163   $main::lxdebug->leave_sub();
 164 }
 165
 166 sub order_links {
 167   $main::lxdebug->enter_sub();
 168
 169   check_do_access();
 170
 171   my $form     = $main::form;
 172   my %myconfig = %main::myconfig;
 173
 174   # get customer/vendor
 175   $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");
 176
 177   # retrieve order/quotation
 178   my $editing = $form->{id};
 179
 180   DO->retrieve('vc'  => $form->{vc},
 181                'ids' => $form->{id});
 182
 183   $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes delivery_term_id currency));
 184
 185   # get customer / vendor
 186   if ($form->{vc} eq 'vendor') {
 187     IR->get_vendor(\%myconfig, \%$form);
 188     $form->{discount} = $form->{vendor_discount};
 189   } else {
 190     IS->get_customer(\%myconfig, \%$form);
 191     $form->{discount} = $form->{customer_discount};
 192   }
 193
 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;
 198
 199   if ($form->{"all_$form->{vc}"}) {
 200     unless ($form->{"$form->{vc}_id"}) {
 201       $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
 202     }
 203   }
 204
 205   ($form->{ $form->{vc} })  = split /--/, $form->{ $form->{vc} };
 206   $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
 207
 208   $form->{employee} = "$form->{employee}--$form->{employee_id}";
 209
 210   $main::lxdebug->leave_sub();
 211 }
 212
 213 sub prepare_order {
 214   $main::lxdebug->enter_sub();
 215
 216   check_do_access();
 217
 218   my $form     = $main::form;
 219   my %myconfig = %main::myconfig;
 220
 221   $form->{formname} = $form->{type} unless $form->{formname};
 222
 223   my $i = 0;
 224   foreach my $ref (@{ $form->{form_details} }) {
 225     $form->{rowcount} = ++$i;
 226
 227     map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
 228   }
 229   for my $i (1 .. $form->{rowcount}) {
 230     if ($form->{id}) {
 231       $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
 232     } else {
 233       $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
 234     }
 235     my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
 236     $dec           = length $dec;
 237     my $decimalplaces = ($dec > 2) ? $dec : 2;
 238
 239     # copy reqdate from deliverydate for invoice -> order conversion
 240     $form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};
 241
 242     $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
 243     $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
 244
 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);
 248   }
 249
 250   $main::lxdebug->leave_sub();
 251 }
 252
 253 sub form_header {
 254   $main::lxdebug->enter_sub();
 255
 256   check_do_access();
 257
 258   my $form     = $main::form;
 259   my %myconfig = %main::myconfig;
 260
 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};
 263
 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",
 269     );
 270
 271   # Projects
 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) : ();
 274   my @customer_cond;
 275   if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
 276     @customer_cond = (
 277       or => [
 278         customer_id          => $::form->{customer_id},
 279         billable_customer_id => $::form->{customer_id},
 280       ]);
 281   }
 282   my @conditions = (
 283     or => [
 284       and => [ active => 1, @customer_cond ],
 285       @old_ids_cond,
 286     ]);
 287
 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 ] ]
 293   ]);
 294   $::form->{ALL_CONTACTS}          = SL::DB::Manager::Contact->get_all_sorted(query => [
 295     or => [
 296       cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
 297       and      => [
 298         cp_cv_id => undef,
 299         cp_id    => $::form->{cp_id} * 1
 300       ]
 301     ]
 302   ]);
 303
 304   map { $_->{value} = "$_->{description}--$_->{id}" } @{ $form->{ALL_DEPARTMENTS} };
 305   map { $_->{value} = "$_->{name}--$_->{id}"        } @{ $form->{ALL_VC} };
 306
 307   $form->{SHOW_VC_DROP_DOWN} =  $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };
 308
 309   $form->{oldvcname}         =  $form->{"old$form->{vc}"};
 310   $form->{oldvcname}         =~ s/--.*//;
 311
 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;
 319   }
 320   $::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
 321
 322
 323   my $follow_up_vc                =  $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
 324   $follow_up_vc                   =~ s/--\d*\s*$//;
 325
 326   $form->{follow_up_trans_info} = $form->{donumber} .'('. $follow_up_vc .')';
 327
 328   $::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.SalesPurchase ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_customer autocomplete_part));
 329
 330   my @custom_hidden;
 331   push @custom_hidden, map { "shiptocvar_" . $_->name } @{ SL::DB::Manager::CustomVariableConfig->get_all(where => [ module => 'ShipTo' ]) };
 332
 333   $::form->{HIDDENS} = [ map { +{ name => $_, value => $::form->{$_} } } (@custom_hidden) ];
 334
 335   $form->header();
 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');
 349
 350   $main::lxdebug->leave_sub();
 351 }
 352
 353 sub form_footer {
 354   $main::lxdebug->enter_sub();
 355
 356   check_do_access();
 357
 358   my $form     = $main::form;
 359
 360   $form->{PRINT_OPTIONS} = print_options('inline' => 1);
 361   $form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
 362
 363   print $form->parse_html_template('do/form_footer',
 364     {transfer_default         => ($::instance_conf->get_transfer_default)});
 365
 366   $main::lxdebug->leave_sub();
 367 }
 368
 369 sub update_delivery_order {
 370   $main::lxdebug->enter_sub();
 371
 372   check_do_access();
 373
 374   my $form     = $main::form;
 375   my %myconfig = %main::myconfig;
 376
 377   set_headings($form->{"id"} ? "edit" : "add");
 378
 379   $form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};
 380
 381   $form->{update} = 1;
 382
 383   my $payment_id;
 384   $payment_id = $form->{payment_id} if $form->{payment_id};
 385
 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 "";
 401
 402   my $i = $form->{rowcount};
 403
 404   if (   ($form->{"partnumber_$i"} eq "")
 405       && ($form->{"description_$i"} eq "")
 406       && ($form->{"partsgroup_$i"}  eq "")) {
 407
 408     check_form();
 409
 410   } else {
 411
 412     my $mode;
 413     if ($form->{type} eq 'purchase_delivery_order') {
 414       IR->retrieve_item(\%myconfig, $form);
 415       $mode = 'IR';
 416     } else {
 417       IS->retrieve_item(\%myconfig, $form);
 418       $mode = 'IS';
 419     }
 420
 421     my $rows = scalar @{ $form->{item_list} };
 422
 423     if ($rows) {
 424       $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
 425       if( !$form->{"qty_$i"} ) {
 426         $form->{"qty_$i"} = 1;
 427       }
 428
 429       if ($rows > 1) {
 430
 431         select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
 432         ::end_of_request();
 433
 434       } else {
 435
 436         my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
 437
 438         map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
 439
 440         $form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
 441
 442         if ($sellprice) {
 443           $form->{"sellprice_$i"} = $sellprice;
 444         } else {
 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;
 449
 450           if ($best_price) {
 451             $::form->{"sellprice_$i"}           = $best_price->price;
 452             $::form->{"active_price_source_$i"} = $best_price->source;
 453           }
 454           if ($best_discount) {
 455             $::form->{"discount_$i"}               = $best_discount->discount;
 456             $::form->{"active_discount_source_$i"} = $best_discount->source;
 457           }
 458         }
 459
 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);
 464       }
 465
 466       display_form();
 467
 468     } else {
 469
 470       # ok, so this is a new part
 471       # ask if it is a part or service item
 472
 473       if (   $form->{"partsgroup_$i"}
 474           && ($form->{"partsnumber_$i"} eq "")
 475           && ($form->{"description_$i"} eq "")) {
 476         $form->{rowcount}--;
 477         $form->{"discount_$i"} = "";
 478         $form->{"not_discountable_$i"} = "";
 479         display_form();
 480
 481       } else {
 482         $form->{"id_$i"}   = 0;
 483         new_item();
 484       }
 485     }
 486   }
 487
 488   $main::lxdebug->leave_sub();
 489 }
 490
 491 sub search {
 492   $main::lxdebug->enter_sub();
 493
 494   check_do_access();
 495
 496   my $form     = $main::form;
 497   my %myconfig = %main::myconfig;
 498   my $locale   = $main::locale;
 499
 500   $form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
 501
 502   $form->get_lists("projects"       => { "key" => "ALL_PROJECTS",
 503                                          "all" => 1 },
 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 ]);
 508
 509   $form->{SHOW_VC_DROP_DOWN} =  $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };
 510   $form->{title}             = $locale->text('Delivery Orders');
 511
 512   $form->header();
 513
 514   print $form->parse_html_template('do/search');
 515
 516   $main::lxdebug->leave_sub();
 517 }
 518
 519 sub orders {
 520   $main::lxdebug->enter_sub();
 521
 522   check_do_access();
 523
 524   my $form     = $main::form;
 525   my %myconfig = %main::myconfig;
 526   my $locale   = $main::locale;
 527   my $cgi      = $::request->{cgi};
 528
 529   $form->{department_id} = (split /--/, $form->{department})[-1];
 530   ($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
 531
 532   report_generator_set_default_sort('transdate', 1);
 533
 534   DO->transactions();
 535
 536   $form->{rowcount} = scalar @{ $form->{DO} };
 537
 538   my @columns = qw(
 539     ids                     transdate               reqdate
 540     id                      donumber
 541     ordnumber               customernumber          cusordnumber
 542     name                    employee  salesman
 543     shipvia                 globalprojectnumber
 544     transaction_description department
 545     open                    delivered
 546     insertdate
 547   );
 548
 549   $form->{l_open}      = $form->{l_closed} = "Y" if ($form->{open}      && $form->{closed});
 550   $form->{l_delivered} = "Y"                     if ($form->{delivered} && $form->{notdelivered});
 551
 552   $form->{title}       = $locale->text('Delivery Orders');
 553
 554   my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');
 555
 556   my $report = SL::ReportGenerator->new(\%myconfig, $form);
 557
 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
 562                                           insertdatefrom insertdateto business_id);
 563
 564   my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);
 565
 566   my %column_defs = (
 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'), },
 585   );
 586
 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";
 590   }
 591
 592   $form->{"l_type"} = "Y";
 593   map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
 594
 595   $column_defs{ids}->{visible} = 'HTML';
 596
 597   $report->set_columns(%column_defs);
 598   $report->set_column_order(@columns);
 599
 600   $report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
 601
 602   $report->set_sort_indicator($form->{sort}, $form->{sortdir});
 603
 604   my @options;
 605   if ($form->{customer}) {
 606     push @options, $locale->text('Customer') . " : $form->{customer}";
 607   }
 608   if ($form->{vendor}) {
 609     push @options, $locale->text('Vendor') . " : $form->{vendor}";
 610   }
 611   if ($form->{cp_name}) {
 612     push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
 613   }
 614   if ($form->{department}) {
 615     my ($department) = split /--/, $form->{department};
 616     push @options, $locale->text('Department') . " : $department";
 617   }
 618   if ($form->{donumber}) {
 619     push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
 620   }
 621   if ($form->{ordnumber}) {
 622     push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
 623   }
 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;
 628   }
 629   if ($form->{transaction_description}) {
 630     push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
 631   }
 632   if ( $form->{transdatefrom} or $form->{transdateto} ) {
 633     push @options, $locale->text('Delivery Order Date');
 634     push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1)     if $form->{transdatefrom};
 635     push @options, $locale->text('Bis')  . " " . $locale->date(\%myconfig, $form->{transdateto},   1)     if $form->{transdateto};
 636   };
 637   if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
 638     push @options, $locale->text('Reqdate');
 639     push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1)       if $form->{reqdatefrom};
 640     push @options, $locale->text('Bis')  . " " . $locale->date(\%myconfig, $form->{reqdateto},   1)       if $form->{reqdateto};
 641   };
 642   if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
 643     push @options, $locale->text('Insert Date');
 644     push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1)    if $form->{insertdatefrom};
 645     push @options, $locale->text('Bis')  . " " . $locale->date(\%myconfig, $form->{insertdateto},   1)    if $form->{insertdateto};
 646   };
 647   if ($form->{open}) {
 648     push @options, $locale->text('Open');
 649   }
 650   if ($form->{closed}) {
 651     push @options, $locale->text('Closed');
 652   }
 653   if ($form->{delivered}) {
 654     push @options, $locale->text('Delivered');
 655   }
 656   if ($form->{notdelivered}) {
 657     push @options, $locale->text('Not delivered');
 658   }
 659
 660   $report->set_options('top_info_text'        => join("\n", @options),
 661                        'raw_top_info_text'    => $form->parse_html_template('do/orders_top'),
 662                        'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom'),
 663                        'output_format'        => 'HTML',
 664                        'title'                => $form->{title},
 665                        'attachment_basename'  => $attachment_basename . strftime('_%Y%m%d', localtime time),
 666     );
 667   $report->set_options_from_form();
 668   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
 669
 670   # add sort and escape callback, this one we use for the add sub
 671   $form->{callback} = $href .= "&sort=$form->{sort}";
 672
 673   # escape callback for href
 674   my $callback = $form->escape($href);
 675
 676   my $edit_url       = build_std_url('action=edit', 'type', 'vc');
 677   my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');
 678
 679   my $idx            = 1;
 680
 681   foreach my $dord (@{ $form->{DO} }) {
 682     $dord->{open}      = $dord->{closed}    ? $locale->text('No')  : $locale->text('Yes');
 683     $dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');
 684
 685     my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };
 686
 687     $row->{ids}  = {
 688       'raw_data' =>   $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $dord->{id})
 689                     . $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
 690       'valign'   => 'center',
 691       'align'    => 'center',
 692     };
 693
 694     $row->{donumber}->{link}  = $edit_url       . "&id=" . E($dord->{id})      . "&callback=${callback}";
 695     $row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id})   . "&callback=${callback}" if $dord->{oe_id};
 696     $report->add_data($row);
 697
 698     $idx++;
 699   }
 700
 701   $report->generate_with_headers();
 702
 703   $main::lxdebug->leave_sub();
 704 }
 705
 706 sub save {
 707   $main::lxdebug->enter_sub();
 708
 709   my (%params) = @_;
 710
 711   check_do_access();
 712
 713   my $form     = $main::form;
 714   my %myconfig = %main::myconfig;
 715   my $locale   = $main::locale;
 716
 717   $form->mtime_ischanged('delivery_orders');
 718
 719   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 720
 721   $form->isblank("transdate", $locale->text('Delivery Order Date missing!'));
 722
 723   $form->{donumber} =~ s/^\s*//g;
 724   $form->{donumber} =~ s/\s*$//g;
 725
 726   my $msg = ucfirst $form->{vc};
 727   $form->isblank($form->{vc}, $locale->text($msg . " missing!"));
 728
 729   # $locale->text('Customer missing!');
 730   # $locale->text('Vendor missing!');
 731
 732   remove_emptied_rows();
 733   validate_items();
 734
 735   # if the name changed get new values
 736   if (check_name($form->{vc})) {
 737     update();
 738     ::end_of_request();
 739   }
 740
 741   $form->{id} = 0 if $form->{saveasnew};
 742
 743   DO->save();
 744   # saving the history
 745   if(!exists $form->{addition}) {
 746     $form->{snumbers} = qq|donumber_| . $form->{donumber};
 747     $form->{addition} = "SAVED";
 748     $form->save_history;
 749   }
 750   # /saving the history
 751
 752   $form->{simple_save} = 1;
 753   if (!$params{no_redirect} && !$form->{print_and_save}) {
 754     delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
 755     edit();
 756     ::end_of_request();
 757   }
 758   $main::lxdebug->leave_sub();
 759 }
 760
 761 sub delete {
 762   $main::lxdebug->enter_sub();
 763
 764   check_do_access();
 765
 766   my $form     = $main::form;
 767   my %myconfig = %main::myconfig;
 768   my $locale   = $main::locale;
 769
 770   if (DO->delete()) {
 771     # saving the history
 772     if(!exists $form->{addition}) {
 773       $form->{snumbers} = qq|donumber_| . $form->{donumber};
 774       $form->{addition} = "DELETED";
 775       $form->save_history;
 776     }
 777     # /saving the history
 778
 779     $form->info($locale->text('Delivery Order deleted!'));
 780     ::end_of_request();
 781   }
 782
 783   $form->error($locale->text('Cannot delete delivery order!'));
 784
 785   $main::lxdebug->leave_sub();
 786 }
 787
 788 sub invoice {
 789   $main::lxdebug->enter_sub();
 790
 791   my $form     = $main::form;
 792   my %myconfig = %main::myconfig;
 793   my $locale   = $main::locale;
 794
 795   check_do_access();
 796   $form->mtime_ischanged('delivery_orders');
 797
 798   $main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
 799
 800   $form->{convert_from_do_ids} = $form->{id};
 801   $form->{deliverydate}        = $form->{transdate};
 802   $form->{transdate}           = $form->{invdate} = $form->current_date(\%myconfig);
 803   $form->{duedate}             = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
 804   $form->{defaultcurrency}     = $form->get_default_currency(\%myconfig);
 805
 806   $form->{rowcount}--;
 807
 808   delete @{$form}{qw(id closed delivered)};
 809
 810   my ($script, $buysell);
 811   if ($form->{type} eq 'purchase_delivery_order') {
 812     $form->{title}  = $locale->text('Add Vendor Invoice');
 813     $form->{script} = 'ir.pl';
 814     $script         = "ir";
 815     $buysell        = 'sell';
 816
 817   } else {
 818     $form->{title}  = $locale->text('Add Sales Invoice');
 819     $form->{script} = 'is.pl';
 820     $script         = "is";
 821     $buysell        = 'buy';
 822   }
 823
 824   for my $i (1 .. $form->{rowcount}) {
 825     # für bug 1284
 826     unless ($form->{"ordnumber"}) {
 827       if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
 828         # und rabattfähig sind, dann
 829         unless ($form->{"not_discountable_$i"}) {
 830           $form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
 831         }
 832       }
 833     }
 834     map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor);
 835     $form->{"donumber_$i"} = $form->{donumber};
 836     $form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
 837   }
 838
 839   $form->{type} = "invoice";
 840
 841   # locale messages
 842   $main::locale = Locale->new("$myconfig{countrycode}", "$script");
 843   $locale = $main::locale;
 844
 845   require "bin/mozilla/$form->{script}";
 846
 847   my $currency = $form->{currency};
 848   invoice_links();
 849
 850   if ($form->{ordnumber}) {
 851     require SL::DB::Order;
 852     if (my $order = SL::DB::Manager::Order->find_by(ordnumber => $form->{ordnumber})) {
 853       $order->load;
 854       $form->{orddate} = $order->transdate_as_date;
 855       $form->{$_}      = $order->$_ for qw(payment_id salesman_id taxzone_id quonumber);
 856     }
 857   }
 858
 859   $form->{currency}     = $currency;
 860   $form->{exchangerate} = "";
 861   $form->{forex}        = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
 862   $form->{exchangerate} = $form->{forex} if ($form->{forex});
 863
 864   prepare_invoice();
 865
 866   # format amounts
 867   for my $i (1 .. $form->{rowcount}) {
 868     $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
 869
 870     my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
 871     $dec           = length $dec;
 872     my $decimalplaces = ($dec > 2) ? $dec : 2;
 873
 874     # copy delivery date from reqdate for order -> invoice conversion
 875     $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
 876       unless $form->{"deliverydate_$i"};
 877
 878
 879     $form->{"sellprice_$i"} =
 880       $form->format_amount(\%myconfig, $form->{"sellprice_$i"},
 881                            $decimalplaces);
 882
 883     $form->{"lastcost_$i"} =
 884       $form->format_amount(\%myconfig, $form->{"lastcost_$i"},
 885                            $decimalplaces);
 886
 887     (my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
 888     $dec_qty = length $dec_qty;
 889     $form->{"qty_$i"} =
 890       $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
 891
 892   }
 893
 894   display_form();
 895
 896   $main::lxdebug->leave_sub();
 897 }
 898
 899 sub invoice_multi {
 900   $main::lxdebug->enter_sub();
 901
 902   my $form     = $main::form;
 903   my %myconfig = %main::myconfig;
 904   my $locale   = $main::locale;
 905
 906   check_do_access();
 907   $main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
 908
 909   my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});
 910
 911   if (!scalar @do_ids) {
 912     $form->show_generic_error($locale->text('You have not selected any delivery order.'), 'back_button' => 1);
 913   }
 914
 915   map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };
 916
 917   if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
 918     $form->show_generic_error($form->{vc} eq 'customer' ?
 919                               $locale->text('You cannot create an invoice for delivery orders for different customers.') :
 920                               $locale->text('You cannot create an invoice for delivery orders from different vendors.'),
 921                               'back_button' => 1);
 922   }
 923
 924   my $source_type              = $form->{type};
 925   $form->{convert_from_do_ids} = join ' ', @do_ids;
 926   # bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
 927   # zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
 928   # Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
 929   # $shell: perldoc perlunc; /delete EXPR
 930   $form->{donumber}            = delete $form->{donumber_array};
 931   $form->{ordnumber}           = delete $form->{ordnumber_array};
 932   $form->{cusordnumber}        = delete $form->{cusordnumber_array};
 933   $form->{deliverydate}        = $form->{transdate};
 934   $form->{transdate}           = $form->current_date(\%myconfig);
 935   $form->{duedate}             = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
 936   $form->{type}                = "invoice";
 937   $form->{closed}              = 0;
 938   $form->{defaultcurrency}     = $form->get_default_currency(\%myconfig);
 939
 940   my ($script, $buysell);
 941   if ($source_type eq 'purchase_delivery_order') {
 942     $form->{title}  = $locale->text('Add Vendor Invoice');
 943     $form->{script} = 'ir.pl';
 944     $script         = "ir";
 945     $buysell        = 'sell';
 946
 947   } else {
 948     $form->{title}  = $locale->text('Add Sales Invoice');
 949     $form->{script} = 'is.pl';
 950     $script         = "is";
 951     $buysell        = 'buy';
 952   }
 953
 954   map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);
 955
 956   # get vendor or customer discount
 957   my $vc_discount;
 958   my $saved_form = save_form();
 959   if ($form->{vc} eq 'vendor') {
 960     IR->get_vendor(\%myconfig, \%$form);
 961     $vc_discount = $form->{vendor_discount};
 962   } else {
 963     IS->get_customer(\%myconfig, \%$form);
 964     $vc_discount = $form->{customer_discount};
 965   }
 966   # use payment terms from customer or vendor
 967   restore_form($saved_form,0,qw(payment_id));
 968
 969   $form->{rowcount} = 0;
 970   foreach my $ref (@{ $form->{form_details} }) {
 971     $form->{rowcount}++;
 972     $ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
 973     map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
 974     map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
 975     $form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
 976
 977     if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
 978       # und keinen anderen discount wert an $i ...
 979       $form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
 980     }
 981
 982     $form->{"discount_$form->{rowcount}"}   = $form->{"discount_$form->{rowcount}"}  * 100; #s.a. Bug 1151
 983     # Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
 984     # Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
 985
 986     $form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
 987   }
 988   delete $form->{form_details};
 989
 990   $locale = Locale->new("$myconfig{countrycode}", "$script");
 991
 992   require "bin/mozilla/$form->{script}";
 993
 994   invoice_links();
 995   prepare_invoice();
 996
 997   display_form();
 998
 999   $main::lxdebug->leave_sub();
1000 }
1001
1002 sub save_as_new {
1003   $main::lxdebug->enter_sub();
1004
1005   check_do_access();
1006
1007   my $form     = $main::form;
1008
1009   $form->{saveasnew} = 1;
1010   $form->{closed}    = 0;
1011   $form->{delivered} = 0;
1012   map { delete $form->{$_} } qw(printed emailed queued);
1013   delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
1014   $form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
1015   # Let kivitendo assign a new order number if the user hasn't changed the
1016   # previous one. If it has been changed manually then use it as-is.
1017   $form->{donumber} =~ s/^\s*//g;
1018   $form->{donumber} =~ s/\s*$//g;
1019   if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
1020     delete($form->{donumber});
1021   }
1022
1023   save();
1024
1025   $main::lxdebug->leave_sub();
1026 }
1027
1028 sub e_mail {
1029   $main::lxdebug->enter_sub();
1030
1031   check_do_access();
1032
1033   $::form->mtime_ischanged('delivery_orders','mail');
1034
1035   $::form->{print_and_save} = 1;
1036
1037   my $saved_form = save_form();
1038
1039   save();
1040
1041   restore_form($saved_form, 0, qw(id ordnumber quonumber));
1042
1043   edit_e_mail();
1044
1045   $main::lxdebug->leave_sub();
1046 }
1047
1048 sub calculate_stock_in_out {
1049   $main::lxdebug->enter_sub();
1050
1051   my $form     = $main::form;
1052
1053   my $i = shift;
1054
1055   if (!$form->{"id_${i}"}) {
1056     $main::lxdebug->leave_sub();
1057     return '';
1058   }
1059
1060   my $all_units = AM->retrieve_all_units();
1061
1062   my $in_out   = $form->{type} =~ /^sales/ ? 'out' : 'in';
1063   my $sinfo    = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});
1064
1065   my $do_qty   = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
1066   my $sum      = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
1067   my $matches  = $do_qty == $sum;
1068
1069   my $content  = $form->format_amount_units('amount'      => $sum * 1,
1070                                             'part_unit'   => $form->{"partunit_$i"},
1071                                             'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
1072                                             'conv_units'  => 'convertible_not_smaller',
1073                                             'max_places'  => 2);
1074   $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="?">|;
1075
1076   $main::lxdebug->leave_sub();
1077
1078   return $content;
1079 }
1080
1081 sub get_basic_bin_wh_info {
1082   $main::lxdebug->enter_sub();
1083
1084   my $stock_info = shift;
1085
1086   my $form     = $main::form;
1087
1088   foreach my $sinfo (@{ $stock_info }) {
1089     next unless ($sinfo->{bin_id});
1090
1091     my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
1092     map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
1093   }
1094
1095   $main::lxdebug->leave_sub();
1096 }
1097
1098 sub stock_in_out_form {
1099   $main::lxdebug->enter_sub();
1100
1101   my $form     = $main::form;
1102
1103   if ($form->{in_out} eq 'out') {
1104     stock_out_form();
1105   } else {
1106     stock_in_form();
1107   }
1108
1109   $main::lxdebug->leave_sub();
1110 }
1111
1112 sub redo_stock_info {
1113   $main::lxdebug->enter_sub();
1114
1115   my %params    = @_;
1116
1117   my $form     = $main::form;
1118
1119   my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };
1120
1121   if ($params{add_empty_row}) {
1122     push @non_empty, {
1123       'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
1124       'bin_id'       => scalar(@non_empty) ? $non_empty[-1]->{bin_id}       : undef,
1125     };
1126   }
1127
1128   @{ $params{stock_info} } = @non_empty;
1129
1130   $main::lxdebug->leave_sub();
1131 }
1132
1133 sub update_stock_in {
1134   $main::lxdebug->enter_sub();
1135
1136   my $form     = $main::form;
1137   my %myconfig = %main::myconfig;
1138
1139   my $stock_info = [];
1140
1141   foreach my $i (1..$form->{rowcount}) {
1142     $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1143     push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
1144                                                                    bestbefore qty unit delivery_order_items_stock_id) };
1145   }
1146
1147   display_stock_in_form($stock_info);
1148
1149   $main::lxdebug->leave_sub();
1150 }
1151
1152 sub stock_in_form {
1153   $main::lxdebug->enter_sub();
1154
1155   my $form     = $main::form;
1156
1157   my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1158
1159   display_stock_in_form($stock_info);
1160
1161   $main::lxdebug->leave_sub();
1162 }
1163
1164 sub display_stock_in_form {
1165   $main::lxdebug->enter_sub();
1166
1167   my $stock_info = shift;
1168
1169   my $form     = $main::form;
1170   my %myconfig = %main::myconfig;
1171   my $locale   = $main::locale;
1172
1173   $form->{title} = $locale->text('Stock');
1174
1175   my $part_info  = IC->get_basic_part_info('id' => $form->{parts_id});
1176
1177   # Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
1178   if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1179     $part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
1180     $part_info->{bin_id}       ||= $::instance_conf->get_bin_id;
1181   }
1182
1183   my $units      = AM->retrieve_units(\%myconfig, $form);
1184   # der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
1185   my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
1186
1187   $form->get_lists('warehouses' => { 'key'    => 'WAREHOUSES',
1188                                      'bins'   => 'BINS' });
1189
1190   redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
1191
1192   get_basic_bin_wh_info($stock_info);
1193
1194   $form->header(no_layout => 1);
1195   print $form->parse_html_template('do/stock_in_form', { 'UNITS'      => $units_data,
1196                                                          'STOCK_INFO' => $stock_info,
1197                                                          'PART_INFO'  => $part_info, });
1198
1199   $main::lxdebug->leave_sub();
1200 }
1201
1202 sub _stock_in_out_set_qty_display {
1203   my $stock_info       = shift;
1204   my $form             = $::form;
1205   my $all_units        = AM->retrieve_all_units();
1206   my $sum              = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1207   $form->{qty_display} = $form->format_amount_units(amount      => $sum * 1,
1208                                                     part_unit   => $form->{partunit},
1209                                                     amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
1210                                                     conv_units  => 'convertible_not_smaller',
1211                                                     max_places  => 2);
1212 }
1213
1214 sub set_stock_in {
1215   $main::lxdebug->enter_sub();
1216
1217   my $form     = $main::form;
1218   my %myconfig = %main::myconfig;
1219
1220   my $stock_info = [];
1221
1222   foreach my $i (1..$form->{rowcount}) {
1223     $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1224
1225     next if ($form->{"qty_$i"} <= 0);
1226
1227     push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
1228   }
1229
1230   $form->{stock} = YAML::Dump($stock_info);
1231
1232   _stock_in_out_set_qty_display($stock_info);
1233
1234   my $do_qty       = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1235   my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1236
1237   $form->header();
1238   print $form->parse_html_template('do/set_stock_in_out', {
1239     qty_matches => $do_qty == $transfer_qty,
1240   });
1241
1242   $main::lxdebug->leave_sub();
1243 }
1244
1245 sub stock_out_form {
1246   $main::lxdebug->enter_sub();
1247
1248   my $form     = $main::form;
1249   my %myconfig = %main::myconfig;
1250   my $locale   = $main::locale;
1251
1252   $form->{title} = $locale->text('Release From Stock');
1253
1254   my $part_info  = IC->get_basic_part_info('id' => $form->{parts_id});
1255
1256   my $units      = AM->retrieve_units(\%myconfig, $form);
1257   my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});
1258
1259   my @contents   = DO->get_item_availability('parts_id' => $form->{parts_id});
1260
1261   my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});
1262
1263   if (!$form->{delivered}) {
1264     foreach my $row (@contents) {
1265       $row->{available_qty} = $form->format_amount_units('amount'      => $row->{qty} * 1,
1266                                                          'part_unit'   => $part_info->{unit},
1267                                                          'conv_units'  => 'convertible_not_smaller',
1268                                                          'max_places'  => 2);
1269
1270       foreach my $sinfo (@{ $stock_info }) {
1271         next if (($row->{bin_id}       != $sinfo->{bin_id}) ||
1272                  ($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
1273                  ($row->{chargenumber} ne $sinfo->{chargenumber}) ||
1274                  ($row->{bestbefore}   ne $sinfo->{bestbefore}));
1275
1276         map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
1277       }
1278     }
1279
1280   } else {
1281     get_basic_bin_wh_info($stock_info);
1282
1283     foreach my $sinfo (@{ $stock_info }) {
1284       map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
1285     }
1286   }
1287
1288   $form->header(no_layout => 1);
1289   print $form->parse_html_template('do/stock_out_form', { 'UNITS'      => $units_data,
1290                                                           'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
1291                                                           'PART_INFO'  => $part_info, });
1292
1293   $main::lxdebug->leave_sub();
1294 }
1295
1296 sub set_stock_out {
1297   $main::lxdebug->enter_sub();
1298
1299   my $form     = $main::form;
1300   my %myconfig = %main::myconfig;
1301   my $locale   = $main::locale;
1302
1303   my $stock_info = [];
1304
1305   foreach my $i (1 .. $form->{rowcount}) {
1306     $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
1307
1308     next if ($form->{"qty_$i"} <= 0);
1309
1310     push @{ $stock_info }, {
1311       'warehouse_id' => $form->{"warehouse_id_$i"},
1312       'bin_id'       => $form->{"bin_id_$i"},
1313       'chargenumber' => $form->{"chargenumber_$i"},
1314       'bestbefore'   => $form->{"bestbefore_$i"},
1315       'qty'          => $form->{"qty_$i"},
1316       'unit'         => $form->{"unit_$i"},
1317       'row'          => $i,
1318       'delivery_order_items_stock_id'  => $form->{"delivery_order_items_stock_id_$i"},
1319     };
1320   }
1321
1322   my @errors     = DO->check_stock_availability('requests' => $stock_info,
1323                                                 'parts_id' => $form->{parts_id});
1324
1325   $form->{stock} = YAML::Dump($stock_info);
1326
1327   if (@errors) {
1328     $form->{ERRORS} = [];
1329     map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
1330     stock_in_out_form();
1331
1332   } else {
1333     _stock_in_out_set_qty_display($stock_info);
1334
1335     my $do_qty       = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
1336     my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
1337
1338     $form->header();
1339     print $form->parse_html_template('do/set_stock_in_out', {
1340       qty_matches => $do_qty == $transfer_qty,
1341     });
1342   }
1343
1344   $main::lxdebug->leave_sub();
1345 }
1346
1347 sub transfer_in {
1348   $main::lxdebug->enter_sub();
1349
1350   my $form     = $main::form;
1351   my %myconfig = %main::myconfig;
1352   my $locale   = $main::locale;
1353
1354   if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1355     $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'), 'back_button' => 1);
1356   }
1357
1358   save(no_redirect => 1);
1359
1360   my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
1361   my @all_requests;
1362
1363   if (@part_ids) {
1364     my $units         = AM->retrieve_units(\%myconfig, $form);
1365     my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1366     my %request_map;
1367
1368     $form->{ERRORS}   = [];
1369
1370     foreach my $i (1 .. $form->{rowcount}) {
1371       next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});
1372
1373       my $row_sum_base_qty = 0;
1374       my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1375
1376       foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
1377         $request->{parts_id}  = $form->{"id_$i"};
1378         $row_sum_base_qty    += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1379
1380         $request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};
1381
1382         push @all_requests, $request;
1383       }
1384
1385       next if (0 == $row_sum_base_qty);
1386
1387       my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1388
1389 #      if ($do_base_qty != $row_sum_base_qty) {
1390 #        push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
1391 #                                                 $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1392 #      }
1393     }
1394
1395     if (@{ $form->{ERRORS} }) {
1396       push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1397
1398       set_headings('edit');
1399       update();
1400       $main::lxdebug->leave_sub();
1401
1402       ::end_of_request();
1403     }
1404   }
1405
1406   DO->transfer_in_out('direction' => 'in',
1407                       'requests'  => \@all_requests);
1408
1409   SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1410
1411   $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
1412   $form->redirect;
1413
1414   $main::lxdebug->leave_sub();
1415 }
1416
1417 sub transfer_out {
1418   $main::lxdebug->enter_sub();
1419
1420   my $form     = $main::form;
1421   my %myconfig = %main::myconfig;
1422   my $locale   = $main::locale;
1423
1424   if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
1425     $form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'), 'back_button' => 1);
1426   }
1427
1428   save(no_redirect => 1);
1429
1430   my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
1431   my @all_requests;
1432
1433   if (@part_ids) {
1434     my $units         = AM->retrieve_units(\%myconfig, $form);
1435     my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1436     my %request_map;
1437
1438     $form->{ERRORS}   = [];
1439
1440     foreach my $i (1 .. $form->{rowcount}) {
1441       next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});
1442
1443       my $row_sum_base_qty = 0;
1444       my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1445
1446       foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
1447         $request->{parts_id} = $form->{"id_$i"};
1448         $request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
1449         $request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
1450
1451         my $map_key          = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
1452
1453         $request_map{$map_key}                 ||= $request;
1454         $request_map{$map_key}->{sum_base_qty} ||= 0;
1455         $request_map{$map_key}->{sum_base_qty}  += $request->{base_qty};
1456         $row_sum_base_qty                       += $request->{base_qty};
1457
1458         push @all_requests, $request;
1459       }
1460
1461       next if (0 == $row_sum_base_qty);
1462
1463       my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1464
1465 #      if ($do_base_qty != $row_sum_base_qty) {
1466 #        push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
1467 #                                                 $i, $form->{"qty_$i"}, $form->{"unit_$i"});
1468 #      }
1469     }
1470
1471     if (%request_map) {
1472       my @bin_ids      = map { $_->{bin_id} } values %request_map;
1473       my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
1474       my @contents     = DO->get_item_availability('parts_id' => \@part_ids);
1475
1476       foreach my $inv (@contents) {
1477         my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
1478
1479         next unless ($request_map{$map_key});
1480
1481         my $request    = $request_map{$map_key};
1482         $request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
1483       }
1484
1485       foreach my $request (values %request_map) {
1486         next if ($request->{ok});
1487
1488         my $pinfo = $part_info_map{$request->{parts_id}};
1489         my $binfo = $bin_info_map{$request->{bin_id}};
1490
1491         if ($::instance_conf->get_show_bestbefore) {
1492             push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
1493                                                      $pinfo->{description},
1494                                                      $binfo->{warehouse_description},
1495                                                      $binfo->{bin_description},
1496                                                      $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1497                                                      $request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
1498                                                      $form->format_amount_units('amount'      => $request->{sum_base_qty},
1499                                                                                 'part_unit'   => $pinfo->{unit},
1500                                                                                 'conv_units'  => 'convertible_not_smaller'));
1501         } else {
1502             push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
1503                                                      $pinfo->{description},
1504                                                      $binfo->{warehouse_description},
1505                                                      $binfo->{bin_description},
1506                                                      $request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
1507                                                      $form->format_amount_units('amount'      => $request->{sum_base_qty},
1508                                                                                 'part_unit'   => $pinfo->{unit},
1509                                                                                 'conv_units'  => 'convertible_not_smaller'));
1510         }
1511       }
1512     }
1513
1514     if (@{ $form->{ERRORS} }) {
1515       push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
1516
1517       set_headings('edit');
1518       update();
1519       $main::lxdebug->leave_sub();
1520
1521       ::end_of_request();
1522     }
1523   }
1524   DO->transfer_in_out('direction' => 'out',
1525                       'requests'  => \@all_requests);
1526
1527   SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1528
1529   $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
1530   $form->redirect;
1531
1532   $main::lxdebug->leave_sub();
1533 }
1534
1535 sub mark_closed {
1536   $main::lxdebug->enter_sub();
1537
1538   my $form     = $main::form;
1539
1540   DO->close_orders('ids' => [ $form->{id} ]);
1541
1542   $form->{closed} = 1;
1543
1544   update();
1545
1546   $main::lxdebug->leave_sub();
1547 }
1548
1549 sub display_form {
1550   $::lxdebug->enter_sub;
1551
1552   $::auth->assert('purchase_delivery_order_edit | sales_delivery_order_edit');
1553
1554   relink_accounts();
1555   retrieve_partunits();
1556
1557   my $new_rowcount = $::form->{"rowcount"} * 1 + 1;
1558   $::form->{"project_id_${new_rowcount}"} = $::form->{"globalproject_id"};
1559
1560   $::form->language_payment(\%::myconfig);
1561
1562   Common::webdav_folder($::form);
1563
1564   form_header();
1565   display_row(++$::form->{rowcount});
1566   form_footer();
1567
1568   $::lxdebug->leave_sub;
1569 }
1570
1571 sub yes {
1572   call_sub($main::form->{yes_nextsub});
1573 }
1574
1575 sub no {
1576   call_sub($main::form->{no_nextsub});
1577 }
1578
1579 sub update {
1580   call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
1581 }
1582
1583 sub dispatcher {
1584   my $form     = $main::form;
1585   my $locale   = $main::locale;
1586
1587   foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default sort
1588                          transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
1589     if ($form->{"action_${action}"}) {
1590       call_sub($action);
1591       return;
1592     }
1593   }
1594
1595   $form->error($locale->text('No action defined.'));
1596 }
1597
1598 sub transfer_out_default {
1599   $main::lxdebug->enter_sub();
1600
1601   my $form     = $main::form;
1602
1603   transfer_in_out_default('direction' => 'out');
1604
1605   $main::lxdebug->leave_sub();
1606 }
1607
1608 sub transfer_in_default {
1609   $main::lxdebug->enter_sub();
1610
1611   my $form     = $main::form;
1612
1613   transfer_in_out_default('direction' => 'in');
1614
1615   $main::lxdebug->leave_sub();
1616 }
1617
1618 # Falls das Standardlagerverfahren aktiv ist, wird
1619 # geprüft, ob alle Standardlagerplätze für die Auslager-
1620 # artikel vorhanden sind UND ob die Warenmenge ausreicht zum
1621 # Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
1622 # generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
1623 sub transfer_in_out_default {
1624   $main::lxdebug->enter_sub();
1625
1626   my $form     = $main::form;
1627   my %myconfig = %main::myconfig;
1628   my $locale   = $main::locale;
1629   my %params   = @_;
1630
1631   my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);
1632
1633   Common::check_params(\%params, qw(direction));
1634
1635   # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
1636   if ($::instance_conf->get_transfer_default_use_master_default_bin) {
1637     $default_warehouse_id = $::instance_conf->get_warehouse_id;
1638     $default_bin_id       = $::instance_conf->get_bin_id;
1639   }
1640
1641
1642   my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
1643   if (@part_ids) {
1644     my $units         = AM->retrieve_units(\%myconfig, $form);
1645     %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
1646     foreach my $i (1 .. $form->{rowcount}) {
1647       next unless ($form->{"id_$i"});
1648       my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
1649       my $qty =   $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
1650
1651       $form->show_generic_error($locale->text("Cannot transfer negative entries." ), 'back_button' => 1) if ($qty < 0);
1652       # if we do not want to transfer services and this part is a service, set qty to zero
1653       # ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
1654       # ... 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)
1655
1656       $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});
1657       $qty_parts{$form->{"id_$i"}} += $qty;
1658       if ($qty == 0) {
1659         delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
1660         undef $form->{"stock_in_$i"};
1661       }
1662
1663       $part_info_map{$form->{"id_$i"}}{bin_id}       ||= $default_bin_id;
1664       $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;
1665
1666       push @all_requests, ($qty == 0) ? { } : {
1667                         'chargenumber' => '',  #?? die müsste entsprechend geholt werden
1668                         #'bestbefore' => undef, # TODO wird nicht berücksichtigt
1669                         'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
1670                         'qty' => $qty,
1671                         'parts_id' => $form->{"id_$i"},
1672                         'comment' => $locale->text("Default transfer delivery order"),
1673                         'unit' => $part_info_map{$form->{"id_$i"}}{unit},
1674                         'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
1675                         'oe_id' => $form->{id},
1676                         'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
1677                       };
1678     }
1679
1680     # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
1681     # check if bin (transfer in and transfer out and qty (transfer out) is correct
1682     foreach my $key (keys %qty_parts) {
1683
1684       $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
1685       next unless ($part_info_map{$key}{bin_id}); # abbruch
1686
1687       if ($params{direction} eq 'out') {  # wird nur für ausgehende Mengen benötigt
1688         my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
1689         if ($error == 1) {
1690           # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
1691           # deshalb rückmeldung nach oben geben, manuell auszulagern
1692           # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
1693           $missing_default_bins{$key}{chargenumber} = 1;
1694         }
1695         if ($max_qty < $qty_parts{$key}){
1696           $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
1697         }
1698       }
1699     }
1700   } # if @parts_id
1701
1702   # Abfrage für Fehlerbehandlung (nur bei direction == out)
1703   if (scalar (keys %missing_default_bins)) {
1704     my $fehlertext;
1705     foreach my $fehler (keys %missing_default_bins) {
1706
1707       my $ware = WH->get_part_description(parts_id => $fehler);
1708       if ($missing_default_bins{$fehler}{missing_bin}){
1709         $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
1710       }
1711       if ($missing_default_bins{$fehler}{missing_qty}) {  # missing_qty
1712         $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
1713                        " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} .   " zum Auslagern<br>";
1714       }
1715       if ($missing_default_bins{$fehler}{chargenumber}){
1716         $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
1717                         Hier kann man nicht automatisch entscheiden.
1718                         Bitte diesen Lieferschein manuell auslagern.
1719                         Bei: $ware";
1720       }
1721       # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
1722       # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
1723       # Lagerplatz Lagerplatz-Korrektur
1724       my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
1725       my $default_bin_id_ignore_onhand       = $::instance_conf->get_bin_id_ignore_onhand;
1726       if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
1727         # entsprechende defaults holen
1728         # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
1729         # lagerplatz wegbuchen!
1730         foreach (@all_requests) {
1731           if ($_->{parts_id} eq $fehler){
1732           $_->{bin_id}        = $default_bin_id_ignore_onhand;
1733           $_->{warehouse_id}  = $default_warehouse_id_ignore_onhand;
1734           }
1735         }
1736       } else {
1737         #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
1738         $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ), 'back_button' => 1);
1739       }
1740     }
1741   }
1742
1743
1744   # hier der eigentliche fallunterschied für in oder out
1745   my $prefix   = $params{direction} eq 'in' ? 'in' : 'out';
1746
1747   # dieser array_ref ist für DO->save da:
1748   # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
1749   # gefüllt werden kann.
1750   # could be dumped to the form in the first loop,
1751   # but maybe bin_id and warehouse_id has changed to the "korrekturlager" with
1752   # allowed negative qty ($::instance_conf->get_warehouse_id_ignore_onhand) ...
1753   my $i = 0;
1754   foreach (@all_requests){
1755     $i++;
1756     next unless scalar(%{ $_ });
1757     $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
1758   }
1759
1760   save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
1761                           # und in delivery_order_items_stock speichern
1762
1763   # ... and fill back the persistent dois_id for inventory fk
1764   undef (@all_requests);
1765   foreach my $i (1 .. $form->{rowcount}) {
1766     next unless ($form->{"id_$i"} && $form->{"stock_${prefix}_$i"});
1767     push @all_requests, @{ DO->unpack_stock_information('packed' => $form->{"stock_${prefix}_$i"}) };
1768   }
1769   DO->transfer_in_out('direction' => $prefix,
1770                       'requests'  => \@all_requests);
1771
1772   SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
1773
1774   $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
1775   $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
1776   $form->redirect;
1777
1778 }
1779
1780 sub sort {
1781   $main::lxdebug->enter_sub();
1782
1783   check_do_access();
1784
1785   my $form     = $main::form;
1786   my %temp_hash;
1787
1788   croak ("Delivery Order needs to be saved") unless $form->{id};
1789
1790   # hashify partnumbers, positions. key is delivery_order_items_id
1791   for my $i (1 .. ($form->{rowcount}) ) {
1792     $temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
1793   }
1794   # naturally sort partnumbers and get a sorted array of doi_ids
1795   my @sorted_doi_ids =  sort { Sort::Naturally::ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) }  keys %temp_hash;
1796
1797
1798   my $new_number = 1;
1799
1800   for (@sorted_doi_ids) {
1801     $form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;
1802     $new_number++;
1803   }
1804     $main::lxdebug->leave_sub();
1805     save();
1806 }
1807
1808 __END__
1809
1810 =pod
1811
1812 =encoding utf8
1813
1814 =head1 NAME
1815
1816 do.pl - Script for all calls to delivery order
1817
1818
1819 =head1 FUNCTIONS
1820
1821 =over 2
1822
1823 =item C<sort>
1824
1825 Sorts all position with Natural Sort. Can be activated in form_footer.html like this
1826 C<E<lt>input class="submit" type="submit" name="action_sort" id="sort_button" value="[% 'Sort and Save' | $T8 %]"E<gt>>
1827
1828 =back
1829
1830 =head1 TODO
1831
1832 Sort and Save can be implemented as an optional button if configuration ca be set by client config.
1833 Example coding for database scripts and templates in (git show af2f24b8), check also
1834 autogeneration for rose (scripts/rose_auto_create_model.pl --h)