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