Revision 9a0aeac2
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 39 | 39 |
use strict; |
| 40 | 40 |
#use warnings; |
| 41 | 41 |
|
| 42 |
# global imports |
|
| 43 |
our ($form, $locale, %myconfig, $lxdebug); |
|
| 44 |
|
|
| 42 | 45 |
require "bin/mozilla/io.pl"; |
| 43 | 46 |
require "bin/mozilla/common.pl"; |
| 44 | 47 |
|
| 45 | 48 |
1; |
| 46 | 49 |
|
| 47 |
# global imports |
|
| 48 |
my $form = $main::form; |
|
| 49 |
my $locale = $main::locale; |
|
| 50 |
my %myconfig = %main::myconfig; |
|
| 51 |
my $lxdebug = $main::lxdebug; |
|
| 52 |
|
|
| 53 | 50 |
# end of main |
| 54 | 51 |
|
| 55 | 52 |
sub add {
|
| ... | ... | |
| 637 | 634 |
sub choice {
|
| 638 | 635 |
$lxdebug->enter_sub(); |
| 639 | 636 |
|
| 640 |
my $j = $main::j; |
|
| 641 |
my $lastndx = $main::lastndx; |
|
| 642 |
|
|
| 637 |
our ($j, $lastndx); |
|
| 643 | 638 |
my ($totop100); |
| 644 | 639 |
|
| 645 | 640 |
$form->{title} = $locale->text('Top 100 hinzufuegen');
|
| ... | ... | |
| 762 | 757 |
sub list {
|
| 763 | 758 |
$lxdebug->enter_sub(); |
| 764 | 759 |
|
| 765 |
my $lastndx = $main::lastndx; |
|
| 760 |
our ($lastndx); |
|
| 761 |
our ($partnumber, $description, $unit, $sellprice, $soldtotal); |
|
| 766 | 762 |
|
| 767 | 763 |
my @sortorders = ("", "partnumber", "description", "all");
|
| 768 | 764 |
my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
|
| ... | ... | |
| 853 | 849 |
if (($form->{ndxs_counter}) > 0) {
|
| 854 | 850 |
for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
|
| 855 | 851 |
|
| 856 |
# ToDO: does this really make sense? |
|
| 857 |
$main::partnumber = $form->{"totop100_partnumber_$i"};
|
|
| 858 |
$main::description = $form->{"totop100_description_$i"};
|
|
| 859 |
$main::unit = $form->{"totop100_unit_$i"};
|
|
| 860 |
$main::sellprice = $form->{"totop100_sellprice_$i"};
|
|
| 861 |
$main::soldtotal = $form->{"totop100_soldtotal_$i"};
|
|
| 852 |
$partnumber = $form->{"totop100_partnumber_$i"};
|
|
| 853 |
$description = $form->{"totop100_description_$i"};
|
|
| 854 |
$unit = $form->{"totop100_unit_$i"};
|
|
| 855 |
$sellprice = $form->{"totop100_sellprice_$i"};
|
|
| 856 |
$soldtotal = $form->{"totop100_soldtotal_$i"};
|
|
| 862 | 857 |
|
| 863 | 858 |
$totop100 .= qq| |
| 864 | 859 |
<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
|
| ... | ... | |
| 2000 | 1995 |
$lxdebug->enter_sub(); |
| 2001 | 1996 |
|
| 2002 | 1997 |
# imports |
| 2003 |
my %column_data = $main::column_data; |
|
| 2004 |
my @column_index = $main::column_index; |
|
| 2005 |
my $subtotalonhand = $main::subtotalonhand; |
|
| 2006 |
my $totalsellprice = $main::totalsellprice; |
|
| 2007 |
my $totallastcost = $main::totallastcost; |
|
| 2008 |
my $totallistprice = $main::totallistprice; |
|
| 2009 |
my $subtotalsellprice = $main::subtotalsellprice; |
|
| 2010 |
my $subtotallastcost = $main::subtotallastcost; |
|
| 2011 |
my $subtotallistprice = $main::subtotallistprice; |
|
| 1998 |
our (%column_data, @column_index); |
|
| 1999 |
our ($subtotalonhand, $totalsellprice, $totallastcost, $totallistprice, $subtotalsellprice, $subtotallastcost, $subtotallistprice); |
|
| 2012 | 2000 |
|
| 2013 | 2001 |
map { $column_data{$_} = "<td> </td>" } @column_index;
|
| 2014 | 2002 |
$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
|
| ... | ... | |
| 2783 | 2771 |
my (@column_index, %column_data, %column_header); |
| 2784 | 2772 |
my ($nochange, $callback, $previousform, $linetotal, $href); |
| 2785 | 2773 |
|
| 2786 |
my $deliverydate = $main::deliverydate; # ToDO: cjeck if this indeed comes from global context
|
|
| 2774 |
our ($deliverydate); # ToDO: cjeck if this indeed comes from global context
|
|
| 2787 | 2775 |
|
| 2788 | 2776 |
@column_index = |
| 2789 | 2777 |
qw(runningnumber qty unit bom partnumber description partsgroup total); |
| ... | ... | |
| 3242 | 3230 |
sub parts_language_selection {
|
| 3243 | 3231 |
$lxdebug->enter_sub(); |
| 3244 | 3232 |
|
| 3245 |
my $onload = $main::onload;
|
|
| 3233 |
our ($onload);
|
|
| 3246 | 3234 |
|
| 3247 | 3235 |
my $languages = IC->retrieve_languages(\%myconfig, $form); |
| 3248 | 3236 |
|
Auch abrufbar als: Unified diff
lokalisierungen besser gemacht