X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fic.pl;h=b5588be3b3952abde07dd264dac584f9780a112e;hb=c3db1b36f46f3bb8fe278ad3320bc7b139278dc3;hp=aa83e54928588f85557b30f0bebe8afeeba29b2c;hpb=0a3b8a76933a4be17675ed3de2186e5e4c8ede10;p=kivitendo-erp.git diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index aa83e5492..b0d3887ba 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -24,29 +24,35 @@ # 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::Presenter::Part; 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"; @@ -59,898 +65,70 @@ require "bin/mozilla/reportgenerator.pl"; # 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 { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - - $form->{title} = $locale->text('Add ' . ucfirst $form->{item}); - - $form->{callback} = - "$form->{script}?action=add&item=$form->{item}" - unless $form->{callback}; - - $form->{"unit_changeable"} = 1; - - IC->get_pricegroups(\%myconfig, \%$form); - &link_part; - &display_form; - - $lxdebug->leave_sub(); -} - sub search { $lxdebug->enter_sub(); - $auth->assert('part_service_assembly_edit'); - - # switch for backward sorting - $form->{revers} = 0; - - # memory for which table was sort at last time - $form->{lastsort} = ""; + $auth->assert('part_service_assembly_details'); - # counter for added entries to top100 - $form->{ndxs_counter} = 0; - - # $locale->text('Parts') - # $locale->text('Services') - - my $is_service = $form->{searchitems} eq 'service'; - my $is_assembly = $form->{searchitems} eq 'assembly'; + $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->{title} = $locale->text('Assemblies') if $is_assembly; - - $form->{jsscript} = 1; - - $form->header; - - print $form->parse_html_template('ic/search', { is_assembly => $is_assembly, - is_service => $is_service, - dateformat => $myconfig{dateformat}, }); - - $lxdebug->leave_sub(); -} #end search() - -sub search_update_prices { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form); + $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'); + setup_ic_search_action_bar(); $form->header; - print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups }); + $form->get_lists('partsgroup' => 'ALL_PARTSGROUPS'); + print $form->parse_html_template('ic/search'); $lxdebug->leave_sub(); } #end search() -sub confirm_price_update { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - - $form->{nextsub} = "update_prices"; - $form->header; - - map { delete $form->{$_} } qw(action header); - - print $form->parse_html_template('ic/confirm_price_update', { HIDDENS => [ map { name => $_, value => $form->{$_} }, keys %$form ] }); - - $lxdebug->leave_sub(); -} - -sub update_prices { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - - 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(); -} - -sub choice { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - - our ($j, $lastndx); - my ($totop100); - - $form->{title} = $locale->text('Top 100 hinzufuegen'); - - $form->header; - - push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras); - push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice); - my @HIDDENS = ( - +{ name => 'row', value => $j }, - +{ name => 'nextsub', value => 'item_selected' }, - +{ name => 'test', value => 'item_selected' }, - +{ name => 'lastndx', value => $lastndx }, - map(+{ name => $_, value => $form->{$_} }, @custom_hiddens), - ); - - my ($partnumber, $description, $unit, $sellprice, $soldtotal); - # if choice set data -# if ($form->{ndx}) { -# for my $i (0 .. $form->{ndxs_counter}) { -# -# # insert data into top100 -# push @{ $form->{parts} }, -# { number => "", -# 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"}, -# }; -# } #rof -# } #fi - - $totop100 = ""; - - # set data for next page - for my $i (1 .. $form->{ndxs_counter}) { - $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"}; - - push @PARTS, { - totop100_partnumber => $form->{"totop100_partnumber_$i"}, - totop100_description => $form->{"totop100_description_$i"}, - totop100_unit => $form->{"totop100_unit_$i"}, - totop100_sellprice => $form->{"totop100_sellprice_$i"}, - totop100_soldtotal => $form->{"totop100_soldtotal_$i"}, - } - -# $totop100 .= qq| -#{"totop100_partnumber_$i"}> -#{"totop100_description_$i"}> -#{"totop100_unit_$i"}> -#{"totop100_sellprice_$i"}> -#{"totop100_soldtotal_$i"}> -# |; - } #rof - - print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, PARTS => \@PARTS }); - - $lxdebug->leave_sub(); -} #end choice - -sub list { - $lxdebug->enter_sub(); - - $auth->assert('part_service_assembly_edit'); - - our ($lastndx); - our ($partnumber, $description, $unit, $sellprice, $soldtotal); - - my @sortorders = ("", "partnumber", "description", "all"); - my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)]; - IC->get_parts(\%myconfig, \%$form, $sortorder); - - $form->{title} = $locale->text('Top 100 hinzufuegen'); - - $form->header; - - print qq| -
- - -