-use SL::IC;
-
-#use SL::PE;
-
-require "$form->{path}/io.pl";
-
-1;
-
-# end of main
-
-sub add {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text('Add ' . ucfirst $form->{item});
-
- $form->{callback} =
- "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&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();
-}
-
-sub search {
- $lxdebug->enter_sub();
-
- $form->{title} = (ucfirst $form->{searchitems}) . "s";
- $form->{title} = $locale->text($form->{title});
-
- # 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} = $jscalendar;
- $jsscript = "";
- if ($form->{jsscript}) {
-
- # with JavaScript Calendar
- $button1 = qq|
- <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
- <td><input type=button name=transdatefrom id="trigger1" value=|
- . $locale->text('button') . qq|></td>
- |;
- $button2 = qq|
- <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
- <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
- . $locale->text('button') . qq|></td>
- |;
-
- #write Trigger
- $jsscript =
- Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
- "transdateto", "BL", "trigger2");
- } else {
-
- # without JavaScript Calendar
- $button1 = qq|
- <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
- $button2 = qq|
- <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
- }
-
- unless ($form->{searchitems} eq 'service') {
-
- $onhand = qq|
- <input name=itemstatus class=radio type=radio value=onhand> |
- . $locale->text('On Hand') . qq|
- <input name=itemstatus class=radio type=radio value=short> |
- . $locale->text('Short') . qq|
-|;
-
- $makemodel = qq|
- <tr>
- <th align=right nowrap>| . $locale->text('Make') . qq|</th>
- <td><input name=make size=20></td>
- <th align=right nowrap>| . $locale->text('Model') . qq|</th>
- <td><input name=model size=20></td>
- </tr>
-|;
-
- $serialnumber = qq|
- <th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
- <td><input name=serialnumber size=20></td>
-|;
-
- $l_serialnumber = qq|
- <td><input name=l_serialnumber class=checkbox type=checkbox value=Y> |
- . $locale->text('Serial Number') . qq|</td>
-|;
-
- }
-
- if ($form->{searchitems} eq 'assembly') {
-
- $form->{title} = $locale->text('Assemblies');
-
- $toplevel = qq|
- <tr>
- <td></td>
- <td colspan=3>
- <input name=null class=radio type=radio value=1 checked> |
- . $locale->text('Top Level') . qq|
- <input name=bom class=checkbox type=checkbox value=1> |
- . $locale->text('Individual Items') . qq|
- </td>
- </tr>
-|;
-
- $bought = qq|
- <tr>
- <td></td>
- <td colspan=3>
- <table>
- <tr>
- <td>
- <table>
- <tr>
- <td><input name=sold class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Sold') . qq|</td>
- </tr>
- <tr>
- <td colspan=2><hr size=1 noshade></td>
- </tr>
- <tr>
- <td><input name=ordered class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Ordered') . qq|</td>
- </tr>
- <tr>
- <td colspan=4><hr size=1 noshade></td>
- </tr>
- <tr>
- <td><input name=quoted class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Quoted') . qq|</td>
- </tr>
- </table>
- </td>
- <td width=5%> </td>
- <th>| . $locale->text('From') . qq|</th>
- $button1
- <th>| . $locale->text('To') . qq|</th>
- $button2
- </tr>
- </table>
- </td>
- </tr>
-|;
-
- } else {
-
- $bought = qq|
- <tr>
- <td></td>
- <td colspan=3>
- <table>
- <tr>
- <td>
- <table>
- <tr>
- <td><input name=bought class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Bought') . qq|</td>
- <td><input name=sold class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Sold') . qq|</td>
- </tr>
- <tr>
- <td colspan=4><hr size=1 noshade></td>
- </tr>
- <tr>
- <td><input name=onorder class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('On Order') . qq|</td>
- <td><input name=ordered class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Ordered') . qq|</td>
- </tr>
- <tr>
- <td colspan=4><hr size=1 noshade></td>
- </tr>
- <tr>
- <td><input name=rfq class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('RFQ') . qq|</td>
- <td><input name=quoted class=checkbox type=checkbox value=1></td>
- <td nowrap>| . $locale->text('Quoted') . qq|</td>
- </tr>
- </table>
- </td>
- <td width=5%> </td>
- <td>
- <table>
- <tr>
- <th>| . $locale->text('From') . qq|</th>
- $button1
- <th>| . $locale->text('To') . qq|</th>
- $button2
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
-|;
- }
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=searchitems value=$form->{searchitems}>
-<input type=hidden name=title value="$form->{title}">
-
-<input type=hidden name=revers value="$form->{revers}">
-<input type=hidden name=lastsort value="$form->{lastsort}">
-
-<table width="100%">
- <tr><th class=listtop>$form->{title}</th></tr>
- <tr height="5"></tr>
- <tr valign=top>
- <td>
- <table>
- <tr>
- <th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
- <td><input name=partnumber size=20></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Part Description') . qq|</th>
- <td colspan=3><input name=description size=40></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Group') . qq|</th>
- <td><input name=partsgroup size=20></td>
- $serialnumber
- </tr>
- $makemodel
- <tr>
- <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
- <td><input name=drawing size=20></td>
- <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
- <td><input name=microfiche size=20></td>
- </tr>
- $toplevel
- <tr>
- <td></td>
- <td colspan=3>
- <input name=itemstatus class=radio type=radio value=active checked> |
- . $locale->text('Active') . qq|
- $onhand
- <input name=itemstatus class=radio type=radio value=obsolete> |
- . $locale->text('Obsolete') . qq|
- <input name=itemstatus class=radio type=radio value=orphaned> |
- . $locale->text('Orphaned') . qq|
- </td>
- </tr>
- $bought
- <tr>
- <td></td>
- <td colspan=3>
- <hr size=1 noshade>
- </td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Include in Report') . qq|</th>
- <td colspan=3>
- <table>
- <tr>
- <td><input name=l_partnumber class=checkbox type=checkbox value=Y> |
- . $locale->text('Part Number') . qq|</td>
- <td><input name=l_description class=checkbox type=checkbox value=Y checked> |
- . $locale->text('Part Description') . qq|</td>
- $l_serialnumber
- <td><input name=l_unit class=checkbox type=checkbox value=Y checked> |
- . $locale->text('Unit of measure') . qq|</td>
- </tr>
- <tr>
- <td><input name=l_listprice class=checkbox type=checkbox value=Y> |
- . $locale->text('List Price') . qq|</td>
- <td><input name=l_sellprice class=checkbox type=checkbox value=Y checked> |
- . $locale->text('Sell Price') . qq|</td>
- <td><input name=l_lastcost class=checkbox type=checkbox value=Y checked> |
- . $locale->text('Last Cost') . qq|</td>
- <td><input name=l_linetotal class=checkbox type=checkbox value=Y checked> |
- . $locale->text('Line Total') . qq|</td>
- </tr>
- <tr>
- <td><input name=l_priceupdate class=checkbox type=checkbox value=Y> |
- . $locale->text('Updated') . qq|</td>
- <td><input name=l_bin class=checkbox type=checkbox value=Y> |
- . $locale->text('Bin') . qq|</td>
- <td><input name=l_rop class=checkbox type=checkbox value=Y> |
- . $locale->text('ROP') . qq|</td>
- <td><input name=l_weight class=checkbox type=checkbox value=Y> |
- . $locale->text('Weight') . qq|</td>
- </tr>
- <tr>
- <td><input name=l_image class=checkbox type=checkbox value=Y> |
- . $locale->text('Image') . qq|</td>
- <td><input name=l_drawing class=checkbox type=checkbox value=Y> |
- . $locale->text('Drawing') . qq|</td>
- <td><input name=l_microfiche class=checkbox type=checkbox value=Y> |
- . $locale->text('Microfiche') . qq|</td>
- <td><input name=l_partsgroup class=checkbox type=checkbox value=Y> |
- . $locale->text('Group') . qq|</td>
- </tr>
- <tr>
- <td><input name=l_subtotal class=checkbox type=checkbox value=Y> |
- . $locale->text('Subtotal') . qq|</td>
- <td><input name=l_soldtotal class=checkbox type=checkbox value=Y> |
- . $locale->text('soldtotal') . qq|</td>
- <td><input name=l_deliverydate class=checkbox type=checkbox value=Y> |
- . $locale->text('deliverydate') . qq|</td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr><td colspan=4><hr size=3 noshade></td></tr>
-</table>
-
-$jsscript
-
-<input type=hidden name=nextsub value=generate_report>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input type=hidden name=revers value="$form->{revers}">
-<input type=hidden name=lastsort value="$form->{lastsort}">
-<input type=hidden name=sort value="description">
-
-<input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
-
-<br>
-<input class=submit type=submit name=action value="|
- . $locale->text('Continue') . qq|">
-<input class=submit type=submit name=action value="|
- . $locale->text('TOP100') . qq|">
-</form>
-
-</body>
-</html>
-|;
- $lxdebug->leave_sub();
-} #end search()
-
-
-sub search_update_prices {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text('Update prices');
- IC->get_pricegroups(\%myconfig, \%$form);
-
- # use JavaScript Calendar or not
-# $form->{jsscript} = $jscalendar;
-# $jsscript = "";
-# if ($form->{jsscript}) {
-#
-# # with JavaScript Calendar
-# $button1 = qq|
-# <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-# <td><input type=button name=transdatefrom id="trigger1" value=|
-# . $locale->text('button') . qq|></td>
-# |;
-# $button2 = qq|
-# <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
-# <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
-# . $locale->text('button') . qq|></td>
-# |;
-#
-# #write Trigger
-# $jsscript =
-# Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
-# "transdateto", "BL", "trigger2");
-# } else {
-#
-# # without JavaScript Calendar
-# $button1 = qq|
-# <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
-# $button2 = qq|
-# <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
-# }
-
- $onhand = qq|
- <input name=itemstatus class=radio type=radio value=onhand> |
- . $locale->text('On Hand') . qq|
- <input name=itemstatus class=radio type=radio value=short> |
- . $locale->text('Short') . qq|
-|;
-
- $makemodel = qq|
- <tr>
- <th align=right nowrap>| . $locale->text('Make') . qq|</th>
- <td><input name=make size=20></td>
- <th align=right nowrap>| . $locale->text('Model') . qq|</th>
- <td><input name=model size=20></td>
- </tr>
-|;
-
- $serialnumber = qq|
- <th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
- <td><input name=serialnumber size=20></td>
-|;
-
- $l_serialnumber = qq|
- <td><input name=l_serialnumber class=checkbox type=checkbox value=Y> |
- . $locale->text('Serial Number') . qq|</td>
-|;
-
-
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=title value="$form->{title}">
-
-<table width="100%">
- <tr><th class=listtop>$form->{title}</th></tr>
- <tr height="5"></tr>
- <tr valign=top>
- <td>
- <table>
- <tr>
- <th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
- <td><input name=partnumber size=20></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Part Description') . qq|</th>
- <td colspan=3><input name=description size=40></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Group') . qq|</th>
- <td><input name=partsgroup size=20></td>
- $serialnumber
- </tr>
- $makemodel
- <tr>
- <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
- <td><input name=drawing size=20></td>
- <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
- <td><input name=microfiche size=20></td>
- </tr>
- $toplevel
- <tr>
- <td></td>
- <td colspan=3>
- <input name=itemstatus class=radio type=radio value=active checked> |
- . $locale->text('Active') . qq|
- $onhand
- <input name=itemstatus class=radio type=radio value=obsolete> |
- . $locale->text('Obsolete') . qq|
- <input name=itemstatus class=radio type=radio value=orphaned> |
- . $locale->text('Orphaned') . qq|
- </td>
- </tr>
- $bought
- <tr>
- <td></td>
- <td colspan=3>
- <hr size=1 noshade>
- </td>
- </tr>|;
- print qq|
- <tr>
- <td colspan=4>
- <table width=100%>
- <tr>
- <th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
- <th class="listheading">| . $locale->text('Preis') . qq|</th>
- <th class="listheading">| . $locale->text('Prozentual/Absolut') . qq|</th>
- </tr>
- <tr>
- <td>| . $locale->text('Sell Price') . qq|</td>
- <td><input name="sellprice" size=11 value="$form->{"sellprice"}"></td>
- <td><input name="sellprice_type" class=radio type=radio value=percent checked>/<input name="sellprice_type" class=radio type=radio value=absolut></td>
- </tr>
- <tr>
- <td>| . $locale->text('List Price') . qq|</td>
- <td><input name="listprice" size=11 value="$form->{"listprice"}"></td>
- <td><input name="listprice_type" class=radio type=radio value=percent checked>/<input name="listprice_type" class=radio type=radio value=absolut></td>
- </tr>
-|;
- for $i (1 .. $form->{price_rows}) {
- print qq|
- <tr>
- <td width=50%><input type=hidden name="pricegroup_$i" size=30 value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
- <td width=50%><input name="price_$i" size=11></td>
- <input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
- <td><input name="pricegroup_type_$i" class=radio type=radio value=percent checked>/<input name="pricegroup_type_$i" class=radio type=radio value=absolut></td>
- </tr>
-|;
- }
-
- print qq|
- </table>
- </td>
- </tr>
-
- <tr><td colspan=4><hr size=3 noshade></td></tr>
-</table>
-<input type=hidden name=nextsub value=confirm_price_update>
-<input type=hidden name=price_rows value=$form->{price_rows}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input class=submit type=submit name=action value="|
- . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
- $lxdebug->leave_sub();
-} #end search()
-
-sub confirm_price_update {
- $lxdebug->enter_sub();
-
-
- $form->{nextsub} = "update_prices";
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
- # delete action variable
- map { delete $form->{$_} } qw(action header);
-
- foreach $key (keys %$form) {
- $form->{$key} =~ s/\"/"/g;
- print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
- }
-
- print qq|
-<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2>
-
-<h4>|
- . $locale->text('Are you sure you want to update the prices')
-. qq| </h4>
-
-<p>
-<input name=action class=submit type=submit value="|
- . $locale->text('Continue') . qq|">
-</form>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub update_prices {
- $lxdebug->enter_sub();
-
- 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();
-
- $form->{title} = $locale->text('Top 100 hinzufuegen');
-
- $form->header;
-
- print qq|
- <body>
-
- <form method=post action=$form->{script}>
-
- <input type=hidden name=searchitems value=$form->{searchitems}>
- <input type=hidden name=title value="$form->{title}">
-
- <input type=hidden name=revers value="$form->{revers}">
- <input type=hidden name=lastsort value="$form->{lastsort}">|;
-
- print qq|
- <table>
- <tr class=listheading>
- <th class=listheading nowrap>|
- . $locale->text('Part Number') . qq|</th>
- <th class=listheading nowrap>|
- . $locale->text('Part Description') . qq|</th>
- </tr>
- <tr valign=top>
- <td><input type=text name=partnumber size=20 value=></td>
- <td><input type=text name=description size=30 value=></td>
- </tr>
- </table>
- <br>|;
-
- print qq|
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input type=hidden name=itemstatus value="$form->{itemstatus}">
-<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
-<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
-<input type=hidden name=l_description value="$form->{l_description}">
-<input type=hidden name=l_onhand value="$form->{l_onhand}">
-<input type=hidden name=l_unit value="$form->{l_unit}">
-<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
-<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
-<input type=hidden name=sort value="$form->{sort}">
-<input type=hidden name=revers value="$form->{revers}">
-<input type=hidden name=lastsort value="$form->{lastsort}">
-
-<input type=hidden name=bom value="$form->{bom}">
-<input type=hidden name=titel value="$form->{titel}">
-<input type=hidden name=searchitems value="$form->{searchitems}">
-
-<input type=hidden name=row value=$j>
-
-<input type=hidden name=nextsub value=item_selected>
-
-<input type=hidden name=test value=item_selected>
-
-<input name=lastndx type=hidden value=$lastndx>
-
-<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>
-
-<input name=extras type=hidden value=$form->{extras}>|;
-
- # if choice set data
- if ($form->{ndx}) {
- for ($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
-
- $totop100 = "";
-
- # set data for next page
- if (($form->{ndxs_counter}) > 0) {
- for ($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|
-<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
-<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
-<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
-<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
-<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
- |;
- } #rof
- } #fi
-
- print $totop100;
-
- print qq|
- <input class=submit type=submit name=action value="|
- . $locale->text('list') . qq|">
- </form>
-
- </body>
- </html>|;
- $lxdebug->leave_sub();
-} #end choice
-
-sub list {
- $lxdebug->enter_sub();
-
- # get parts for
- if (($form->{partnumber} eq "") and ($form->{description} eq "")) {
- IC->get_parts(\%myconfig, \%$form, "");
- } else {
- if ((!($form->{partnumber} eq "")) and ($form->{description} eq "")) {
- IC->get_parts(\%myconfig, \%$form, "partnumber");
- } else {
- if (($form->{partnumber} eq "") and (!($form->{description} eq ""))) {
- IC->get_parts(\%myconfig, \%$form, "description");
- } else {
- IC->get_parts(\%myconfig, \%$form, "all");
- } #fi
- } #fi
- } #fi
-
- $form->{title} = $locale->text('Top 100 hinzufuegen');
-
- $form->header;
-
- print qq|
-<body>
- <form method=post action=ic.pl>
- <table width=100%>
- <tr>
- <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
- </tr>
- <tr height="5"></tr>
- <tr class=listheading>
- <th> </th>
- <th class=listheading>| . $locale->text('Part Number') . qq|</th>
- <th class=listheading>| . $locale->text('Part Description') . qq|</th>
- <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
- <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
- <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
- </tr>|;
-
- my $j = 0;
- my $i = $form->{rows};
-
- for ($j = 1; $j <= $i; $j++) {
-
- print qq|
- <tr class=listrow1>|;
- if ($j == 1) {
- print qq|
- <td><input name=ndx class=radio type=radio value=$j checked></td>|;
- } else {
- print qq|
- <td><input name=ndx class=radio type=radio value=$j></td>|;
- }
- print qq|
- <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
- <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
- <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
- <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
- <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
- </tr>
-
- <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
- }
-
- print qq|
-
-</table>
-
-<br>
-
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input type=hidden name=itemstatus value="$form->{itemstatus}">
-<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
-<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
-<input type=hidden name=l_description value="$form->{l_description}">
-<input type=hidden name=l_onhand value="$form->{l_onhand}">
-<input type=hidden name=l_unit value="$form->{l_unit}">
-<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
-<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
-<input type=hidden name=sort value="$form->{sort}">
-<input type=hidden name=revers value="$form->{revers}">
-<input type=hidden name=lastsort value="$form->{lastsort}">
-
-<input type=hidden name=bom value="$form->{bom}">
-<input type=hidden name=titel value="$form->{titel}">
-<input type=hidden name=searchitems value="$form->{searchitems}">
-
-<input type=hidden name=row value=$j>
-
-<input type=hidden name=nextsub value=item_selected>
-
-<input name=lastndx type=hidden value=$lastndx>
-
-<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
-
- $totop100 = "";
-
- if (($form->{ndxs_counter}) > 0) {
- for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
- $j1 = $form->{"totop100_partnumber_$i"};
- $j2 = $form->{"totop100_description_$i"};
- $j3 = $form->{"totop100_unit_$i"};
- $j4 = $form->{"totop100_sellprice_$i"};
- $j5 = $form->{"totop100_soldtotal_$i"};
-
- $partnumber = $j1;
- $description = $j2;
- $unit = $j3;
- $sellprice = $j4;
- $soldtotal = $j5;
-
- $totop100 .= qq|
-<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
-<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
-<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
-<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
-<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
- |;
- } #rof
- } #fi
-
- print $totop100;
-
- print qq|
-<input class=submit type=submit name=action value="|
- . $locale->text('TOP100') . qq|">
-
-</form>
-</body>
-</html>
-|;
- $lxdebug->leave_sub();
-} #end list()
-
-sub top100 {
- $lxdebug->enter_sub();
-
- if ($form->{ndx}) {
- $form->{ndxs_counter}++;
-
- if ($form->{ndxs_counter} > 0) {
-
- $index = $form->{ndx};
-
- $j1 = $form->{"new_partnumber_$index"};
- $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $j1;
- $j2 = $form->{"new_description_$index"};
- $form->{"totop100_description_$form->{ndxs_counter}"} = $j2;
- $j3 = $form->{"new_unit_$index"};
- $form->{"totop100_unit_$form->{ndxs_counter}"} = $j3;
- $j4 = $form->{"new_sellprice_$index"};
- $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $j4;
- $j5 = $form->{"new_soldtotal_$index"};
- $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $j5;
- } #fi
- } #fi
- &addtop100();
- $lxdebug->leave_sub();
-} #end top100
-
-sub addtop100 {
- $lxdebug->enter_sub();
-
- $form->{top100} = "top100";
- $form->{l_soldtotal} = "Y";
- $form->{soldtotal} = "soldtotal";
- $form->{sort} = "soldtotal";
- $form->{l_qty} = "N";
- $callback .= "&form->{top100}=$form->{top100}";
- $form->{l_linetotal} = "";
- $form->{revers} = 1;
- $form->{number} = "position";
- $form->{l_number} = "Y";
-
- my $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&path=$form->{path}&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<br>"
- . $locale->text('From')
- . " "
- . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
- }
- if ($form->{transdateto}) {
- $callback .= "&transdateto=$form->{transdateto}";
- $option .= "\n<br>"
- . $locale->text('To')
- . " "
- . $locale->date(\%myconfig, $form->{transdateto}, 1);
- }
- }
-
- $option .= "<br>";
-
- if ($form->{partnumber}) {
- $callback .= "&partnumber=$form->{partnumber}";
- $option .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
- }
- if ($form->{partsgroup}) {
- $callback .= "&partsgroup=$form->{partsgroup}";
- $option .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
- }
- if ($form->{serialnumber}) {
- $callback .= "&serialnumber=$form->{serialnumber}";
- $option .=
- $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
- }
- if ($form->{description}) {
- $callback .= "&description=$form->{description}";
- $description = $form->{description};
- $description =~ s/
-/<br>/g;
- $option .=
- $locale->text('Part Description') . qq| : $form->{description}<br>|;
- }
- if ($form->{make}) {
- $callback .= "&make=$form->{make}";
- $option .= $locale->text('Make') . qq| : $form->{make}<br>|;
- }
- if ($form->{model}) {
- $callback .= "&model=$form->{model}";
- $option .= $locale->text('Model') . qq| : $form->{model}<br>|;
- }
- if ($form->{drawing}) {
- $callback .= "&drawing=$form->{drawing}";
- $option .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
- }
- if ($form->{microfiche}) {
- $callback .= "µfiche=$form->{microfiche}";
- $option .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
- }
- if ($form->{l_soldtotal}) {
- $callback .= "&soldtotal=$form->{soldtotal}";
- $option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
- }
-
- @columns = $form->sort_columns(
- qw(number partnumber 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 $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|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
- $column_header{partnumber} =
- qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
- . $locale->text('Part Number')
- . qq|</a></th>|;
- $column_header{description} =
- qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
- . $locale->text('Part Description')
- . qq|</a></th>|;
- $column_header{partsgroup} =
- qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
- . $locale->text('Group')
- . qq|</a></th>|;
- $column_header{bin} =
- qq|<th><a class=listheading href=$callback&sort=bin>|
- . $locale->text('Bin')
- . qq|</a></th>|;
- $column_header{priceupdate} =
- qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
- . $locale->text('Updated')
- . qq|</a></th>|;
- $column_header{onhand} =
- qq|<th nowrap><a class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
- . $locale->text('Qty')
- . qq|</th>|;
- $column_header{unit} =
- qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
- $column_header{listprice} =
- qq|<th class=listheading nowrap>|
- . $locale->text('List Price')
- . qq|</th>|;
- $column_header{lastcost} =
- qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
- $column_header{rop} =
- qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
- $column_header{weight} =
- qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
-
- $column_header{invnumber} =
- qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
- . $locale->text('Invoice Number')
- . qq|</a></th>|;
- $column_header{ordnumber} =
- qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
- . $locale->text('Order Number')
- . qq|</a></th>|;
- $column_header{quonumber} =
- qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
- . $locale->text('Quotation')
- . qq|</a></th>|;
-
- $column_header{name} =
- qq|<th nowrap><a class=listheading href=$callback&sort=name>|
- . $locale->text('Name')
- . qq|</a></th>|;
-
- $column_header{sellprice} =
- qq|<th class=listheading nowrap>|
- . $locale->text('Sell Price')
- . qq|</th>|;
- $column_header{linetotalsellprice} =
- qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
- $column_header{linetotallastcost} =
- qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
- $column_header{linetotallistprice} =
- qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
-
- $column_header{image} =
- qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
- $column_header{drawing} =
- qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
- . $locale->text('Drawing')
- . qq|</a></th>|;
- $column_header{microfiche} =
- qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
- . $locale->text('Microfiche')
- . qq|</a></th>|;
-
- $column_header{serialnumber} =
- qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
- . $locale->text('Serial Number')
- . qq|</a></th>|;
- $column_header{soldtotal} =
- qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
- . $locale->text('soldtotal')
- . qq|</a></th>|;
-
- $form->header;
- $colspan = $#column_index + 1;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop colspan=$colspan>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
-
- <tr><td colspan=$colspan>$option</td></tr>