Projekt

Allgemein

Profil

Herunterladen (62,2 KB) Statistiken
| Zweig: | Markierung: | Revision:

kivitendo/bin/mozilla/do.pl @ 54086731

f404e525 Sven Schöling
#=====================================================================
d707f7ac Moritz Bunkus
# LX-Office ERP
# Copyright (C) 2004
# Based on SQL-Ledger Version 2.1.9
# Web http://www.lx-office.org
#
#=====================================================================
# SQL-Ledger, Accounting
# Copyright (c) 1998-2003
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
# Web: http://www.sql-ledger.org
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
#
# Delivery orders
#======================================================================

41adf433 Moritz Bunkus
use List::MoreUtils qw(uniq);
d707f7ac Moritz Bunkus
use List::Util qw(max sum);
use POSIX qw(strftime);
use YAML;

088bf5a0 Moritz Bunkus
use SL::DB::DeliveryOrder;
d707f7ac Moritz Bunkus
use SL::DO;
use SL::IR;
use SL::IS;
e4070a74 Sven Schöling
use SL::MoreCommon qw(ary_diff);
d707f7ac Moritz Bunkus
use SL::ReportGenerator;
use SL::WH;
54086731 Jan Büren
use Sort::Naturally;
d707f7ac Moritz Bunkus
require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
require "bin/mozilla/invoice_io.pl";
require "bin/mozilla/io.pl";
require "bin/mozilla/reportgenerator.pl";

f404e525 Sven Schöling
use strict;

d707f7ac Moritz Bunkus
1;

# end of main

sub check_do_access {
f404e525 Sven Schöling
$main::auth->assert($main::form->{type} . '_edit');
d707f7ac Moritz Bunkus
}

sub set_headings {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

my ($action) = @_;

f404e525 Sven Schöling
my $form = $main::form;
my $locale = $main::locale;

d707f7ac Moritz Bunkus
if ($form->{type} eq 'purchase_delivery_order') {
$form->{vc} = 'vendor';
$form->{title} = $action eq "edit" ? $locale->text('Edit Purchase Delivery Order') : $locale->text('Add Purchase Delivery Order');
} else {
$form->{vc} = 'customer';
$form->{title} = $action eq "edit" ? $locale->text('Edit Sales Delivery Order') : $locale->text('Add Sales Delivery Order');
}

$form->{heading} = $locale->text('Delivery Order');

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub add {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f775b88a Moritz Bunkus
if (($::form->{type} =~ /purchase/) && !$::instance_conf->get_allow_new_purchase_invoice) {
$::form->show_generic_error($::locale->text("You do not have the permissions to access this function."));
}

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
set_headings("add");

$form->{callback} = build_std_url('action=add', 'type', 'vc') unless ($form->{callback});

order_links();
prepare_order();
display_form();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub edit {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
# show history button
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
#/show hhistory button

$form->{simple_save} = 0;

set_headings("edit");

# editing without stuff to edit? try adding it first
if ($form->{rowcount} && !$form->{print_and_save}) {
# map { $id++ if $form->{"multi_id_$_"} } (1 .. $form->{rowcount});
# if (!$id) {

# reset rowcount
undef $form->{rowcount};
add();
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
return;
# }
} elsif (!$form->{id}) {
add();
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
return;
}

f404e525 Sven Schöling
my ($language_id, $printer_id);
d707f7ac Moritz Bunkus
if ($form->{print_and_save}) {
05691f2a Sven Schöling
$form->{action} = "dispatcher";
$form->{action_print} = "1";
d707f7ac Moritz Bunkus
$form->{resubmit} = 1;
$language_id = $form->{language_id};
$printer_id = $form->{printer_id};
}

set_headings("edit");

order_links();
prepare_order();

if ($form->{print_and_save}) {
$form->{language_id} = $language_id;
$form->{printer_id} = $printer_id;
}

display_form();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub order_links {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;

d707f7ac Moritz Bunkus
# get customer/vendor
$form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

# retrieve order/quotation
9a578c8b Jan Büren
$form->{webdav} = $::instance_conf->get_webdav;
d707f7ac Moritz Bunkus
my $editing = $form->{id};

454df69e Moritz Bunkus
DO->retrieve('vc' => $form->{vc},
'ids' => $form->{id});
d707f7ac Moritz Bunkus
03d3d025 Bernd Bleßmann
$form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes delivery_term_id currency));
d707f7ac Moritz Bunkus
7fb467cc Moritz Bunkus
# get customer / vendor
if ($form->{vc} eq 'vendor') {
IR->get_vendor(\%myconfig, \%$form);
f3ea7204 Bernd Bleßmann
$form->{discount} = $form->{vendor_discount};
7fb467cc Moritz Bunkus
} else {
IS->get_customer(\%myconfig, \%$form);
2b88ba77 Jan Büren
$form->{discount} = $form->{customer_discount};
7fb467cc Moritz Bunkus
}
d707f7ac Moritz Bunkus
03d3d025 Bernd Bleßmann
$form->restore_vars(qw(payment_id language_id taxzone_id intnotes cp_id delivery_term_id));
81c95198 Bernd Bleßmann
$form->restore_vars(qw(currency)) if ($form->{id} || $form->{convert_from_oe_ids});
7fb467cc Moritz Bunkus
$form->restore_vars(qw(taxincluded)) if $form->{id};
$form->restore_vars(qw(salesman_id)) if $editing;
d707f7ac Moritz Bunkus
if ($form->{"all_$form->{vc}"}) {
unless ($form->{"$form->{vc}_id"}) {
$form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
}
}

($form->{ $form->{vc} }) = split /--/, $form->{ $form->{vc} };
$form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;

$form->{employee} = "$form->{employee}--$form->{employee_id}";

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub prepare_order {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;

d707f7ac Moritz Bunkus
$form->{formname} = $form->{type} unless $form->{formname};

my $i = 0;
f404e525 Sven Schöling
foreach my $ref (@{ $form->{form_details} }) {
d707f7ac Moritz Bunkus
$form->{rowcount} = ++$i;

map { $form->{"${_}_$i"} = $ref->{$_} } keys %{$ref};
}
for my $i (1 .. $form->{rowcount}) {
if ($form->{id}) {
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);
} else {
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
}
f404e525 Sven Schöling
my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
d707f7ac Moritz Bunkus
$dec = length $dec;
f404e525 Sven Schöling
my $decimalplaces = ($dec > 2) ? $dec : 2;
d707f7ac Moritz Bunkus
# copy reqdate from deliverydate for invoice -> order conversion
$form->{"reqdate_$i"} = $form->{"deliverydate_$i"} unless $form->{"reqdate_$i"};

$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
da804bf2 Geoffrey Richardson
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
d707f7ac Moritz Bunkus
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
$dec_qty = length $dec_qty;
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);
}

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub form_header {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;

d707f7ac Moritz Bunkus
$form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
$form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};

my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
41adf433 Moritz Bunkus
$form->get_lists($vc => "ALL_VC",
d707f7ac Moritz Bunkus
"price_factors" => "ALL_PRICE_FACTORS",
"departments" => "ALL_DEPARTMENTS",
"business_types" => "ALL_BUSINESS_TYPES",
);
590047d7 Sven Schöling
41adf433 Moritz Bunkus
# Projects
my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
my @old_ids_cond = @old_project_ids ? (id => \@old_project_ids) : ();
my @customer_cond;
if (($vc eq 'customers') && $::instance_conf->get_customer_projects_only_in_sales) {
@customer_cond = (
or => [
customer_id => $::form->{customer_id},
billable_customer_id => $::form->{customer_id},
]);
}
my @conditions = (
or => [
and => [ active => 1, @customer_cond ],
@old_ids_cond,
]);

fc6a8e32 Moritz Bunkus
$::form->{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => \@conditions);
d139dd31 Moritz Bunkus
$::form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{employee_id}, deleted => 0 ] ]);
$::form->{ALL_SALESMEN} = SL::DB::Manager::Employee->get_all_sorted(query => [ or => [ id => $::form->{salesman_id}, deleted => 0 ] ]);
5b8e9fcb Moritz Bunkus
$::form->{ALL_SHIPTO} = SL::DB::Manager::Shipto->get_all_sorted(query => [
752fd6ad Sven Schöling
or => [ trans_id => $::form->{"$::form->{vc}_id"} * 1, and => [ shipto_id => $::form->{shipto_id} * 1, trans_id => undef ] ]
9b67d27c Sven Schöling
]);
3816bb51 Moritz Bunkus
$::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(query => [
cb2abccd Sven Schöling
or => [
cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
and => [
cp_cv_id => undef,
cp_id => $::form->{cp_id} * 1
]
]
]);
d707f7ac Moritz Bunkus
map { $_->{value} = "$_->{description}--$_->{id}" } @{ $form->{ALL_DEPARTMENTS} };
map { $_->{value} = "$_->{name}--$_->{id}" } @{ $form->{ALL_VC} };

$form->{SHOW_VC_DROP_DOWN} = $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };

$form->{oldvcname} = $form->{"old$form->{vc}"};
$form->{oldvcname} =~ s/--.*//;

ee561795 Bernd Bleßmann
my $dispatch_to_popup = '';
if ($form->{resubmit} && ($form->{format} eq "html")) {
$dispatch_to_popup = "window.open('about:blank','Beleg'); document.do.target = 'Beleg';";
3c255f28 Sven Schöling
$dispatch_to_popup .= "document.do.submit();";
ee561795 Bernd Bleßmann
} elsif ($form->{resubmit}) {
# emulate click for resubmitting actions
$dispatch_to_popup = "document.do.${_}.click(); " for grep { /^action_/ } keys %$form;
d707f7ac Moritz Bunkus
}
579920a7 Bernd Bleßmann
$::request->{layout}->add_javascripts_inline("\$(function(){$dispatch_to_popup});");
ee561795 Bernd Bleßmann
d707f7ac Moritz Bunkus
af0023e0 Thomas Heck
my $follow_up_vc = $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
$follow_up_vc =~ s/--\d*\s*$//;

$form->{follow_up_trans_info} = $form->{donumber} .'('. $follow_up_vc .')';

ac6d3a20 Geoffrey Richardson
$::request->{layout}->use_javascript(map { "${_}.js" } qw(kivi.SalesPurchase ckeditor/ckeditor ckeditor/adapters/jquery kivi.io autocomplete_customer autocomplete_part));
ff058663 Moritz Bunkus
d707f7ac Moritz Bunkus
$form->header();
e69e3657 Jan Büren
# Fix für Bug 1082 Erwartet wird: 'abteilungsNAME--abteilungsID'
1a0c73d3 Jan Büren
# und Erweiterung für Bug 1760:
# Das war leider nur ein Teil-Fix, da das Verhalten den 'Erneuern'-Knopf
b33690b0 Sven Schöling
# nicht überlebt. Konsequent jetzt auf L umgestellt
1a0c73d3 Jan Büren
# $ perldoc SL::Template::Plugin::L
# Daher entsprechend nur die Anpassung in form_header
# und in DO.pm gemacht. 4 Testfälle:
# department_id speichern | i.O.
# department_id lesen | i.O.
# department leer überlebt erneuern | i.O.
# department nicht leer überlebt erneuern | i.O.
# $main::lxdebug->message(0, 'ABTEILUNGS ID in form?' . $form->{department_id});
d707f7ac Moritz Bunkus
print $form->parse_html_template('do/form_header');

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub form_footer {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
$form->{PRINT_OPTIONS} = print_options('inline' => 1);
03d3d025 Bernd Bleßmann
$form->{ALL_DELIVERY_TERMS} = SL::DB::Manager::DeliveryTerm->get_all_sorted();
d707f7ac Moritz Bunkus
52d18c01 Jan Büren
print $form->parse_html_template('do/form_footer',
{transfer_default => ($::instance_conf->get_transfer_default)});
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub update_delivery_order {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;

d707f7ac Moritz Bunkus
set_headings($form->{"id"} ? "edit" : "add");

e8966d20 Bernd Bleßmann
$form->{insertdate} = SL::DB::DeliveryOrder->new(id => $form->{id})->load->itime_as_date if $form->{id};

d707f7ac Moritz Bunkus
$form->{update} = 1;

f404e525 Sven Schöling
my $payment_id;
d707f7ac Moritz Bunkus
$payment_id = $form->{payment_id} if $form->{payment_id};

check_name($form->{vc});
c6d1bb55 Jan Büren
$form->{discount} = $form->{"$form->{vc}_discount"} if defined $form->{"$form->{vc}_discount"};
# Problem: Wenn man ohne Erneuern einen Kunden/Lieferanten
# wechselt, wird der entsprechende Kunden/ Lieferantenrabatt
# nicht übernommen. Grundproblem: In Commit 82574e78
# hab ich aus discount customer_discount und vendor_discount
# gemacht und entsprechend an den Oberflächen richtig hin-
# geschoben. Die damals bessere Lösung wäre gewesen:
# In den Templates nur die hidden für form-discount wieder ein-
# setzen dann wäre die Verrenkung jetzt nicht notwendig.
# TODO: Ggf. Bugfix 1284, 1575 und 817 wieder zusammenführen
# Testfälle: Kunden mit Rabatt 0 -> Rabatt 20 i.O.
# Kunde mit Rabatt 20 -> Rabatt 0 i.O.
# Kunde mit Rabatt 20 -> Rabatt 5,5 i.O.
d707f7ac Moritz Bunkus
$form->{payment_id} = $payment_id if $form->{payment_id} eq "";

f404e525 Sven Schöling
my $i = $form->{rowcount};
d707f7ac Moritz Bunkus
if ( ($form->{"partnumber_$i"} eq "")
&& ($form->{"description_$i"} eq "")
&& ($form->{"partsgroup_$i"} eq "")) {

check_form();

} else {

cb253140 Moritz Bunkus
my $mode;
d707f7ac Moritz Bunkus
if ($form->{type} eq 'purchase_delivery_order') {
IR->retrieve_item(\%myconfig, $form);
cb253140 Moritz Bunkus
$mode = 'IR';
d707f7ac Moritz Bunkus
} else {
IS->retrieve_item(\%myconfig, $form);
cb253140 Moritz Bunkus
$mode = 'IS';
d707f7ac Moritz Bunkus
}

my $rows = scalar @{ $form->{item_list} };

if ($rows) {
2a61343f Thomas Heck
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
if( !$form->{"qty_$i"} ) {
$form->{"qty_$i"} = 1;
}
d707f7ac Moritz Bunkus
if ($rows > 1) {

6ea1dd9b Bernd Bleßmann
select_item(mode => $mode, pre_entered_qty => $form->{"qty_$i"});
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
} else {

ca6d3683 Sven Schöling
my $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});

d707f7ac Moritz Bunkus
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };

$form->{"marge_price_factor_$i"} = $form->{item_list}->[0]->{price_factor};
ca6d3683 Sven Schöling
if ($sellprice) {
$form->{"sellprice_$i"} = $sellprice;
} else {
my $record = _make_record();
my $price_source = SL::PriceSource->new(record_item => $record->items->[$i-1], record => $record);
my $best_price = $price_source->best_price;
my $best_discount = $price_source->best_discount;

if ($best_price) {
$::form->{"sellprice_$i"} = $best_price->price;
$::form->{"active_price_source_$i"} = $best_price->source;
}
if ($best_discount) {
$::form->{"discount_$i"} = $best_discount->discount;
$::form->{"active_discount_source_$i"} = $best_discount->source;
}
}

89b26688 Sven Schöling
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
ca6d3683 Sven Schöling
$form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"});
d707f7ac Moritz Bunkus
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
97908d77 Bernd Bleßmann
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100.0);
d707f7ac Moritz Bunkus
}

display_form();

} else {

# ok, so this is a new part
# ask if it is a part or service item

if ( $form->{"partsgroup_$i"}
&& ($form->{"partsnumber_$i"} eq "")
&& ($form->{"description_$i"} eq "")) {
$form->{rowcount}--;
$form->{"discount_$i"} = "";
a8428264 Bernd Bleßmann
$form->{"not_discountable_$i"} = "";
d707f7ac Moritz Bunkus
display_form();

} else {
$form->{"id_$i"} = 0;
new_item();
}
}
}

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub search {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

330cfa6d Moritz Bunkus
$form->{vc} = $form->{type} eq 'purchase_delivery_order' ? 'vendor' : 'customer';
d707f7ac Moritz Bunkus
d93709bd Bernd Bleßmann
$form->get_lists("projects" => { "key" => "ALL_PROJECTS",
"all" => 1 },
"departments" => "ALL_DEPARTMENTS",
"$form->{vc}s" => "ALL_VC",
"business_types" => "ALL_BUSINESS_TYPES");
d139dd31 Moritz Bunkus
$form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all_sorted(query => [ deleted => 0 ]);
d707f7ac Moritz Bunkus
$form->{SHOW_VC_DROP_DOWN} = $myconfig{vclimit} > scalar @{ $form->{ALL_VC} };
$form->{title} = $locale->text('Delivery Orders');

$form->header();

print $form->parse_html_template('do/search');

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub orders {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
5494f687 Sven Schöling
my $cgi = $::request->{cgi};
f404e525 Sven Schöling
ed14204d Moritz Bunkus
$form->{department_id} = (split /--/, $form->{department})[-1];
f404e525 Sven Schöling
($form->{ $form->{vc} }, $form->{"$form->{vc}_id"}) = split(/--/, $form->{ $form->{vc} });
d707f7ac Moritz Bunkus
fc8ad1a3 Moritz Bunkus
report_generator_set_default_sort('transdate', 1);
d707f7ac Moritz Bunkus
DO->transactions();

$form->{rowcount} = scalar @{ $form->{DO} };

my @columns = qw(
253a9323 Bernd Bleßmann
ids transdate reqdate
d707f7ac Moritz Bunkus
id donumber
32020b3a Sven Schöling
ordnumber customernumber cusordnumber
edaf9f95 Sven Schöling
name employee salesman
d707f7ac Moritz Bunkus
shipvia globalprojectnumber
ed14204d Moritz Bunkus
transaction_description department
d707f7ac Moritz Bunkus
open delivered
e8966d20 Bernd Bleßmann
insertdate
d707f7ac Moritz Bunkus
);

$form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed});
$form->{l_delivered} = "Y" if ($form->{delivered} && $form->{notdelivered});

$form->{title} = $locale->text('Delivery Orders');

my $attachment_basename = $form->{vc} eq 'vendor' ? $locale->text('purchase_delivery_order_list') : $locale->text('sales_delivery_order_list');

my $report = SL::ReportGenerator->new(\%myconfig, $form);

my @hidden_variables = map { "l_${_}" } @columns;
65e5f16a Peter Schulgin
push @hidden_variables, $form->{vc}, qw(l_closed l_notdelivered open closed delivered notdelivered donumber ordnumber serialnumber cusordnumber
30645d2c Bernd Bleßmann
transaction_description transdatefrom transdateto reqdatefrom reqdateto
e8966d20 Bernd Bleßmann
type vc employee_id salesman_id project_id
d93709bd Bernd Bleßmann
insertdatefrom insertdateto business_id);
d707f7ac Moritz Bunkus
my $href = build_std_url('action=orders', grep { $form->{$_} } @hidden_variables);

my %column_defs = (
'ids' => { 'text' => '', },
30645d2c Bernd Bleßmann
'transdate' => { 'text' => $locale->text('Delivery Order Date'), },
253a9323 Bernd Bleßmann
'reqdate' => { 'text' => $locale->text('Reqdate'), },
d707f7ac Moritz Bunkus
'id' => { 'text' => $locale->text('ID'), },
'donumber' => { 'text' => $locale->text('Delivery Order'), },
'ordnumber' => { 'text' => $locale->text('Order'), },
7d026c7c Niclas Zimmermann
'customernumber' => { 'text' => $locale->text('Customer Number'), },
65e5f16a Peter Schulgin
'cusordnumber' => { 'text' => $locale->text('Customer Order Number'), },
d707f7ac Moritz Bunkus
'name' => { 'text' => $form->{vc} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
e31afd79 Geoffrey Richardson
'employee' => { 'text' => $locale->text('Employee'), },
edaf9f95 Sven Schöling
'salesman' => { 'text' => $locale->text('Salesman'), },
d707f7ac Moritz Bunkus
'shipvia' => { 'text' => $locale->text('Ship via'), },
'globalprojectnumber' => { 'text' => $locale->text('Project Number'), },
'transaction_description' => { 'text' => $locale->text('Transaction description'), },
'open' => { 'text' => $locale->text('Open'), },
'delivered' => { 'text' => $locale->text('Delivered'), },
ed14204d Moritz Bunkus
'department' => { 'text' => $locale->text('Department'), },
e8966d20 Bernd Bleßmann
'insertdate' => { 'text' => $locale->text('Insert Date'), },
d707f7ac Moritz Bunkus
);

e8966d20 Bernd Bleßmann
foreach my $name (qw(id transdate reqdate donumber ordnumber name employee salesman shipvia transaction_description department insertdate)) {
23c7245a Moritz Bunkus
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
$column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
d707f7ac Moritz Bunkus
}

$form->{"l_type"} = "Y";
map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
454df69e Moritz Bunkus
$column_defs{ids}->{visible} = 'HTML';
d707f7ac Moritz Bunkus
$report->set_columns(%column_defs);
$report->set_column_order(@columns);

19688fca Moritz Bunkus
$report->set_export_options('orders', @hidden_variables, qw(sort sortdir));
d707f7ac Moritz Bunkus
23c7245a Moritz Bunkus
$report->set_sort_indicator($form->{sort}, $form->{sortdir});
d707f7ac Moritz Bunkus
my @options;
if ($form->{customer}) {
push @options, $locale->text('Customer') . " : $form->{customer}";
}
if ($form->{vendor}) {
push @options, $locale->text('Vendor') . " : $form->{vendor}";
}
b98b8e3f Sven Schöling
if ($form->{cp_name}) {
push @options, $locale->text('Contact Person') . " : $form->{cp_name}";
}
d707f7ac Moritz Bunkus
if ($form->{department}) {
f404e525 Sven Schöling
my ($department) = split /--/, $form->{department};
d707f7ac Moritz Bunkus
push @options, $locale->text('Department') . " : $department";
}
if ($form->{donumber}) {
push @options, $locale->text('Delivery Order Number') . " : $form->{donumber}";
}
if ($form->{ordnumber}) {
push @options, $locale->text('Order Number') . " : $form->{ordnumber}";
}
2e4e2ba9 Moritz Bunkus
push @options, $locale->text('Serial Number') . " : $form->{serialnumber}" if $form->{serialnumber};
d93709bd Bernd Bleßmann
if ($form->{business_id}) {
my $vc_type_label = $form->{vc} eq 'customer' ? $locale->text('Customer type') : $locale->text('Vendor type');
push @options, $vc_type_label . " : " . SL::DB::Business->new(id => $form->{business_id})->load->description;
}
d707f7ac Moritz Bunkus
if ($form->{transaction_description}) {
push @options, $locale->text('Transaction description') . " : $form->{transaction_description}";
}
30645d2c Bernd Bleßmann
if ( $form->{transdatefrom} or $form->{transdateto} ) {
push @options, $locale->text('Delivery Order Date');
push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1) if $form->{transdatefrom};
push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1) if $form->{transdateto};
};
if ( $form->{reqdatefrom} or $form->{reqdateto} ) {
push @options, $locale->text('Reqdate');
push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{reqdatefrom}, 1) if $form->{reqdatefrom};
push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{reqdateto}, 1) if $form->{reqdateto};
};
e8966d20 Bernd Bleßmann
if ( $form->{insertdatefrom} or $form->{insertdateto} ) {
push @options, $locale->text('Insert Date');
push @options, $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1) if $form->{insertdatefrom};
push @options, $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1) if $form->{insertdateto};
};
d707f7ac Moritz Bunkus
if ($form->{open}) {
push @options, $locale->text('Open');
}
if ($form->{closed}) {
push @options, $locale->text('Closed');
}
if ($form->{delivered}) {
push @options, $locale->text('Delivered');
}
if ($form->{notdelivered}) {
push @options, $locale->text('Not delivered');
}

454df69e Moritz Bunkus
$report->set_options('top_info_text' => join("\n", @options),
'raw_top_info_text' => $form->parse_html_template('do/orders_top'),
'raw_bottom_info_text' => $form->parse_html_template('do/orders_bottom'),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
d707f7ac Moritz Bunkus
);
$report->set_options_from_form();
a873249c Moritz Bunkus
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
d707f7ac Moritz Bunkus
# add sort and escape callback, this one we use for the add sub
$form->{callback} = $href .= "&sort=$form->{sort}";

# escape callback for href
f404e525 Sven Schöling
my $callback = $form->escape($href);
d707f7ac Moritz Bunkus
my $edit_url = build_std_url('action=edit', 'type', 'vc');
my $edit_order_url = build_std_url('script=oe.pl', 'type=' . ($form->{type} eq 'sales_delivery_order' ? 'sales_order' : 'purchase_order'), 'action=edit');

454df69e Moritz Bunkus
my $idx = 1;

f404e525 Sven Schöling
foreach my $dord (@{ $form->{DO} }) {
d707f7ac Moritz Bunkus
$dord->{open} = $dord->{closed} ? $locale->text('No') : $locale->text('Yes');
$dord->{delivered} = $dord->{delivered} ? $locale->text('Yes') : $locale->text('No');

my $row = { map { $_ => { 'data' => $dord->{$_} } } @columns };

454df69e Moritz Bunkus
$row->{ids} = {
'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $dord->{id})
. $cgi->checkbox('-name' => "multi_id_${idx}", '-value' => 1, '-label' => ''),
'valign' => 'center',
'align' => 'center',
};

ce2e13e6 Moritz Bunkus
$row->{donumber}->{link} = $edit_url . "&id=" . E($dord->{id}) . "&callback=${callback}";
b1c23196 Thomas Heck
$row->{ordnumber}->{link} = $edit_order_url . "&id=" . E($dord->{oe_id}) . "&callback=${callback}" if $dord->{oe_id};
d707f7ac Moritz Bunkus
$report->add_data($row);
454df69e Moritz Bunkus
$idx++;
d707f7ac Moritz Bunkus
}

$report->generate_with_headers();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub save {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
088bf5a0 Moritz Bunkus
my (%params) = @_;

d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

d707f7ac Moritz Bunkus
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

$form->isblank("transdate", $locale->text('Delivery Order Date missing!'));

$form->{donumber} =~ s/^\s*//g;
$form->{donumber} =~ s/\s*$//g;

f404e525 Sven Schöling
my $msg = ucfirst $form->{vc};
d707f7ac Moritz Bunkus
$form->isblank($form->{vc}, $locale->text($msg . " missing!"));

# $locale->text('Customer missing!');
# $locale->text('Vendor missing!');

0a5317e7 Moritz Bunkus
remove_emptied_rows();
d707f7ac Moritz Bunkus
validate_items();

# if the name changed get new values
if (check_name($form->{vc})) {
update();
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
}

$form->{id} = 0 if $form->{saveasnew};
71d04fc6 Jan Büren
d707f7ac Moritz Bunkus
DO->save();
# saving the history
if(!exists $form->{addition}) {
$form->{snumbers} = qq|donumber_| . $form->{donumber};
b65a230d Sven Schöling
$form->{addition} = "SAVED";
a590a651 Sven Schöling
$form->save_history;
d707f7ac Moritz Bunkus
}
# /saving the history

$form->{simple_save} = 1;
088bf5a0 Moritz Bunkus
if (!$params{no_redirect} && !$form->{print_and_save}) {
e4070a74 Sven Schöling
delete @{$form}{ary_diff([keys %{ $form }], [qw(login id script type cursor_fokus)])};
edit();
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
}
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub delete {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

d707f7ac Moritz Bunkus
if (DO->delete()) {
# saving the history
if(!exists $form->{addition}) {
$form->{snumbers} = qq|donumber_| . $form->{donumber};
b65a230d Sven Schöling
$form->{addition} = "DELETED";
a590a651 Sven Schöling
$form->save_history;
d707f7ac Moritz Bunkus
}
# /saving the history

$form->info($locale->text('Delivery Order deleted!'));
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
}

$form->error($locale->text('Cannot delete delivery order!'));

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub invoice {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
d707f7ac Moritz Bunkus
check_do_access();
f404e525 Sven Schöling
$main::auth->assert($form->{type} eq 'purchase_delivery_order' ? 'vendor_invoice_edit' : 'invoice_edit');
d707f7ac Moritz Bunkus
94e11003 Moritz Bunkus
$form->{convert_from_do_ids} = $form->{id};
$form->{deliverydate} = $form->{transdate};
$form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
$form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
3c1ceacd Moritz Bunkus
d707f7ac Moritz Bunkus
$form->{rowcount}--;

94e11003 Moritz Bunkus
delete @{$form}{qw(id closed delivered)};
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
my ($script, $buysell);
d707f7ac Moritz Bunkus
if ($form->{type} eq 'purchase_delivery_order') {
$form->{title} = $locale->text('Add Vendor Invoice');
$form->{script} = 'ir.pl';
$script = "ir";
1a16973b Sven Schöling
$buysell = 'sell';
d707f7ac Moritz Bunkus
} else {
$form->{title} = $locale->text('Add Sales Invoice');
$form->{script} = 'is.pl';
$script = "is";
$buysell = 'buy';
}

f404e525 Sven Schöling
for my $i (1 .. $form->{rowcount}) {
2b88ba77 Jan Büren
# für bug 1284
a8428264 Bernd Bleßmann
unless ($form->{"ordnumber"}) {
if ($form->{discount}) { # Falls wir einen Lieferanten-/Kundenrabatt haben
# und rabattfähig sind, dann
unless ($form->{"not_discountable_$i"}) {
$form->{"discount_$i"} = $form->{discount}*100; # ... nehmen wir diesen Rabatt
}
}
2b88ba77 Jan Büren
}
2f6636f6 Bernd Bleßmann
map { $form->{"${_}_${i}"} = $form->parse_amount(\%myconfig, $form->{"${_}_${i}"}) if $form->{"${_}_${i}"} } qw(ship qty sellprice lastcost basefactor);
bb7e2e85 Moritz Bunkus
$form->{"donumber_$i"} = $form->{donumber};
f0ad2143 Jan Büren
$form->{"converted_from_delivery_order_items_id_$i"} = delete $form->{"delivery_order_items_id_$i"};
d707f7ac Moritz Bunkus
}

$form->{type} = "invoice";

# locale messages
c607fb40 Sven Schöling
$main::locale = Locale->new("$myconfig{countrycode}", "$script");
97ca42c1 Sven Schöling
$locale = $main::locale;
d707f7ac Moritz Bunkus
require "bin/mozilla/$form->{script}";

my $currency = $form->{currency};
invoice_links();

$form->{currency} = $currency;
$form->{exchangerate} = "";
a53233e5 Sven Schöling
$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell);
$form->{exchangerate} = $form->{forex} if ($form->{forex});
d707f7ac Moritz Bunkus
prepare_invoice();

# format amounts
f404e525 Sven Schöling
for my $i (1 .. $form->{rowcount}) {
d707f7ac Moritz Bunkus
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});

f404e525 Sven Schöling
my ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
d707f7ac Moritz Bunkus
$dec = length $dec;
f404e525 Sven Schöling
my $decimalplaces = ($dec > 2) ? $dec : 2;
d707f7ac Moritz Bunkus
# copy delivery date from reqdate for order -> invoice conversion
$form->{"deliverydate_$i"} = $form->{"reqdate_$i"}
unless $form->{"deliverydate_$i"};

da804bf2 Geoffrey Richardson
d707f7ac Moritz Bunkus
$form->{"sellprice_$i"} =
$form->format_amount(\%myconfig, $form->{"sellprice_$i"},
$decimalplaces);

da804bf2 Geoffrey Richardson
$form->{"lastcost_$i"} =
$form->format_amount(\%myconfig, $form->{"lastcost_$i"},
$decimalplaces);

d707f7ac Moritz Bunkus
(my $dec_qty) = ($form->{"qty_$i"} =~ /\.(\d+)/);
$dec_qty = length $dec_qty;
$form->{"qty_$i"} =
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $dec_qty);

}

display_form();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

454df69e Moritz Bunkus
sub invoice_multi {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
454df69e Moritz Bunkus
check_do_access();
f404e525 Sven Schöling
$main::auth->assert($form->{type} eq 'sales_delivery_order' ? 'invoice_edit' : 'vendor_invoice_edit');
454df69e Moritz Bunkus
my @do_ids = map { $form->{"trans_id_$_"} } grep { $form->{"multi_id_$_"} } (1..$form->{rowcount});

if (!scalar @do_ids) {
$form->show_generic_error($locale->text('You have not selected any delivery order.'), 'back_button' => 1);
}

map { delete $form->{$_} } grep { m/^(?:trans|multi)_id_\d+/ } keys %{ $form };

if (!DO->retrieve('vc' => $form->{vc}, 'ids' => \@do_ids)) {
$form->show_generic_error($form->{vc} eq 'customer' ?
$locale->text('You cannot create an invoice for delivery orders for different customers.') :
$locale->text('You cannot create an invoice for delivery orders from different vendors.'),
'back_button' => 1);
}

117dd89a Moritz Bunkus
my $source_type = $form->{type};
94e11003 Moritz Bunkus
$form->{convert_from_do_ids} = join ' ', @do_ids;
015f7118 Geoffrey Richardson
# bei der auswahl von mehreren Lieferscheinen fuer eine Rechnung, die einfach in donumber_array
# zwischenspeichern (DO.pm) und als ' '-separierte Liste wieder zurueckschreiben
# Hinweis: delete gibt den wert zurueck und loescht danach das element (nett und einfach)
# $shell: perldoc perlunc; /delete EXPR
b65a230d Sven Schöling
$form->{donumber} = delete $form->{donumber_array};
65e5f16a Peter Schulgin
$form->{ordnumber} = delete $form->{ordnumber_array};
$form->{cusordnumber} = delete $form->{cusordnumber_array};
94e11003 Moritz Bunkus
$form->{deliverydate} = $form->{transdate};
$form->{transdate} = $form->current_date(\%myconfig);
$form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
$form->{type} = "invoice";
$form->{closed} = 0;
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
454df69e Moritz Bunkus
f404e525 Sven Schöling
my ($script, $buysell);
117dd89a Moritz Bunkus
if ($source_type eq 'purchase_delivery_order') {
454df69e Moritz Bunkus
$form->{title} = $locale->text('Add Vendor Invoice');
$form->{script} = 'ir.pl';
$script = "ir";
$buysell = 'sell';

} else {
$form->{title} = $locale->text('Add Sales Invoice');
$form->{script} = 'is.pl';
$script = "is";
$buysell = 'buy';
}

map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued);

d85a3a7c Bernd Bleßmann
# get vendor or customer discount
my $vc_discount;
my $saved_form = save_form();
if ($form->{vc} eq 'vendor') {
IR->get_vendor(\%myconfig, \%$form);
$vc_discount = $form->{vendor_discount};
} else {
IS->get_customer(\%myconfig, \%$form);
de9a3d74 Jan Büren
$vc_discount = $form->{customer_discount};
d85a3a7c Bernd Bleßmann
}
restore_form($saved_form);

454df69e Moritz Bunkus
$form->{rowcount} = 0;
foreach my $ref (@{ $form->{form_details} }) {
$form->{rowcount}++;
d370f2a1 Sven Schöling
$ref->{reqdate} ||= $ref->{dord_transdate}; # copy transdates into each invoice row
454df69e Moritz Bunkus
map { $form->{"${_}_$form->{rowcount}"} = $ref->{$_} } keys %{ $ref };
d85a3a7c Bernd Bleßmann
map { $form->{"${_}_$form->{rowcount}"} = $form->format_amount(\%myconfig, $ref->{$_}) } qw(qty sellprice lastcost);
f0ad2143 Jan Büren
$form->{"converted_from_delivery_order_items_id_$form->{rowcount}"} = delete $form->{"delivery_order_items_id_$form->{rowcount}"};
d85a3a7c Bernd Bleßmann
be6f6cfd Moritz Bunkus
if ($vc_discount){ # falls wir einen Lieferanten/Kundenrabatt haben
d85a3a7c Bernd Bleßmann
# und keinen anderen discount wert an $i ...
$form->{"discount_$form->{rowcount}"} ||= $vc_discount; # ... nehmen wir diesen Rabatt
}

b65a230d Sven Schöling
$form->{"discount_$form->{rowcount}"} = $form->{"discount_$form->{rowcount}"} * 100; #s.a. Bug 1151
# Anm.: Eine Änderung des discounts in der SL/DO.pm->retrieve (select (doi.discount * 100) as discount) ergibt in psql einen
# Wert von 10.0000001490116. Ferner ist der Rabatt in der Rechnung dann bei 1.0 (?). Deswegen lasse ich das hier. jb 10.10.09
d85a3a7c Bernd Bleßmann
$form->{"discount_$form->{rowcount}"} = $form->format_amount(\%myconfig, $form->{"discount_$form->{rowcount}"});
454df69e Moritz Bunkus
}
delete $form->{form_details};

c607fb40 Sven Schöling
$locale = Locale->new("$myconfig{countrycode}", "$script");
454df69e Moritz Bunkus
require "bin/mozilla/$form->{script}";

invoice_links();
prepare_invoice();
34f5531f Bernd Bleßmann
454df69e Moritz Bunkus
display_form();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
454df69e Moritz Bunkus
}

d707f7ac Moritz Bunkus
sub save_as_new {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
$form->{saveasnew} = 1;
$form->{closed} = 0;
74c7135d Moritz Bunkus
$form->{delivered} = 0;
d707f7ac Moritz Bunkus
map { delete $form->{$_} } qw(printed emailed queued);
0c05d1f7 Moritz Bunkus
delete @{ $form }{ grep { m/^stock_(?:in|out)_\d+/ } keys %{ $form } };
b8125c17 Bernd Bleßmann
$form->{"converted_from_delivery_order_items_id_$_"} = delete $form->{"delivery_order_items_id_$_"} for 1 .. $form->{"rowcount"};
008c2e15 Moritz Bunkus
# Let kivitendo assign a new order number if the user hasn't changed the
d707f7ac Moritz Bunkus
# previous one. If it has been changed manually then use it as-is.
$form->{donumber} =~ s/^\s*//g;
$form->{donumber} =~ s/\s*$//g;
if ($form->{saved_donumber} && ($form->{saved_donumber} eq $form->{donumber})) {
delete($form->{donumber});
}

save();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub e_mail {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
check_do_access();

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
$form->{print_and_save} = 1;

my $saved_form = save_form();

save();

restore_form($saved_form, 0, qw(id ordnumber quonumber));

edit_e_mail();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub calculate_stock_in_out {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
d707f7ac Moritz Bunkus
my $i = shift;

if (!$form->{"id_${i}"}) {
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
return '';
}

f404e525 Sven Schöling
my $all_units = AM->retrieve_all_units();
137c9df3 Moritz Bunkus
d707f7ac Moritz Bunkus
my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
my $sinfo = DO->unpack_stock_information('packed' => $form->{"stock_${in_out}_${i}"});

06110580 Sven Schöling
my $do_qty = AM->sum_with_unit($::form->{"qty_$i"}, $::form->{"unit_$i"});
d707f7ac Moritz Bunkus
my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $sinfo });
06110580 Sven Schöling
my $matches = $do_qty == $sum;
d707f7ac Moritz Bunkus
my $content = $form->format_amount_units('amount' => $sum * 1,
'part_unit' => $form->{"partunit_$i"},
137c9df3 Moritz Bunkus
'amount_unit' => $all_units->{$form->{"partunit_$i"}}->{base_unit},
d707f7ac Moritz Bunkus
'conv_units' => 'convertible_not_smaller',
'max_places' => 2);
06110580 Sven Schöling
$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="?">|;
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
return $content;
}

sub get_basic_bin_wh_info {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
my $stock_info = shift;

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
foreach my $sinfo (@{ $stock_info }) {
next unless ($sinfo->{bin_id});

my $bin_info = WH->get_basic_bin_info('id' => $sinfo->{bin_id});
map { $sinfo->{"${_}_description"} = $sinfo->{"${_}description"} = $bin_info->{"${_}_description"} } qw(bin warehouse);
}

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub stock_in_out_form {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
d707f7ac Moritz Bunkus
if ($form->{in_out} eq 'out') {
stock_out_form();
} else {
stock_in_form();
}

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub redo_stock_info {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
my %params = @_;

f404e525 Sven Schöling
my $form = $main::form;

d707f7ac Moritz Bunkus
my @non_empty = grep { $_->{qty} } @{ $params{stock_info} };

if ($params{add_empty_row}) {
push @non_empty, {
'warehouse_id' => scalar(@non_empty) ? $non_empty[-1]->{warehouse_id} : undef,
'bin_id' => scalar(@non_empty) ? $non_empty[-1]->{bin_id} : undef,
};
}

@{ $params{stock_info} } = @non_empty;

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub update_stock_in {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
d707f7ac Moritz Bunkus
my $stock_info = [];

foreach my $i (1..$form->{rowcount}) {
0f33c880 Moritz Bunkus
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});
5f7cab51 Jan Büren
push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(warehouse_id bin_id chargenumber
bestbefore qty unit delivery_order_items_stock_id) };
d707f7ac Moritz Bunkus
}

display_stock_in_form($stock_info);

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub stock_in_form {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
d707f7ac Moritz Bunkus
my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});

display_stock_in_form($stock_info);

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub display_stock_in_form {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();
d707f7ac Moritz Bunkus
my $stock_info = shift;

f404e525 Sven Schöling
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;

d707f7ac Moritz Bunkus
$form->{title} = $locale->text('Stock');

my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});

71d04fc6 Jan Büren
# Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde
if ($::instance_conf->get_transfer_default_use_master_default_bin) {
ed023e22 Moritz Bunkus
$part_info->{warehouse_id} ||= $::instance_conf->get_warehouse_id;
$part_info->{bin_id} ||= $::instance_conf->get_bin_id;
71d04fc6 Jan Büren
}

07948c34 Moritz Bunkus
my $units = AM->retrieve_units(\%myconfig, $form);
8c6da403 Jan Büren
# der zweite Parameter von unit_select_data gibt den default-Namen (selected) vor
my $units_data = AM->unit_select_data($units, $form->{do_unit}, undef, $part_info->{unit});
d707f7ac Moritz Bunkus
$form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
696aad9c Moritz Bunkus
'bins' => 'BINS' });
d707f7ac Moritz Bunkus
74c7135d Moritz Bunkus
redo_stock_info('stock_info' => $stock_info, 'add_empty_row' => !$form->{delivered});
d707f7ac Moritz Bunkus
get_basic_bin_wh_info($stock_info);

ddb162b6 Sven Schöling
$form->header(no_layout => 1);
d707f7ac Moritz Bunkus
print $form->parse_html_template('do/stock_in_form', { 'UNITS' => $units_data,
'STOCK_INFO' => $stock_info,
'PART_INFO' => $part_info, });

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

50e62c57 Moritz Bunkus
sub _stock_in_out_set_qty_display {
my $stock_info = shift;
my $form = $::form;
my $all_units = AM->retrieve_all_units();
my $sum = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });
$form->{qty_display} = $form->format_amount_units(amount => $sum * 1,
part_unit => $form->{partunit},
amount_unit => $all_units->{ $form->{partunit} }->{base_unit},
conv_units => 'convertible_not_smaller',
max_places => 2);
}

d707f7ac Moritz Bunkus
sub set_stock_in {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
d707f7ac Moritz Bunkus
my $stock_info = [];

foreach my $i (1..$form->{rowcount}) {
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});

next if ($form->{"qty_$i"} <= 0);

286dc87c Jan Büren
push @{ $stock_info }, { map { $_ => $form->{"${_}_${i}"} } qw(delivery_order_items_stock_id warehouse_id bin_id chargenumber bestbefore qty unit) };
d707f7ac Moritz Bunkus
}

$form->{stock} = YAML::Dump($stock_info);

50e62c57 Moritz Bunkus
_stock_in_out_set_qty_display($stock_info);

06110580 Sven Schöling
my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });

d707f7ac Moritz Bunkus
$form->header();
06110580 Sven Schöling
print $form->parse_html_template('do/set_stock_in_out', {
qty_matches => $do_qty == $transfer_qty,
});
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub stock_out_form {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
d707f7ac Moritz Bunkus
$form->{title} = $locale->text('Release From Stock');

my $part_info = IC->get_basic_part_info('id' => $form->{parts_id});

07948c34 Moritz Bunkus
my $units = AM->retrieve_units(\%myconfig, $form);
d707f7ac Moritz Bunkus
my $units_data = AM->unit_select_data($units, undef, undef, $part_info->{unit});

my @contents = DO->get_item_availability('parts_id' => $form->{parts_id});

my $stock_info = DO->unpack_stock_information('packed' => $form->{stock});

74c7135d Moritz Bunkus
if (!$form->{delivered}) {
d707f7ac Moritz Bunkus
foreach my $row (@contents) {
$row->{available_qty} = $form->format_amount_units('amount' => $row->{qty} * 1,
'part_unit' => $part_info->{unit},
'conv_units' => 'convertible_not_smaller',
'max_places' => 2);

foreach my $sinfo (@{ $stock_info }) {
next if (($row->{bin_id} != $sinfo->{bin_id}) ||
($row->{warehouse_id} != $sinfo->{warehouse_id}) ||
096f9e3e Bernd Bleßmann
($row->{chargenumber} ne $sinfo->{chargenumber}) ||
($row->{bestbefore} ne $sinfo->{bestbefore}));
d707f7ac Moritz Bunkus
286dc87c Jan Büren
map { $row->{"stock_$_"} = $sinfo->{$_} } qw(qty unit error delivery_order_items_stock_id);
d707f7ac Moritz Bunkus
}
}

} else {
get_basic_bin_wh_info($stock_info);

foreach my $sinfo (@{ $stock_info }) {
map { $sinfo->{"stock_$_"} = $sinfo->{$_} } qw(qty unit);
}
}

ddb162b6 Sven Schöling
$form->header(no_layout => 1);
d707f7ac Moritz Bunkus
print $form->parse_html_template('do/stock_out_form', { 'UNITS' => $units_data,
74c7135d Moritz Bunkus
'WHCONTENTS' => $form->{delivered} ? $stock_info : \@contents,
d707f7ac Moritz Bunkus
'PART_INFO' => $part_info, });

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

sub set_stock_out {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
d707f7ac Moritz Bunkus
my $stock_info = [];

foreach my $i (1 .. $form->{rowcount}) {
$form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"});

next if ($form->{"qty_$i"} <= 0);

push @{ $stock_info }, {
'warehouse_id' => $form->{"warehouse_id_$i"},
'bin_id' => $form->{"bin_id_$i"},
'chargenumber' => $form->{"chargenumber_$i"},
096f9e3e Bernd Bleßmann
'bestbefore' => $form->{"bestbefore_$i"},
d707f7ac Moritz Bunkus
'qty' => $form->{"qty_$i"},
'unit' => $form->{"unit_$i"},
'row' => $i,
286dc87c Jan Büren
'delivery_order_items_stock_id' => $form->{"delivery_order_items_stock_id_$i"},
d707f7ac Moritz Bunkus
};
}

my @errors = DO->check_stock_availability('requests' => $stock_info,
'parts_id' => $form->{parts_id});

$form->{stock} = YAML::Dump($stock_info);

if (@errors) {
$form->{ERRORS} = [];
map { push @{ $form->{ERRORS} }, $locale->text('Error in row #1: The quantity you entered is bigger than the stocked quantity.', $_->{row}); } @errors;
stock_in_out_form();

} else {
50e62c57 Moritz Bunkus
_stock_in_out_set_qty_display($stock_info);

06110580 Sven Schöling
my $do_qty = AM->sum_with_unit($::form->parse_amount(\%::myconfig, $::form->{do_qty}), $::form->{do_unit});
my $transfer_qty = AM->sum_with_unit(map { $_->{qty}, $_->{unit} } @{ $stock_info });

d707f7ac Moritz Bunkus
$form->header();
06110580 Sven Schöling
print $form->parse_html_template('do/set_stock_in_out', {
qty_matches => $do_qty == $transfer_qty,
});
d707f7ac Moritz Bunkus
}

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

74c7135d Moritz Bunkus
sub transfer_in {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
d707f7ac Moritz Bunkus
251dc385 Moritz Bunkus
if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
4a9b86a5 Moritz Bunkus
$form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'), 'back_button' => 1);
}

251dc385 Moritz Bunkus
save(no_redirect => 1);

d707f7ac Moritz Bunkus
my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount});
my @all_requests;

if (@part_ids) {
07948c34 Moritz Bunkus
my $units = AM->retrieve_units(\%myconfig, $form);
d707f7ac Moritz Bunkus
my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
my %request_map;

$form->{ERRORS} = [];

foreach my $i (1 .. $form->{rowcount}) {
next unless ($form->{"id_$i"} && $form->{"stock_in_$i"});

my $row_sum_base_qty = 0;
my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;

foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_in_$i"}) }) {
$request->{parts_id} = $form->{"id_$i"};
$row_sum_base_qty += $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;

2317430a Moritz Bunkus
$request->{project_id} = $form->{"project_id_$i"} || $form->{globalproject_id};

d707f7ac Moritz Bunkus
push @all_requests, $request;
}

next if (0 == $row_sum_base_qty);

my $do_base_qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;

fe1c4800 Sven Schöling
# if ($do_base_qty != $row_sum_base_qty) {
# push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no stock at all or the full quantity of #2 #3.',
# $i, $form->{"qty_$i"}, $form->{"unit_$i"});
# }
d707f7ac Moritz Bunkus
}

if (@{ $form->{ERRORS} }) {
74c7135d Moritz Bunkus
push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
d707f7ac Moritz Bunkus
088bf5a0 Moritz Bunkus
set_headings('edit');
d707f7ac Moritz Bunkus
update();
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
}
}

DO->transfer_in_out('direction' => 'in',
'requests' => \@all_requests);

088bf5a0 Moritz Bunkus
SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
d707f7ac Moritz Bunkus
088bf5a0 Moritz Bunkus
$form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id});
$form->redirect;
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

74c7135d Moritz Bunkus
sub transfer_out {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
d707f7ac Moritz Bunkus
251dc385 Moritz Bunkus
if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
4a9b86a5 Moritz Bunkus
$form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'), 'back_button' => 1);
}

251dc385 Moritz Bunkus
save(no_redirect => 1);

d707f7ac Moritz Bunkus
my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount});
my @all_requests;

if (@part_ids) {
07948c34 Moritz Bunkus
my $units = AM->retrieve_units(\%myconfig, $form);
d707f7ac Moritz Bunkus
my %part_info_map = IC->get_basic_part_info('id' => \@part_ids);
my %request_map;

$form->{ERRORS} = [];

foreach my $i (1 .. $form->{rowcount}) {
next unless ($form->{"id_$i"} && $form->{"stock_out_$i"});

my $row_sum_base_qty = 0;
my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;

foreach my $request (@{ DO->unpack_stock_information('packed' => $form->{"stock_out_$i"}) }) {
$request->{parts_id} = $form->{"id_$i"};
$request->{base_qty} = $request->{qty} * $units->{$request->{unit}}->{factor} / $base_unit_factor;
be6f6cfd Moritz Bunkus
$request->{project_id} = $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id};
d707f7ac Moritz Bunkus
096f9e3e Bernd Bleßmann
my $map_key = join '--', ($form->{"id_$i"}, @{$request}{qw(warehouse_id bin_id chargenumber bestbefore)});
d707f7ac Moritz Bunkus
$request_map{$map_key} ||= $request;
$request_map{$map_key}->{sum_base_qty} ||= 0;
$request_map{$map_key}->{sum_base_qty} += $request->{base_qty};
$row_sum_base_qty += $request->{base_qty};

push @all_requests, $request;
}

next if (0 == $row_sum_base_qty);

088bf5a0 Moritz Bunkus
my $do_base_qty = $form->{"qty_$i"} * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
d707f7ac Moritz Bunkus
fe1c4800 Sven Schöling
# if ($do_base_qty != $row_sum_base_qty) {
# push @{ $form->{ERRORS} }, $locale->text('Error in position #1: You must either assign no transfer at all or the full quantity of #2 #3.',
# $i, $form->{"qty_$i"}, $form->{"unit_$i"});
# }
d707f7ac Moritz Bunkus
}

if (%request_map) {
my @bin_ids = map { $_->{bin_id} } values %request_map;
my %bin_info_map = WH->get_basic_bin_info('id' => \@bin_ids);
my @contents = DO->get_item_availability('parts_id' => \@part_ids);

foreach my $inv (@contents) {
096f9e3e Bernd Bleßmann
my $map_key = join '--', @{$inv}{qw(parts_id warehouse_id bin_id chargenumber bestbefore)};
d707f7ac Moritz Bunkus
next unless ($request_map{$map_key});

my $request = $request_map{$map_key};
$request->{ok} = $request->{sum_base_qty} <= $inv->{qty};
}

f404e525 Sven Schöling
foreach my $request (values %request_map) {
d707f7ac Moritz Bunkus
next if ($request->{ok});

my $pinfo = $part_info_map{$request->{parts_id}};
my $binfo = $bin_info_map{$request->{bin_id}};

4b31e6ba Bernd Bleßmann
if ($::instance_conf->get_show_bestbefore) {
73a404b5 Bernd Bleßmann
push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, #5, for the transfer of #6.",
$pinfo->{description},
$binfo->{warehouse_description},
$binfo->{bin_description},
$request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
$request->{bestbefore} ? $locale->text('bestbefore #1', $request->{bestbefore}) : $locale->text('no bestbefore'),
$form->format_amount_units('amount' => $request->{sum_base_qty},
'part_unit' => $pinfo->{unit},
'conv_units' => 'convertible_not_smaller'));
} else {
push @{ $form->{ERRORS} }, $locale->text("There is not enough available of '#1' at warehouse '#2', bin '#3', #4, for the transfer of #5.",
$pinfo->{description},
$binfo->{warehouse_description},
$binfo->{bin_description},
$request->{chargenumber} ? $locale->text('chargenumber #1', $request->{chargenumber}) : $locale->text('no chargenumber'),
$form->format_amount_units('amount' => $request->{sum_base_qty},
'part_unit' => $pinfo->{unit},
'conv_units' => 'convertible_not_smaller'));
}
d707f7ac Moritz Bunkus
}
}

if (@{ $form->{ERRORS} }) {
74c7135d Moritz Bunkus
push @{ $form->{ERRORS} }, $locale->text('The delivery order has not been marked as delivered. The warehouse contents have not changed.');
d707f7ac Moritz Bunkus
088bf5a0 Moritz Bunkus
set_headings('edit');
d707f7ac Moritz Bunkus
update();
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
b2945bf6 Sven Schöling
::end_of_request();
d707f7ac Moritz Bunkus
}
}
DO->transfer_in_out('direction' => 'out',
'requests' => \@all_requests);

088bf5a0 Moritz Bunkus
SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);
d707f7ac Moritz Bunkus
088bf5a0 Moritz Bunkus
$form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id});
$form->redirect;
d707f7ac Moritz Bunkus
f404e525 Sven Schöling
$main::lxdebug->leave_sub();
d707f7ac Moritz Bunkus
}

1bfdd83b Moritz Bunkus
sub mark_closed {
f404e525 Sven Schöling
$main::lxdebug->enter_sub();

my $form = $main::form;
1bfdd83b Moritz Bunkus
DO->close_orders('ids' => [ $form->{id} ]);

$form->{closed} = 1;

update();

f404e525 Sven Schöling
$main::lxdebug->leave_sub();
1bfdd83b Moritz Bunkus
}


d707f7ac Moritz Bunkus
sub yes {
f404e525 Sven Schöling
call_sub($main::form->{yes_nextsub});
d707f7ac Moritz Bunkus
}

sub no {
f404e525 Sven Schöling
call_sub($main::form->{no_nextsub});
d707f7ac Moritz Bunkus
}

sub update {
f404e525 Sven Schöling
call_sub($main::form->{update_nextsub} || $main::form->{nextsub} || 'update_delivery_order');
d707f7ac Moritz Bunkus
}
434f88fb Philip Reetz
sub dispatcher {
f404e525 Sven Schöling
my $form = $main::form;
my $locale = $main::locale;

54086731 Jan Büren
foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default sort
52d18c01 Jan Büren
transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {
434f88fb Philip Reetz
if ($form->{"action_${action}"}) {
call_sub($action);
return;
}
}

$form->error($locale->text('No action defined.'));
}
52d18c01 Jan Büren
sub transfer_out_default {
$main::lxdebug->enter_sub();

my $form = $main::form;

transfer_in_out_default('direction' => 'out');

$main::lxdebug->leave_sub();
}

sub transfer_in_default {
$main::lxdebug->enter_sub();

my $form = $main::form;

transfer_in_out_default('direction' => 'in');

$main::lxdebug->leave_sub();
}

# Falls das Standardlagerverfahren aktiv ist, wird
# geprüft, ob alle Standardlagerplätze für die Auslager-
# artikel vorhanden sind UND ob die Warenmenge ausreicht zum
# Auslagern. Falls nicht wird entsprechend eine Fehlermeldung
# generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt
sub transfer_in_out_default {
$main::lxdebug->enter_sub();

my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
my %params = @_;

my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);

Common::check_params(\%params, qw(direction));

# entsprechende defaults holen, falls standardlagerplatz verwendet werden soll
if ($::instance_conf->get_transfer_default_use_master_default_bin) {
ed023e22 Moritz Bunkus
$default_warehouse_id = $::instance_conf->get_warehouse_id;
$default_bin_id = $::instance_conf->get_bin_id;
52d18c01 Jan Büren
}


my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});
if (@part_ids) {
my $units = AM->retrieve_units(\%myconfig, $form);
%part_info_map = IC->get_basic_part_info('id' => \@part_ids);
foreach my $i (1 .. $form->{rowcount}) {
next unless ($form->{"id_$i"});
my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;
my $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;
d98812a8 Jan Büren
1947cd9a Jan Büren
$form->show_generic_error($locale->text("Cannot transfer negative entries." ), 'back_button' => 1) if ($qty < 0);
d98812a8 Jan Büren
# if we do not want to transfer services and this part is a service, set qty to zero
5caaac6b Jan Büren
# ... and do not create a hash entry in %qty_parts below (will skip check for bins for the transfer == out case)
# ... 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)

d98812a8 Jan Büren
$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});
52d18c01 Jan Büren
$qty_parts{$form->{"id_$i"}} += $qty;
79fe86a4 Jan Büren
if ($qty == 0) {
1947cd9a Jan Büren
delete $qty_parts{$form->{"id_$i"}} unless $qty_parts{$form->{"id_$i"}};
79fe86a4 Jan Büren
undef $form->{"stock_in_$i"};
}
52d18c01 Jan Büren
$part_info_map{$form->{"id_$i"}}{bin_id} ||= $default_bin_id;
$part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;

79fe86a4 Jan Büren
push @all_requests, ($qty == 0) ? { } : {
52d18c01 Jan Büren
'chargenumber' => '', #?? die müsste entsprechend geholt werden
#'bestbefore' => undef, # TODO wird nicht berücksichtigt
'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},
'qty' => $qty,
'parts_id' => $form->{"id_$i"},
b8f55e88 Jan Büren
'comment' => $locale->text("Default transfer delivery order"),
52d18c01 Jan Büren
'unit' => $part_info_map{$form->{"id_$i"}}{unit},
'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},
'oe_id' => $form->{id},
'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}
};
}

# jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.
5caaac6b Jan Büren
# check if bin (transfer in and transfer out and qty (transfer out) is correct
foreach my $key (keys %qty_parts) {
79fe86a4 Jan Büren
5caaac6b Jan Büren
$missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});
next unless ($part_info_map{$key}{bin_id}); # abbruch
52d18c01 Jan Büren
5caaac6b Jan Büren
if ($params{direction} eq 'out') { # wird nur für ausgehende Mengen benötigt
52d18c01 Jan Büren
my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});
if ($error == 1) {
# wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll
# deshalb rückmeldung nach oben geben, manuell auszulagern
# TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich
$missing_default_bins{$key}{chargenumber} = 1;
}
if ($max_qty < $qty_parts{$key}){
$missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};
}
}
}
} # if @parts_id

# Abfrage für Fehlerbehandlung (nur bei direction == out)
if (scalar (keys %missing_default_bins)) {
my $fehlertext;
foreach my $fehler (keys %missing_default_bins) {

my $ware = WH->get_part_description(parts_id => $fehler);
if ($missing_default_bins{$fehler}{missing_bin}){
$fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";
}
if ($missing_default_bins{$fehler}{missing_qty}) { # missing_qty
$fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .
" von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} . " zum Auslagern<br>";
}
if ($missing_default_bins{$fehler}{chargenumber}){
$fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.
Hier kann man nicht automatisch entscheiden.
Bitte diesen Lieferschein manuell auslagern.
Bei: $ware";
}
# auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.
# der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit
# Lagerplatz Lagerplatz-Korrektur
ed023e22 Moritz Bunkus
my $default_warehouse_id_ignore_onhand = $::instance_conf->get_warehouse_id_ignore_onhand;
my $default_bin_id_ignore_onhand = $::instance_conf->get_bin_id_ignore_onhand;
52d18c01 Jan Büren
if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {
# entsprechende defaults holen
# falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen
# lagerplatz wegbuchen!
foreach (@all_requests) {
if ($_->{parts_id} eq $fehler){
$_->{bin_id} = $default_bin_id_ignore_onhand;
$_->{warehouse_id} = $default_warehouse_id_ignore_onhand;
}
}
} else {
#$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);
$form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ), 'back_button' => 1);
}
}
}


# hier der eigentliche fallunterschied für in oder out
my $prefix = $params{direction} eq 'in' ? 'in' : 'out';

# dieser array_ref ist für DO->save da:
# einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock
# gefüllt werden kann.
79fe86a4 Jan Büren
my $i = 0;
52d18c01 Jan Büren
foreach (@all_requests){
$i++;
79fe86a4 Jan Büren
next unless scalar(%{ $_ });
$form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);
52d18c01 Jan Büren
}

save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern
# und in delivery_order_items_stock speichern
DO->transfer_in_out('direction' => $prefix,
'requests' => \@all_requests);

SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);

$form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';
$form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';
$form->redirect;

}
54086731 Jan Büren
sub sort {
$main::lxdebug->enter_sub();

my $form = $main::form;
my %temp_hash;

croak ("Delivery Order needs to be saved") unless $form->{id};

# hashify partnumbers, positions. key is delivery_order_items_id
for my $i (1 .. ($form->{rowcount}) ) {
$temp_hash{$form->{"delivery_order_items_id_$i"}} = { runningnumber => $form->{"runningnumber_$i"}, partnumber => $form->{"partnumber_$i"} };
}
# naturally sort partnumbers and get a sorted array of doi_ids
my @sorted_doi_ids = sort { ncmp($temp_hash{$a}->{"partnumber"}, $temp_hash{$b}->{"partnumber"}) } keys %temp_hash;

#$main::lxdebug->message(0, 'sortiert, vorher :' . Dumper(%temp_hash));
#$main::lxdebug->message(0, 'sortiert, nachher:' . Dumper(@sorted_doi_ids));

my $new_number = 1;
for (@sorted_doi_ids) {
# reposition old runningnumber with the new order 1 .. n
$form->{"runningnumber_$temp_hash{$_}->{runningnumber}"} = $new_number;

#$main::lxdebug->message(0, 'hier jetzt:' . 'ferner' . $temp_hash{$_}->{runningnumber} .
# 'mit' . $form->{"runningnumber_{$temp_hash{$_}->{runningnumber}}"}); #" = $new_number;

$new_number++;
}
# update or save directly
# update_delivery_order;
$main::lxdebug->leave_sub();
save();
}