X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/367a5674dc94bc2b5a8bfdcf4fcccc7668f219b3..b8741ec3:/bin/mozilla/ic.pl diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index eeb738001..2aae5cdd5 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -24,3079 +24,571 @@ # 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. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # # Inventory Control module # #====================================================================== -#$locale->text('ea'); use POSIX qw(strftime); +use List::Util qw(first max); +use List::MoreUtils qw(any); +use SL::AM; +use SL::CVar; use SL::IC; +use SL::Helper::Flash qw(flash); +use SL::HTML::Util; use SL::ReportGenerator; #use SL::PE; -# use strict; +use strict; #use warnings; # global imports -our ($form, $locale, %myconfig, $lxdebug); +our ($form, $locale, %myconfig, $lxdebug, $auth); require "bin/mozilla/io.pl"; -require "bin/mozilla/invoice_io.pl"; require "bin/mozilla/common.pl"; require "bin/mozilla/reportgenerator.pl"; 1; +# Parserhappy(R): +# 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') +# $locale->text('Parts') +# $locale->text('Services') +# $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!') +# $locale->text('ea'); + # end of main -sub add { +sub search { $lxdebug->enter_sub(); - $form->{title} = $locale->text('Add ' . ucfirst $form->{item}); + $auth->assert('part_service_assembly_details'); + + $form->{revers} = 0; # switch for backward sorting + $form->{lastsort} = ""; # memory for which table was sort at last time + $form->{ndxs_counter} = 0; # counter for added entries to top100 + + $form->{title} = (ucfirst $form->{searchitems}) . "s"; + $form->{title} =~ s/ys$/ies/; + $form->{title} = $locale->text($form->{title}); - $form->{callback} = - "$form->{script}?action=add&item=$form->{item}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; + $form->{CUSTOM_VARIABLES} = CVar->get_configs('module' => 'IC'); + ($form->{CUSTOM_VARIABLES_FILTER_CODE}, + $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables' => $form->{CUSTOM_VARIABLES}, + 'include_prefix' => 'l_', + 'include_value' => 'Y'); - $form->{"unit_changeable"} = 1; + $form->header; - IC->get_pricegroups(\%myconfig, \%$form); - &link_part; - &display_form; + $form->get_lists('partsgroup' => 'ALL_PARTSGROUPS'); + print $form->parse_html_template('ic/search'); $lxdebug->leave_sub(); -} +} #end search() -sub search { - $lxdebug->enter_sub(); +sub top100 { + $::lxdebug->enter_sub(); - my ($button1, $button2, $onhand, $makemodel, $serialnumber, $l_serialnumber, $toplevel, $bought); + $::auth->assert('part_service_assembly_edit'); - $form->{title} = (ucfirst $form->{searchitems}) . "s"; - $form->{title} = $locale->text($form->{title}); + $::form->{l_soldtotal} = "Y"; + $::form->{sort} = "soldtotal"; + $::form->{lastsort} = "soldtotal"; - # 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 - $form->{jsscript} = 1; - my $jsscript = ""; - if ($form->{jsscript}) { - - # with JavaScript Calendar - $button1 = qq| - - text('button') . qq|> - |; - $button2 = qq| - - text('button') . qq|> - |; - - #write Trigger - $jsscript = Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1", "transdateto", "BL", "trigger2"); - } else { + $::form->{l_qty} = undef; + $::form->{l_linetotal} = undef; + $::form->{l_number} = "Y"; + $::form->{number} = "position"; - # without JavaScript Calendar - $button1 = qq| |; - $button2 = qq| |; + unless ( $::form->{bought} + || $::form->{sold} + || $::form->{rfq} + || $::form->{quoted}) { + $::form->{bought} = $::form->{sold} = 1; } - unless ($form->{searchitems} eq 'service') { + generate_report(); - $onhand = qq|  | . $locale->text('On Hand') . qq| -  | . $locale->text('Short') . qq| -|; + $lxdebug->leave_sub(); +} - $makemodel = qq| - - | . $locale->text('Make') . qq| - | . $locale->text('Model') . qq| - -|; +# +# 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 classification 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 l_pricegroups +# +# hiddens: +# nextsub revers lastsort sort ndxs_counter +# +sub generate_report { + $lxdebug->enter_sub(); - $serialnumber = qq| - | . $locale->text('Serial Number') . qq| -|; + $auth->assert('part_service_assembly_details'); - $l_serialnumber = qq| -  | . $locale->text('Serial Number') . qq| -|; + my ($revers, $lastsort, $description); - } + my $cvar_configs = CVar->get_configs('module' => 'IC'); - if ($form->{searchitems} eq 'assembly') { - - $form->{title} = $locale->text('Assemblies'); - - $toplevel = qq| - - - -  | - . $locale->text('Top Level') . qq| -  | - . $locale->text('Individual Items') . qq| - - -|; - - $bought = qq| - - - - - - - - - $button1 - - $button2 - -
- - - - - - - - - - - - - - - - - - - -
| . $locale->text('Sold') . qq|
| . $locale->text('Ordered') . qq|
| . $locale->text('Quoted') . qq|
- 		 | . $locale->text('From') . qq|| . $locale->text('To (time)') . qq|
- - -|; + $form->{title} = $locale->text('Articles'); - } else { + my %column_defs = ( + 'bin' => { 'text' => $locale->text('Bin'), }, + 'deliverydate' => { 'text' => $locale->text('deliverydate'), }, + 'description' => { 'text' => $locale->text('Part Description'), }, + 'notes' => { 'text' => $locale->text('Notes'), }, + 'drawing' => { 'text' => $locale->text('Drawing'), }, + 'ean' => { 'text' => $locale->text('EAN'), }, + 'image' => { 'text' => $locale->text('Image'), }, + 'insertdate' => { 'text' => $locale->text('Insert Date'), }, + '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('Stocked Qty'), }, + 'ordnumber' => { 'text' => $locale->text('Order Number'), }, + 'partnumber' => { 'text' => $locale->text('Part Number'), }, + 'partsgroup' => { 'text' => $locale->text('Partsgroup'), }, + '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('Qty in Selected Records'), }, + 'name' => { 'text' => $locale->text('Name in Selected Records'), }, + 'transdate' => { 'text' => $locale->text('Transdate'), }, + 'unit' => { 'text' => $locale->text('Unit'), }, + 'weight' => { 'text' => $locale->text('Weight'), }, + 'shop' => { 'text' => $locale->text('Shop article'), }, + 'type_and_classific' => { 'text' => $locale->text('Type'), }, + 'projectnumber' => { 'text' => $locale->text('Project Number'), }, + 'projectdescription' => { 'text' => $locale->text('Project Description'), }, + ); - $bought = qq| - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - - -
| . $locale->text('Bought') . qq|| . $locale->text('Sold') . qq|
| . $locale->text('On Order') . qq|| . $locale->text('Ordered') . qq|
| . $locale->text('RFQ') . qq|| . $locale->text('Quoted') . qq|
- 		  - - - - $button1 - - $button2 - -
| . $locale->text('From') . qq|| . $locale->text('To (time)') . qq|
-
- - -|; - } + $revers = $form->{revers}; + $lastsort = $form->{lastsort}; - $form->header; + # sorting and direction of sorting + # ToDO: change this to the simpler field+direction method + if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) { + $form->{revers} = 0; + $form->{lastsort} = "partnumber"; + $form->{sort} = "partnumber"; + } else { + if ($form->{lastsort} eq $form->{sort}) { + $form->{revers} = 1 - $form->{revers}; + } else { + $form->{revers} = 0; + $form->{lastsort} = $form->{sort}; + } #fi + } #fi - print qq| - - -
{script}> - -{searchitems}> - - - - - - - - - - - - -
$form->{title}
- - - - - - - - - - - - - - - $serialnumber - - $makemodel - - - - - - - $toplevel - - - - - $bought - - - - - - - - -
| . $locale->text('Part Number') . qq|| . $locale->text('EAN') . qq|
| - . $locale->text('Part Description') . qq|
| . $locale->text('Group') . qq|
| . $locale->text('Drawing') . qq|| . $locale->text('Microfiche') . qq|
-  | - . $locale->text('Active') . qq| - $onhand -  | - . $locale->text('Obsolete') . qq| -  | - . $locale->text('Orphaned') . qq| -
-
-
| - . $locale->text('Include in Report') . qq| - - - - - $l_serialnumber - - - - - - - - - - - - - - - - - - - - - - - - - -
 | - . $locale->text('Part Number') . qq| | - . $locale->text('Part Description') . qq| | - . $locale->text('Unit of measure') . qq|
 | - . $locale->text('List Price') . qq| | - . $locale->text('Sell Price') . qq| | - . $locale->text('Last Cost') . qq| | - . $locale->text('Line Total') . qq|
 | - . $locale->text('Updated') . qq| | - . $locale->text('Bin') . qq| | - . $locale->text('ROP') . qq| | - . $locale->text('Weight') . qq|
 | - . $locale->text('Image') . qq| | - . $locale->text('Drawing') . qq| | - . $locale->text('Microfiche') . qq| | - . $locale->text('Group') . qq|
 | - . $locale->text('Subtotal') . qq| | - . $locale->text('soldtotal') . qq| | - . $locale->text('deliverydate') . qq|
-
-
- -$jsscript - - - -{login}> -{password}> - - - - - - - -
- - -
- - - -|; - $lxdebug->leave_sub(); -} #end search() + # 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})); -sub search_update_prices { - $lxdebug->enter_sub(); + # 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}); - my ($onhand, $makemodel, $serialnumber, $l_serialnumber, $toplevel, $bought); - - $form->{title} = $locale->text('Update prices'); - IC->get_pricegroups(\%myconfig, \%$form); - - # use JavaScript Calendar or not -# $form->{jsscript} = 1; -# $jsscript = ""; -# if ($form->{jsscript}) { -# -# # with JavaScript Calendar -# $button1 = qq| -# -# text('button') . qq|> -# |; -# $button2 = qq| -# -# text('button') . qq|> -# |; -# -# #write Trigger -# $jsscript = -# Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1", -# "transdateto", "BL", "trigger2"); -# } else { -# -# # without JavaScript Calendar -# $button1 = qq| -# |; -# $button2 = qq| -# |; -# } - - $onhand = qq| -  | - . $locale->text('On Hand') . qq| -  | - . $locale->text('Short') . qq| -|; - - $makemodel = qq| - - | . $locale->text('Make') . qq| - - | . $locale->text('Model') . qq| - - -|; - - $serialnumber = qq| - | . $locale->text('Serial Number') . qq| - -|; - - $l_serialnumber = qq| -  | - . $locale->text('Serial Number') . qq| -|; + # if something should be activated 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) ], + ); + # get name of partsgroup if id is given + my $pg_name; + if ($form->{partsgroup_id}) { + my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load; + $pg_name = $pg->{'partsgroup'}; + } + # 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('Partsgroup') . ": '$form->{partsgroup}'", + partsgroup_id => $locale->text('Partsgroup') . ": '$pg_name'", + 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('Qty in Selected Records'), + ean => $locale->text('EAN') . ": '$form->{ean}'", + insertdatefrom => $locale->text('Insert Date') . ": " . $locale->text('From') . " " . $locale->date(\%myconfig, $form->{insertdatefrom}, 1), + insertdateto => $locale->text('Insert Date') . ": " . $locale->text('To (time)') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1), + ); - $form->header; + my @itemstatus_keys = qw(active obsolete orphaned onhand short); + my @callback_keys = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model + drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto insertdatefrom insertdateto ean shop all); - print qq| - - -
{script}> - - - - - - - - |; - $column_header{partnumber} = - qq||; - $column_header{description} = - qq||; - $column_header{partsgroup} = - qq||; - $column_header{bin} = - qq||; - $column_header{priceupdate} = - qq||; - $column_header{onhand} = - qq||; - $column_header{unit} = - qq||; - $column_header{listprice} = - qq||; - $column_header{lastcost} = - qq||; - $column_header{rop} = - qq||; - $column_header{weight} = - qq||; - - $column_header{invnumber} = - qq||; - $column_header{ordnumber} = - qq||; - $column_header{quonumber} = - qq||; - - $column_header{name} = - qq||; - - $column_header{sellprice} = - qq||; - $column_header{linetotalsellprice} = - qq||; - $column_header{linetotallastcost} = - qq||; - $column_header{linetotallistprice} = - qq||; - - $column_header{image} = - qq||; - $column_header{drawing} = - qq||; - $column_header{microfiche} = - qq||; - - $column_header{serialnumber} = - qq||; - $column_header{soldtotal} = - qq||; - - $form->header; - my $colspan = $#column_index + 1; - - print qq| - - -
$form->{title}
- - - - - - - - - - - - - $serialnumber - - $makemodel - - - - - - - $toplevel - - - - - $bought - - - - |; - print qq| - - - - - -
| . $locale->text('Part Number') . qq|
| - . $locale->text('Part Description') . qq|
| . $locale->text('Group') . qq|
| . $locale->text('Drawing') . qq|| . $locale->text('Microfiche') . qq|
-  | - . $locale->text('Active') . qq| - $onhand -  | - . $locale->text('Obsolete') . qq| -  | - . $locale->text('Orphaned') . qq| -
-
-
- - - - - - - - - - - - - - - - -|; - for my $i (1 .. $form->{price_rows}) { - print qq| - - - - - - -|; + # calculate dependencies + for (@itemstatus_keys, @callback_keys) { + next if ($form->{itemstatus} ne $_ && !$form->{$_}); + map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_}; } - print qq| -
| . $locale->text('Preisklasse') . qq|| . $locale->text('Preis') . qq|| . $locale->text('Prozentual/Absolut') . qq|
| . $locale->text('Sell Price') . qq|/
| . $locale->text('List Price') . qq|/
$form->{"pricegroup_$i"}/
-
- -{price_rows}> + # generate callback and optionstrings + my @options; + for my $key (@itemstatus_keys, @callback_keys) { + next if ($form->{itemstatus} ne $key && !$form->{$key}); + push @options, $optiontexts{$key}; + } -{login}> -{password}> + # special case for lastcost + if ($form->{ledgerchecks}){ + # ledgerchecks don't know about sellprice or lastcost. they just return a + # price. so rename sellprice to price, and drop lastcost. + $column_defs{sellprice}{text} = $locale->text('Price'); + $form->{l_lastcost} = "" + } -
- - + if ($form->{description}) { + $description = $form->{description}; + $description =~ s/\n/
/g; + } - - -|; - $lxdebug->leave_sub(); -} #end search() + if ($form->{l_linetotal}) { + $form->{l_qty} = "Y"; + $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice}; + $form->{l_linetotallastcost} = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if $form->{l_lastcost}; + $form->{l_linetotallistprice} = "Y" if $form->{l_listprice}; + } + $form->{"l_type_and_classific"} = "Y"; -sub confirm_price_update { - $lxdebug->enter_sub(); + if ($form->{l_service} && !$form->{l_assembly} && !$form->{l_part}) { + # remove bin, weight and rop from list + map { $form->{"l_$_"} = "" } qw(bin weight rop); - $form->{nextsub} = "update_prices"; - $form->header; + $form->{l_onhand} = ""; - print qq| - + # qty is irrelevant unless bought or sold + if ( $form->{bought} + || $form->{sold} + || $form->{onorder} + || $form->{ordered} + || $form->{rfq} + || $form->{quoted}) { +# $form->{l_onhand} = "Y"; + } else { + $form->{l_linetotalsellprice} = ""; + $form->{l_linetotallastcost} = ""; + } + } -
{script}> -|; + # soldtotal doesn't make sense with more than one bsooqr option. + # so reset it to sold (the most common option), and issue a warning + # ... + # also it doesn't make sense without bsooqr. disable and issue a warning too + my @bsooqr = qw(sold bought onorder ordered rfq quoted); + my $bsooqr_mode = grep { $form->{$_} } @bsooqr; + if ($form->{l_subtotal} && 1 < $bsooqr_mode) { + my $enabled = first { $form->{$_} } @bsooqr; + $form->{$_} = '' for @bsooqr; + $form->{$enabled} = 'Y'; - # delete action variable - map { delete $form->{$_} } qw(action header); + push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled}); + } + if ($form->{l_soldtotal} && !$bsooqr_mode) { + delete $form->{l_soldtotal}; - foreach my $key (keys %$form) { - $form->{$key} =~ s/\"/"/g; - print qq|\n|; + flash('warning', $::locale->text('Soldtotal does not make sense without any bsooqr options')); } + if ($form->{l_name} && !$bsooqr_mode) { + delete $form->{l_name}; - print qq| -

| . $locale->text('Confirm!') . qq|

+ flash('warning', $::locale->text('Name does not make sense without any bsooqr options')); + } + IC->all_parts(\%myconfig, \%$form); -

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

+ my @columns = qw( + partnumber type_and_classific description notes partsgroup bin onhand rop soldtotal unit listprice + linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost + priceupdate weight image drawing microfiche invnumber ordnumber quonumber + transdate name serialnumber deliverydate ean projectnumber projectdescription + insertdate shop + ); -

- -

-|; + my $pricegroups = SL::DB::Manager::Pricegroup->get_all_sorted; + my @pricegroup_columns; + my %column_defs_pricegroups; + if ($form->{l_pricegroups}) { + @pricegroup_columns = map { "pricegroup_" . $_->id } @{ $pricegroups }; + %column_defs_pricegroups = map { + "pricegroup_" . $_->id => { + text => $::locale->text('Pricegroup') . ' ' . $_->pricegroup, + visible => 1, + }, + } @{ $pricegroups }; + } + push @columns, @pricegroup_columns; + + my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs }; + my @searchable_custom_variables = grep { $_->{searchable} } @{ $cvar_configs }; + my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables; + + push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables; + + %column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups); + map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns; + map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal shop), @pricegroup_columns; + + my @hidden_variables = ( + qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups insertdatefrom insertdateto), + qw(l_type_and_classific classification_id), + @itemstatus_keys, + @callback_keys, + map({ "cvar_$_->{name}" } @searchable_custom_variables), + map({'cvar_'. $_->{name} .'_qtyop'} grep({$_->{type} eq 'number'} @searchable_custom_variables)), + map({ "l_$_" } @columns), + ); - $lxdebug->leave_sub(); -} + my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables); -sub update_prices { - $lxdebug->enter_sub(); + my @sort_full = qw(partnumber description onhand soldtotal deliverydate insertdate shop); + my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber); - if (IC->update_prices(\%myconfig, \%$form)) { - $form->redirect($form->{update_count} . $locale->text('prices updated!')); - } else { - $form->error($locale->text('Could not update prices!')); + 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; - $lxdebug->leave_sub(); -} + # add order to callback + $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers)); -sub choice { - $lxdebug->enter_sub(); + my $report = SL::ReportGenerator->new(\%myconfig, $form); - our ($j, $lastndx); - my ($totop100); + my %attachment_basenames = ( + 'part' => $locale->text('part_list'), + 'service' => $locale->text('service_list'), + 'assembly' => $locale->text('assembly_list'), + 'article' => $locale->text('article_list'), + ); - $form->{title} = $locale->text('Top 100 hinzufuegen'); + $report->set_options('raw_top_info_text' => $form->parse_html_template('ic/generate_report_top', { options => \@options }), + 'raw_bottom_info_text' => $form->parse_html_template('ic/generate_report_bottom' , + { PART_CLASSIFICATIONS => SL::DB::Manager::PartClassification->get_all_sorted }), + 'output_format' => 'HTML', + 'title' => $form->{title}, + 'attachment_basename' => 'article_list' . strftime('_%Y%m%d', localtime time), + ); + $report->set_options_from_form(); + $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv'; - $form->header; + $report->set_columns(%column_defs); + $report->set_column_order(@columns); - print qq| - - -
{script}> - - {searchitems}> - - - - |; - - print qq| - - - - - - - - - -
| . $locale->text('Part Number') . qq|| . $locale->text('Part Description') . qq|
-
|; - - print qq| - -{login}> -{password}> - - - - - - - - - - - - - - - - - - - - - - - - - -{ndxs_counter}> - -{extras}>|; - - my ($partnumber, $description, $unit, $sellprice, $soldtotal); - # if choice set data - if ($form->{ndx}) { - for (my $i = 0; $i < $form->{ndxs_counter}; $i++) { - - # 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 + $report->set_export_options('generate_report', @hidden_variables, qw(sort revers)); - $totop100 = ""; - - # set data for next page - if (($form->{ndxs_counter}) > 0) { - for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) { - $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| -{"totop100_partnumber_$i"}> -{"totop100_description_$i"}> -{"totop100_unit_$i"}> -{"totop100_sellprice_$i"}> -{"totop100_soldtotal_$i"}> - |; - } #rof - } #fi + $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1); - print $totop100; + CVar->add_custom_variables_to_report('module' => 'IC', + 'trans_id_field' => 'id', + 'configs' => $cvar_configs, + 'column_defs' => \%column_defs, + 'data' => $form->{parts}); - print qq| - -
+ CVar->add_custom_variables_to_report('module' => 'IC', + 'sub_module' => sub { $_[0]->{ioi} }, + 'trans_id_field' => 'ioi_id', + 'configs' => $cvar_configs, + 'column_defs' => \%column_defs, + 'data' => $form->{parts}); - - |; - $lxdebug->leave_sub(); -} #end choice + my @subtotal_columns = qw(sellprice listprice lastcost); + my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns); + my %totals = map { $_ => 0 } @subtotal_columns; + my $idx = 0; + my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef; -sub list { - $lxdebug->enter_sub(); + my $defaults = AM->get_defaults(); - our ($lastndx); - our ($partnumber, $description, $unit, $sellprice, $soldtotal); + # postprocess parts + foreach my $ref (@{ $form->{parts} }) { - my @sortorders = ("", "partnumber", "description", "all"); - my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)]; - IC->get_parts(\%myconfig, \%$form, $sortorder); + # fresh row, for inserting later + my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns }; - $form->{title} = $locale->text('Top 100 hinzufuegen'); + $ref->{exchangerate} ||= 1; + $ref->{price_factor} ||= 1; + $ref->{sellprice} *= $ref->{exchangerate} / $ref->{price_factor}; + $ref->{listprice} *= $ref->{exchangerate} / $ref->{price_factor}; + $ref->{lastcost} *= $ref->{exchangerate} / $ref->{price_factor}; - $form->header; + # use this for assemblies + my $soldtotal = $bsooqr_mode ? $ref->{soldtotal} : $ref->{onhand}; - print qq| - -
- - - - - - - - - - - - - |; - - my $j = 0; - my $i = $form->{rows}; - - for ($j = 1; $j <= $i; $j++) { - - print qq| - |; - if ($j == 1) { - print qq| - |; - } else { - print qq| - |; + if ($ref->{assemblyitem}) { + $row->{partnumber}{align} = 'right'; + $row->{soldtotal}{data} = 0; + $soldtotal = 0 if ($form->{sold}); } - print qq| - - - - - - - - |; - } - print qq| + my $edit_link = build_std_url('script=controller.pl', 'action=Part/edit', 'part.id=' . E($ref->{id}), 'callback'); + $row->{partnumber}->{link} = $edit_link; + $row->{description}->{link} = $edit_link; -
| . $locale->text('choice part') . qq|
 | . $locale->text('Part Number') . qq|| . $locale->text('Part Description') . qq|| . $locale->text('Unit of measure') . qq|| . $locale->text('Sell Price') . qq|| . $locale->text('soldtotal') . qq|
$form->{"partnumber_$j"}$form->{"description_$j"}$form->{"unit_$j"}$form->{"sellprice_$j"}$form->{"soldtotal_$j"}
+ foreach (qw(sellprice listprice lastcost)) { + $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}, 2); + $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2); + } + foreach ( @pricegroup_columns ) { + $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{"$_"}, 2); + }; -
+ map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal); -{login}> -{password}> + $row->{weight}->{data} .= ' ' . $defaults->{weightunit}; - - - - - - - - - - - + # 'yes' and 'no' for boolean value shop + if ($form->{l_shop}) { + $row->{shop}{data} = $row->{shop}{data}? $::locale->text('yes') : $::locale->text('no'); + } - - - + if (!$ref->{assemblyitem}) { + foreach my $col (@subtotal_columns) { + $totals{$col} += $soldtotal * $ref->{$col}; + $subtotals{$col} += $soldtotal * $ref->{$col}; + } - + $subtotals{soldtotal} += $soldtotal; + } - + # set module stuff + if ($ref->{module} eq 'oe') { + # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich: + # + # | ist bestellt | Von Kunden bestellt | -> edit_oe_ord_link + # | Anfrage | Angebot | -> edit_oe_quo_link - + my $edit_oe_ord_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'purchase_order' : 'sales_order'), 'id=' . E($ref->{trans_id}), 'callback'); + my $edit_oe_quo_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'request_quotation' : 'sales_quotation'), 'id=' . E($ref->{trans_id}), 'callback'); -{ndxs_counter}>|; + $row->{ordnumber}{link} = $edit_oe_ord_link; + $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber}); - my $totop100 = ""; + } else { + $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback') if ($ref->{invnumber}); + } - if (($form->{ndxs_counter}) > 0) { - for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) { + # set properties of images + if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) { + $row->{image}{data} = ''; + $row->{image}{raw_data} = ''; + } + map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche); - $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"}; + $row->{notes}{data} = SL::HTML::Util->strip($ref->{notes}); + $row->{type_and_classific}{data} = $::request->presenter->type_abbreviation($ref->{part_type}). + $::request->presenter->classification_abbreviation($ref->{classification_id}); - $totop100 .= qq| -{"totop100_partnumber_$i"}> -{"totop100_description_$i"}> -{"totop100_unit_$i"}> -{"totop100_sellprice_$i"}> -{"totop100_soldtotal_$i"}> - |; - } #rof - } #fi + $report->add_data($row); - print $totop100; + my $next_ref = $form->{parts}[$idx + 1]; - print qq| - - -
- - -|; - $lxdebug->leave_sub(); -} #end list() - -sub top100 { - $lxdebug->enter_sub(); - - if ($form->{ndx}) { - $form->{ndxs_counter}++; - - if ($form->{ndxs_counter} > 0) { - - 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"}; - } #fi - } #fi - &addtop100(); - $lxdebug->leave_sub(); -} #end top100 - -sub addtop100 { - $lxdebug->enter_sub(); - - 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); - - $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"; - - $totop100 = ""; - - $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 = - "$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=" - . $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 .= ""ed=$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
" - . $locale->text('From') - . " " - . $locale->date(\%myconfig, $form->{transdatefrom}, 1); - } - if ($form->{transdateto}) { - $callback .= "&transdateto=$form->{transdateto}"; - $option .= "\n
" - . $locale->text('To') - . " " - . $locale->date(\%myconfig, $form->{transdateto}, 1); - } - } - - $option .= "
"; - - if ($form->{partnumber}) { - $callback .= "&partnumber=$form->{partnumber}"; - $option .= $locale->text('Part Number') . qq| : $form->{partnumber}
|; - } - if ($form->{ean}) { - $callback .= "&partnumber=$form->{ean}"; - $option .= $locale->text('EAN') . qq| : $form->{ean}
|; - } - if ($form->{partsgroup}) { - $callback .= "&partsgroup=$form->{partsgroup}"; - $option .= $locale->text('Group') . qq| : $form->{partsgroup}
|; - } - if ($form->{serialnumber}) { - $callback .= "&serialnumber=$form->{serialnumber}"; - $option .= - $locale->text('Serial Number') . qq| : $form->{serialnumber}
|; - } - if ($form->{description}) { - $callback .= "&description=$form->{description}"; - $description = $form->{description}; - $description =~ s/ -/
/g; - $option .= - $locale->text('Part Description') . qq| : $form->{description}
|; - } - if ($form->{make}) { - $callback .= "&make=$form->{make}"; - $option .= $locale->text('Make') . qq| : $form->{make}
|; - } - if ($form->{model}) { - $callback .= "&model=$form->{model}"; - $option .= $locale->text('Model') . qq| : $form->{model}
|; - } - if ($form->{drawing}) { - $callback .= "&drawing=$form->{drawing}"; - $option .= $locale->text('Drawing') . qq| : $form->{drawing}
|; - } - if ($form->{microfiche}) { - $callback .= "µfiche=$form->{microfiche}"; - $option .= $locale->text('Microfiche') . qq| : $form->{microfiche}
|; - } - if ($form->{l_soldtotal}) { - $callback .= "&soldtotal=$form->{soldtotal}"; - $option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}
|; - } - - my @columns = $form->sort_columns( - 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) - ); - - 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"; - } else { - $form->{l_linetotalsellprice} = ""; - $form->{l_linetotallastcost} = ""; - } - } - - $form->{l_lastcost} = "" - if ($form->{searchitems} eq 'assembly' && !$form->{bom}); - - foreach my $item (@columns) { - 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|		| . $locale->text('number') . qq|{revers}&lastsort=$form->{lastsort}>| - . $locale->text('Part Number') - . qq|{revers}&lastsort=$form->{lastsort}>| - . $locale->text('Part Description') - . qq|| - . $locale->text('Group') - . qq|| - . $locale->text('Bin') - . qq|| - . $locale->text('Updated') - . qq|{revers}&lastsort=$form->{lastsort}>| - . $locale->text('Qty') - . qq|| . $locale->text('Unit') . qq|| - . $locale->text('List Price') - . qq|| . $locale->text('Last Cost') . qq|| . $locale->text('ROP') . qq|| . $locale->text('Weight') . qq|| - . $locale->text('Invoice Number') - . qq|| - . $locale->text('Order Number') - . qq|| - . $locale->text('Quotation') - . qq|| - . $locale->text('Name') - . qq|| - . $locale->text('Sell Price') - . qq|| . $locale->text('Extended') . qq|| . $locale->text('Extended') . qq|| . $locale->text('Extended') . qq|| . $locale->text('Image') . qq|| - . $locale->text('Drawing') - . qq|| - . $locale->text('Microfiche') - . qq|| - . $locale->text('Serial Number') - . qq|{revers}&lastsort=$form->{lastsort}>| - . $locale->text('soldtotal') - . qq|
- - - - - - - - -|; - - map { print "\n$column_header{$_}" } @column_index; - - print qq| - - |; - - # 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; - foreach my $ref (@{ $form->{parts} }) { - $j++; - $ref->{number} = $j; - } - - # if avaible -> insert choice here - if (($form->{ndxs_counter}) > 0) { - for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) { - $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| -{"totop100_partnumber_$i"}> -{"totop100_description_$i"}> -{"totop100_unit_$i"}> -{"totop100_sellprice_$i"}> -{"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 - foreach my $ref (@{ $form->{parts} }) { - my $i = 0; - - 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/ -/
/g; - - $column_data{number} = - ""; - $column_data{partnumber} = - ""; - $column_data{description} = ""; - $column_data{partsgroup} = ""; - - $column_data{onhand} = - ""; - $column_data{sellprice} = - ""; - $column_data{listprice} = - ""; - $column_data{lastcost} = - ""; - - $column_data{linetotalsellprice} = ""; - $column_data{linetotallastcost} = ""; - $column_data{linetotallistprice} = ""; - - 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} = - ""; - $column_data{weight} = - ""; - $column_data{unit} = ""; - $column_data{bin} = ""; - $column_data{priceupdate} = ""; - - $column_data{invnumber} = - ($ref->{module} ne 'oe') - ? "" - : ""; - $column_data{ordnumber} = - ($ref->{module} eq 'oe') - ? "" - : ""; - $column_data{quonumber} = - ($ref->{module} eq 'oe' && !$ref->{ordnumber}) - ? "" - : ""; - - $column_data{name} = ""; - - $column_data{image} = - ($ref->{image}) - ? "" - : ""; - $column_data{drawing} = - ($ref->{drawing}) - ? "" - : ""; - $column_data{microfiche} = - ($ref->{microfiche}) - ? "" - : ""; - - $column_data{serialnumber} = ""; - - $column_data{soldtotal} = ""; - - $i++; - $i %= 2; - print ""; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; - } - - if ($form->{l_subtotal} eq 'Y') { - &parts_subtotal; - } #fi - - if ($form->{"l_linetotal"}) { - map { $column_data{$_} = "" } @column_index; - $column_data{linetotalsellprice} = - ""; - $column_data{linetotallastcost} = - ""; - $column_data{linetotallistprice} = - ""; - - print ""; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - |; - } - - print qq| - -
$form->{title}
$option
" - . $form->format_amount(\%myconfig, $ref->{number}) - . "$ref->{partnumber} $ref->{description} $ref->{partsgroup} " - . $form->format_amount(\%myconfig, $ref->{onhand}) - . "" - . $form->format_amount(\%myconfig, $ref->{sellprice}) - . "" - . $form->format_amount(\%myconfig, $ref->{listprice}) - . "" - . $form->format_amount(\%myconfig, $ref->{lastcost}) - . "" - . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2) - . "" - . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2) - . "" - . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2) - . "" - . $form->format_amount(\%myconfig, $ref->{rop}) . "" - . $form->format_amount(\%myconfig, $ref->{weight}) - . "$ref->{unit} $ref->{bin} $ref->{priceupdate} {module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}$ref->{invnumber}{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}$ref->{ordnumber}{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}$ref->{quonumber}$ref->{name}{image}>{image} height=32 border=0> {drawing}>$ref->{drawing} {microfiche}>$ref->{microfiche} $ref->{serialnumber}$ref->{soldtotal}
 " - . $form->format_amount(\%myconfig, $totalsellprice, 2) - . "" - . $form->format_amount(\%myconfig, $totallastcost, 2) - . "" - . $form->format_amount(\%myconfig, $totallistprice, 2) - . "
- -|; - - print qq| - -
- -
{script}> - -{login}> -{password}> - - - - - - - - - - - - - - - - -|; - - print $totop100; - - print qq| - - - - -
- - - -|; - - $lxdebug->leave_sub(); -} # end addtop100 - -# -# 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 -# -sub generate_report { - $lxdebug->enter_sub(); - - my ($revers, $lastsort, $description); - - $form->{title} = (ucfirst $form->{searchitems}) . "s"; - $form->{title} = $locale->text($form->{title}); - - my $revers = $form->{revers}; - my $lastsort = $form->{lastsort}; - - # sorting and direction of sorting - # ToDO: change this to the simpler field+direction method - if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) { - $form->{revers} = 0; - $form->{lastsort} = "partnumber"; - $form->{sort} = "partnumber"; - } else { - if ($form->{lastsort} eq $form->{sort}) { - $form->{revers} = 1 - $form->{revers}; - } else { - $form->{revers} = 0; - $form->{lastsort} = $form->{sort}; - } #fi - } #fi - - # 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 activated 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) ], - ); - - # 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'), - ); - - my @itemstatus_keys = qw(active obsolete orphaned onhand short); - 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); - - # calculate dependencies - for (@itemstatus_keys, @callback_keys) { - next if ($form->{itemstatus} ne $_ && !$form->{$_}); - map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_}; - } - - # generate callback and optionstrings - my @options; - for my $key (@itemstatus_keys, @callback_keys) { - next if ($form->{itemstatus} ne $key && !$form->{$key}); - push @options, $optiontexts{$key}; - } - - IC->all_parts(\%myconfig, \%$form); - - # special case for lastcost - $form->{l_lastcost} = "" if $form->{ledgerchecks}; - - if ($form->{description}) { - $description = $form->{description}; - $description =~ s/\n/
/g; - } - - 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"; - } else { - $form->{l_linetotalsellprice} = ""; - $form->{l_linetotallastcost} = ""; - } - } - - $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'), }, - ); - - map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns; - map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal); - - 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); - - my @sort_full = qw(partnumber description onhand soldtotal deliverydate); - my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber); - - 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; - - # add order to callback - $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers)); - - my $report = SL::ReportGenerator->new(\%myconfig, $form); - - my %attachment_basenames = ( - 'part' => $locale->text('part_list'), - 'service' => $locale->text('service_list'), - 'assembly' => $locale->text('assembly_list'), - ); - - $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(); - - $report->set_columns(%column_defs); - $report->set_column_order(@columns); - - $report->set_export_options('generate_report', @hidden_variables, qw(sort revers)); - - $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1); - - my @subtotal_columns = qw(sellprice listprice lastcost); - my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns); - my %totals = map { $_ => 0 } @subtotal_columns; - my $idx = 0; - my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} }); - - # postprocess parts - foreach my $ref (@{ $form->{parts} }) { - - # fresh row, for inserting later - my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns }; - - $ref->{exchangerate} ||= 1; - $ref->{price_factor} ||= 1; - $ref->{sellprice} *= $ref->{exchangerate} / $ref->{price_factor}; - $ref->{listprice} *= $ref->{exchangerate} / $ref->{price_factor}; - $ref->{lastcost} *= $ref->{exchangerate} / $ref->{price_factor}; - - # use this for assemblies - my $onhand = $ref->{onhand}; - - if ($ref->{assemblyitem}) { - $row->{partnumber}{align} = 'right'; - $row->{onhand}{data} = 0; - $onhand = 0 if ($form->{sold}); - } - - my $edit_link = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback'); - $row->{partnumber}->{link} = $edit_link; - $row->{description}->{link} = $edit_link; - - foreach (qw(sellprice listprice lastcost)) { - $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}, -2); - $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2); - } - - map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal); - - if (!$ref->{assemblyitem}) { - foreach my $col (@subtotal_columns) { - $totals{$col} += $onhand * $ref->{$col}; - $subtotals{$col} += $onhand * $ref->{$col}; - } - - $subtotals{onhand} += $onhand; - } - - # set module stuff - 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}); - - } else { - $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback'); - } - - # set properties of images - if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) { - $row->{image}{data} = ''; - $row->{image}{raw_data} = ''; - } - map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche); - - $report->add_data($row); - - my $next_ref = $form->{parts}[$idx + 1]; - - # insert subtotal rows - if (($form->{l_subtotal} eq 'Y') && - (!$next_ref || - (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) { - my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns }; - - if (($form->{searchitems} ne 'assembly') || !$form->{bom}) { - $row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand}); - } - - map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns; - map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns); - - $report->add_data($row); - - $same_item = $next_ref->{ $form->{sort} }; - } - - $idx++; - } - - if ($form->{"l_linetotal"}) { - my $row = { map { $_ => { 'class' => 'listtotal', } } @columns }; - - map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns; - - $report->add_separator(); - $report->add_data($row); - } - - $report->generate_with_headers(); - - $lxdebug->leave_sub(); -} #end generate_report - -sub parts_subtotal { - $lxdebug->enter_sub(); - - # imports - our (%column_data, @column_index); - our ($subtotalonhand, $totalsellprice, $totallastcost, $totallistprice, $subtotalsellprice, $subtotallastcost, $subtotallistprice); - - map { $column_data{$_} = " " } @column_index; - $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom}); - - $column_data{onhand} = - "" - . $form->format_amount(\%myconfig, $subtotalonhand) - . ""; - - $column_data{linetotalsellprice} = - "" - . $form->format_amount(\%myconfig, $subtotalsellprice, 2) - . ""; - $column_data{linetotallistprice} = - "" - . $form->format_amount(\%myconfig, $subtotallistprice, 2) - . ""; - $column_data{linetotallastcost} = - "" - . $form->format_amount(\%myconfig, $subtotallastcost, 2) - . ""; - - $subtotalonhand = 0; - $subtotalsellprice = 0; - $subtotallistprice = 0; - $subtotallastcost = 0; - - print ""; - - map { print "\n$column_data{$_}" } @column_index; - - print qq| - -|; - - $lxdebug->leave_sub(); -} - -sub edit { - $lxdebug->enter_sub(); - # show history button - $form->{javascript} = qq||; - #/show hhistory button - IC->get_part(\%myconfig, \%$form); - - $form->{"original_partnumber"} = $form->{"partnumber"}; - - $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 - map({ $form->{selectcurrency} .= "|; - foreach my $item (@{ $form->{payment_terms} }) { - if ($form->{payment_id} eq $item->{id}) { - $payment .= qq||; - } else { - $payment .= qq||; - } - } - - - if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) { - $rows = 4; - } - - $notes = - qq||; - if (($rows = $form->numtextrows($form->{description}, 40)) > 1) { - $description = - qq||; - } else { - $description = - qq||; - } - - $ean = qq||; - - foreach my $item (split / /, $form->{taxaccounts}) { - $form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : ""; - } - - IC->retrieve_buchungsgruppen(\%myconfig, $form); - if (@{ $form->{BUCHUNGSGRUPPEN} }) { - foreach my $item (@{ $form->{BUCHUNGSGRUPPEN} }) { - if ($item->{id} == $form->{buchungsgruppen_id}) { - $form->{selectbuchungsgruppe} .= - "