Projekt

Allgemein

Profil

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

kivitendo/bin/mozilla/ic.pl @ 33c46114

d319704a 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) 2001
#
# 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.
#======================================================================
#
# Inventory Control module
#
#======================================================================
94bd40a5 Stephan Köhler
#$locale->text('ea');
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
use POSIX qw(strftime);

d319704a Moritz Bunkus
use SL::IC;
728729b6 Moritz Bunkus
use SL::ReportGenerator;
081a4f97 Moritz Bunkus
07d71c33 Stephan Köhler
#use SL::PE;
d319704a Moritz Bunkus
d467f40d Moritz Bunkus
# use strict;
2efc8cbc Sven Schöling
#use warnings;

9a0aeac2 Sven Schöling
# global imports
our ($form, $locale, %myconfig, $lxdebug);

d629acd8 Sven Schöling
require "bin/mozilla/io.pl";
40782548 Moritz Bunkus
require "bin/mozilla/common.pl";
728729b6 Moritz Bunkus
require "bin/mozilla/reportgenerator.pl";
d319704a Moritz Bunkus
1;

# end of main

sub add {
$lxdebug->enter_sub();

$form->{title} = $locale->text('Add ' . ucfirst $form->{item});

$form->{callback} =
d629acd8 Sven Schöling
"$form->{script}?action=add&item=$form->{item}&login=$form->{login}&password=$form->{password}"
d319704a Moritz Bunkus
unless $form->{callback};

54e4131e Moritz Bunkus
$form->{"unit_changeable"} = 1;

07d71c33 Stephan Köhler
IC->get_pricegroups(\%myconfig, \%$form);
d319704a Moritz Bunkus
&link_part;
&display_form;

$lxdebug->leave_sub();
}

sub search {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($button1, $button2, $onhand, $makemodel, $serialnumber, $l_serialnumber, $toplevel, $bought);

d319704a Moritz Bunkus
$form->{title} = (ucfirst $form->{searchitems}) . "s";
$form->{title} = $locale->text($form->{title});

# switch for backward sorting
$form->{revers} = 0;

# memory for which table was sort at last time
$form->{lastsort} = "";

# counter for added entries to top100
$form->{ndxs_counter} = 0;

# $locale->text('Parts')
# $locale->text('Services')

# use JavaScript Calendar or not
d7f06042 Moritz Bunkus
$form->{jsscript} = 1;
2efc8cbc Sven Schöling
my $jsscript = "";
d319704a Moritz Bunkus
if ($form->{jsscript}) {

# with JavaScript Calendar
$button1 = qq|
<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
<td><input type=button name=transdatefrom id="trigger1" value=|
07d71c33 Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;
$button2 = qq|
<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
<td><input type=button name=transdateto name=transdateto id="trigger2" value=|
07d71c33 Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;

#write Trigger
$jsscript =
Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
"transdateto", "BL", "trigger2");
} else {

# without JavaScript Calendar
$button1 = qq|
<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
$button2 = qq|
<td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
}

unless ($form->{searchitems} eq 'service') {

$onhand = qq|
<input name=itemstatus class=radio type=radio value=onhand>&nbsp;|
. $locale->text('On Hand') . qq|
<input name=itemstatus class=radio type=radio value=short>&nbsp;|
. $locale->text('Short') . qq|
|;

$makemodel = qq|
<tr>
<th align=right nowrap>| . $locale->text('Make') . qq|</th>
<td><input name=make size=20></td>
<th align=right nowrap>| . $locale->text('Model') . qq|</th>
<td><input name=model size=20></td>
</tr>
|;

$serialnumber = qq|
<th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
<td><input name=serialnumber size=20></td>
|;

$l_serialnumber = qq|
<td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Serial Number') . qq|</td>
d319704a Moritz Bunkus
|;

}

if ($form->{searchitems} eq 'assembly') {

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

$toplevel = qq|
<tr>
<td></td>
<td colspan=3>
<input name=null class=radio type=radio value=1 checked>&nbsp;|
. $locale->text('Top Level') . qq|
<input name=bom class=checkbox type=checkbox value=1>&nbsp;|
. $locale->text('Individual Items') . qq|
</td>
</tr>
|;

$bought = qq|
<tr>
<td></td>
<td colspan=3>
<table>
<tr>
<td>
<table>
<tr>
<td><input name=sold class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Sold') . qq|</td>
</tr>
<tr>
<td colspan=2><hr size=1 noshade></td>
</tr>
<tr>
<td><input name=ordered class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Ordered') . qq|</td>
</tr>
<tr>
<td colspan=4><hr size=1 noshade></td>
</tr>
<tr>
<td><input name=quoted class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Quoted') . qq|</td>
</tr>
</table>
</td>
<td width=5%>&nbsp;</td>
<th>| . $locale->text('From') . qq|</th>
$button1
a14a3ff5 Moritz Bunkus
<th>| . $locale->text('To (time)') . qq|</th>
d319704a Moritz Bunkus
$button2
</tr>
</table>
</td>
</tr>
|;

} else {

$bought = qq|
<tr>
<td></td>
<td colspan=3>
<table>
<tr>
<td>
<table>
<tr>
<td><input name=bought class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Bought') . qq|</td>
<td><input name=sold class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Sold') . qq|</td>
</tr>
<tr>
<td colspan=4><hr size=1 noshade></td>
</tr>
<tr>
<td><input name=onorder class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('On Order') . qq|</td>
<td><input name=ordered class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Ordered') . qq|</td>
</tr>
<tr>
<td colspan=4><hr size=1 noshade></td>
</tr>
<tr>
<td><input name=rfq class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('RFQ') . qq|</td>
<td><input name=quoted class=checkbox type=checkbox value=1></td>
<td nowrap>| . $locale->text('Quoted') . qq|</td>
</tr>
</table>
</td>
<td width=5%>&nbsp;</td>
<td>
<table>
<tr>
<th>| . $locale->text('From') . qq|</th>
$button1
a14a3ff5 Moritz Bunkus
<th>| . $locale->text('To (time)') . qq|</th>
d319704a Moritz Bunkus
$button2
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
|;
}

$form->header;

print qq|
<body>

<form method=post action=$form->{script}>

<input type=hidden name=searchitems value=$form->{searchitems}>
<input type=hidden name=title value="$form->{title}">

<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">

<table width="100%">
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr valign=top>
<td>
<table>
<tr>
<th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
<td><input name=partnumber size=20></td>
55bd1f28 Holger Lindemann
<th align=right nowrap>| . $locale->text('EAN') . qq|</th>
<td><input name=ean size=20></td>
d319704a Moritz Bunkus
</tr>
<tr>
<th align=right nowrap>|
07d71c33 Stephan Köhler
. $locale->text('Part Description') . qq|</th>
d319704a Moritz Bunkus
<td colspan=3><input name=description size=40></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Group') . qq|</th>
<td><input name=partsgroup size=20></td>
$serialnumber
</tr>
$makemodel
<tr>
<th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
<td><input name=drawing size=20></td>
<th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
<td><input name=microfiche size=20></td>
</tr>
$toplevel
<tr>
<td></td>
<td colspan=3>
<input name=itemstatus class=radio type=radio value=active checked>&nbsp;|
. $locale->text('Active') . qq|
$onhand
<input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|
. $locale->text('Obsolete') . qq|
<input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|
. $locale->text('Orphaned') . qq|
</td>
</tr>
$bought
<tr>
<td></td>
<td colspan=3>
<hr size=1 noshade>
</td>
</tr>
<tr>
<th align=right nowrap>|
07d71c33 Stephan Köhler
. $locale->text('Include in Report') . qq|</th>
d319704a Moritz Bunkus
<td colspan=3>
<table>
<tr>
645b2fe8 Philip Reetz
<td><input name=l_partnumber class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Part Number') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_description class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Part Description') . qq|</td>
d319704a Moritz Bunkus
$l_serialnumber
<td><input name=l_unit class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Unit of measure') . qq|</td>
d319704a Moritz Bunkus
</tr>
<tr>
<td><input name=l_listprice class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('List Price') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Sell Price') . qq|</td>
54e4131e Moritz Bunkus
<td><input name=l_lastcost class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Last Cost') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_linetotal class=checkbox type=checkbox value=Y checked>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Line Total') . qq|</td>
d319704a Moritz Bunkus
</tr>
<tr>
<td><input name=l_priceupdate class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Updated') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_bin class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Bin') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_rop class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('ROP') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_weight class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Weight') . qq|</td>
d319704a Moritz Bunkus
</tr>
<tr>
<td><input name=l_image class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Image') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_drawing class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Drawing') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_microfiche class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Microfiche') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_partsgroup class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Group') . qq|</td>
d319704a Moritz Bunkus
</tr>
<tr>
<td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('Subtotal') . qq|</td>
d319704a Moritz Bunkus
<td><input name=l_soldtotal class=checkbox type=checkbox value=Y>&nbsp;|
07d71c33 Stephan Köhler
. $locale->text('soldtotal') . qq|</td>
66881e5e Moritz Bunkus
<td><input name=l_deliverydate class=checkbox type=checkbox value=Y>&nbsp;|
. $locale->text('deliverydate') . qq|</td>
d319704a Moritz Bunkus
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr><td colspan=4><hr size=3 noshade></td></tr>
</table>

$jsscript

<input type=hidden name=nextsub value=generate_report>

<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>

<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">
54e4131e Moritz Bunkus
<input type=hidden name=sort value="description">
d319704a Moritz Bunkus
<input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">

<br>
<input class=submit type=submit name=action value="|
. $locale->text('Continue') . qq|">
<input class=submit type=submit name=action value="|
. $locale->text('TOP100') . qq|">
</form>

</body>
</html>
|;
$lxdebug->leave_sub();
} #end search()

54e4131e Moritz Bunkus
sub search_update_prices {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($onhand, $makemodel, $serialnumber, $l_serialnumber, $toplevel, $bought);

54e4131e Moritz Bunkus
$form->{title} = $locale->text('Update prices');
IC->get_pricegroups(\%myconfig, \%$form);

# use JavaScript Calendar or not
d7f06042 Moritz Bunkus
# $form->{jsscript} = 1;
54e4131e Moritz Bunkus
# $jsscript = "";
# if ($form->{jsscript}) {
#
# # with JavaScript Calendar
# $button1 = qq|
# <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
# <td><input type=button name=transdatefrom id="trigger1" value=|
# . $locale->text('button') . qq|></td>
# |;
# $button2 = qq|
# <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
# <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
# . $locale->text('button') . qq|></td>
# |;
#
# #write Trigger
# $jsscript =
# Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
# "transdateto", "BL", "trigger2");
# } else {
#
# # without JavaScript Calendar
# $button1 = qq|
# <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
# $button2 = qq|
# <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
# }

$onhand = qq|
<input name=itemstatus class=radio type=radio value=onhand>&nbsp;|
. $locale->text('On Hand') . qq|
<input name=itemstatus class=radio type=radio value=short>&nbsp;|
. $locale->text('Short') . qq|
|;

$makemodel = qq|
<tr>
<th align=right nowrap>| . $locale->text('Make') . qq|</th>
<td><input name=make size=20></td>
<th align=right nowrap>| . $locale->text('Model') . qq|</th>
<td><input name=model size=20></td>
</tr>
|;

$serialnumber = qq|
<th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
<td><input name=serialnumber size=20></td>
|;

$l_serialnumber = qq|
<td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|
. $locale->text('Serial Number') . qq|</td>
|;



$form->header;

print qq|
<body>

<form method=post action=$form->{script}>

<input type=hidden name=title value="$form->{title}">

<table width="100%">
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr valign=top>
<td>
<table>
<tr>
<th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
<td><input name=partnumber size=20></td>
</tr>
<tr>
<th align=right nowrap>|
. $locale->text('Part Description') . qq|</th>
<td colspan=3><input name=description size=40></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Group') . qq|</th>
<td><input name=partsgroup size=20></td>
$serialnumber
</tr>
$makemodel
<tr>
<th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
<td><input name=drawing size=20></td>
<th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
<td><input name=microfiche size=20></td>
</tr>
$toplevel
<tr>
<td></td>
<td colspan=3>
<input name=itemstatus class=radio type=radio value=active checked>&nbsp;|
. $locale->text('Active') . qq|
$onhand
<input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|
. $locale->text('Obsolete') . qq|
<input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|
. $locale->text('Orphaned') . qq|
</td>
</tr>
$bought
<tr>
<td></td>
<td colspan=3>
<hr size=1 noshade>
</td>
</tr>|;
print qq|
<tr>
<td colspan=4>
<table width=100%>
<tr>
<th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
<th class="listheading">| . $locale->text('Preis') . qq|</th>
<th class="listheading">| . $locale->text('Prozentual/Absolut') . qq|</th>
</tr>
<tr>
<td>| . $locale->text('Sell Price') . qq|</td>
<td><input name="sellprice" size=11 value="$form->{"sellprice"}"></td>
<td><input name="sellprice_type" class=radio type=radio value=percent checked>/<input name="sellprice_type" class=radio type=radio value=absolut></td>
</tr>
<tr>
<td>| . $locale->text('List Price') . qq|</td>
<td><input name="listprice" size=11 value="$form->{"listprice"}"></td>
<td><input name="listprice_type" class=radio type=radio value=percent checked>/<input name="listprice_type" class=radio type=radio value=absolut></td>
</tr>
|;
2efc8cbc Sven Schöling
for my $i (1 .. $form->{price_rows}) {
54e4131e Moritz Bunkus
print qq|
<tr>
<td width=50%><input type=hidden name="pricegroup_$i" size=30 value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
<td width=50%><input name="price_$i" size=11></td>
<input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
<td><input name="pricegroup_type_$i" class=radio type=radio value=percent checked>/<input name="pricegroup_type_$i" class=radio type=radio value=absolut></td>
</tr>
|;
}

print qq|
</table>
</td>
</tr>

<tr><td colspan=4><hr size=3 noshade></td></tr>
</table>
<input type=hidden name=nextsub value=confirm_price_update>
<input type=hidden name=price_rows value=$form->{price_rows}>

<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>

<br>
<input class=submit type=submit name=action value="|
. $locale->text('Continue') . qq|">
</form>

</body>
</html>
|;
$lxdebug->leave_sub();
} #end search()

sub confirm_price_update {
$lxdebug->enter_sub();


$form->{nextsub} = "update_prices";
$form->header;

print qq|
<body>

<form method=post action=$form->{script}>
|;

# delete action variable
map { delete $form->{$_} } qw(action header);

2efc8cbc Sven Schöling
foreach my $key (keys %$form) {
54e4131e Moritz Bunkus
$form->{$key} =~ s/\"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}

print qq|
<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>

<h4>|
. $locale->text('Are you sure you want to update the prices')
. qq| </h4>

<p>
<input name=action class=submit type=submit value="|
. $locale->text('Continue') . qq|">
</form>
|;

$lxdebug->leave_sub();
}

sub update_prices {
$lxdebug->enter_sub();

if (IC->update_prices(\%myconfig, \%$form)) {
$form->redirect($form->{update_count} . $locale->text('prices updated!'));
} else {
$form->error($locale->text('Could not update prices!'));
}

$lxdebug->leave_sub();
}

d319704a Moritz Bunkus
sub choice {
$lxdebug->enter_sub();

9a0aeac2 Sven Schöling
our ($j, $lastndx);
2efc8cbc Sven Schöling
my ($totop100);

d319704a Moritz Bunkus
$form->{title} = $locale->text('Top 100 hinzufuegen');

$form->header;

print qq|
<body>

<form method=post action=$form->{script}>

<input type=hidden name=searchitems value=$form->{searchitems}>
<input type=hidden name=title value="$form->{title}">

<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">|;

print qq|
<table>
<tr class=listheading>
2efc8cbc Sven Schöling
<th class=listheading nowrap>| . $locale->text('Part Number') . qq|</th>
<th class=listheading nowrap>| . $locale->text('Part Description') . qq|</th>
d319704a Moritz Bunkus
</tr>
<tr valign=top>
<td><input type=text name=partnumber size=20 value=></td>
<td><input type=text name=description size=30 value=></td>
</tr>
</table>
<br>|;

print qq|

<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>

<input type=hidden name=itemstatus value="$form->{itemstatus}">
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
<input type=hidden name=l_description value="$form->{l_description}">
<input type=hidden name=l_onhand value="$form->{l_onhand}">
<input type=hidden name=l_unit value="$form->{l_unit}">
<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
<input type=hidden name=sort value="$form->{sort}">
<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">

<input type=hidden name=bom value="$form->{bom}">
<input type=hidden name=titel value="$form->{titel}">
<input type=hidden name=searchitems value="$form->{searchitems}">

<input type=hidden name=row value=$j>

<input type=hidden name=nextsub value=item_selected>

<input type=hidden name=test value=item_selected>

<input name=lastndx type=hidden value=$lastndx>

<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>

<input name=extras type=hidden value=$form->{extras}>|;

2efc8cbc Sven Schöling
my ($partnumber, $description, $unit, $sellprice, $soldtotal);
d319704a Moritz Bunkus
# if choice set data
if ($form->{ndx}) {
2efc8cbc Sven Schöling
for (my $i = 0; $i < $form->{ndxs_counter}; $i++) {
d319704a Moritz Bunkus
# prepeare data
$partnumber = $form->{"totop100_partnumber_$j"};
$description = $form->{"totop100_description_$j"};
$unit = $form->{"totop100_unit_$j"};
$sellprice = $form->{"totop100_sellprice_$j"};
$soldtotal = $form->{"totop100_soldtotal_$j"};

# insert data into top100
push @{ $form->{parts} },
{ number => "",
partnumber => "$partnumber",
description => "$description",
unit => "$unit",
sellprice => "$sellprice",
soldtotal => "$soldtotal" };
} #rof
} #fi

$totop100 = "";

# set data for next page
if (($form->{ndxs_counter}) > 0) {
2efc8cbc Sven Schöling
for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
d319704a Moritz Bunkus
$partnumber = $form->{"totop100_partnumber_$i"};
$description = $form->{"totop100_description_$i"};
$unit = $form->{"totop100_unit_$i"};
$sellprice = $form->{"totop100_sellprice_$i"};
$soldtotal = $form->{"totop100_soldtotal_$i"};

$totop100 .= qq|
<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
|;
} #rof
} #fi

print $totop100;

print qq|
<input class=submit type=submit name=action value="|
0576299f Moritz Bunkus
. $locale->text('list') . qq|">
d319704a Moritz Bunkus
</form>

</body>
</html>|;
$lxdebug->leave_sub();
} #end choice

sub list {
$lxdebug->enter_sub();

9a0aeac2 Sven Schöling
our ($lastndx);
our ($partnumber, $description, $unit, $sellprice, $soldtotal);
2efc8cbc Sven Schöling
34dc226c Moritz Bunkus
my @sortorders = ("", "partnumber", "description", "all");
my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
IC->get_parts(\%myconfig, \%$form, $sortorder);
d319704a Moritz Bunkus
$form->{title} = $locale->text('Top 100 hinzufuegen');

$form->header;

print qq|
<body>
<form method=post action=ic.pl>
<table width=100%>
<tr>
<th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
</tr>
<tr height="5"></tr>
<tr class=listheading>
<th>&nbsp;</th>
<th class=listheading>| . $locale->text('Part Number') . qq|</th>
<th class=listheading>| . $locale->text('Part Description') . qq|</th>
<th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
<th class=listheading>| . $locale->text('Sell Price') . qq|</th>
<th class=listheading>| . $locale->text('soldtotal') . qq|</th>
</tr>|;

my $j = 0;
my $i = $form->{rows};

for ($j = 1; $j <= $i; $j++) {

print qq|
<tr class=listrow1>|;
if ($j == 1) {
print qq|
<td><input name=ndx class=radio type=radio value=$j checked></td>|;
} else {
print qq|
<td><input name=ndx class=radio type=radio value=$j></td>|;
}
print qq|
<td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
<td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
<td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
<td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
<td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
</tr>

<input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
}

print qq|

</table>

<br>


<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>

<input type=hidden name=itemstatus value="$form->{itemstatus}">
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
<input type=hidden name=l_description value="$form->{l_description}">
<input type=hidden name=l_onhand value="$form->{l_onhand}">
<input type=hidden name=l_unit value="$form->{l_unit}">
<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
<input type=hidden name=sort value="$form->{sort}">
<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">

<input type=hidden name=bom value="$form->{bom}">
<input type=hidden name=titel value="$form->{titel}">
<input type=hidden name=searchitems value="$form->{searchitems}">

<input type=hidden name=row value=$j>

<input type=hidden name=nextsub value=item_selected>

<input name=lastndx type=hidden value=$lastndx>

<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;

2efc8cbc Sven Schöling
my $totop100 = "";
d319704a Moritz Bunkus
if (($form->{ndxs_counter}) > 0) {
for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
2efc8cbc Sven Schöling
9a0aeac2 Sven Schöling
$partnumber = $form->{"totop100_partnumber_$i"};
$description = $form->{"totop100_description_$i"};
$unit = $form->{"totop100_unit_$i"};
$sellprice = $form->{"totop100_sellprice_$i"};
$soldtotal = $form->{"totop100_soldtotal_$i"};
d319704a Moritz Bunkus
$totop100 .= qq|
<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
|;
} #rof
} #fi

print $totop100;

print qq|
<input class=submit type=submit name=action value="|
. $locale->text('TOP100') . qq|">

</form>
</body>
</html>
|;
$lxdebug->leave_sub();
} #end list()

sub top100 {
$lxdebug->enter_sub();

if ($form->{ndx}) {
$form->{ndxs_counter}++;

if ($form->{ndxs_counter} > 0) {

2efc8cbc Sven Schöling
my $index = $form->{ndx};

$form->{"totop100_partnumber_$form->{ndxs_counter}"} = $form->{"new_partnumber_$index"};
$form->{"totop100_description_$form->{ndxs_counter}"} = $form->{"new_description_$index"};
$form->{"totop100_unit_$form->{ndxs_counter}"} = $form->{"new_unit_$index"};
$form->{"totop100_sellprice_$form->{ndxs_counter}"} = $form->{"new_sellprice_$index"};
$form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $form->{"new_soldtotal_$index"};
d319704a Moritz Bunkus
} #fi
} #fi
&addtop100();
$lxdebug->leave_sub();
} #end top100

sub addtop100 {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($revers, $lastsort, $callback, $option, $description, $sameitem,
$partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align);
my (@column_index, %column_header, %column_data);
my ($totalsellprice, $totallastcost, $totallistprice, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice);

d319704a Moritz Bunkus
$form->{top100} = "top100";
$form->{l_soldtotal} = "Y";
$form->{soldtotal} = "soldtotal";
$form->{sort} = "soldtotal";
$form->{l_qty} = "N";
$form->{l_linetotal} = "";
$form->{revers} = 1;
$form->{number} = "position";
$form->{l_number} = "Y";

2efc8cbc Sven Schöling
$totop100 = "";
d319704a Moritz Bunkus
$form->{title} = $locale->text('Top 100');

$revers = $form->{revers};
$lastsort = $form->{lastsort};

if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
$form->{revers} = 0;
$form->{lastsort} = "partnumber";
$form->{sort} = "partnumber";
} #fi

$callback =
d629acd8 Sven Schöling
"$form->{script}?action=top100&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
d319704a Moritz Bunkus
. $form->escape($form->{title}, 1);

# if we have a serialnumber limit search
if ($form->{serialnumber} || $form->{l_serialnumber}) {
$form->{l_serialnumber} = "Y";
unless ( $form->{bought}
|| $form->{sold}
|| $form->{rfq}
|| $form->{quoted}) {
$form->{bought} = $form->{sold} = 1;
}
}
IC->all_parts(\%myconfig, \%$form);

if ($form->{itemstatus} eq 'active') {
$option .= $locale->text('Active') . " : ";
}
if ($form->{itemstatus} eq 'obsolete') {
$option .= $locale->text('Obsolete') . " : ";
}
if ($form->{itemstatus} eq 'orphaned') {
$option .= $locale->text('Orphaned') . " : ";
}
if ($form->{itemstatus} eq 'onhand') {
$option .= $locale->text('On Hand') . " : ";
$form->{l_onhand} = "Y";
}
if ($form->{itemstatus} eq 'short') {
$option .= $locale->text('Short') . " : ";
$form->{l_onhand} = "Y";
}
if ($form->{onorder}) {
$form->{l_ordnumber} = "Y";
$callback .= "&onorder=$form->{onorder}";
$option .= $locale->text('On Order') . " : ";
}
if ($form->{ordered}) {
$form->{l_ordnumber} = "Y";
$callback .= "&ordered=$form->{ordered}";
$option .= $locale->text('Ordered') . " : ";
}
if ($form->{rfq}) {
$form->{l_quonumber} = "Y";
$callback .= "&rfq=$form->{rfq}";
$option .= $locale->text('RFQ') . " : ";
}
if ($form->{quoted}) {
$form->{l_quonumber} = "Y";
$callback .= "&quoted=$form->{quoted}";
$option .= $locale->text('Quoted') . " : ";
}
if ($form->{bought}) {
$form->{l_invnumber} = "Y";
$callback .= "&bought=$form->{bought}";
$option .= $locale->text('Bought') . " : ";
}
if ($form->{sold}) {
$form->{l_invnumber} = "Y";
$callback .= "&sold=$form->{sold}";
$option .= $locale->text('Sold') . " : ";
}
if ( $form->{bought}
|| $form->{sold}
|| $form->{onorder}
|| $form->{ordered}
|| $form->{rfq}
|| $form->{quoted}) {

$form->{l_lastcost} = "";
$form->{l_name} = "Y";
if ($form->{transdatefrom}) {
$callback .= "&transdatefrom=$form->{transdatefrom}";
$option .= "\n<br>"
. $locale->text('From')
. "&nbsp;"
. $locale->date(\%myconfig, $form->{transdatefrom}, 1);
}
if ($form->{transdateto}) {
$callback .= "&transdateto=$form->{transdateto}";
$option .= "\n<br>"
. $locale->text('To')
. "&nbsp;"
. $locale->date(\%myconfig, $form->{transdateto}, 1);
}
}

$option .= "<br>";

if ($form->{partnumber}) {
$callback .= "&partnumber=$form->{partnumber}";
$option .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
}
55bd1f28 Holger Lindemann
if ($form->{ean}) {
$callback .= "&partnumber=$form->{ean}";
$option .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
}
d319704a Moritz Bunkus
if ($form->{partsgroup}) {
$callback .= "&partsgroup=$form->{partsgroup}";
$option .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
}
if ($form->{serialnumber}) {
$callback .= "&serialnumber=$form->{serialnumber}";
$option .=
$locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
}
if ($form->{description}) {
$callback .= "&description=$form->{description}";
$description = $form->{description};
$description =~ s/
/<br>/g;
$option .=
$locale->text('Part Description') . qq| : $form->{description}<br>|;
}
if ($form->{make}) {
$callback .= "&make=$form->{make}";
$option .= $locale->text('Make') . qq| : $form->{make}<br>|;
}
if ($form->{model}) {
$callback .= "&model=$form->{model}";
$option .= $locale->text('Model') . qq| : $form->{model}<br>|;
}
if ($form->{drawing}) {
$callback .= "&drawing=$form->{drawing}";
$option .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
}
if ($form->{microfiche}) {
$callback .= "&microfiche=$form->{microfiche}";
$option .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
}
if ($form->{l_soldtotal}) {
$callback .= "&soldtotal=$form->{soldtotal}";
$option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
}

2efc8cbc Sven Schöling
my @columns = $form->sort_columns(
55bd1f28 Holger Lindemann
qw(number partnumber ean description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
07d71c33 Stephan Köhler
);
d319704a Moritz Bunkus
if ($form->{l_linetotal}) {
$form->{l_onhand} = "Y";
$form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
if ($form->{l_lastcost}) {
$form->{l_linetotallastcost} = "Y";
if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
$form->{l_linetotallastcost} = "";
}
}
$form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
}

if ($form->{searchitems} eq 'service') {

# remove bin, weight and rop from list
map { $form->{"l_$_"} = "" } qw(bin weight rop);

$form->{l_onhand} = "";

# qty is irrelevant unless bought or sold
if ( $form->{bought}
|| $form->{sold}
|| $form->{onorder}
|| $form->{ordered}
|| $form->{rfq}
|| $form->{quoted}) {
$form->{l_onhand} = "Y";
54e4131e Moritz Bunkus
} else {
d319704a Moritz Bunkus
$form->{l_linetotalsellprice} = "";
$form->{l_linetotallastcost} = "";
}
}

$form->{l_lastcost} = ""
if ($form->{searchitems} eq 'assembly' && !$form->{bom});

2efc8cbc Sven Schöling
foreach my $item (@columns) {
d319704a Moritz Bunkus
if ($form->{"l_$item"} eq "Y") {
push @column_index, $item;

# add column to callback
$callback .= "&l_$item=Y";
}
}

if ($form->{l_subtotal} eq 'Y') {
$callback .= "&l_subtotal=Y";
}

$column_header{number} =
qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
$column_header{partnumber} =
qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
. $locale->text('Part Number')
. qq|</a></th>|;
$column_header{description} =
qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
. $locale->text('Part Description')
. qq|</a></th>|;
$column_header{partsgroup} =
qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
. $locale->text('Group')
. qq|</a></th>|;
$column_header{bin} =
qq|<th><a class=listheading href=$callback&sort=bin>|
. $locale->text('Bin')
. qq|</a></th>|;
$column_header{priceupdate} =
qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
. $locale->text('Updated')
. qq|</a></th>|;
$column_header{onhand} =
qq|<th nowrap><a class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
. $locale->text('Qty')
. qq|</th>|;
$column_header{unit} =
qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
$column_header{listprice} =
qq|<th class=listheading nowrap>|
. $locale->text('List Price')
. qq|</th>|;
$column_header{lastcost} =
qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
$column_header{rop} =
qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
$column_header{weight} =
qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;

$column_header{invnumber} =
qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
. $locale->text('Invoice Number')
. qq|</a></th>|;
$column_header{ordnumber} =
qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
. $locale->text('Order Number')
. qq|</a></th>|;
$column_header{quonumber} =
qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
. $locale->text('Quotation')
. qq|</a></th>|;

$column_header{name} =
qq|<th nowrap><a class=listheading href=$callback&sort=name>|
. $locale->text('Name')
. qq|</a></th>|;

$column_header{sellprice} =
qq|<th class=listheading nowrap>|
. $locale->text('Sell Price')
. qq|</th>|;
$column_header{linetotalsellprice} =
qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
$column_header{linetotallastcost} =
qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
$column_header{linetotallistprice} =
qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;

$column_header{image} =
qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
$column_header{drawing} =
qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
. $locale->text('Drawing')
. qq|</a></th>|;
$column_header{microfiche} =
qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
. $locale->text('Microfiche')
. qq|</a></th>|;

$column_header{serialnumber} =
qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
. $locale->text('Serial Number')
. qq|</a></th>|;
$column_header{soldtotal} =
qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
. $locale->text('soldtotal')
. qq|</a></th>|;

$form->header;
2efc8cbc Sven Schöling
my $colspan = $#column_index + 1;
d319704a Moritz Bunkus
print qq|
<body>

<table width=100%>
<tr>
<th class=listtop colspan=$colspan>$form->{title}</th>
</tr>
<tr height="5"></tr>

<tr><td colspan=$colspan>$option</td></tr>

<tr class=listheading>
|;

map { print "\n$column_header{$_}" } @column_index;

print qq|
</tr>
|;

# add order to callback
$form->{callback} = $callback .= "&sort=$form->{sort}";

# escape callback for href
$callback = $form->escape($callback);

if (@{ $form->{parts} }) {
$sameitem = $form->{parts}->[0]->{ $form->{sort} };
}

# insert numbers for top100
my $j = 0;
2efc8cbc Sven Schöling
foreach my $ref (@{ $form->{parts} }) {
d319704a Moritz Bunkus
$j++;
$ref->{number} = $j;
}

# if avaible -> insert choice here
if (($form->{ndxs_counter}) > 0) {
2efc8cbc Sven Schöling
for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
d319704a Moritz Bunkus
$partnumber = $form->{"totop100_partnumber_$i"};
$description = $form->{"totop100_description_$i"};
$unit = $form->{"totop100_unit_$i"};
$sellprice = $form->{"totop100_sellprice_$i"};
$soldtotal = $form->{"totop100_soldtotal_$i"};

$totop100 .= qq|
<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
|;

# insert into list
push @{ $form->{parts} },
{ number => "",
partnumber => "$partnumber",
description => "$description",
unit => "$unit",
sellprice => "$sellprice",
soldtotal => "$soldtotal" };
} #rof
} #fi
# build data for columns
2efc8cbc Sven Schöling
foreach my $ref (@{ $form->{parts} }) {
my $i = 0;
d319704a Moritz Bunkus
if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
if ($sameitem ne $ref->{ $form->{sort} }) {
&parts_subtotal;
$sameitem = $ref->{ $form->{sort} };
}
}

$ref->{exchangerate} = 1 unless $ref->{exchangerate};
$ref->{sellprice} *= $ref->{exchangerate};
$ref->{listprice} *= $ref->{exchangerate};
$ref->{lastcost} *= $ref->{exchangerate};

# use this for assemblies
$onhand = $ref->{onhand};

$align = "left";
if ($ref->{assemblyitem}) {
$align = "right";
$onhand = 0 if ($form->{sold});
}

$ref->{description} =~ s/
/<br>/g;

$column_data{number} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{number})
d319704a Moritz Bunkus
. "</td>";
$column_data{partnumber} =
"<td align=$align>$ref->{partnumber}&nbsp;</a></td>";
$column_data{description} = "<td>$ref->{description}&nbsp;</td>";
$column_data{partsgroup} = "<td>$ref->{partsgroup}&nbsp;</td>";

$column_data{onhand} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{onhand})
d319704a Moritz Bunkus
. "</td>";
$column_data{sellprice} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{sellprice})
d319704a Moritz Bunkus
. "</td>";
$column_data{listprice} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{listprice})
d319704a Moritz Bunkus
. "</td>";
$column_data{lastcost} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{lastcost})
d319704a Moritz Bunkus
. "</td>";

$column_data{linetotalsellprice} = "<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
d319704a Moritz Bunkus
. "</td>";
$column_data{linetotallastcost} = "<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
d319704a Moritz Bunkus
. "</td>";
$column_data{linetotallistprice} = "<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
d319704a Moritz Bunkus
. "</td>";

if (!$ref->{assemblyitem}) {
$totalsellprice += $onhand * $ref->{sellprice};
$totallastcost += $onhand * $ref->{lastcost};
$totallistprice += $onhand * $ref->{listprice};

$subtotalonhand += $onhand;
$subtotalsellprice += $onhand * $ref->{sellprice};
$subtotallastcost += $onhand * $ref->{lastcost};
$subtotallistprice += $onhand * $ref->{listprice};
}

$column_data{rop} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
d319704a Moritz Bunkus
$column_data{weight} =
"<td align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $ref->{weight})
d319704a Moritz Bunkus
. "</td>";
$column_data{unit} = "<td>$ref->{unit}&nbsp;</td>";
$column_data{bin} = "<td>$ref->{bin}&nbsp;</td>";
$column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";

$column_data{invnumber} =
($ref->{module} ne 'oe')
d629acd8 Sven Schöling
? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
d319704a Moritz Bunkus
: "<td>$ref->{invnumber}</td>";
$column_data{ordnumber} =
($ref->{module} eq 'oe')
d629acd8 Sven Schöling
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
d319704a Moritz Bunkus
: "<td>$ref->{ordnumber}</td>";
$column_data{quonumber} =
($ref->{module} eq 'oe' && !$ref->{ordnumber})
d629acd8 Sven Schöling
? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
d319704a Moritz Bunkus
: "<td>$ref->{quonumber}</td>";

$column_data{name} = "<td>$ref->{name}</td>";

$column_data{image} =
($ref->{image})
? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
: "<td>&nbsp;</td>";
$column_data{drawing} =
($ref->{drawing})
? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
: "<td>&nbsp;</td>";
$column_data{microfiche} =
($ref->{microfiche})
? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
: "<td>&nbsp;</td>";

$column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";

$column_data{soldtotal} = "<td align=right>$ref->{soldtotal}</td>";

$i++;
$i %= 2;
print "<tr class=listrow$i>";

map { print "\n$column_data{$_}" } @column_index;

print qq|
</tr>
|;
}

if ($form->{l_subtotal} eq 'Y') {
&parts_subtotal;
} #fi

if ($form->{"l_linetotal"}) {
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
$column_data{linetotalsellprice} =
"<th class=listtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $totalsellprice, 2)
d319704a Moritz Bunkus
. "</th>";
$column_data{linetotallastcost} =
"<th class=listtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $totallastcost, 2)
d319704a Moritz Bunkus
. "</th>";
$column_data{linetotallistprice} =
"<th class=listtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $totallistprice, 2)
d319704a Moritz Bunkus
. "</th>";

print "<tr class=listtotal>";

map { print "\n$column_data{$_}" } @column_index;

print qq|</tr>
|;
}

print qq|
<tr><td colspan=$colspan><hr size=3 noshade></td></tr>
</table>

|;

print qq|

<br>

<form method=post action=$form->{script}>

<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>

<input type=hidden name=itemstatus value="$form->{itemstatus}">
<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
<input type=hidden name=l_description value="$form->{l_description}">
<input type=hidden name=l_onhand value="$form->{l_onhand}">
<input type=hidden name=l_unit value="$form->{l_unit}">
<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
<input type=hidden name=sort value="$form->{sort}">
<input type=hidden name=revers value="$form->{revers}">
<input type=hidden name=lastsort value="$form->{lastsort}">
<input type=hidden name=parts value="$form->{parts}">

<input type=hidden name=bom value="$form->{bom}">
<input type=hidden name=titel value="$form->{titel}">
<input type=hidden name=searchitems value="$form->{searchitems}">|;

print $totop100;

print qq|
<input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
0576299f Moritz Bunkus
d319704a Moritz Bunkus
<input class=submit type=submit name=action value="|
8ec0d29a Moritz Bunkus
. $locale->text('choice') . qq|">
d319704a Moritz Bunkus
</form>

</body>
</html>
|;

$lxdebug->leave_sub();
} # end addtop100

2efc8cbc Sven Schöling
#
# Report for Wares.
# Warning, deep magic ahead.
# This function parses the requested details, sanity checks them, and converts them into a format thats usable for IC->all_parts
#
# flags coming from the form:
# hardcoded:
# searchitems=part revers=0 lastsort=''
#
# filter:
# partnumber ean description partsgroup serialnumber make model drawing microfiche
# transdatefrom transdateto
#
# radio:
# itemstatus = active | onhand | short | obsolete | orphaned
# action = continue | top100
#
# checkboxes:
# bought sold onorder ordered rfq quoted
# l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
# l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
# l_partsgroup l_subtotal l_soldtotal l_deliverydate
#
# hiddens:
# nextsub login password revers lastsort sort ndxs_counter
#
d319704a Moritz Bunkus
sub generate_report {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($revers, $lastsort, $description);

728729b6 Moritz Bunkus
$form->{title} = (ucfirst $form->{searchitems}) . "s";
$form->{title} = $locale->text($form->{title});

my $revers = $form->{revers};
my $lastsort = $form->{lastsort};
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
# sorting and direction of sorting
# ToDO: change this to the simpler field+direction method
d319704a Moritz Bunkus
if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
$form->{revers} = 0;
$form->{lastsort} = "partnumber";
$form->{sort} = "partnumber";
} else {
if ($form->{lastsort} eq $form->{sort}) {
2efc8cbc Sven Schöling
$form->{revers} = 1 - $form->{revers};
d319704a Moritz Bunkus
} else {
2efc8cbc Sven Schöling
$form->{revers} = 0;
d319704a Moritz Bunkus
$form->{lastsort} = $form->{sort};
} #fi
} #fi

2efc8cbc Sven Schöling
# special case if we have a serialnumber limit search
# serialnumbers are only given in invoices and orders,
# so they can only pop up in bought, sold, rfq, and quoted stuff
$form->{no_sn_joins} = 'Y' if ( !$form->{bought} && !$form->{sold}
&& !$form->{rfq} && !$form->{quoted}
&& ($form->{l_serialnumber} || $form->{serialnumber}));

# special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
# if any of these are ticked the behavior changes slightly for lastcost
# since all those are aggregation checks for the legder tables this is an internal switch
# refered to as ledgerchecks
$form->{ledgerchecks} = 'Y' if ( $form->{bought} || $form->{sold} || $form->{onorder}
|| $form->{ordered} || $form->{rfq} || $form->{quoted});

# if something should be aktivated if something else is active, enter it here
my %dependencies = (
onhand => [ qw(l_onhand) ],
short => [ qw(l_onhand) ],
onorder => [ qw(l_ordnumber) ],
ordered => [ qw(l_ordnumber) ],
rfq => [ qw(l_quonumber) ],
quoted => [ qw(l_quonumber) ],
bought => [ qw(l_invnumber) ],
sold => [ qw(l_invnumber) ],
ledgerchecks => [ qw(l_name) ],
serialnumber => [ qw(l_serialnumber) ],
no_sn_joins => [ qw(bought sold) ],
);
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
# these strings get displayed at the top of the results to indicate the user which switches were used
my %optiontexts = (
active => $locale->text('Active'),
obsolete => $locale->text('Obsolete'),
orphaned => $locale->text('Orphaned'),
onhand => $locale->text('On Hand'),
short => $locale->text('Short'),
onorder => $locale->text('On Order'),
ordered => $locale->text('Ordered'),
rfq => $locale->text('RFQ'),
quoted => $locale->text('Quoted'),
bought => $locale->text('Bought'),
sold => $locale->text('Sold'),
transdatefrom => $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
transdateto => $locale->text('To (time)') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
partnumber => $locale->text('Part Number') . ": '$form->{partnumber}'",
partsgroup => $locale->text('Group') . ": '$form->{partsgroup}'",
serialnumber => $locale->text('Serial Number') . ": '$form->{serialnumber}'",
description => $locale->text('Part Description') . ": '$form->{description}'",
make => $locale->text('Make') . ": '$form->{make}'",
model => $locale->text('Model') . ": '$form->{model}'",
drawing => $locale->text('Drawing') . ": '$form->{drawing}'",
microfiche => $locale->text('Microfiche') . ": '$form->{microfiche}'",
l_soldtotal => $locale->text('soldtotal'),
);
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
my @itemstatus_keys = qw(active obsolete orphaned onhand short);
728729b6 Moritz Bunkus
my @callback_keys = qw(onorder ordered rfq quoted bought sold partnumber partsgroup serialnumber description make model
drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);

2efc8cbc Sven Schöling
# calculate dependencies
728729b6 Moritz Bunkus
for (@itemstatus_keys, @callback_keys) {
2efc8cbc Sven Schöling
next if ($form->{itemstatus} ne $_ && !$form->{$_});
map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
d319704a Moritz Bunkus
}

2efc8cbc Sven Schöling
# generate callback and optionstrings
728729b6 Moritz Bunkus
my @options;
2efc8cbc Sven Schöling
for my $key (@itemstatus_keys, @callback_keys) {
next if ($form->{itemstatus} ne $key && !$form->{$key});
push @options, $optiontexts{$key};
d319704a Moritz Bunkus
}

2efc8cbc Sven Schöling
IC->all_parts(\%myconfig, \%$form);
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
# special case for lastcost
$form->{l_lastcost} = "" if $form->{ledgerchecks};
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
if ($form->{description}) {
$description = $form->{description};
$description =~ s/\n/<br>/g;
66881e5e Moritz Bunkus
}

d319704a Moritz Bunkus
if ($form->{l_linetotal}) {
$form->{l_onhand} = "Y";
$form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
if ($form->{l_lastcost}) {
$form->{l_linetotallastcost} = "Y";
if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
$form->{l_linetotallastcost} = "";
}
}
$form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
}

if ($form->{searchitems} eq 'service') {

# remove bin, weight and rop from list
map { $form->{"l_$_"} = "" } qw(bin weight rop);

$form->{l_onhand} = "";

# qty is irrelevant unless bought or sold
if ( $form->{bought}
|| $form->{sold}
|| $form->{onorder}
|| $form->{ordered}
|| $form->{rfq}
|| $form->{quoted}) {
$form->{l_onhand} = "Y";
54e4131e Moritz Bunkus
} else {
d319704a Moritz Bunkus
$form->{l_linetotalsellprice} = "";
$form->{l_linetotallastcost} = "";
}
}

728729b6 Moritz Bunkus
$form->{l_lastcost} = "" if ($form->{searchitems} eq 'assembly' && !$form->{bom});

my @columns =
qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal deliverydate);

my %column_defs = (
'bin' => { 'text' => $locale->text('Bin'), },
'deliverydate' => { 'text' => $locale->text('deliverydate'), },
'description' => { 'text' => $locale->text('Part Description'), },
'drawing' => { 'text' => $locale->text('Drawing'), },
'image' => { 'text' => $locale->text('Image'), },
'invnumber' => { 'text' => $locale->text('Invoice Number'), },
'lastcost' => { 'text' => $locale->text('Last Cost'), },
'linetotallastcost' => { 'text' => $locale->text('Extended'), },
'linetotallistprice' => { 'text' => $locale->text('Extended'), },
'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
'listprice' => { 'text' => $locale->text('List Price'), },
'microfiche' => { 'text' => $locale->text('Microfiche'), },
'name' => { 'text' => $locale->text('Name'), },
'onhand' => { 'text' => $locale->text('Qty'), },
'ordnumber' => { 'text' => $locale->text('Order Number'), },
'partnumber' => { 'text' => $locale->text('Part Number'), },
'partsgroup' => { 'text' => $locale->text('Group'), },
'priceupdate' => { 'text' => $locale->text('Updated'), },
'quonumber' => { 'text' => $locale->text('Quotation'), },
'rop' => { 'text' => $locale->text('ROP'), },
'sellprice' => { 'text' => $locale->text('Sell Price'), },
'serialnumber' => { 'text' => $locale->text('Serial Number'), },
'soldtotal' => { 'text' => $locale->text('soldtotal'), },
'unit' => { 'text' => $locale->text('Unit'), },
'weight' => { 'text' => $locale->text('Weight'), },
);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns;
fa8921ca Moritz Bunkus
map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom), @itemstatus_keys, @callback_keys, map { "l_$_" } @columns);
my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my @sort_full = qw(partnumber description onhand soldtotal deliverydate);
my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
66881e5e Moritz Bunkus
728729b6 Moritz Bunkus
foreach my $col (@sort_full) {
$column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
}
map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
# add order to callback
$form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my $report = SL::ReportGenerator->new(\%myconfig, $form);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my %attachment_basenames = (
'part' => $locale->text('part_list'),
'service' => $locale->text('service_list'),
'assembly' => $locale->text('assembly_list'),
);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->set_options('top_info_text' => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
'raw_bottom_info_text' => $form->parse_html_template2('ic/generate_report_bottom'),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
);
$report->set_options_from_form();
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my @subtotal_columns = qw(sellprice listprice lastcost);
my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
my %totals = map { $_ => 0 } @subtotal_columns;
my $idx = 0;
fa8921ca Moritz Bunkus
my $same_item = $form->{parts}->[0]->{ $form->{sort} } if (scalar @{ $form->{parts} });
d319704a Moritz Bunkus
2efc8cbc Sven Schöling
foreach my $ref (@{ $form->{parts} }) {
fa8921ca Moritz Bunkus
my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$ref->{exchangerate} = 1 unless $ref->{exchangerate};
$ref->{sellprice} *= $ref->{exchangerate};
$ref->{listprice} *= $ref->{exchangerate};
$ref->{lastcost} *= $ref->{exchangerate};
d319704a Moritz Bunkus
# use this for assemblies
728729b6 Moritz Bunkus
my $onhand = $ref->{onhand};
d319704a Moritz Bunkus
if ($ref->{assemblyitem}) {
728729b6 Moritz Bunkus
$row->{partnumber}->{align} = 'right';
$row->{onhand}->{data} = 0;
$onhand = 0 if ($form->{sold});
d319704a Moritz Bunkus
}

728729b6 Moritz Bunkus
my $edit_link = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
$row->{partnumber}->{link} = $edit_link;
$row->{description}->{link} = $edit_link;
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
foreach (qw(sellprice listprice lastcost)) {
$row->{$_}->{data} = $form->format_amount(\%myconfig, $ref->{$_}, -2);
$row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
}
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
map { $row->{$_}->{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
d319704a Moritz Bunkus
if (!$ref->{assemblyitem}) {
728729b6 Moritz Bunkus
foreach my $col (@subtotal_columns) {
$totals{$col} += $onhand * $ref->{$col};
$subtotals{$col} += $onhand * $ref->{$col};
}
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$subtotals{onhand} += $onhand;
d319704a Moritz Bunkus
}

728729b6 Moritz Bunkus
if ($ref->{module} eq 'oe') {
my $edit_oe_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{type}), 'id=' . E($ref->{trans_id}), 'callback');
$row->{ordnumber}->{link} = $edit_oe_link;
$row->{quonumber}->{link} = $edit_oe_link if (!$ref->{ordnumber});
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
} else {
$row->{invnumber}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
}
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
$row->{image}->{data} = '';
$row->{image}->{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
}
map { $row->{$_}->{link} = $ref->{$_} } qw(drawing microfiche);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->add_data($row);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
my $next_ref = $form->{parts}->[$idx + 1];
66881e5e Moritz Bunkus
728729b6 Moritz Bunkus
if (($form->{l_subtotal} eq 'Y') &&
(!$next_ref ||
fa8921ca Moritz Bunkus
(!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
$row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand});
}
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns);
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->add_data($row);
fa8921ca Moritz Bunkus
$same_item = $next_ref->{ $form->{sort} };
728729b6 Moritz Bunkus
}
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$idx++;
d319704a Moritz Bunkus
}

if ($form->{"l_linetotal"}) {
fa8921ca Moritz Bunkus
my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
d319704a Moritz Bunkus
728729b6 Moritz Bunkus
$report->add_separator();
$report->add_data($row);
d319704a Moritz Bunkus
}

728729b6 Moritz Bunkus
$report->generate_with_headers();
d319704a Moritz Bunkus
$lxdebug->leave_sub();
} #end generate_report

sub parts_subtotal {
$lxdebug->enter_sub();
2efc8cbc Sven Schöling
# imports
9a0aeac2 Sven Schöling
our (%column_data, @column_index);
our ($subtotalonhand, $totalsellprice, $totallastcost, $totallistprice, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
d319704a Moritz Bunkus
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});

$column_data{onhand} =
"<th class=listsubtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $subtotalonhand)
d319704a Moritz Bunkus
. "</th>";

$column_data{linetotalsellprice} =
"<th class=listsubtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $subtotalsellprice, 2)
d319704a Moritz Bunkus
. "</th>";
$column_data{linetotallistprice} =
"<th class=listsubtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $subtotallistprice, 2)
d319704a Moritz Bunkus
. "</th>";
$column_data{linetotallastcost} =
"<th class=listsubtotal align=right>"
88583bb3 Moritz Bunkus
. $form->format_amount(\%myconfig, $subtotallastcost, 2)
d319704a Moritz Bunkus
. "</th>";

$subtotalonhand = 0;
$subtotalsellprice = 0;
$subtotallistprice = 0;
$subtotallastcost = 0;

print "<tr class=listsubtotal>";

map { print "\n$column_data{$_}" } @column_index;

print qq|
</tr>
|;

$lxdebug->leave_sub();
}

sub edit {
$lxdebug->enter_sub();
2b89ec97 Thomas Kasulke
# show history button
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
#/show hhistory button
d319704a Moritz Bunkus
IC->get_part(\%myconfig, \%$form);

1cd8764a Moritz Bunkus
$form->{"original_partnumber"} = $form->{"partnumber"};

d319704a Moritz Bunkus
$form->{title} = $locale->text('Edit ' . ucfirst $form->{item});

&link_part;
&display_form;

$lxdebug->leave_sub();
}

sub link_part {
$lxdebug->enter_sub();

IC->create_links("IC", \%myconfig, \%$form);

# currencies
864b73ff Moritz Bunkus
map({ $form->{selectcurrency} .= "<option>$_\n" }
split(/:/, $form->{currencies}));
d319704a Moritz Bunkus
# parts and assemblies have the same links
2efc8cbc Sven Schöling
my $item = $form->{item};
d319704a Moritz Bunkus
if ($form->{item} eq 'assembly') {
$item = 'part';
}

# build the popup menus
$form->{taxaccounts} = "";
2efc8cbc Sven Schöling
foreach my $key (keys %{ $form->{IC_links} }) {
foreach my $ref (@{ $form->{IC_links}{$key} }) {
d319704a Moritz Bunkus
# if this is a tax field
if ($key =~ /IC_tax/) {
if ($key =~ /$item/) {
$form->{taxaccounts} .= "$ref->{accno} ";
$form->{"IC_tax_$ref->{accno}_description"} =
"$ref->{accno}--$ref->{description}";

if ($form->{id}) {
if ($form->{amount}{ $ref->{accno} }) {
$form->{"IC_tax_$ref->{accno}"} = "checked";
}
} else {
$form->{"IC_tax_$ref->{accno}"} = "checked";
}
}
} else {

$form->{"select$key"} .=
"<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
if ($form->{amount}{$key} eq $ref->{accno}) {
$form->{$key} = "$ref->{accno}--$ref->{description}";
}

}
}
}
chop $form->{taxaccounts};

if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
$form->{selectIC_income} = $form->{selectIC_sale};
$form->{selectIC_expense} = $form->{selectIC_cogs};
$form->{IC_income} = $form->{IC_sale};
$form->{IC_expense} = $form->{IC_cogs};
}

delete $form->{IC_links};
delete $form->{amount};

$form->get_partsgroup(\%myconfig, { all => 1 });
07d71c33 Stephan Köhler
d319704a Moritz Bunkus
$form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
07d71c33 Stephan Köhler
d319704a Moritz Bunkus
if (@{ $form->{all_partsgroup} }) {
$form->{selectpartsgroup} = qq|<option>\n|;
map {
$form->{selectpartsgroup} .=
qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
} @{ $form->{all_partsgroup} };
}

if ($form->{item} eq 'assembly') {

2efc8cbc Sven Schöling
foreach my $i (1 .. $form->{assembly_rows}) {
d319704a Moritz Bunkus
if ($form->{"partsgroup_id_$i"}) {
$form->{"partsgroup_$i"} =
qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
}
}
$form->get_partsgroup(\%myconfig);

if (@{ $form->{all_partsgroup} }) {
$form->{selectassemblypartsgroup} = qq|<option>\n|;

map {
$form->{selectassemblypartsgroup} .=
qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
} @{ $form->{all_partsgroup} };
}
}
$lxdebug->leave_sub();
}

sub form_header {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($payment, $rows, $notes, $description, $ean, $buchungsgruppe, $partsgroup, $group, $tax, $lastcost, $eur, $linkaccounts, $weight, $n, $rop, $bin, $vegv);
my ($notdiscountableok, $notdiscountable);
ad70fca3 Moritz Bunkus
my ($formula, $formula_label, $imagelinks, $obsolete, $shopok, $shop);
2efc8cbc Sven Schöling

88583bb3 Moritz Bunkus
map({ $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, -2) }
qw(sellprice listprice lastcost gv));
d319704a Moritz Bunkus
map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) }
qw(weight rop stock);

2efc8cbc Sven Schöling
foreach my $item (qw(partnumber description unit notes)) {
d319704a Moritz Bunkus
$form->{$item} =~ s/\"/&quot;/g;
}

54e4131e Moritz Bunkus
$payment = qq|<option value=""></option>|;
2efc8cbc Sven Schöling
foreach my $item (@{ $form->{payment_terms} }) {
54e4131e Moritz Bunkus
if ($form->{payment_id} eq $item->{id}) {
$payment .= qq|<option value="$item->{id}" selected>$item->{description}</option>|;
} else {
$payment .= qq|<option value="$item->{id}">$item->{description}</option>|;
}
}


d319704a Moritz Bunkus
if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) {
54e4131e Moritz Bunkus
$rows = 4;
d319704a Moritz Bunkus
}

$notes =
55bd1f28 Holger Lindemann
qq|<textarea name=notes rows=$rows cols=45 wrap=soft>$form->{notes}</textarea>|;
d319704a Moritz Bunkus
if (($rows = $form->numtextrows($form->{description}, 40)) > 1) {
$description =
qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description}</textarea>|;
} else {
$description =
qq|<input name=description size=40 value="$form->{description}">|;
}

55bd1f28 Holger Lindemann
$ean = qq|<input name=ean size=40 value="$form->{ean}">|;

2efc8cbc Sven Schöling
foreach my $item (split / /, $form->{taxaccounts}) {
d319704a Moritz Bunkus
$form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : "";
}

54e4131e Moritz Bunkus
IC->retrieve_buchungsgruppen(\%myconfig, $form);
if (@{ $form->{BUCHUNGSGRUPPEN} }) {
2efc8cbc Sven Schöling
foreach my $item (@{ $form->{BUCHUNGSGRUPPEN} }) {
54e4131e Moritz Bunkus
if ($item->{id} == $form->{buchungsgruppen_id}) {
$form->{selectbuchungsgruppe} .=
"<option value=$item->{id} selected>$item->{description}\n";
} elsif (($form->{id} && $form->{orphaned}) || (!$form->{id})) {
$form->{selectbuchungsgruppe} .=
"<option value=$item->{id}>$item->{description}\n";
}

}
}

$buchungsgruppe = qq|
<tr>
<th align=right>| . $locale->text('Buchungsgruppe') . qq|</th>
<td><select name=buchungsgruppen_id>$form->{selectbuchungsgruppe}</select></td>
</tr>|;


d319704a Moritz Bunkus
# set option
2efc8cbc Sven Schöling
foreach my $item (qw(IC IC_income IC_expense)) {
d319704a Moritz Bunkus
if ($form->{$item}) {
if ($form->{id} && $form->{orphaned}) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~
s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
} else {
$form->{"select$item"} = qq|<option selected>$form->{$item}|;
}
}
}
07d71c33 Stephan Köhler
d319704a Moritz Bunkus
if ($form->{selectpartsgroup}) {
$form->{selectpartsgroup} = $form->unescape($form->{selectpartsgroup});
$partsgroup =
qq|<input type=hidden name=selectpartsgroup value="|
. $form->escape($form->{selectpartsgroup}, 1) . qq|">|;
$form->{selectpartsgroup} =~
s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;

$partsgroup .=
qq|<select name=partsgroup>$form->{selectpartsgroup}</select>|;
$group = $locale->text('Group');
}

# tax fields
2efc8cbc Sven Schöling
foreach my $item (split / /, $form->{taxaccounts}) {
d319704a Moritz Bunkus
$tax .= qq|
<input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
<br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}">
|;
}

$form->{obsolete} = "checked" if $form->{obsolete};

$lastcost = qq|
<tr>
<th align="right" nowrap="true">|
07d71c33 Stephan Köhler
. $locale->text('Last Cost') . qq|</th>
d319704a Moritz Bunkus
<td><input name=lastcost size=11 value=$form->{lastcost}></td>
</tr>
|;
if (!$eur) {
$linkaccounts = qq|
<tr>
<th align=right>| . $locale->text('Inventory') . qq|</th>
<td><select name=IC>$form->{selectIC}</select></td>
<input name=selectIC type=hidden value="$form->{selectIC}">
</tr>|;
}

if ($form->{item} eq "part") {

$linkaccounts .= qq|
<tr>
<th align=right>| . $locale->text('Revenue') . qq|</th>
<td><select name=IC_income>$form->{selectIC_income}</select></td>
<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
</tr>
<tr>
5bfd9281 Moritz Bunkus
<th align=right>| . $locale->text('Expense') . qq|</th>
d319704a Moritz Bunkus
<td><select name=IC_expense>$form->{selectIC_expense}</select></td>
<input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
</tr>
|;

$weight = qq|
<tr>
<th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
<td>
<table>
<tr>
<td>
<input name=weight size=10 value=$form->{weight}>
</td>
</tr>
</table>
</td>
</tr>
|;

}

if ($form->{item} eq "assembly") {

$lastcost = "";

$linkaccounts = qq|
<tr>
<th align=right>| . $locale->text('Revenue') . qq|</th>
<td><select name=IC_income>$form->{selectIC_income}</select></td>
<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
</tr>
|;

$weight = qq|
<tr>
<th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
<td>
<table>
<tr>
<td>
&nbsp;$form->{weight}
<input type=hidden name=weight value=$form->{weight}>
</td>
</tr>
</table>
</td>
</tr>
|;

}

if ($form->{item} eq "service") {

$linkaccounts = qq|
<tr>
<th align=right>| . $locale->text('Revenue') . qq|</th>
<td><select name=IC_income>$form->{selectIC_income}</select></td>
<input name=selectIC_income type=hidden value="$form->{selectIC_income}">
</tr>
<tr>
<th align=right>| . $locale->text('Expense') . qq|</th>
<td><select name=IC_expense>$form->{selectIC_expense}</select></td>
<input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
</tr>
|;

}
54e4131e Moritz Bunkus
$linkaccounts = qq|<input type=hidden name=IC_income value="$form->{IC_income_default}">|;

if ($form->{IC_cogs_default}) {
$form->{IC_expense_default} = $form->{IC_cogs_default};
}

if (($form->{item} eq "service") || ($form->{item} eq "part")) {
$linkaccounts .= qq|<input type=hidden name=IC_expense value="$form->{IC_expense_default}">|;
}
if ($form->{item} eq "part") {
$linkaccounts .= qq|<input type=hidden name=IC value="$form->{IC_default}">|;
}
d319704a Moritz Bunkus
if ($form->{item} ne 'service') {
$n = ($form->{onhand} > 0) ? "1" : "0";
$rop = qq|
<tr>
<th align="right" nowrap>| . $locale->text('On Hand') . qq|</th>
<th align=left nowrap class="plus$n">&nbsp;|
07d71c33 Stephan Köhler
. $form->format_amount(\%myconfig, $form->{onhand}) . qq|</th>
d319704a Moritz Bunkus
</tr>
|;

if ($form->{item} eq 'assembly') {
$rop .= qq|
<tr>
<th align="right" nowrap>| . $locale->text('Stock') . qq|</th>
<td><input name=stock size=10 value=$form->{stock}></td>
</tr>
|;
}

$rop .= qq|
<tr>
<th align="right" nowrap="true">| . $locale->text('ROP') . qq|</th>
<td><input name=rop size=10 value=$form->{rop}></td>
</tr>
|;

$bin = qq|
<tr>
<th align="right" nowrap="true">| . $locale->text('Bin') . qq|</th>
<td><input name=bin size=10 value=$form->{bin}></td>
</tr>
|;
$vegv = qq|
<tr>
<th align="right" nowrap="true">|
07d71c33 Stephan Köhler
. $locale->text('Verrechnungseinheit') . qq|</th>
d319704a Moritz Bunkus
<td><input name=ve size=10 value=$form->{ve}></td>
</tr>
<tr>
<th align="right" nowrap="true">|
63024c9f Moritz Bunkus
. $locale->text('Business Volume') . qq|</th>
d319704a Moritz Bunkus
<td><input name=gv size=10 value=$form->{gv}></td>
</tr>
|;
54e4131e Moritz Bunkus
$notdiscountableok = ($form->{not_discountable}) == 1 ? "checked" : "";
$notdiscountable .= qq|
<tr>
<th align=right nowrap>|
. $locale->text('Not Discountable') . qq|</th>
<td><input class=checkbox type=checkbox name=not_discountable value=1 $notdiscountableok></td>
</tr>
|;

ad70fca3 Moritz Bunkus
$formula =
qq|<ilayer><layer onmouseover="this.T_STICKY=true;this.T_STATIC=true;return escape('| . $locale->text('The formula needs the following syntax:<br>For regular article:<br>Variablename= Variable Unit;<br>Variablename2= Variable2 Unit2;<br>...<br>###<br>Variable + ( Variable2 / Variable )<br><b>Please be beware of the spaces in the formula</b><br>') . qq|')"><textarea name=formel rows=4 cols=30 wrap=soft>$form->{formel}</textarea></layer><ilayer>|;

$formula_label = $locale->text('Formula');

d319704a Moritz Bunkus
$imagelinks = qq|
<tr>
<td>
<table width=100%>
<tr>
<th align=right nowrap>| . $locale->text('Image') . qq|</th>
<td><input name=image size=40 value="$form->{image}"></td>
<th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
<td><input name=microfiche size=20 value="$form->{microfiche}"></td>
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
<td><input name=drawing size=40 value="$form->{drawing}"></td>
</tr>
</table>
</td>
</tr>
|;

}

if ($form->{id}) {
$obsolete = qq|
<tr>
<th align="right" nowrap="true">| . $locale->text('Obsolete') . qq|</th>
<td><input name=obsolete type=checkbox class=checkbox value=1 $form->{obsolete}></td>
</tr>
|;
}
$shopok = $form->{shop} == 1 ? "checked" : "";
54e4131e Moritz Bunkus
$shop .= qq|
d319704a Moritz Bunkus
<tr>
<th align=right nowrap>|
07d71c33 Stephan Köhler
. $locale->text('Shopartikel') . qq|</th>
d319704a Moritz Bunkus
<td><input class=checkbox type=checkbox name=shop value=1 $shopok></td>
</tr>
|;

54e4131e Moritz Bunkus
d319704a Moritz Bunkus
# type=submit $locale->text('Add Part')
# type=submit $locale->text('Add Service')
# type=submit $locale->text('Add Assembly')

# type=submit $locale->text('Edit Part')
# type=submit $locale->text('Edit Service')
# type=submit $locale->text('Edit Assembly')
# use JavaScript Calendar or not
2efc8cbc Sven Schöling
my ($jsscript, $button1);
d7f06042 Moritz Bunkus
$form->{jsscript} = 1;
d319704a Moritz Bunkus
$jsscript = "";
if ($form->{jsscript}) {

# with JavaScript Calendar
$button1 = qq|
<td width="13"><input name=priceupdate id=priceupdate size=11 title="$myconfig{dateformat}" value="$form->{priceupdate}"></td>
<td width="4" align="left"><input type=button name=priceupdate id="trigger1" value=|
07d71c33 Stephan Köhler
. $locale->text('button') . qq|></td>
d319704a Moritz Bunkus
|;

#write Trigger
$jsscript =
487d4f1f Stephan Köhler
Form->write_trigger(\%myconfig, "1", "priceupdate", "BL", "trigger1");
d319704a Moritz Bunkus
} else {

# without JavaScript Calendar
$button1 = qq|
<td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
}

54e4131e Moritz Bunkus
my $unit_select = '<input type="hidden" name="unit_changeable" value="' . $form->{"unit_changeable"} . '">';
if (!$form->{"unit_changeable"}) {
$unit_select .= '<input type="hidden" name="unit" value="' . $form->{"unit"} . '">' . $form->{"unit"};
} else {
my $units = AM->retrieve_units(\%myconfig, $form, $form->{"item"} eq "service" ? "service" : "dimension");
$unit_select .= AM->unit_select_html($units, "unit", $form->{"unit"});
}

d319704a Moritz Bunkus
$form->{fokus} = "ic.partnumber";
$form->header;

print qq|
<body onLoad="fokus()">
54e4131e Moritz Bunkus
<script type="text/javascript" src="js/common.js"></script>
<script type="text/javascript" src="js/parts_language_selection.js"></script>
d319704a Moritz Bunkus
<form method=post name="ic" action=$form->{script}>

<input name=id type=hidden value=$form->{id}>
<input name=item type=hidden value=$form->{item}>
<input name=title type=hidden value="$form->{title}">
<input name=makemodel type=hidden value="$form->{makemodel}">
<input name=alternate type=hidden value="$form->{alternate}">
<input name=onhand type=hidden value=$form->{onhand}>
<input name=orphaned type=hidden value=$form->{orphaned}>
<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
<input name=rowcount type=hidden value=$form->{rowcount}>
<input name=eur type=hidden value=$eur>
54e4131e Moritz Bunkus
<input name=language_values type=hidden value="$form->{language_values}">
1cd8764a Moritz Bunkus
<input name="original_partnumber" type="hidden" value="| . $form->quote($form->{"original_partnumber"}) . qq|">
d319704a Moritz Bunkus
<table width="100%">
<tr>
<th class=listtop>$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
<table width="100%">
<tr valign=top>
<th align=left>| . $locale->text('Part Number') . qq|</th>
<th align=left>| . $locale->text('Part Description') . qq|</th>
<th align=left>$group</th>
</tr>
<tr valign=top>
<td><input name=partnumber value="$form->{partnumber}" size=20></td>
<td>$description</td>
<td>$partsgroup</td>
<input type=hidden name=oldpartsgroup value="$form->{oldpartsgroup}">
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" height="100%">
<tr valign=top>
<td width=70%>
<table width="100%" height="100%">
<tr class="listheading">
<th class="listheading" align="center" colspan=2>|
54e4131e Moritz Bunkus
. $locale->text('') . qq|</th>
d319704a Moritz Bunkus
</tr>
54e4131e Moritz Bunkus
<td colspan=2>
<table>
$buchungsgruppe
$linkaccounts
</table>
</td>
d319704a Moritz Bunkus
<tr>
<th align="left">| . $locale->text('Notes') . qq|</th>
ad70fca3 Moritz Bunkus
<th align="left">$formula_label</th>
d319704a Moritz Bunkus
</tr>
<tr>
54e4131e Moritz Bunkus
<td>
d319704a Moritz Bunkus
$notes
</td>
7f820f8f Udo Spallek
<td>
ad70fca3 Moritz Bunkus
$formula
7f820f8f Udo Spallek
</td>
d319704a Moritz Bunkus
</tr>
54e4131e Moritz Bunkus
<tr>
55bd1f28 Holger Lindemann
<th align="left"></th>
<th align="left">| . $locale->text('EAN-Code') . qq|</th>
</tr>
<tr>
<td>
54e4131e Moritz Bunkus
<button type="button" onclick="parts_language_selection_window('language_values')">| . $locale->text('Set Language Values') . qq|</button>
</td>
55bd1f28 Holger Lindemann
<td>
$ean
</td>
54e4131e Moritz Bunkus
</tr>
<tr>
<td colspan=2>
<table>
<tr>
<th align=right>| . $locale->text('Payment Terms') . qq|</th>
<td><select name=payment_id>$payment</select></td>
</tr>
</table>
</td>
</tr>
d319704a Moritz Bunkus
</table>
</td>
<td width="30%">
<table width="100%">
<tr>
<th align="right" nowrap="true">|
07d71c33 Stephan Köhler
. $locale->text('Updated') . qq|</th>
d319704a Moritz Bunkus
$button1
0576299f Moritz Bunkus
</tr>
d319704a Moritz Bunkus
<tr>
<th align="right" nowrap="true">| . $locale->text('List Price') . qq|</th>
<td><input name=listprice size=11 value=$form->{listprice}></td>
</tr>
<tr>
<th align="right" nowrap="true">| . $locale->text('Sell Price') . qq|</th>
<td><input name=sellprice size=11 value=$form->{sellprice}></td>
</tr>
$lastcost
<tr>
<th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
54e4131e Moritz Bunkus
<td>$unit_select</td>
d319704a Moritz Bunkus
</tr>
$weight
$rop
$bin
54e4131e Moritz Bunkus
$notdiscountable
d319704a Moritz Bunkus
$vegv
54e4131e Moritz Bunkus
$shop
d319704a Moritz Bunkus
$obsolete
</table>
</td>
</tr>
</table>
</td>
</tr>
$imagelinks
0576299f Moritz Bunkus
d319704a Moritz Bunkus
$jsscript
|;
$lxdebug->leave_sub();
}

sub form_footer {
$lxdebug->enter_sub();

if ($form->{item} eq "assembly") {

print qq|
<tr>
<td>
<table width="100%">
<tr>
<th colspan=2 align=right>|
07d71c33 Stephan Köhler
. $locale->text('Total') . qq|&nbsp;</th>
d319704a Moritz Bunkus
<th align=right>|
07d71c33 Stephan Köhler
. $form->format_amount(\%myconfig, $form->{assemblytotal}, 2) . qq|</th>
d319704a Moritz Bunkus
</tr>
</table>
</td>
</tr>
<input type=hidden name=assembly_rows value=$form->{assembly_rows}>
|;
}

print qq|
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
<input type=hidden name=callback value="$form->{callback}">
<input type=hidden name=previousform value="$form->{previousform}">
<input type=hidden name=taxaccount2 value="$form->{taxaccount2}">
<input type=hidden name=vc value=$form->{vc}>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>

<br>
<input class=submit type=submit name=action value="|
. $locale->text('Update') . qq|">
|;

unless ($form->{item} eq "service") {
print qq|
<input type=hidden name=makemodel_rows value=$form->{makemodel_rows}>
|;
}

07d71c33 Stephan Köhler
print qq|
<input type=hidden name=price_rows value=$form->{price_rows}>|;

d319704a Moritz Bunkus
print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Save') . qq|">|;

if ($form->{id}) {

if (!$form->{previousform}) {
print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Save as new') . qq|">|;
}

if ($form->{orphaned}) {
if (!$form->{previousform}) {
if ($form->{item} eq 'assembly') {
if (!$form->{onhand}) {
print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Delete') . qq|">|;
}
} else {
print qq|
<input class=submit type=submit name=action value="|
. $locale->text('Delete') . qq|">|;
}
}
}
}

2b89ec97 Thomas Kasulke
if (!$form->{previousform}) {
if ($form->{menubar}) {
d629acd8 Sven Schöling
require "bin/mozilla/menu.pl";
2b89ec97 Thomas Kasulke
&menubar;
}
}
# button for saving history
if($form->{id} ne "") {
print qq|
<input type=button class=submit onclick=set_history_window(|
. $form->{id}
. qq|); name=history id=history value=|
. $locale->text('history')
. qq|>|;
}
# /button for saving history
d319704a Moritz Bunkus
print qq|

</form>
2b89ec97 Thomas Kasulke
54e4131e Moritz Bunkus
<script type="text/javascript" src="js/wz_tooltip.js"></script>
d319704a Moritz Bunkus
</body>
</html>
|;

$lxdebug->leave_sub();
}

sub makemodel_row {
$lxdebug->enter_sub();
my ($numrows) = @_;
2efc8cbc Sven Schöling
d319704a Moritz Bunkus
print qq|
<tr>
<td>
<table width=100%>
<tr>
<th class="listheading">| . $locale->text('Make') . qq|</th>
<th class="listheading">| . $locale->text('Model') . qq|</th>
</tr>
|;

2efc8cbc Sven Schöling
for my $i (1 .. $numrows) {
$form->{"make_$i"} =~ s/\"/&quot;/g;
$form->{"model_$i"} =~ s/\"/&quot;/g;
d319704a Moritz Bunkus
print qq|
<tr>
<td width=50%><input name="make_$i" size=30 value="$form->{"make_$i"}"></td>
<td width=50%><input name="model_$i" size=30 value="$form->{"model_$i"}"></td>
</tr>
|;
}

print qq|
</table>
</td>
</tr>
|;

$lxdebug->leave_sub();
}

sub assembly_row {
$lxdebug->enter_sub();
my ($numrows) = @_;
2efc8cbc Sven Schöling
my (@column_index, %column_data, %column_header);
my ($nochange, $callback, $previousform, $linetotal, $href);

9a0aeac2 Sven Schöling
our ($deliverydate); # ToDO: cjeck if this indeed comes from global context
d319704a Moritz Bunkus
@column_index =
qw(runningnumber qty unit bom partnumber description partsgroup total);

if ($form->{previousform}) {
$nochange = 1;
@column_index = qw(qty unit bom partnumber description partsgroup total);
} else {

# change callback
$form->{old_callback} = $form->{callback};
$callback = $form->{callback};
$form->{callback} = "$form->{script}?action=display_form";

# delete action
map { delete $form->{$_} } qw(action header);

$previousform = "";

# save form variables in a previousform variable
2efc8cbc Sven Schöling
foreach my $key (sort keys %$form) {
d319704a Moritz Bunkus
# escape ampersands
$form->{$key} =~ s/&/%26/g;
$previousform .= qq|$key=$form->{$key}&|;
}
chop $previousform;
$previousform = $form->escape($form->escape($previousform, 1));
$form->{callback} = $callback;

$form->{assemblytotal} = 0;
$form->{weight} = 0;

}
$column_header{runningnumber} =
qq|<th nowrap width=5%>| . $locale->text('No.') . qq|</th>|;
$column_header{qty} =
qq|<th align=left nowrap width=10%>| . $locale->text('Qty') . qq|</th>|;
$column_header{unit} =
qq|<th align=left nowrap width=5%>| . $locale->text('Unit') . qq|</th>|;
$column_header{partnumber} =
qq|<th align=left nowrap width=20%>|
. $locale->text('Part Number')
. qq|</th>|;
$column_header{description} =
qq|<th nowrap width=50%>| . $locale->text('Part Description') . qq|</th>|;
$column_header{total} =
qq|<th align=right nowrap>| . $locale->text('Extended') . qq|</th>|;
$column_header{bom} = qq|<th>| . $locale->text('BOM') . qq|</th>|;
$column_header{partsgroup} = qq|<th>| . $locale->text('Group') . qq|</th>|;

print qq|
<tr class=listheading>
<th class=listheading>| . $locale->text('Individual Items') . qq|</th>
</tr>
<tr>
<td>
<table width=100%>
<tr>
|;

map { print "\n$column_header{$_}" } @column_index;

print qq|
</tr>
|;

2efc8cbc Sven Schöling
for my $i (1 .. $numrows) {
d319704a Moritz Bunkus
$form->{"partnumber_$i"} =~ s/\"/&quot;/g;

$linetotal =
$form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
$form->{assemblytotal} += $linetotal;

$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});

$linetotal = $form->format_amount(\%myconfig, $linetotal, 2);

if (($i >= 1) && ($i == $numrows)) {

if ($nochange) {
map { $column_data{$_} = qq|<td></td>| }
qw(qty unit partnumber description bom partsgroup);
} else {

map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom);

$column_data{qty} =
qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
$column_data{partnumber} =
qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|;
$column_data{description} =
qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
$column_data{partsgroup} =
qq|<td><input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}"></td>|;

}

} else {

if ($form->{previousform}) {
$column_data{partnumber} =
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">$form->{"partnumber_$i"}</td>|;
$column_data{qty} =
qq|<td align=right><input type=hidden name="qty_$i" value="$form->{"qty_$i"}">$form->{"qty_$i"}</td>|;

$column_data{bom} =
qq|<td align=center><input type=hidden name="bom_$i" value=$form->{"bom_$i"}>|;
$column_data{bom} .= ($form->{"bom_$i"}) ? "x" : "&nbsp;";
$column_data{bom} .= qq|</td>|;

$column_data{partsgroup} =
qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;

} else {
$href =
d629acd8 Sven Schöling
qq|$form->{script}?action=edit&id=$form->{"id_$i"}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
d319704a Moritz Bunkus
$column_data{partnumber} =
qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
$column_data{runningnumber} =
qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|;
$column_data{qty} =
qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;

$form->{"bom_$i"} = ($form->{"bom_$i"}) ? "checked" : "";
$column_data{bom} =
qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|;

$column_data{partsgroup} =
qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
}

$column_data{unit} =
qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
$column_data{description} =
qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|;
}

$column_data{total} = qq|<td align=right>$linetotal</td>|;

66881e5e Moritz Bunkus
$column_data{deliverydate} = qq|<td align=right>$deliverydate</td>|;

d319704a Moritz Bunkus
print qq|
<tr>|;

map { print "\n$column_data{$_}" } @column_index;

print qq|
</tr>
<input type=hidden name="id_$i" value=$form->{"id_$i"}>
<input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
<input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
|;
}

print qq|
</table>
</td>
</tr>
|;

$lxdebug->leave_sub();
}

sub update {
$lxdebug->enter_sub();

if ($form->{item} eq "assembly") {
2efc8cbc Sven Schöling
my $i = $form->{assembly_rows};
d319704a Moritz Bunkus
# if last row is empty check the form otherwise retrieve item
if ( ($form->{"partnumber_$i"} eq "")
&& ($form->{"description_$i"} eq "")
&& ($form->{"partsgroup_$i"} eq "")) {

&check_form;

54e4131e Moritz Bunkus
} else {
d319704a Moritz Bunkus
IC->assembly_item(\%myconfig, \%$form);

2efc8cbc Sven Schöling
my $rows = scalar @{ $form->{item_list} };
d319704a Moritz Bunkus
if ($rows) {
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});

if ($rows > 1) {
$form->{makemodel_rows}--;
&select_item;
exit;
} else {
map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
qw(partnumber description unit partsgroup);
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
keys %{ $form->{item_list}[0] };
$form->{"runningnumber_$i"} = $form->{assembly_rows};
$form->{assembly_rows}++;

&check_form;

}

} else {

$form->{rowcount} = $i;
$form->{assembly_rows}++;

&new_item;

}
}

e7127ad0 Moritz Bunkus
} elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
d319704a Moritz Bunkus
&check_form;
}

$lxdebug->leave_sub();
}

sub save {
$lxdebug->enter_sub();

2efc8cbc Sven Schöling
my ($parts_id, %newform, $previousform, $amount, $callback);

7987d7a9 Moritz Bunkus
# check if there is a part number - commented out, cause there is an automatic allocation of numbers
d319704a Moritz Bunkus
# $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));

7987d7a9 Moritz Bunkus
# check if there is a description
$form->isblank("description", $locale->text("Part Description missing!"));

d319704a Moritz Bunkus
if ($form->{obsolete}) {
$form->error(
$locale->text(
"Inventory quantity must be zero before you can set this $form->{item} obsolete!"
))
5b60c0df Moritz Bunkus
if ($form->{onhand} * 1);
d319704a Moritz Bunkus
}

54e4131e Moritz Bunkus
if (!$form->{buchungsgruppen_id}) {
$form->error($locale->text("Parts must have an entry type.") . " " .
$locale->text("If you see this message, you most likely just setup your LX-Office and haven't added any entry types. If this is the case, the option is accessible for administrators in the System menu.")
);
}

$form->error($locale->text('Description must not be empty!')) unless $form->{description};
$form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};

d319704a Moritz Bunkus
# expand dynamic strings
# $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
# $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
# $locale->text('Part Number missing!')
# $locale->text('Service Number missing!')
# $locale->text('Assembly Number missing!')

# save part
2efc8cbc Sven Schöling
$lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
if (IC->save(\%myconfig, \%$form) == 3) {
d319704a Moritz Bunkus
$form->error($locale->text('Partnumber not unique!'));
}
2b89ec97 Thomas Kasulke
# saving the history
if(!exists $form->{addition}) {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2b89ec97 Thomas Kasulke
$form->{addition} = "SAVED";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
d319704a Moritz Bunkus
$parts_id = $form->{id};

2efc8cbc Sven Schöling
my $i;
d319704a Moritz Bunkus
# load previous variables
if ($form->{previousform}) {

# save the new form variables before splitting previousform
map { $newform{$_} = $form->{$_} } keys %$form;

$previousform = $form->unescape($form->{previousform});

# don't trample on previous variables
map { delete $form->{$_} } keys %newform;

# now take it apart and restore original values
2efc8cbc Sven Schöling
foreach my $item (split /&/, $previousform) {
my ($key, $value) = split /=/, $item, 2;
d319704a Moritz Bunkus
$value =~ s/%26/&/g;
$form->{$key} = $value;
}
$form->{taxaccounts} = $newform{taxaccount2};

if ($form->{item} eq 'assembly') {

# undo number formatting
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
qw(weight listprice sellprice rop);

$form->{assembly_rows}--;
$i = $newform{rowcount};
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});

$form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
$form->{weight} -= $form->{"weight_$i"} * $form->{"qty_$i"};

# change/add values for assembly item
map { $form->{"${_}_$i"} = $newform{$_} }
qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno);

$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
$form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"};

} else {

# set values for last invoice/order item
$i = $form->{rowcount};
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});

map { $form->{"${_}_$i"} = $newform{$_} }
qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice);
$form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
if ($form->{exchangerate} != 0) {
$form->{"sellprice_$i"} /= $form->{exchangerate};
}
2efc8cbc Sven Schöling
$lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
d319704a Moritz Bunkus
map { $form->{"taxaccounts_$i"} .= "$_ " } split / /,
$newform{taxaccount};
chop $form->{"taxaccounts_$i"};
2efc8cbc Sven Schöling
foreach my $item (qw(description rate taxnumber)) {
my $index = $form->{"taxaccounts_$i"} . "_$item";
d319704a Moritz Bunkus
$form->{$index} = $newform{$index};
}

# credit remaining calculation
$amount =
$form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) *
$form->{"qty_$i"};
map { $form->{"${_}_base"} += $amount }
(split / /, $form->{"taxaccounts_$i"});
map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) }
split / /, $form->{"taxaccounts_$i"}
if !$form->{taxincluded};

$form->{creditremaining} -= $amount;

081a4f97 Moritz Bunkus
# redo number formatting, because invoice parse them!
$i = $form->{rowcount};
map {
$form->{"${_}_$i"} =
$form->format_amount(\%myconfig, $form->{"${_}_$i"})
} qw(weight listprice sellprice rop);
d319704a Moritz Bunkus
}

$form->{"id_$i"} = $parts_id;
delete $form->{action};

# restore original callback
$callback = $form->unescape($form->{callback});
$form->{callback} = $form->unescape($form->{old_callback});
delete $form->{old_callback};

$form->{makemodel_rows}--;

# put callback together
2efc8cbc Sven Schöling
foreach my $key (keys %$form) {
d319704a Moritz Bunkus
# do single escape for Apache 2.0
2efc8cbc Sven Schöling
my $value = $form->escape($form->{$key}, 1);
d319704a Moritz Bunkus
$callback .= qq|&$key=$value|;
}
$form->{callback} = $callback;
}
2efc8cbc Sven Schöling
$lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
081a4f97 Moritz Bunkus
d319704a Moritz Bunkus
# redirect
$form->redirect;

$lxdebug->leave_sub();
}

sub save_as_new {
$lxdebug->enter_sub();

2b89ec97 Thomas Kasulke
# saving the history
if(!exists $form->{addition}) {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2b89ec97 Thomas Kasulke
$form->{addition} = "SAVED AS NEW";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
d319704a Moritz Bunkus
$form->{id} = 0;
1cd8764a Moritz Bunkus
if ($form->{"original_partnumber"} &&
($form->{"partnumber"} eq $form->{"original_partnumber"})) {
$form->{partnumber} = "";
}
d319704a Moritz Bunkus
&save;
$lxdebug->leave_sub();
}

sub delete {
$lxdebug->enter_sub();
2b89ec97 Thomas Kasulke
# saving the history
if(!exists $form->{addition}) {
8cef58b2 Thomas Kasulke
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2b89ec97 Thomas Kasulke
$form->{addition} = "DELETED";
$form->save_history($form->dbconnect(\%myconfig));
}
# /saving the history
2efc8cbc Sven Schöling
my $rc = IC->delete(\%myconfig, \%$form);
d319704a Moritz Bunkus
# redirect
$form->redirect($locale->text('Item deleted!')) if ($rc > 0);
$form->error($locale->text('Cannot delete item!'));

$lxdebug->leave_sub();
}

07d71c33 Stephan Köhler
sub price_row {
$lxdebug->enter_sub();

my ($numrows) = @_;

print qq|
<tr>
<td>
<table width=100%>
<tr>
<th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
<th class="listheading">| . $locale->text('Preis') . qq|</th>
</tr>
|;
2efc8cbc Sven Schöling
for my $i (1 .. $numrows) {
07d71c33 Stephan Köhler
print qq|
<tr>
a83fd902 Stephan Köhler
<td width=50%><input type=hidden name="pricegroup_$i" size=30 value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
07d71c33 Stephan Köhler
<td width=50%><input name="price_$i" size=11 value="$form->{"price_$i"}"></td>
<input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
</tr>
|;
}

print qq|
</table>
</td>
</tr>
|;

$lxdebug->leave_sub();
}

54e4131e Moritz Bunkus
sub parts_language_selection {
$lxdebug->enter_sub();

9a0aeac2 Sven Schöling
our ($onload);
54e4131e Moritz Bunkus
my $languages = IC->retrieve_languages(\%myconfig, $form);


my $callback = "$form->{script}?action=parts_language_selection&";
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
d629acd8 Sven Schöling
(qw(login password name input_name), grep({ /^[fl]_/ } keys %$form)));
54e4131e Moritz Bunkus
my @header_sort = qw(name longdescription);
my %header_title = ( "name" => $locale->text("Name"),
"longdescription" => $locale->text("Long Description"),
);

my @header =
map(+{ "column_title" => $header_title{$_},
"column" => $_,
"callback" => $callback,
},
@header_sort);

$form->{"title"} = $locale->text("Language Values");
$form->header();
print($form->parse_html_template("ic/parts_language_selection", { "HEADER" => \@header,
"LANGUAGES" => $languages,
"onload" => $onload }));

$lxdebug->leave_sub();
}

40782548 Moritz Bunkus
sub continue { call_sub($form->{"nextsub"}); }