X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fic.pl;h=b5588be3b3952abde07dd264dac584f9780a112e;hb=c3db1b36f46f3bb8fe278ad3320bc7b139278dc3;hp=114da5839dfd181a0020622697b62022ff1a8385;hpb=5ddae84bd337fffcfd9e13a65d2a3d1161d4edd5;p=kivitendo-erp.git diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl index 114da5839..b0d3887ba 100644 --- a/bin/mozilla/ic.pl +++ b/bin/mozilla/ic.pl @@ -24,759 +24,315 @@ # 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"; 1; -# end of main - -sub add { - $lxdebug->enter_sub(); - - $form->{title} = $locale->text('Add ' . ucfirst $form->{item}); +# 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'); - $form->{callback} = - "$form->{script}?action=add&item=$form->{item}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; - - $form->{"unit_changeable"} = 1; - - IC->get_pricegroups(\%myconfig, \%$form); - &link_part; - &display_form; - - $lxdebug->leave_sub(); -} +# end of main sub search { $lxdebug->enter_sub(); - # 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; + $auth->assert('part_service_assembly_details'); - # $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(); - - 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| -#