projekt kivitendo

#=====================================================================

# 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

# MA 02110-1335, USA.

#

# Inventory Control module

#

#======================================================================

1;

# 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('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');

sub search {

$lxdebug->enter_sub();

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

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

($form->{CUSTOM_VARIABLES_FILTER_CODE},

$form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables' => $form->{CUSTOM_VARIABLES},

'include_prefix' => 'l_',

'include_value' => 'Y');

$lxdebug->leave_sub();

} #end search()

sub top100 {

$::form->{sort} = "soldtotal";

$::form->{lastsort} = "soldtotal";

$::form->{l_linetotal} = undef;

$::form->{l_number} = "Y";

$::form->{number} = "position";

|| $::form->{sold}

|| $::form->{rfq}

|| $::form->{quoted}) {

$::form->{bought} = $::form->{sold} = 1;

$lxdebug->leave_sub();

# 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:

#

# 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

$lxdebug->enter_sub();

'bin' => { 'text' => $locale->text('Bin'), },

'deliverydate' => { 'text' => $locale->text('deliverydate'), },

'description' => { 'text' => $locale->text('Part Description'), },

'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'), },

'partnumber' => { 'text' => $locale->text('Part Number'), },

'quonumber' => { 'text' => $locale->text('Quotation'), },

'rop' => { 'text' => $locale->text('ROP'), },

'sellprice' => { 'text' => $locale->text('Sell Price'), },

'serialnumber' => { 'text' => $locale->text('Serial Number'), },

'weight' => { 'text' => $locale->text('Weight'), },

'projectdescription' => { 'text' => $locale->text('Project Description'), },

$lastsort = $form->{lastsort};

# ToDO: change this to the simpler field+direction method

$form->{revers} = 0;

$form->{lastsort} = "partnumber";

$form->{sort} = "partnumber";

} else {

if ($form->{lastsort} eq $form->{sort}) {

} #fi

} #fi

&& !$form->{rfq} && !$form->{quoted}

# 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});

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) ],

);

my $pg_name;

if ($form->{partsgroup_id}) {

my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load;

$pg_name = $pg->{'partsgroup'};

}

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_id => $locale->text('Partsgroup') . ": '$pg_name'",

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}'",

insertdateto => $locale->text('Insert Date') . ": " . $locale->text('To (time)') . " " . $locale->date(\%myconfig, $form->{insertdateto}, 1),

map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};

push @options, $optiontexts{$key};

# price. so rename sellprice to price, and drop lastcost.

$description = $form->{description};

$description =~ s/\n/<br>/g;

}

# 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_linetotallastcost} = "";

}

}

# 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

if ($form->{l_subtotal} && 1 < $bsooqr_mode) {

$form->{$_} = '' for @bsooqr;

$form->{$enabled} = 'Y';

push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});

}

flash('warning', $::locale->text('Soldtotal does not make sense without any bsooqr options'));

}

delete $form->{l_name};

}

priceupdate weight image drawing microfiche invnumber ordnumber quonumber

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 @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;

map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;

@callback_keys,

map({ "cvar_$_->{name}" } @searchable_custom_variables),

map({'cvar_'. $_->{name} .'_qtyop'} grep({$_->{type} eq 'number'} @searchable_custom_variables)),

map({ "l_$_" } @columns),

);

$column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);

}

map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;

$form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));

'part' => $locale->text('part_list'),

'service' => $locale->text('service_list'),

'assembly' => $locale->text('assembly_list'),

{ PART_CLASSIFICATIONS => SL::DB::Manager::PartClassification->get_all_sorted }),

'title' => $form->{title},

$report->set_column_order(@columns);

'trans_id_field' => 'id',

'configs' => $cvar_configs,

'column_defs' => \%column_defs,

'data' => $form->{parts});

'sub_module' => sub { $_[0]->{ioi} },

'trans_id_field' => 'ioi_id',

'configs' => $cvar_configs,

'column_defs' => \%column_defs,

'data' => $form->{parts});

my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);

my %totals = map { $_ => 0 } @subtotal_columns;

my $idx = 0;

# fresh row, for inserting later

$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