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