+#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|
+#<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=listrow| . ($j % 2) . qq|>|;
+# 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=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}>|;
+#
+# my $totop100 = "";
+#
+# 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('TOP100') . qq|">
+#
+#</form>
+#</body>
+#</html>
+#|;
+# $lxdebug->leave_sub();
+#} #end list()