05a4e4983c2b951d450c570886cf5223b41eb53f
[kivitendo-erp.git] / bin / mozilla / ic.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #=====================================================================
8 # SQL-Ledger, Accounting
9 # Copyright (c) 2001
10 #
11 #  Author: Dieter Simader
12 #   Email: dsimader@sql-ledger.org
13 #     Web: http://www.sql-ledger.org
14 #
15 #
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
20 #
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
29 #
30 # Inventory Control module
31 #
32 #======================================================================
33 #$locale->text('ea');
34
35 use SL::IC;
36
37 #use SL::PE;
38
39 require "$form->{path}/io.pl";
40
41 1;
42
43 # end of main
44
45 sub add {
46   $lxdebug->enter_sub();
47
48   $form->{title} = $locale->text('Add ' . ucfirst $form->{item});
49
50   $form->{callback} =
51     "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
52     unless $form->{callback};
53
54   $form->{unit} =
55     ($form->{item} eq 'service') ? $locale->text('hr') : $locale->text('ea');
56   IC->get_pricegroups(\%myconfig, \%$form);
57   &link_part;
58   &display_form;
59
60   $lxdebug->leave_sub();
61 }
62
63 sub search {
64   $lxdebug->enter_sub();
65
66   $form->{title} = (ucfirst $form->{searchitems}) . "s";
67   $form->{title} = $locale->text($form->{title});
68
69   # switch for backward sorting
70   $form->{revers} = 0;
71
72   # memory for which table was sort at last time
73   $form->{lastsort} = "";
74
75   # counter for added entries to top100
76   $form->{ndxs_counter} = 0;
77
78   # $locale->text('Parts')
79   # $locale->text('Services')
80
81   # use JavaScript Calendar or not
82   $form->{jsscript} = $jscalendar;
83   $jsscript = "";
84   if ($form->{jsscript}) {
85
86     # with JavaScript Calendar
87     $button1 = qq|
88        <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>
89        <td><input type=button name=transdatefrom id="trigger1" value=|
90       . $locale->text('button') . qq|></td>
91       |;
92     $button2 = qq|
93        <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>
94        <td><input type=button name=transdateto name=transdateto id="trigger2" value=|
95       . $locale->text('button') . qq|></td>
96      |;
97
98     #write Trigger
99     $jsscript =
100       Form->write_trigger(\%myconfig, "2", "transdatefrom", "BL", "trigger1",
101                           "transdateto", "BL", "trigger2");
102   } else {
103
104     # without JavaScript Calendar
105     $button1 = qq|
106                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
107     $button2 = qq|
108                               <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}"></td>|;
109   }
110
111   unless ($form->{searchitems} eq 'service') {
112
113     $onhand = qq|
114             <input name=itemstatus class=radio type=radio value=onhand>&nbsp;|
115       . $locale->text('On Hand') . qq|
116             <input name=itemstatus class=radio type=radio value=short>&nbsp;|
117       . $locale->text('Short') . qq|
118 |;
119
120     $makemodel = qq|
121         <tr>
122           <th align=right nowrap>| . $locale->text('Make') . qq|</th>
123           <td><input name=make size=20></td>
124           <th align=right nowrap>| . $locale->text('Model') . qq|</th>
125           <td><input name=model size=20></td>
126         </tr>
127 |;
128
129     $serialnumber = qq|
130           <th align=right nowrap>| . $locale->text('Serial Number') . qq|</th>
131           <td><input name=serialnumber size=20></td>
132 |;
133
134     $l_serialnumber = qq|
135         <td><input name=l_serialnumber class=checkbox type=checkbox value=Y>&nbsp;|
136       . $locale->text('Serial Number') . qq|</td>
137 |;
138
139   }
140
141   if ($form->{searchitems} eq 'assembly') {
142
143     $form->{title} = $locale->text('Assemblies');
144
145     $toplevel = qq|
146         <tr>
147           <td></td>
148           <td colspan=3>
149           <input name=null class=radio type=radio value=1 checked>&nbsp;|
150       . $locale->text('Top Level') . qq|
151           <input name=bom class=checkbox type=checkbox value=1>&nbsp;|
152       . $locale->text('Individual Items') . qq|
153           </td>
154         </tr>
155 |;
156
157     $bought = qq|
158         <tr>
159           <td></td>
160           <td colspan=3>
161             <table>
162               <tr>
163                 <td>
164                   <table>
165                     <tr>
166                       <td><input name=sold class=checkbox type=checkbox value=1></td>
167                       <td nowrap>| . $locale->text('Sold') . qq|</td>
168                     </tr>
169                     <tr>
170                       <td colspan=2><hr size=1 noshade></td>
171                     </tr>
172                     <tr>
173                       <td><input name=ordered class=checkbox type=checkbox value=1></td>
174                       <td nowrap>| . $locale->text('Ordered') . qq|</td>
175                     </tr>
176                     <tr>
177                       <td colspan=4><hr size=1 noshade></td>
178                     </tr>
179                     <tr>
180                       <td><input name=quoted class=checkbox type=checkbox value=1></td>
181                       <td nowrap>| . $locale->text('Quoted') . qq|</td>
182                     </tr>
183                   </table>
184                 </td>
185                 <td width=5%>&nbsp;</td>
186                 <th>| . $locale->text('From') . qq|</th>
187                 $button1
188                 <th>| . $locale->text('To') . qq|</th>
189                 $button2
190               </tr>
191             </table>
192           </td>
193         </tr>
194 |;
195
196   } else {
197
198     $bought = qq|
199         <tr>
200           <td></td>
201           <td colspan=3>
202             <table>
203               <tr>
204                 <td>
205                   <table>
206                     <tr>
207                       <td><input name=bought class=checkbox type=checkbox value=1></td>
208                       <td nowrap>| . $locale->text('Bought') . qq|</td>
209                       <td><input name=sold class=checkbox type=checkbox value=1></td>
210                       <td nowrap>| . $locale->text('Sold') . qq|</td>
211                     </tr>
212                     <tr>
213                       <td colspan=4><hr size=1 noshade></td>
214                     </tr>
215                     <tr>
216                       <td><input name=onorder class=checkbox type=checkbox value=1></td>
217                       <td nowrap>| . $locale->text('On Order') . qq|</td>
218                       <td><input name=ordered class=checkbox type=checkbox value=1></td>
219                       <td nowrap>| . $locale->text('Ordered') . qq|</td>
220                     </tr>
221                     <tr>
222                       <td colspan=4><hr size=1 noshade></td>
223                     </tr>
224                     <tr>
225                       <td><input name=rfq class=checkbox type=checkbox value=1></td>
226                       <td nowrap>| . $locale->text('RFQ') . qq|</td>
227                       <td><input name=quoted class=checkbox type=checkbox value=1></td>
228                       <td nowrap>| . $locale->text('Quoted') . qq|</td>
229                     </tr>
230                   </table>
231                 </td>
232                 <td width=5%>&nbsp;</td>
233                 <td>
234                   <table>
235                     <tr>
236                       <th>| . $locale->text('From') . qq|</th>
237                       $button1
238                       <th>| . $locale->text('To') . qq|</th>
239                       $button2
240                     </tr>
241                   </table>
242                 </td>
243               </tr>
244             </table>
245           </td>
246         </tr>
247 |;
248   }
249
250   $form->header;
251
252   print qq|
253 <body>
254
255 <form method=post action=$form->{script}>
256
257 <input type=hidden name=searchitems value=$form->{searchitems}>
258 <input type=hidden name=title value="$form->{title}">
259
260 <input type=hidden name=revers value="$form->{revers}">
261 <input type=hidden name=lastsort value="$form->{lastsort}">
262
263 <table width="100%">
264   <tr><th class=listtop>$form->{title}</th></tr>
265   <tr height="5"></tr>
266   <tr valign=top>
267     <td>
268       <table>
269         <tr>
270           <th align=right nowrap>| . $locale->text('Part Number') . qq|</th>
271           <td><input name=partnumber size=20></td>
272         </tr>
273         <tr>
274           <th align=right nowrap>|
275     . $locale->text('Part Description') . qq|</th>
276           <td colspan=3><input name=description size=40></td>
277         </tr>
278         <tr>
279           <th align=right nowrap>| . $locale->text('Group') . qq|</th>
280           <td><input name=partsgroup size=20></td>
281           $serialnumber
282         </tr>
283         $makemodel
284         <tr>
285           <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
286           <td><input name=drawing size=20></td>
287           <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
288           <td><input name=microfiche size=20></td>
289         </tr>
290         $toplevel
291         <tr>
292           <td></td>
293           <td colspan=3>
294             <input name=itemstatus class=radio type=radio value=active checked>&nbsp;|
295     . $locale->text('Active') . qq|
296             $onhand
297             <input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|
298     . $locale->text('Obsolete') . qq|
299             <input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|
300     . $locale->text('Orphaned') . qq|
301           </td>
302         </tr>
303         $bought
304         <tr>
305           <td></td>
306           <td colspan=3>
307             <hr size=1 noshade>
308           </td>
309         </tr>
310         <tr>
311           <th align=right nowrap>|
312     . $locale->text('Include in Report') . qq|</th>
313           <td colspan=3>
314             <table>
315               <tr>
316                 <td><input name=l_partnumber class=checkbox type=checkbox value=Y checked>&nbsp;|
317     . $locale->text('Part Number') . qq|</td>
318                 <td><input name=l_description class=checkbox type=checkbox value=Y checked>&nbsp;|
319     . $locale->text('Part Description') . qq|</td>
320                 $l_serialnumber
321                 <td><input name=l_unit class=checkbox type=checkbox value=Y checked>&nbsp;|
322     . $locale->text('Unit of measure') . qq|</td>
323               </tr>
324               <tr>
325                 <td><input name=l_listprice class=checkbox type=checkbox value=Y>&nbsp;|
326     . $locale->text('List Price') . qq|</td>
327                 <td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|
328     . $locale->text('Sell Price') . qq|</td>
329                 <td><input name=l_lastcost class=checkbox type=checkbox value=Y>&nbsp;|
330     . $locale->text('Last Cost') . qq|</td>
331                 <td><input name=l_linetotal class=checkbox type=checkbox value=Y checked>&nbsp;|
332     . $locale->text('Line Total') . qq|</td>
333               </tr>
334               <tr>
335                 <td><input name=l_priceupdate class=checkbox type=checkbox value=Y>&nbsp;|
336     . $locale->text('Updated') . qq|</td>
337                 <td><input name=l_bin class=checkbox type=checkbox value=Y>&nbsp;|
338     . $locale->text('Bin') . qq|</td>
339                 <td><input name=l_rop class=checkbox type=checkbox value=Y>&nbsp;|
340     . $locale->text('ROP') . qq|</td>
341                 <td><input name=l_weight class=checkbox type=checkbox value=Y>&nbsp;|
342     . $locale->text('Weight') . qq|</td>
343               </tr>
344               <tr>
345                 <td><input name=l_image class=checkbox type=checkbox value=Y>&nbsp;|
346     . $locale->text('Image') . qq|</td>
347                 <td><input name=l_drawing class=checkbox type=checkbox value=Y>&nbsp;|
348     . $locale->text('Drawing') . qq|</td>
349                 <td><input name=l_microfiche class=checkbox type=checkbox value=Y>&nbsp;|
350     . $locale->text('Microfiche') . qq|</td>
351                 <td><input name=l_partsgroup class=checkbox type=checkbox value=Y>&nbsp;|
352     . $locale->text('Group') . qq|</td>
353               </tr>
354               <tr>
355                 <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
356     . $locale->text('Subtotal') . qq|</td>
357                 <td><input name=l_soldtotal class=checkbox type=checkbox value=Y>&nbsp;|
358     . $locale->text('soldtotal') . qq|</td>
359               </tr>
360             </table>
361           </td>
362         </tr>
363       </table>
364     </td>
365   </tr>
366   <tr><td colspan=4><hr size=3 noshade></td></tr>
367 </table>
368
369 $jsscript
370
371 <input type=hidden name=nextsub value=generate_report>
372
373 <input type=hidden name=path value=$form->{path}>
374 <input type=hidden name=login value=$form->{login}>
375 <input type=hidden name=password value=$form->{password}>
376
377 <input type=hidden name=revers value="$form->{revers}">
378 <input type=hidden name=lastsort value="$form->{lastsort}">
379
380 <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
381
382 <br>
383 <input class=submit type=submit name=action value="|
384     . $locale->text('Continue') . qq|">
385 <input class=submit type=submit name=action value="|
386     . $locale->text('TOP100') . qq|">
387 </form>
388
389 </body>
390 </html>
391 |;
392   $lxdebug->leave_sub();
393 }    #end search()
394
395 sub choice {
396   $lxdebug->enter_sub();
397
398   $form->{title} = $locale->text('Top 100 hinzufuegen');
399
400   $form->header;
401
402   print qq|
403   <body>
404
405   <form method=post action=$form->{script}>
406
407   <input type=hidden name=searchitems value=$form->{searchitems}>
408   <input type=hidden name=title value="$form->{title}">
409
410   <input type=hidden name=revers value="$form->{revers}">
411   <input type=hidden name=lastsort value="$form->{lastsort}">|;
412
413   print qq|
414       <table>
415         <tr class=listheading>
416          <th class=listheading nowrap>|
417     . $locale->text('Part Number') . qq|</th>
418          <th class=listheading nowrap>|
419     . $locale->text('Part Description') . qq|</th>
420         </tr>
421         <tr valign=top>
422          <td><input type=text name=partnumber size=20 value=></td>
423          <td><input type=text name=description size=30 value=></td>
424        </tr>
425       </table>
426      <br>|;
427
428   print qq|
429
430 <input type=hidden name=path value=$form->{path}>
431 <input type=hidden name=login value=$form->{login}>
432 <input type=hidden name=password value=$form->{password}>
433
434 <input type=hidden name=itemstatus value="$form->{itemstatus}">
435 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
436 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
437 <input type=hidden name=l_description value="$form->{l_description}">
438 <input type=hidden name=l_onhand value="$form->{l_onhand}">
439 <input type=hidden name=l_unit value="$form->{l_unit}">
440 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
441 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
442 <input type=hidden name=sort value="$form->{sort}">
443 <input type=hidden name=revers value="$form->{revers}">
444 <input type=hidden name=lastsort value="$form->{lastsort}">
445
446 <input type=hidden name=bom value="$form->{bom}">
447 <input type=hidden name=titel value="$form->{titel}">
448 <input type=hidden name=searchitems value="$form->{searchitems}">
449
450 <input type=hidden name=row value=$j>
451
452 <input type=hidden name=nextsub value=item_selected>
453
454 <input type=hidden name=test value=item_selected>
455
456 <input name=lastndx type=hidden value=$lastndx>
457
458 <input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>
459
460 <input name=extras type=hidden value=$form->{extras}>|;
461
462   # if choice set data
463   if ($form->{ndx}) {
464     for ($i = 0; $i < $form->{ndxs_counter}; $i++) {
465
466       # prepeare data
467       $partnumber  = $form->{"totop100_partnumber_$j"};
468       $description = $form->{"totop100_description_$j"};
469       $unit        = $form->{"totop100_unit_$j"};
470       $sellprice   = $form->{"totop100_sellprice_$j"};
471       $soldtotal   = $form->{"totop100_soldtotal_$j"};
472
473       # insert data into top100
474       push @{ $form->{parts} },
475         { number      => "",
476           partnumber  => "$partnumber",
477           description => "$description",
478           unit        => "$unit",
479           sellprice   => "$sellprice",
480           soldtotal   => "$soldtotal" };
481     }    #rof
482   }    #fi
483
484   $totop100 = "";
485
486   # set data for next page
487   if (($form->{ndxs_counter}) > 0) {
488     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
489       $partnumber  = $form->{"totop100_partnumber_$i"};
490       $description = $form->{"totop100_description_$i"};
491       $unit        = $form->{"totop100_unit_$i"};
492       $sellprice   = $form->{"totop100_sellprice_$i"};
493       $soldtotal   = $form->{"totop100_soldtotal_$i"};
494
495       $totop100 .= qq|
496 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
497 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
498 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
499 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
500 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
501       |;
502     }    #rof
503   }    #fi
504
505   print $totop100;
506
507   print qq|
508      <input class=submit type=submit name=action value="|
509     . $locale->text('list') . qq|">
510     </form>
511
512    </body>
513   </html>|;
514   $lxdebug->leave_sub();
515 }    #end choice
516
517 sub list {
518   $lxdebug->enter_sub();
519
520   # get parts for
521   if (($form->{partnumber} eq "") and ($form->{description} eq "")) {
522     IC->get_parts(\%myconfig, \%$form, "");
523   } else {
524     if ((!($form->{partnumber} eq "")) and ($form->{description} eq "")) {
525       IC->get_parts(\%myconfig, \%$form, "partnumber");
526     } else {
527       if (($form->{partnumber} eq "") and (!($form->{description} eq ""))) {
528         IC->get_parts(\%myconfig, \%$form, "description");
529       } else {
530         IC->get_parts(\%myconfig, \%$form, "all");
531       }    #fi
532     }    #fi
533   }    #fi
534
535   $form->{title} = $locale->text('Top 100 hinzufuegen');
536
537   $form->header;
538
539   print qq|
540 <body>
541   <form method=post action=ic.pl>
542     <table width=100%>
543      <tr>
544       <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
545      </tr>
546         <tr height="5"></tr>
547         <tr class=listheading>
548           <th>&nbsp;</th>
549           <th class=listheading>| . $locale->text('Part Number') . qq|</th>
550           <th class=listheading>| . $locale->text('Part Description') . qq|</th>
551           <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
552           <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
553           <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
554         </tr>|;
555
556   my $j = 0;
557   my $i = $form->{rows};
558
559   for ($j = 1; $j <= $i; $j++) {
560
561     print qq|
562         <tr class=listrow1>|;
563     if ($j == 1) {
564       print qq|
565             <td><input name=ndx class=radio type=radio value=$j checked></td>|;
566     } else {
567       print qq|
568           <td><input name=ndx class=radio type=radio value=$j></td>|;
569     }
570     print qq|
571           <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
572           <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
573           <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
574           <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
575           <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
576         </tr>
577
578         <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
579   }
580
581   print qq|
582
583 </table>
584
585 <br>
586
587
588 <input type=hidden name=path value=$form->{path}>
589 <input type=hidden name=login value=$form->{login}>
590 <input type=hidden name=password value=$form->{password}>
591
592 <input type=hidden name=itemstatus value="$form->{itemstatus}">
593 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
594 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
595 <input type=hidden name=l_description value="$form->{l_description}">
596 <input type=hidden name=l_onhand value="$form->{l_onhand}">
597 <input type=hidden name=l_unit value="$form->{l_unit}">
598 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
599 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
600 <input type=hidden name=sort value="$form->{sort}">
601 <input type=hidden name=revers value="$form->{revers}">
602 <input type=hidden name=lastsort value="$form->{lastsort}">
603
604 <input type=hidden name=bom value="$form->{bom}">
605 <input type=hidden name=titel value="$form->{titel}">
606 <input type=hidden name=searchitems value="$form->{searchitems}">
607
608 <input type=hidden name=row value=$j>
609
610 <input type=hidden name=nextsub value=item_selected>
611
612 <input name=lastndx type=hidden value=$lastndx>
613
614 <input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
615
616   $totop100 = "";
617
618   if (($form->{ndxs_counter}) > 0) {
619     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
620       $j1 = $form->{"totop100_partnumber_$i"};
621       $j2 = $form->{"totop100_description_$i"};
622       $j3 = $form->{"totop100_unit_$i"};
623       $j4 = $form->{"totop100_sellprice_$i"};
624       $j5 = $form->{"totop100_soldtotal_$i"};
625
626       $partnumber  = $j1;
627       $description = $j2;
628       $unit        = $j3;
629       $sellprice   = $j4;
630       $soldtotal   = $j5;
631
632       $totop100 .= qq|
633 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
634 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
635 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
636 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
637 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
638       |;
639     }    #rof
640   }    #fi
641
642   print $totop100;
643
644   print qq|
645 <input class=submit type=submit name=action value="|
646     . $locale->text('TOP100') . qq|">
647
648 </form>
649 </body>
650 </html>
651 |;
652   $lxdebug->leave_sub();
653 }    #end list()
654
655 sub top100 {
656   $lxdebug->enter_sub();
657
658   if ($form->{ndx}) {
659     $form->{ndxs_counter}++;
660
661     if ($form->{ndxs_counter} > 0) {
662
663       $index = $form->{ndx};
664
665       $j1 = $form->{"new_partnumber_$index"};
666       $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $j1;
667       $j2 = $form->{"new_description_$index"};
668       $form->{"totop100_description_$form->{ndxs_counter}"} = $j2;
669       $j3 = $form->{"new_unit_$index"};
670       $form->{"totop100_unit_$form->{ndxs_counter}"} = $j3;
671       $j4 = $form->{"new_sellprice_$index"};
672       $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $j4;
673       $j5 = $form->{"new_soldtotal_$index"};
674       $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $j5;
675     }    #fi
676   }    #fi
677   &addtop100();
678   $lxdebug->leave_sub();
679 }    #end top100
680
681 sub addtop100 {
682   $lxdebug->enter_sub();
683
684   $form->{top100}      = "top100";
685   $form->{l_soldtotal} = "Y";
686   $form->{soldtotal}   = "soldtotal";
687   $form->{sort}        = "soldtotal";
688   $form->{l_qty}       = "N";
689   $callback .= "&form->{top100}=$form->{top100}";
690   $form->{l_linetotal} = "";
691   $form->{revers}      = 1;
692   $form->{number}      = "position";
693   $form->{l_number}    = "Y";
694
695   my $totop100 = "";
696
697   $form->{title} = $locale->text('Top 100');
698
699   $revers   = $form->{revers};
700   $lastsort = $form->{lastsort};
701
702   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
703     $form->{revers}   = 0;
704     $form->{lastsort} = "partnumber";
705     $form->{sort}     = "partnumber";
706   }    #fi
707
708   $callback =
709     "$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="
710     . $form->escape($form->{title}, 1);
711
712   # if we have a serialnumber limit search
713   if ($form->{serialnumber} || $form->{l_serialnumber}) {
714     $form->{l_serialnumber} = "Y";
715     unless (   $form->{bought}
716             || $form->{sold}
717             || $form->{rfq}
718             || $form->{quoted}) {
719       $form->{bought} = $form->{sold} = 1;
720     }
721   }
722   IC->all_parts(\%myconfig, \%$form);
723
724   if ($form->{itemstatus} eq 'active') {
725     $option .= $locale->text('Active') . " : ";
726   }
727   if ($form->{itemstatus} eq 'obsolete') {
728     $option .= $locale->text('Obsolete') . " : ";
729   }
730   if ($form->{itemstatus} eq 'orphaned') {
731     $option .= $locale->text('Orphaned') . " : ";
732   }
733   if ($form->{itemstatus} eq 'onhand') {
734     $option .= $locale->text('On Hand') . " : ";
735     $form->{l_onhand} = "Y";
736   }
737   if ($form->{itemstatus} eq 'short') {
738     $option .= $locale->text('Short') . " : ";
739     $form->{l_onhand} = "Y";
740   }
741   if ($form->{onorder}) {
742     $form->{l_ordnumber} = "Y";
743     $callback .= "&onorder=$form->{onorder}";
744     $option   .= $locale->text('On Order') . " : ";
745   }
746   if ($form->{ordered}) {
747     $form->{l_ordnumber} = "Y";
748     $callback .= "&ordered=$form->{ordered}";
749     $option   .= $locale->text('Ordered') . " : ";
750   }
751   if ($form->{rfq}) {
752     $form->{l_quonumber} = "Y";
753     $callback .= "&rfq=$form->{rfq}";
754     $option   .= $locale->text('RFQ') . " : ";
755   }
756   if ($form->{quoted}) {
757     $form->{l_quonumber} = "Y";
758     $callback .= "&quoted=$form->{quoted}";
759     $option   .= $locale->text('Quoted') . " : ";
760   }
761   if ($form->{bought}) {
762     $form->{l_invnumber} = "Y";
763     $callback .= "&bought=$form->{bought}";
764     $option   .= $locale->text('Bought') . " : ";
765   }
766   if ($form->{sold}) {
767     $form->{l_invnumber} = "Y";
768     $callback .= "&sold=$form->{sold}";
769     $option   .= $locale->text('Sold') . " : ";
770   }
771   if (   $form->{bought}
772       || $form->{sold}
773       || $form->{onorder}
774       || $form->{ordered}
775       || $form->{rfq}
776       || $form->{quoted}) {
777
778     $form->{l_lastcost} = "";
779     $form->{l_name}     = "Y";
780     if ($form->{transdatefrom}) {
781       $callback .= "&transdatefrom=$form->{transdatefrom}";
782       $option   .= "\n<br>"
783         . $locale->text('From')
784         . "&nbsp;"
785         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
786     }
787     if ($form->{transdateto}) {
788       $callback .= "&transdateto=$form->{transdateto}";
789       $option   .= "\n<br>"
790         . $locale->text('To')
791         . "&nbsp;"
792         . $locale->date(\%myconfig, $form->{transdateto}, 1);
793     }
794   }
795
796   $option .= "<br>";
797
798   if ($form->{partnumber}) {
799     $callback .= "&partnumber=$form->{partnumber}";
800     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
801   }
802   if ($form->{partsgroup}) {
803     $callback .= "&partsgroup=$form->{partsgroup}";
804     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
805   }
806   if ($form->{serialnumber}) {
807     $callback .= "&serialnumber=$form->{serialnumber}";
808     $option   .=
809       $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
810   }
811   if ($form->{description}) {
812     $callback .= "&description=$form->{description}";
813     $description = $form->{description};
814     $description =~ s/
815 /<br>/g;
816     $option .=
817       $locale->text('Part Description') . qq| : $form->{description}<br>|;
818   }
819   if ($form->{make}) {
820     $callback .= "&make=$form->{make}";
821     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
822   }
823   if ($form->{model}) {
824     $callback .= "&model=$form->{model}";
825     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
826   }
827   if ($form->{drawing}) {
828     $callback .= "&drawing=$form->{drawing}";
829     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
830   }
831   if ($form->{microfiche}) {
832     $callback .= "&microfiche=$form->{microfiche}";
833     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
834   }
835   if ($form->{l_soldtotal}) {
836     $callback .= "&soldtotal=$form->{soldtotal}";
837     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
838   }
839
840   @columns = $form->sort_columns(
841     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)
842   );
843
844   if ($form->{l_linetotal}) {
845     $form->{l_onhand} = "Y";
846     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
847     if ($form->{l_lastcost}) {
848       $form->{l_linetotallastcost} = "Y";
849       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
850         $form->{l_linetotallastcost} = "";
851       }
852     }
853     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
854   }
855
856   if ($form->{searchitems} eq 'service') {
857
858     # remove bin, weight and rop from list
859     map { $form->{"l_$_"} = "" } qw(bin weight rop);
860
861     $form->{l_onhand} = "";
862
863     # qty is irrelevant unless bought or sold
864     if (   $form->{bought}
865         || $form->{sold}
866         || $form->{onorder}
867         || $form->{ordered}
868         || $form->{rfq}
869         || $form->{quoted}) {
870       $form->{l_onhand} = "Y";
871         } else {
872       $form->{l_linetotalsellprice} = "";
873       $form->{l_linetotallastcost}  = "";
874     }
875   }
876
877   $form->{l_lastcost} = ""
878     if ($form->{searchitems} eq 'assembly' && !$form->{bom});
879
880   foreach $item (@columns) {
881     if ($form->{"l_$item"} eq "Y") {
882       push @column_index, $item;
883
884       # add column to callback
885       $callback .= "&l_$item=Y";
886     }
887   }
888
889   if ($form->{l_subtotal} eq 'Y') {
890     $callback .= "&l_subtotal=Y";
891   }
892
893   $column_header{number} =
894     qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
895   $column_header{partnumber} =
896     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
897     . $locale->text('Part Number')
898     . qq|</a></th>|;
899   $column_header{description} =
900     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
901     . $locale->text('Part Description')
902     . qq|</a></th>|;
903   $column_header{partsgroup} =
904       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
905     . $locale->text('Group')
906     . qq|</a></th>|;
907   $column_header{bin} =
908       qq|<th><a class=listheading href=$callback&sort=bin>|
909     . $locale->text('Bin')
910     . qq|</a></th>|;
911   $column_header{priceupdate} =
912       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
913     . $locale->text('Updated')
914     . qq|</a></th>|;
915   $column_header{onhand} =
916     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
917     . $locale->text('Qty')
918     . qq|</th>|;
919   $column_header{unit} =
920     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
921   $column_header{listprice} =
922       qq|<th class=listheading nowrap>|
923     . $locale->text('List Price')
924     . qq|</th>|;
925   $column_header{lastcost} =
926     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
927   $column_header{rop} =
928     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
929   $column_header{weight} =
930     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
931
932   $column_header{invnumber} =
933       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
934     . $locale->text('Invoice Number')
935     . qq|</a></th>|;
936   $column_header{ordnumber} =
937       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
938     . $locale->text('Order Number')
939     . qq|</a></th>|;
940   $column_header{quonumber} =
941       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
942     . $locale->text('Quotation')
943     . qq|</a></th>|;
944
945   $column_header{name} =
946       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
947     . $locale->text('Name')
948     . qq|</a></th>|;
949
950   $column_header{sellprice} =
951       qq|<th class=listheading nowrap>|
952     . $locale->text('Sell Price')
953     . qq|</th>|;
954   $column_header{linetotalsellprice} =
955     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
956   $column_header{linetotallastcost} =
957     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
958   $column_header{linetotallistprice} =
959     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
960
961   $column_header{image} =
962     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
963   $column_header{drawing} =
964       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
965     . $locale->text('Drawing')
966     . qq|</a></th>|;
967   $column_header{microfiche} =
968       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
969     . $locale->text('Microfiche')
970     . qq|</a></th>|;
971
972   $column_header{serialnumber} =
973       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
974     . $locale->text('Serial Number')
975     . qq|</a></th>|;
976   $column_header{soldtotal} =
977     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
978     . $locale->text('soldtotal')
979     . qq|</a></th>|;
980
981   $form->header;
982   $colspan = $#column_index + 1;
983
984   print qq|
985 <body>
986
987 <table width=100%>
988   <tr>
989     <th class=listtop colspan=$colspan>$form->{title}</th>
990   </tr>
991   <tr height="5"></tr>
992
993   <tr><td colspan=$colspan>$option</td></tr>
994
995   <tr class=listheading>
996 |;
997
998   map { print "\n$column_header{$_}" } @column_index;
999
1000   print qq|
1001   </tr>
1002   |;
1003
1004   # add order to callback
1005   $form->{callback} = $callback .= "&sort=$form->{sort}";
1006
1007   # escape callback for href
1008   $callback = $form->escape($callback);
1009
1010   if (@{ $form->{parts} }) {
1011     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
1012   }
1013
1014   # insert numbers for top100
1015   my $j = 0;
1016   foreach $ref (@{ $form->{parts} }) {
1017     $j++;
1018     $ref->{number} = $j;
1019   }
1020
1021   # if avaible -> insert choice here
1022   if (($form->{ndxs_counter}) > 0) {
1023     for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
1024       $partnumber  = $form->{"totop100_partnumber_$i"};
1025       $description = $form->{"totop100_description_$i"};
1026       $unit        = $form->{"totop100_unit_$i"};
1027       $sellprice   = $form->{"totop100_sellprice_$i"};
1028       $soldtotal   = $form->{"totop100_soldtotal_$i"};
1029
1030       $totop100 .= qq|
1031 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
1032 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
1033 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
1034 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
1035 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
1036       |;
1037
1038       # insert into list
1039       push @{ $form->{parts} },
1040         { number      => "",
1041           partnumber  => "$partnumber",
1042           description => "$description",
1043           unit        => "$unit",
1044           sellprice   => "$sellprice",
1045           soldtotal   => "$soldtotal" };
1046     }    #rof
1047   }    #fi
1048        # build data for columns
1049   foreach $ref (@{ $form->{parts} }) {
1050
1051     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
1052       if ($sameitem ne $ref->{ $form->{sort} }) {
1053         &parts_subtotal;
1054         $sameitem = $ref->{ $form->{sort} };
1055       }
1056     }
1057
1058     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
1059     $ref->{sellprice} *= $ref->{exchangerate};
1060     $ref->{listprice} *= $ref->{exchangerate};
1061     $ref->{lastcost}  *= $ref->{exchangerate};
1062
1063     # use this for assemblies
1064     $onhand = $ref->{onhand};
1065
1066     $align = "left";
1067     if ($ref->{assemblyitem}) {
1068       $align = "right";
1069       $onhand = 0 if ($form->{sold});
1070     }
1071
1072     $ref->{description} =~ s/
1073 /<br>/g;
1074
1075     $column_data{number} =
1076         "<td align=right>"
1077       . $form->format_amount(\%myconfig, $ref->{number}, '', "&nbsp;")
1078       . "</td>";
1079     $column_data{partnumber} =
1080       "<td align=$align>$ref->{partnumber}&nbsp;</a></td>";
1081     $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
1082     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
1083
1084     $column_data{onhand} =
1085         "<td align=right>"
1086       . $form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;")
1087       . "</td>";
1088     $column_data{sellprice} =
1089         "<td align=right>"
1090       . $form->format_amount(\%myconfig, $ref->{sellprice}, 2, "&nbsp;")
1091       . "</td>";
1092     $column_data{listprice} =
1093         "<td align=right>"
1094       . $form->format_amount(\%myconfig, $ref->{listprice}, 2, "&nbsp;")
1095       . "</td>";
1096     $column_data{lastcost} =
1097         "<td align=right>"
1098       . $form->format_amount(\%myconfig, $ref->{lastcost}, 2, "&nbsp;")
1099       . "</td>";
1100
1101     $column_data{linetotalsellprice} = "<td align=right>"
1102       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice},
1103                              2, "&nbsp;")
1104       . "</td>";
1105     $column_data{linetotallastcost} = "<td align=right>"
1106       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost},
1107                              2, "&nbsp;")
1108       . "</td>";
1109     $column_data{linetotallistprice} = "<td align=right>"
1110       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice},
1111                              2, "&nbsp;")
1112       . "</td>";
1113
1114     if (!$ref->{assemblyitem}) {
1115       $totalsellprice += $onhand * $ref->{sellprice};
1116       $totallastcost  += $onhand * $ref->{lastcost};
1117       $totallistprice += $onhand * $ref->{listprice};
1118
1119       $subtotalonhand    += $onhand;
1120       $subtotalsellprice += $onhand * $ref->{sellprice};
1121       $subtotallastcost  += $onhand * $ref->{lastcost};
1122       $subtotallistprice += $onhand * $ref->{listprice};
1123     }
1124
1125     $column_data{rop} =
1126       "<td align=right>"
1127       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;") . "</td>";
1128     $column_data{weight} =
1129         "<td align=right>"
1130       . $form->format_amount(\%myconfig, $ref->{weight}, '', "&nbsp;")
1131       . "</td>";
1132     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
1133     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
1134     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
1135
1136     $column_data{invnumber} =
1137       ($ref->{module} ne 'oe')
1138       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
1139       : "<td>$ref->{invnumber}</td>";
1140     $column_data{ordnumber} =
1141       ($ref->{module} eq 'oe')
1142       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
1143       : "<td>$ref->{ordnumber}</td>";
1144     $column_data{quonumber} =
1145       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
1146       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
1147       : "<td>$ref->{quonumber}</td>";
1148
1149     $column_data{name} = "<td>$ref->{name}</td>";
1150
1151     $column_data{image} =
1152       ($ref->{image})
1153       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
1154       : "<td>&nbsp;</td>";
1155     $column_data{drawing} =
1156       ($ref->{drawing})
1157       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
1158       : "<td>&nbsp;</td>";
1159     $column_data{microfiche} =
1160       ($ref->{microfiche})
1161       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
1162       : "<td>&nbsp;</td>";
1163
1164     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
1165
1166     $column_data{soldtotal} = "<td  align=right>$ref->{soldtotal}</td>";
1167
1168     $i++;
1169     $i %= 2;
1170     print "<tr class=listrow$i>";
1171
1172     map { print "\n$column_data{$_}" } @column_index;
1173
1174     print qq|
1175     </tr>
1176 |;
1177   }
1178
1179   if ($form->{l_subtotal} eq 'Y') {
1180     &parts_subtotal;
1181   }    #fi
1182
1183   if ($form->{"l_linetotal"}) {
1184     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1185     $column_data{linetotalsellprice} =
1186         "<th class=listtotal align=right>"
1187       . $form->format_amount(\%myconfig, $totalsellprice, 2, "&nbsp;")
1188       . "</th>";
1189     $column_data{linetotallastcost} =
1190         "<th class=listtotal align=right>"
1191       . $form->format_amount(\%myconfig, $totallastcost, 2, "&nbsp;")
1192       . "</th>";
1193     $column_data{linetotallistprice} =
1194         "<th class=listtotal align=right>"
1195       . $form->format_amount(\%myconfig, $totallistprice, 2, "&nbsp;")
1196       . "</th>";
1197
1198     print "<tr class=listtotal>";
1199
1200     map { print "\n$column_data{$_}" } @column_index;
1201
1202     print qq|</tr>
1203     |;
1204   }
1205
1206   print qq|
1207   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
1208 </table>
1209
1210 |;
1211
1212   print qq|
1213
1214 <br>
1215
1216 <form method=post action=$form->{script}>
1217
1218 <input type=hidden name=path value=$form->{path}>
1219 <input type=hidden name=login value=$form->{login}>
1220 <input type=hidden name=password value=$form->{password}>
1221
1222 <input type=hidden name=itemstatus value="$form->{itemstatus}">
1223 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
1224 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
1225 <input type=hidden name=l_description value="$form->{l_description}">
1226 <input type=hidden name=l_onhand value="$form->{l_onhand}">
1227 <input type=hidden name=l_unit value="$form->{l_unit}">
1228 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
1229 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
1230 <input type=hidden name=sort value="$form->{sort}">
1231 <input type=hidden name=revers value="$form->{revers}">
1232 <input type=hidden name=lastsort value="$form->{lastsort}">
1233 <input type=hidden name=parts value="$form->{parts}">
1234
1235 <input type=hidden name=bom value="$form->{bom}">
1236 <input type=hidden name=titel value="$form->{titel}">
1237 <input type=hidden name=searchitems value="$form->{searchitems}">|;
1238
1239   print $totop100;
1240
1241   print qq|
1242     <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">
1243
1244     <input class=submit type=submit name=action value="|
1245     . $locale->text('choice') . qq|">|;
1246
1247   if ($form->{menubar}) {
1248     require "$form->{path}/menu.pl";
1249     &menubar;
1250   }
1251
1252   print qq|
1253   </form>
1254
1255 </body>
1256 </html>
1257 |;
1258
1259   $lxdebug->leave_sub();
1260 }    # end addtop100
1261
1262 sub generate_report {
1263   $lxdebug->enter_sub();
1264
1265   $revers   = $form->{revers};
1266   $lastsort = $form->{lastsort};
1267
1268   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1269     $form->{revers}   = 0;
1270     $form->{lastsort} = "partnumber";
1271     $form->{sort}     = "partnumber";
1272   } else {
1273
1274     # switch between backward sorting of tables
1275     if ($form->{lastsort} eq $form->{sort}) {
1276       if ($form->{revers} == 0) {
1277         $form->{revers} = 1;
1278       } else {
1279         $form->{revers} = 0;
1280       }    #fi
1281     } else {
1282       $form->{revers} == 0;
1283       $form->{lastsort} = $form->{sort};
1284     }    #fi
1285   }    #fi
1286
1287   $callback =
1288     "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
1289     . $form->escape($form->{title}, 1);
1290
1291   # if we have a serialnumber limit search
1292   if ($form->{serialnumber} || $form->{l_serialnumber}) {
1293     $form->{l_serialnumber} = "Y";
1294     unless (   $form->{bought}
1295             || $form->{sold}
1296             || $form->{rfq}
1297             || $form->{quoted}) {
1298       $form->{bought} = $form->{sold} = 1;
1299     }
1300   }
1301
1302   IC->all_parts(\%myconfig, \%$form);
1303
1304   if ($form->{itemstatus} eq 'active') {
1305     $option .= $locale->text('Active') . " : ";
1306   }
1307   if ($form->{itemstatus} eq 'obsolete') {
1308     $option .= $locale->text('Obsolete') . " : ";
1309   }
1310   if ($form->{itemstatus} eq 'orphaned') {
1311     $option .= $locale->text('Orphaned') . " : ";
1312   }
1313   if ($form->{itemstatus} eq 'onhand') {
1314     $option .= $locale->text('On Hand') . " : ";
1315     $form->{l_onhand} = "Y";
1316   }
1317   if ($form->{itemstatus} eq 'short') {
1318     $option .= $locale->text('Short') . " : ";
1319     $form->{l_onhand} = "Y";
1320   }
1321   if ($form->{onorder}) {
1322     $form->{l_ordnumber} = "Y";
1323     $callback .= "&onorder=$form->{onorder}";
1324     $option   .= $locale->text('On Order') . " : ";
1325   }
1326   if ($form->{ordered}) {
1327     $form->{l_ordnumber} = "Y";
1328     $callback .= "&ordered=$form->{ordered}";
1329     $option   .= $locale->text('Ordered') . " : ";
1330   }
1331   if ($form->{rfq}) {
1332     $form->{l_quonumber} = "Y";
1333     $callback .= "&rfq=$form->{rfq}";
1334     $option   .= $locale->text('RFQ') . " : ";
1335   }
1336   if ($form->{quoted}) {
1337     $form->{l_quonumber} = "Y";
1338     $callback .= "&quoted=$form->{quoted}";
1339     $option   .= $locale->text('Quoted') . " : ";
1340   }
1341   if ($form->{bought}) {
1342     $form->{l_invnumber} = "Y";
1343     $callback .= "&bought=$form->{bought}";
1344     $option   .= $locale->text('Bought') . " : ";
1345   }
1346   if ($form->{sold}) {
1347     $form->{l_invnumber} = "Y";
1348     $callback .= "&sold=$form->{sold}";
1349     $option   .= $locale->text('Sold') . " : ";
1350   }
1351   if (   $form->{bought}
1352       || $form->{sold}
1353       || $form->{onorder}
1354       || $form->{ordered}
1355       || $form->{rfq}
1356       || $form->{quoted}) {
1357
1358     $form->{l_lastcost} = "";
1359     $form->{l_name}     = "Y";
1360     if ($form->{transdatefrom}) {
1361       $callback .= "&transdatefrom=$form->{transdatefrom}";
1362       $option   .= "\n<br>"
1363         . $locale->text('From')
1364         . "&nbsp;"
1365         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
1366     }
1367     if ($form->{transdateto}) {
1368       $callback .= "&transdateto=$form->{transdateto}";
1369       $option   .= "\n<br>"
1370         . $locale->text('To')
1371         . "&nbsp;"
1372         . $locale->date(\%myconfig, $form->{transdateto}, 1);
1373     }
1374   }
1375
1376   $option .= "<br>";
1377
1378   if ($form->{partnumber}) {
1379     $callback .= "&partnumber=$form->{partnumber}";
1380     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
1381   }
1382   if ($form->{partsgroup}) {
1383     $callback .= "&partsgroup=$form->{partsgroup}";
1384     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
1385   }
1386   if ($form->{serialnumber}) {
1387     $callback .= "&serialnumber=$form->{serialnumber}";
1388     $option   .=
1389       $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
1390   }
1391   if ($form->{description}) {
1392     $callback .= "&description=$form->{description}";
1393     $description = $form->{description};
1394     $description =~ s/
1395 /<br>/g;
1396     $option .=
1397       $locale->text('Part Description') . qq| : $form->{description}<br>|;
1398   }
1399   if ($form->{make}) {
1400     $callback .= "&make=$form->{make}";
1401     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
1402   }
1403   if ($form->{model}) {
1404     $callback .= "&model=$form->{model}";
1405     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
1406   }
1407   if ($form->{drawing}) {
1408     $callback .= "&drawing=$form->{drawing}";
1409     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
1410   }
1411   if ($form->{microfiche}) {
1412     $callback .= "&microfiche=$form->{microfiche}";
1413     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
1414   }
1415
1416   # table soldtotal aktive
1417   if ($form->{l_soldtotal}) {
1418     $callback .= "&soldtotal=$form->{soldtotal}";
1419     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
1420   }
1421
1422   @columns = $form->sort_columns(
1423     qw(partnumber description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
1424   );
1425
1426   if ($form->{l_linetotal}) {
1427     $form->{l_onhand} = "Y";
1428     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1429     if ($form->{l_lastcost}) {
1430       $form->{l_linetotallastcost} = "Y";
1431       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
1432         $form->{l_linetotallastcost} = "";
1433       }
1434     }
1435     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1436   }
1437
1438   if ($form->{searchitems} eq 'service') {
1439
1440     # remove bin, weight and rop from list
1441     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1442
1443     $form->{l_onhand} = "";
1444
1445     # qty is irrelevant unless bought or sold
1446     if (   $form->{bought}
1447         || $form->{sold}
1448         || $form->{onorder}
1449         || $form->{ordered}
1450         || $form->{rfq}
1451         || $form->{quoted}) {
1452       $form->{l_onhand} = "Y";
1453         } else {
1454       $form->{l_linetotalsellprice} = "";
1455       $form->{l_linetotallastcost}  = "";
1456     }
1457   }
1458
1459   $form->{l_lastcost} = ""
1460     if ($form->{searchitems} eq 'assembly' && !$form->{bom});
1461
1462   foreach $item (@columns) {
1463     if ($form->{"l_$item"} eq "Y") {
1464       push @column_index, $item;
1465
1466       # add column to callback
1467       $callback .= "&l_$item=Y";
1468     }
1469   }
1470
1471   if ($form->{l_subtotal} eq 'Y') {
1472     $callback .= "&l_subtotal=Y";
1473   }
1474   $column_header{partnumber} =
1475     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1476     . $locale->text('Part Number')
1477     . qq|</a></th>|;
1478   $column_header{description} =
1479     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1480     . $locale->text('Part Description')
1481     . qq|</a></th>|;
1482   $column_header{partsgroup} =
1483       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
1484     . $locale->text('Group')
1485     . qq|</a></th>|;
1486   $column_header{bin} =
1487       qq|<th><a class=listheading href=$callback&sort=bin>|
1488     . $locale->text('Bin')
1489     . qq|</a></th>|;
1490   $column_header{priceupdate} =
1491       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
1492     . $locale->text('Updated')
1493     . qq|</a></th>|;
1494   $column_header{onhand} =
1495     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1496     . $locale->text('Qty')
1497     . qq|</th>|;
1498   $column_header{unit} =
1499     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
1500   $column_header{listprice} =
1501       qq|<th class=listheading nowrap>|
1502     . $locale->text('List Price')
1503     . qq|</th>|;
1504   $column_header{lastcost} =
1505     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
1506   $column_header{rop} =
1507     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
1508   $column_header{weight} =
1509     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
1510
1511   $column_header{invnumber} =
1512       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
1513     . $locale->text('Invoice Number')
1514     . qq|</a></th>|;
1515   $column_header{ordnumber} =
1516       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
1517     . $locale->text('Order Number')
1518     . qq|</a></th>|;
1519   $column_header{quonumber} =
1520       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
1521     . $locale->text('Quotation')
1522     . qq|</a></th>|;
1523
1524   $column_header{name} =
1525       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
1526     . $locale->text('Name')
1527     . qq|</a></th>|;
1528
1529   $column_header{sellprice} =
1530       qq|<th class=listheading nowrap>|
1531     . $locale->text('Sell Price')
1532     . qq|</th>|;
1533   $column_header{linetotalsellprice} =
1534     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1535   $column_header{linetotallastcost} =
1536     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1537   $column_header{linetotallistprice} =
1538     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
1539
1540   $column_header{image} =
1541     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
1542   $column_header{drawing} =
1543       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
1544     . $locale->text('Drawing')
1545     . qq|</a></th>|;
1546   $column_header{microfiche} =
1547       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
1548     . $locale->text('Microfiche')
1549     . qq|</a></th>|;
1550
1551   $column_header{serialnumber} =
1552       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
1553     . $locale->text('Serial Number')
1554     . qq|</a></th>|;
1555   $column_header{soldtotal} =
1556     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
1557     . $locale->text('soldtotal')
1558     . qq|</a></th>|;
1559
1560   $form->header;
1561   $colspan = $#column_index + 1;
1562
1563   print qq|
1564 <body>
1565
1566 <table width=100%>
1567   <tr>
1568     <th class=listtop colspan=$colspan>$form->{title}</th>
1569   </tr>
1570   <tr height="5"></tr>
1571
1572   <tr><td colspan=$colspan>$option</td></tr>
1573
1574   <tr class=listheading>
1575 |;
1576
1577   map { print "\n$column_header{$_}" } @column_index;
1578
1579   print qq|
1580   </tr>
1581   |;
1582
1583   # add order to callback
1584   $form->{callback} = $callback .= "&sort=$form->{sort}";
1585
1586   # escape callback for href
1587   $callback = $form->escape($callback);
1588
1589   if (@{ $form->{parts} }) {
1590     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
1591   }
1592
1593   foreach $ref (@{ $form->{parts} }) {
1594
1595     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
1596       if ($sameitem ne $ref->{ $form->{sort} }) {
1597         &parts_subtotal;
1598         $sameitem = $ref->{ $form->{sort} };
1599       }
1600     }
1601
1602     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
1603     $ref->{sellprice} *= $ref->{exchangerate};
1604     $ref->{listprice} *= $ref->{exchangerate};
1605     $ref->{lastcost}  *= $ref->{exchangerate};
1606
1607     # use this for assemblies
1608     $onhand = $ref->{onhand};
1609
1610     $align = "left";
1611     if ($ref->{assemblyitem}) {
1612       $align = "right";
1613       $onhand = 0 if ($form->{sold});
1614     }
1615
1616     $ref->{description} =~ s/
1617 /<br>/g;
1618
1619     $column_data{partnumber} =
1620       "<td align=$align><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
1621     $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
1622     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
1623
1624     $column_data{onhand} =
1625         "<td align=right>"
1626       . $form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;")
1627       . "</td>";
1628     $column_data{sellprice} =
1629         "<td align=right>"
1630       . $form->format_amount(\%myconfig, $ref->{sellprice}, 2, "&nbsp;")
1631       . "</td>";
1632     $column_data{listprice} =
1633         "<td align=right>"
1634       . $form->format_amount(\%myconfig, $ref->{listprice}, 2, "&nbsp;")
1635       . "</td>";
1636     $column_data{lastcost} =
1637         "<td align=right>"
1638       . $form->format_amount(\%myconfig, $ref->{lastcost}, 2, "&nbsp;")
1639       . "</td>";
1640
1641     $column_data{linetotalsellprice} = "<td align=right>"
1642       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice},
1643                              2, "&nbsp;")
1644       . "</td>";
1645     $column_data{linetotallastcost} = "<td align=right>"
1646       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost},
1647                              2, "&nbsp;")
1648       . "</td>";
1649     $column_data{linetotallistprice} = "<td align=right>"
1650       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice},
1651                              2, "&nbsp;")
1652       . "</td>";
1653
1654     if (!$ref->{assemblyitem}) {
1655       $totalsellprice += $onhand * $ref->{sellprice};
1656       $totallastcost  += $onhand * $ref->{lastcost};
1657       $totallistprice += $onhand * $ref->{listprice};
1658
1659       $subtotalonhand    += $onhand;
1660       $subtotalsellprice += $onhand * $ref->{sellprice};
1661       $subtotallastcost  += $onhand * $ref->{lastcost};
1662       $subtotallistprice += $onhand * $ref->{listprice};
1663     }
1664
1665     $column_data{rop} =
1666       "<td align=right>"
1667       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;") . "</td>";
1668     $column_data{weight} =
1669         "<td align=right>"
1670       . $form->format_amount(\%myconfig, $ref->{weight}, '', "&nbsp;")
1671       . "</td>";
1672     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
1673     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
1674     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
1675
1676     $column_data{invnumber} =
1677       ($ref->{module} ne 'oe')
1678       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}</a></td>"
1679       : "<td>$ref->{invnumber}</td>";
1680     $column_data{ordnumber} =
1681       ($ref->{module} eq 'oe')
1682       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}</a></td>"
1683       : "<td>$ref->{ordnumber}</td>";
1684     $column_data{quonumber} =
1685       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
1686       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}</a></td>"
1687       : "<td>$ref->{quonumber}</td>";
1688
1689     $column_data{name} = "<td>$ref->{name}</td>";
1690
1691     $column_data{image} =
1692       ($ref->{image})
1693       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
1694       : "<td>&nbsp;</td>";
1695     $column_data{drawing} =
1696       ($ref->{drawing})
1697       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
1698       : "<td>&nbsp;</td>";
1699     $column_data{microfiche} =
1700       ($ref->{microfiche})
1701       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
1702       : "<td>&nbsp;</td>";
1703
1704     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
1705
1706     $column_data{soldtotal} =
1707         "<td align=right>"
1708       . $form->format_amount(\%myconfig, $ref->{soldtotal}, '', "&nbsp;")
1709       . "</td>";
1710
1711     $i++;
1712     $i %= 2;
1713     print "<tr class=listrow$i>";
1714
1715     map { print "\n$column_data{$_}" } @column_index;
1716
1717     print qq|
1718     </tr>
1719 |;
1720
1721   }
1722
1723   if ($form->{l_subtotal} eq 'Y') {
1724     &parts_subtotal;
1725   }
1726
1727   if ($form->{"l_linetotal"}) {
1728     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1729     $column_data{linetotalsellprice} =
1730         "<th class=listtotal align=right>"
1731       . $form->format_amount(\%myconfig, $totalsellprice, 2, "&nbsp;")
1732       . "</th>";
1733     $column_data{linetotallastcost} =
1734         "<th class=listtotal align=right>"
1735       . $form->format_amount(\%myconfig, $totallastcost, 2, "&nbsp;")
1736       . "</th>";
1737     $column_data{linetotallistprice} =
1738         "<th class=listtotal align=right>"
1739       . $form->format_amount(\%myconfig, $totallistprice, 2, "&nbsp;")
1740       . "</th>";
1741
1742     print "<tr class=listtotal>";
1743
1744     map { print "\n$column_data{$_}" } @column_index;
1745
1746     print qq|</tr>
1747     |;
1748   }
1749
1750   print qq|
1751   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
1752 </table>
1753
1754 |;
1755
1756   print qq|
1757
1758 <br>
1759
1760 <form method=post action=$form->{script}>
1761
1762 <input name=callback type=hidden value="$form->{callback}">
1763
1764 <input type=hidden name=item value=$form->{searchitems}>
1765
1766 <input type=hidden name=path value=$form->{path}>
1767 <input type=hidden name=login value=$form->{login}>
1768 <input type=hidden name=password value=$form->{password}>|;
1769
1770   print qq|
1771   <input class=submit type=submit name=action value="|
1772     . $locale->text('Add') . qq|">|;
1773
1774   if ($form->{menubar}) {
1775     require "$form->{path}/menu.pl";
1776     &menubar;
1777   }
1778
1779   print qq|
1780   </form>
1781
1782 </body>
1783 </html>
1784 |;
1785
1786   $lxdebug->leave_sub();
1787 }    #end generate_report
1788
1789 sub parts_subtotal {
1790   $lxdebug->enter_sub();
1791
1792   map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
1793   $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1794
1795   $column_data{onhand} =
1796       "<th class=listsubtotal align=right>"
1797     . $form->format_amount(\%myconfig, $subtotalonhand, '', "&nbsp;")
1798     . "</th>";
1799
1800   $column_data{linetotalsellprice} =
1801       "<th class=listsubtotal align=right>"
1802     . $form->format_amount(\%myconfig, $subtotalsellprice, 2, "&nbsp;")
1803     . "</th>";
1804   $column_data{linetotallistprice} =
1805       "<th class=listsubtotal align=right>"
1806     . $form->format_amount(\%myconfig, $subtotallistprice, 2, "&nbsp;")
1807     . "</th>";
1808   $column_data{linetotallastcost} =
1809       "<th class=listsubtotal align=right>"
1810     . $form->format_amount(\%myconfig, $subtotallastcost, 2, "&nbsp;")
1811     . "</th>";
1812
1813   $subtotalonhand    = 0;
1814   $subtotalsellprice = 0;
1815   $subtotallistprice = 0;
1816   $subtotallastcost  = 0;
1817
1818   print "<tr class=listsubtotal>";
1819
1820   map { print "\n$column_data{$_}" } @column_index;
1821
1822   print qq|
1823   </tr>
1824 |;
1825
1826   $lxdebug->leave_sub();
1827 }
1828
1829 sub edit {
1830   $lxdebug->enter_sub();
1831
1832   IC->get_part(\%myconfig, \%$form);
1833
1834   $form->{title} = $locale->text('Edit ' . ucfirst $form->{item});
1835
1836   &link_part;
1837   &display_form;
1838
1839   $lxdebug->leave_sub();
1840 }
1841
1842 sub link_part {
1843   $lxdebug->enter_sub();
1844
1845   IC->create_links("IC", \%myconfig, \%$form);
1846
1847   # currencies
1848   map { $form->{selectcurrency} .= "<option>$_\n" } split /:/,
1849     $form->{currencies};
1850
1851   # parts and assemblies have the same links
1852   $item = $form->{item};
1853   if ($form->{item} eq 'assembly') {
1854     $item = 'part';
1855   }
1856
1857   # build the popup menus
1858   $form->{taxaccounts} = "";
1859   foreach $key (keys %{ $form->{IC_links} }) {
1860     foreach $ref (@{ $form->{IC_links}{$key} }) {
1861
1862       # if this is a tax field
1863       if ($key =~ /IC_tax/) {
1864         if ($key =~ /$item/) {
1865           $form->{taxaccounts} .= "$ref->{accno} ";
1866           $form->{"IC_tax_$ref->{accno}_description"} =
1867             "$ref->{accno}--$ref->{description}";
1868
1869           if ($form->{id}) {
1870             if ($form->{amount}{ $ref->{accno} }) {
1871               $form->{"IC_tax_$ref->{accno}"} = "checked";
1872             }
1873           } else {
1874             $form->{"IC_tax_$ref->{accno}"} = "checked";
1875           }
1876         }
1877       } else {
1878
1879         $form->{"select$key"} .=
1880           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1881         if ($form->{amount}{$key} eq $ref->{accno}) {
1882           $form->{$key} = "$ref->{accno}--$ref->{description}";
1883         }
1884
1885       }
1886     }
1887   }
1888   chop $form->{taxaccounts};
1889
1890   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1891     $form->{selectIC_income}  = $form->{selectIC_sale};
1892     $form->{selectIC_expense} = $form->{selectIC_cogs};
1893     $form->{IC_income}        = $form->{IC_sale};
1894     $form->{IC_expense}       = $form->{IC_cogs};
1895   }
1896
1897   delete $form->{IC_links};
1898   delete $form->{amount};
1899
1900   $form->get_partsgroup(\%myconfig, { all => 1 });
1901
1902   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1903
1904   if (@{ $form->{all_partsgroup} }) {
1905     $form->{selectpartsgroup} = qq|<option>\n|;
1906     map {
1907       $form->{selectpartsgroup} .=
1908         qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1909     } @{ $form->{all_partsgroup} };
1910   }
1911
1912   if ($form->{item} eq 'assembly') {
1913
1914     foreach $i (1 .. $form->{assembly_rows}) {
1915       if ($form->{"partsgroup_id_$i"}) {
1916         $form->{"partsgroup_$i"} =
1917           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1918       }
1919     }
1920     $form->get_partsgroup(\%myconfig);
1921
1922     if (@{ $form->{all_partsgroup} }) {
1923       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1924
1925       map {
1926         $form->{selectassemblypartsgroup} .=
1927           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1928       } @{ $form->{all_partsgroup} };
1929     }
1930   }
1931   $lxdebug->leave_sub();
1932 }
1933
1934 sub form_header {
1935   $lxdebug->enter_sub();
1936
1937   my $dec = '';
1938
1939   #decimalplaces for listprice
1940   ($dec) = ($form->{listprice} =~ /\.(\d+)/);
1941   $dec = length $dec;
1942   my $decimalplaces = ($dec > 2) ? $dec : 2;
1943   $form->{listprice} =
1944     $form->format_amount(\%myconfig, $form->{listprice}, $decimalplaces);
1945
1946   #decimalplaces for sellprice and gv
1947   ($dec) = ($form->{sellprice} =~ /\.(\d+)/);
1948   $dec = length $dec;
1949   my $decimalplaces = ($dec > 2) ? $dec : 2;
1950
1951   map {
1952     $form->{$_} =
1953       $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)
1954   } qw(sellprice gv);
1955
1956   ($dec) = ($form->{lastcost} =~ /\.(\d+)/);
1957   $dec = length $dec;
1958   my $decimalplaces = ($dec > 2) ? $dec : 2;
1959
1960   $form->{lastcost} =
1961     $form->format_amount(\%myconfig, $form->{lastcost}, $decimalplaces);
1962
1963   map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) }
1964     qw(weight rop stock);
1965
1966   foreach $item (qw(partnumber description unit notes)) {
1967     $form->{$item} =~ s/\"/&quot;/g;
1968   }
1969
1970   if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) {
1971     $rows = 2;
1972   }
1973
1974   $notes =
1975     qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|;
1976   if (($rows = $form->numtextrows($form->{description}, 40)) > 1) {
1977     $description =
1978       qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description}</textarea>|;
1979   } else {
1980     $description =
1981       qq|<input name=description size=40 value="$form->{description}">|;
1982   }
1983
1984   foreach $item (split / /, $form->{taxaccounts}) {
1985     $form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : "";
1986   }
1987
1988   # set option
1989   foreach $item (qw(IC IC_income IC_expense)) {
1990     if ($form->{$item}) {
1991       if ($form->{id} && $form->{orphaned}) {
1992         $form->{"select$item"} =~ s/ selected//;
1993         $form->{"select$item"} =~
1994           s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
1995       } else {
1996         $form->{"select$item"} = qq|<option selected>$form->{$item}|;
1997       }
1998     }
1999   }
2000
2001   if ($form->{selectpartsgroup}) {
2002     $form->{selectpartsgroup} = $form->unescape($form->{selectpartsgroup});
2003     $partsgroup =
2004       qq|<input type=hidden name=selectpartsgroup value="|
2005       . $form->escape($form->{selectpartsgroup}, 1) . qq|">|;
2006     $form->{selectpartsgroup} =~
2007       s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/;
2008
2009     $partsgroup .=
2010       qq|<select name=partsgroup>$form->{selectpartsgroup}</select>|;
2011     $group = $locale->text('Group');
2012   }
2013
2014   # tax fields
2015   foreach $item (split / /, $form->{taxaccounts}) {
2016     $tax .= qq|
2017       <input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<b>$form->{"IC_tax_${item}_description"}</b>
2018       <br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}">
2019 |;
2020   }
2021
2022   $form->{obsolete} = "checked" if $form->{obsolete};
2023
2024   $lastcost = qq|
2025               <tr>
2026                 <th align="right" nowrap="true">|
2027     . $locale->text('Last Cost') . qq|</th>
2028                 <td><input name=lastcost size=11 value=$form->{lastcost}></td>
2029               </tr>
2030 |;
2031   if (!$eur) {
2032     $linkaccounts = qq|
2033                <tr>
2034                 <th align=right>| . $locale->text('Inventory') . qq|</th>
2035                 <td><select name=IC>$form->{selectIC}</select></td>
2036                 <input name=selectIC type=hidden value="$form->{selectIC}">
2037               </tr>|;
2038   }
2039
2040   if ($form->{item} eq "part") {
2041
2042     $linkaccounts .= qq|
2043               <tr>
2044                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2045                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2046                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2047               </tr>
2048               <tr>
2049                 <th align=right>| . $locale->text('Expense') . qq|</th>
2050                 <td><select name=IC_expense>$form->{selectIC_expense}</select></td>
2051                 <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
2052               </tr>
2053 |;
2054
2055     $weight = qq|
2056               <tr>
2057                 <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
2058                 <td>
2059                   <table>
2060                     <tr>
2061                       <td>
2062                         <input name=weight size=10 value=$form->{weight}>
2063                       </td>
2064                       <th>
2065                         &nbsp;
2066                         $form->{weightunit}
2067                         <input type=hidden name=weightunit value=$form->{weightunit}>
2068                       </th>
2069                     </tr>
2070                   </table>
2071                 </td>
2072               </tr>
2073 |;
2074
2075   }
2076
2077   if ($form->{item} eq "assembly") {
2078
2079     $lastcost = "";
2080
2081     $linkaccounts = qq|
2082               <tr>
2083                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2084                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2085                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2086               </tr>
2087 |;
2088
2089     $weight = qq|
2090               <tr>
2091                 <th align="right" nowrap="true">| . $locale->text('Weight') . qq|</th>
2092                 <td>
2093                   <table>
2094                     <tr>
2095                       <td>
2096                         &nbsp;$form->{weight}
2097                         <input type=hidden name=weight value=$form->{weight}>
2098                       </td>
2099                       <th>
2100                         &nbsp;
2101                         $form->{weightunit}
2102                         <input type=hidden name=weightunit value=$form->{weightunit}>
2103                       </th>
2104                     </tr>
2105                   </table>
2106                 </td>
2107               </tr>
2108 |;
2109
2110   }
2111
2112   if ($form->{item} eq "service") {
2113
2114     $linkaccounts = qq|
2115               <tr>
2116                 <th align=right>| . $locale->text('Revenue') . qq|</th>
2117                 <td><select name=IC_income>$form->{selectIC_income}</select></td>
2118                 <input name=selectIC_income type=hidden value="$form->{selectIC_income}">
2119               </tr>
2120               <tr>
2121                 <th align=right>| . $locale->text('Expense') . qq|</th>
2122                 <td><select name=IC_expense>$form->{selectIC_expense}</select></td>
2123                 <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}">
2124               </tr>
2125 |;
2126
2127   }
2128
2129   if ($form->{item} ne 'service') {
2130     $n   = ($form->{onhand} > 0) ? "1" : "0";
2131     $rop = qq|
2132               <tr>
2133                 <th align="right" nowrap>| . $locale->text('On Hand') . qq|</th>
2134                 <th align=left nowrap class="plus$n">&nbsp;|
2135       . $form->format_amount(\%myconfig, $form->{onhand}) . qq|</th>
2136               </tr>
2137 |;
2138
2139     if ($form->{item} eq 'assembly') {
2140       $rop .= qq|
2141               <tr>
2142                 <th align="right" nowrap>| . $locale->text('Stock') . qq|</th>
2143                 <td><input name=stock size=10 value=$form->{stock}></td>
2144               </tr>
2145 |;
2146     }
2147
2148     $rop .= qq|
2149               <tr>
2150                 <th align="right" nowrap="true">| . $locale->text('ROP') . qq|</th>
2151                 <td><input name=rop size=10 value=$form->{rop}></td>
2152               </tr>
2153 |;
2154
2155     $bin = qq|
2156               <tr>
2157                 <th align="right" nowrap="true">| . $locale->text('Bin') . qq|</th>
2158                 <td><input name=bin size=10 value=$form->{bin}></td>
2159               </tr>
2160 |;
2161     $vegv = qq|
2162               <tr>
2163                 <th align="right" nowrap="true">|
2164       . $locale->text('Verrechnungseinheit') . qq|</th>
2165                 <td><input name=ve size=10 value=$form->{ve}></td>
2166               </tr>
2167               <tr>
2168                 <th align="right" nowrap="true">|
2169       . $locale->text('Geschäftsvolumen') . qq|</th>
2170                 <td><input name=gv size=10 value=$form->{gv}></td>
2171               </tr>
2172 |;
2173     $imagelinks = qq|
2174   <tr>
2175     <td>
2176       <table width=100%>
2177         <tr>
2178           <th align=right nowrap>| . $locale->text('Image') . qq|</th>
2179           <td><input name=image size=40 value="$form->{image}"></td>
2180           <th align=right nowrap>| . $locale->text('Microfiche') . qq|</th>
2181           <td><input name=microfiche size=20 value="$form->{microfiche}"></td>
2182         </tr>
2183         <tr>
2184           <th align=right nowrap>| . $locale->text('Drawing') . qq|</th>
2185           <td><input name=drawing size=40 value="$form->{drawing}"></td>
2186         </tr>
2187       </table>
2188     </td>
2189   </tr>
2190 |;
2191
2192   }
2193
2194   if ($form->{id}) {
2195     $obsolete = qq|
2196               <tr>
2197                 <th align="right" nowrap="true">| . $locale->text('Obsolete') . qq|</th>
2198                 <td><input name=obsolete type=checkbox class=checkbox value=1 $form->{obsolete}></td>
2199               </tr>
2200 |;
2201   }
2202   $shopok = $form->{shop} == 1 ? "checked" : "";
2203   $obsolete .= qq|
2204               <tr>
2205                 <th align=right nowrap>|
2206     . $locale->text('Shopartikel') . qq|</th>
2207                 <td><input class=checkbox type=checkbox name=shop value=1 $shopok></td>
2208              </tr>
2209 |;
2210
2211   # type=submit $locale->text('Add Part')
2212   # type=submit $locale->text('Add Service')
2213   # type=submit $locale->text('Add Assembly')
2214
2215   # type=submit $locale->text('Edit Part')
2216   # type=submit $locale->text('Edit Service')
2217   # type=submit $locale->text('Edit Assembly')
2218   # use JavaScript Calendar or not
2219   $form->{jsscript} = $jscalendar;
2220   $jsscript = "";
2221   if ($form->{jsscript}) {
2222
2223     # with JavaScript Calendar
2224     $button1 = qq|
2225        <td width="13"><input name=priceupdate id=priceupdate size=11  title="$myconfig{dateformat}" value="$form->{priceupdate}"></td>
2226        <td width="4" align="left"><input type=button name=priceupdate id="trigger1" value=|
2227       . $locale->text('button') . qq|></td>
2228       |;
2229
2230     #write Trigger
2231     $jsscript =
2232       Form->write_trigger(\%myconfig, "1", "priceupdate", "BL", "trigger1");
2233   } else {
2234
2235     # without JavaScript Calendar
2236     $button1 = qq|
2237                               <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}"></td>|;
2238   }
2239
2240   $form->{fokus} = "ic.partnumber";
2241   $form->header;
2242
2243   print qq|
2244   <body onLoad="fokus()">
2245
2246
2247 <form method=post name="ic" action=$form->{script}>
2248
2249 <input name=id type=hidden value=$form->{id}>
2250 <input name=item type=hidden value=$form->{item}>
2251 <input name=title type=hidden value="$form->{title}">
2252 <input name=makemodel type=hidden value="$form->{makemodel}">
2253 <input name=alternate type=hidden value="$form->{alternate}">
2254 <input name=onhand type=hidden value=$form->{onhand}>
2255 <input name=orphaned type=hidden value=$form->{orphaned}>
2256 <input name=taxaccounts type=hidden value="$form->{taxaccounts}">
2257 <input name=rowcount type=hidden value=$form->{rowcount}>
2258 <input name=eur type=hidden value=$eur>
2259
2260 <table width="100%">
2261   <tr>
2262     <th class=listtop>$form->{title}</th>
2263   </tr>
2264   <tr height="5"></tr>
2265   <tr>
2266     <td>
2267       <table width="100%">
2268         <tr valign=top>
2269           <th align=left>| . $locale->text('Part Number') . qq|</th>
2270           <th align=left>| . $locale->text('Part Description') . qq|</th>
2271           <th align=left>$group</th>
2272         </tr>
2273         <tr valign=top>
2274           <td><input name=partnumber value="$form->{partnumber}" size=20></td>
2275           <td>$description</td>
2276           <td>$partsgroup</td>
2277           <input type=hidden name=oldpartsgroup value="$form->{oldpartsgroup}">
2278         </tr>
2279       </table>
2280     </td>
2281   </tr>
2282   <tr>
2283     <td>
2284       <table width="100%" height="100%">
2285         <tr valign=top>
2286           <td width=70%>
2287             <table width="100%" height="100%">
2288               <tr class="listheading">
2289                 <th class="listheading" align="center" colspan=2>|
2290     . $locale->text('Link Accounts') . qq|</th>
2291               </tr>
2292               $linkaccounts
2293               <tr>
2294                 <th align="left">| . $locale->text('Notes') . qq|</th>
2295               </tr>
2296               <tr>
2297                 <td colspan=2>
2298                   $notes
2299                 </td>
2300               </tr>
2301             </table>
2302           </td>
2303           <td width="30%">
2304             <table width="100%">
2305               <tr>
2306                 <th align="right" nowrap="true">|
2307     . $locale->text('Updated') . qq|</th>
2308                 $button1
2309               </tr>
2310               <tr>
2311                 <th align="right" nowrap="true">| . $locale->text('List Price') . qq|</th>
2312                 <td><input name=listprice size=11 value=$form->{listprice}></td>
2313               </tr>
2314               <tr>
2315                 <th align="right" nowrap="true">| . $locale->text('Sell Price') . qq|</th>
2316                 <td><input name=sellprice size=11 value=$form->{sellprice}></td>
2317               </tr>
2318               $lastcost
2319               <tr>
2320                 <th align="right" nowrap="true">| . $locale->text('Unit') . qq|</th>
2321                 <td><input name=unit size=5 maxlength="10" value="$form->{unit}"></td>
2322               </tr>
2323               $weight
2324               $rop
2325               $bin
2326               $vegv
2327               $obsolete
2328             </table>
2329           </td>
2330         </tr>
2331       </table>
2332     </td>
2333   </tr>
2334   $imagelinks
2335
2336 $jsscript
2337 |;
2338   $lxdebug->leave_sub();
2339 }
2340
2341 sub form_footer {
2342   $lxdebug->enter_sub();
2343
2344   if ($form->{item} eq "assembly") {
2345
2346     print qq|
2347         <tr>
2348           <td>
2349             <table width="100%">
2350               <tr>
2351                 <th colspan=2 align=right>|
2352       . $locale->text('Total') . qq|&nbsp;</th>
2353                 <th align=right>|
2354       . $form->format_amount(\%myconfig, $form->{assemblytotal}, 2) . qq|</th>
2355               </tr>
2356             </table>
2357           </td>
2358         </tr>
2359         <input type=hidden name=assembly_rows value=$form->{assembly_rows}>
2360 |;
2361   }
2362
2363   print qq|
2364       <input type=hidden name=path value=$form->{path}>
2365       <input type=hidden name=login value=$form->{login}>
2366       <input type=hidden name=password value=$form->{password}>
2367       <input type=hidden name=callback value="$form->{callback}">
2368       <input type=hidden name=previousform value="$form->{previousform}">
2369       <input type=hidden name=taxaccount2 value="$form->{taxaccount2}">
2370       <input type=hidden name=vc value=$form->{vc}>
2371   <tr>
2372     <td><hr size=3 noshade></td>
2373   </tr>
2374 </table>
2375
2376 <br>
2377 <input class=submit type=submit name=action value="|
2378     . $locale->text('Update') . qq|">
2379   |;
2380
2381   unless ($form->{item} eq "service") {
2382     print qq|
2383       <input type=hidden name=makemodel_rows value=$form->{makemodel_rows}>
2384     |;
2385   }
2386
2387   print qq|
2388      <input type=hidden name=price_rows value=$form->{price_rows}>|;
2389
2390   print qq|
2391       <input class=submit type=submit name=action value="|
2392     . $locale->text('Save') . qq|">|;
2393
2394   if ($form->{id}) {
2395
2396     if (!$form->{previousform}) {
2397       print qq|
2398       <input class=submit type=submit name=action value="|
2399         . $locale->text('Save as new') . qq|">|;
2400     }
2401
2402     if ($form->{orphaned}) {
2403       if (!$form->{previousform}) {
2404         if ($form->{item} eq 'assembly') {
2405           if (!$form->{onhand}) {
2406             print qq|
2407       <input class=submit type=submit name=action value="|
2408               . $locale->text('Delete') . qq|">|;
2409           }
2410         } else {
2411           print qq|
2412       <input class=submit type=submit name=action value="|
2413             . $locale->text('Delete') . qq|">|;
2414         }
2415       }
2416     }
2417   }
2418
2419   if (!$form->{previousform}) {
2420     if ($form->{menubar}) {
2421       require "$form->{path}/menu.pl";
2422       &menubar;
2423     }
2424   }
2425
2426   print qq|
2427
2428 </form>
2429
2430 </body>
2431 </html>
2432 |;
2433
2434   $lxdebug->leave_sub();
2435 }
2436
2437 sub makemodel_row {
2438   $lxdebug->enter_sub();
2439   my ($numrows) = @_;
2440
2441   $form->{"make_$i"}  =~ s/\"/&quot;/g;
2442   $form->{"model_$i"} =~ s/\"/&quot;/g;
2443
2444   print qq|
2445   <tr>
2446     <td>
2447       <table width=100%>
2448         <tr>
2449           <th class="listheading">| . $locale->text('Make') . qq|</th>
2450           <th class="listheading">| . $locale->text('Model') . qq|</th>
2451         </tr>
2452 |;
2453
2454   for $i (1 .. $numrows) {
2455     print qq|
2456         <tr>
2457           <td width=50%><input name="make_$i" size=30 value="$form->{"make_$i"}"></td>
2458           <td width=50%><input name="model_$i" size=30 value="$form->{"model_$i"}"></td>
2459         </tr>
2460 |;
2461   }
2462
2463   print qq|
2464       </table>
2465     </td>
2466   </tr>
2467 |;
2468
2469   $lxdebug->leave_sub();
2470 }
2471
2472 sub assembly_row {
2473   $lxdebug->enter_sub();
2474   my ($numrows) = @_;
2475
2476   @column_index =
2477     qw(runningnumber qty unit bom partnumber description partsgroup total);
2478
2479   if ($form->{previousform}) {
2480     $nochange     = 1;
2481     @column_index = qw(qty unit bom partnumber description partsgroup total);
2482   } else {
2483
2484     # change callback
2485     $form->{old_callback} = $form->{callback};
2486     $callback             = $form->{callback};
2487     $form->{callback}     = "$form->{script}?action=display_form";
2488
2489     # delete action
2490     map { delete $form->{$_} } qw(action header);
2491
2492     $previousform = "";
2493
2494     # save form variables in a previousform variable
2495     foreach $key (sort keys %$form) {
2496
2497       # escape ampersands
2498       $form->{$key} =~ s/&/%26/g;
2499       $previousform .= qq|$key=$form->{$key}&|;
2500     }
2501     chop $previousform;
2502     $previousform = $form->escape($form->escape($previousform, 1));
2503     $form->{callback} = $callback;
2504
2505     $form->{assemblytotal} = 0;
2506     $form->{weight}        = 0;
2507
2508   }
2509   $column_header{runningnumber} =
2510     qq|<th nowrap width=5%>| . $locale->text('No.') . qq|</th>|;
2511   $column_header{qty} =
2512     qq|<th align=left nowrap width=10%>| . $locale->text('Qty') . qq|</th>|;
2513   $column_header{unit} =
2514     qq|<th align=left nowrap width=5%>| . $locale->text('Unit') . qq|</th>|;
2515   $column_header{partnumber} =
2516       qq|<th align=left nowrap width=20%>|
2517     . $locale->text('Part Number')
2518     . qq|</th>|;
2519   $column_header{description} =
2520     qq|<th nowrap width=50%>| . $locale->text('Part Description') . qq|</th>|;
2521   $column_header{total} =
2522     qq|<th align=right nowrap>| . $locale->text('Extended') . qq|</th>|;
2523   $column_header{bom}        = qq|<th>| . $locale->text('BOM') . qq|</th>|;
2524   $column_header{partsgroup} = qq|<th>| . $locale->text('Group') . qq|</th>|;
2525
2526   print qq|
2527   <tr class=listheading>
2528     <th class=listheading>| . $locale->text('Individual Items') . qq|</th>
2529   </tr>
2530   <tr>
2531     <td>
2532       <table width=100%>
2533         <tr>
2534 |;
2535
2536   map { print "\n$column_header{$_}" } @column_index;
2537
2538   print qq|
2539         </tr>
2540 |;
2541
2542   for $i (1 .. $numrows) {
2543     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
2544
2545     $linetotal =
2546       $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
2547     $form->{assemblytotal} += $linetotal;
2548
2549     $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
2550
2551     $linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
2552
2553     if (($i >= 1) && ($i == $numrows)) {
2554
2555       if ($nochange) {
2556         map { $column_data{$_} = qq|<td></td>| }
2557           qw(qty unit partnumber description bom partsgroup);
2558       } else {
2559
2560         map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom);
2561
2562         $column_data{qty} =
2563           qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
2564         $column_data{partnumber} =
2565           qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|;
2566         $column_data{description} =
2567           qq|<td><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
2568         $column_data{partsgroup} =
2569           qq|<td><input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}"></td>|;
2570
2571       }
2572
2573     } else {
2574
2575       if ($form->{previousform}) {
2576         $column_data{partnumber} =
2577           qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">$form->{"partnumber_$i"}</td>|;
2578         $column_data{qty} =
2579           qq|<td align=right><input type=hidden name="qty_$i" value="$form->{"qty_$i"}">$form->{"qty_$i"}</td>|;
2580
2581         $column_data{bom} =
2582           qq|<td align=center><input type=hidden name="bom_$i" value=$form->{"bom_$i"}>|;
2583         $column_data{bom} .= ($form->{"bom_$i"}) ? "x" : "&nbsp;";
2584         $column_data{bom} .= qq|</td>|;
2585
2586         $column_data{partsgroup} =
2587           qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
2588
2589       } else {
2590         $href =
2591           qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&password=$form->{password}&rowcount=$i&previousform=$previousform|;
2592         $column_data{partnumber} =
2593           qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
2594         $column_data{runningnumber} =
2595           qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|;
2596         $column_data{qty} =
2597           qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
2598
2599         $form->{"bom_$i"} = ($form->{"bom_$i"}) ? "checked" : "";
2600         $column_data{bom} =
2601           qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|;
2602
2603         $column_data{partsgroup} =
2604           qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$form->{"partsgroup_$i"}</td>|;
2605       }
2606
2607       $column_data{unit} =
2608         qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|;
2609       $column_data{description} =
2610         qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|;
2611     }
2612
2613     $column_data{total} = qq|<td align=right>$linetotal</td>|;
2614
2615     print qq|
2616         <tr>|;
2617
2618     map { print "\n$column_data{$_}" } @column_index;
2619
2620     print qq|
2621         </tr>
2622   <input type=hidden name="id_$i" value=$form->{"id_$i"}>
2623   <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}>
2624   <input type=hidden name="weight_$i" value=$form->{"weight_$i"}>
2625 |;
2626   }
2627
2628   print qq|
2629       </table>
2630     </td>
2631   </tr>
2632 |;
2633
2634   $lxdebug->leave_sub();
2635 }
2636
2637 sub update {
2638   $lxdebug->enter_sub();
2639
2640   if ($form->{item} eq "assembly") {
2641     $i = $form->{assembly_rows};
2642
2643     # if last row is empty check the form otherwise retrieve item
2644     if (   ($form->{"partnumber_$i"} eq "")
2645         && ($form->{"description_$i"} eq "")
2646         && ($form->{"partsgroup_$i"}  eq "")) {
2647
2648       &check_form;
2649
2650         } else {
2651
2652       IC->assembly_item(\%myconfig, \%$form);
2653
2654       $rows = scalar @{ $form->{item_list} };
2655
2656       if ($rows) {
2657         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
2658
2659         if ($rows > 1) {
2660           $form->{makemodel_rows}--;
2661           &select_item;
2662           exit;
2663         } else {
2664           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
2665             qw(partnumber description unit partsgroup);
2666           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
2667             keys %{ $form->{item_list}[0] };
2668           $form->{"runningnumber_$i"} = $form->{assembly_rows};
2669           $form->{assembly_rows}++;
2670
2671           &check_form;
2672
2673         }
2674
2675       } else {
2676
2677         $form->{rowcount} = $i;
2678         $form->{assembly_rows}++;
2679
2680         &new_item;
2681
2682       }
2683     }
2684   }
2685
2686   if ($form->{item} eq "part") {
2687     &check_form;
2688   }
2689
2690   if ($form->{item} eq 'service') {
2691     map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
2692       qw(sellprice listprice);
2693     &form_header;
2694     &form_footer;
2695   }
2696
2697   $lxdebug->leave_sub();
2698 }
2699
2700 sub save {
2701   $lxdebug->enter_sub();
2702
2703   # check if there is a part number
2704   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
2705
2706   if ($form->{obsolete}) {
2707     $form->error(
2708       $locale->text(
2709         "Inventory quantity must be zero before you can set this $form->{item} obsolete!"
2710       ))
2711       if ($form->{onhand});
2712   }
2713
2714   # expand dynamic strings
2715   # $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
2716   # $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
2717   # $locale->text('Part Number missing!')
2718   # $locale->text('Service Number missing!')
2719   # $locale->text('Assembly Number missing!')
2720
2721   # save part
2722   $lxdebug->message(LXDebug::DEBUG1,
2723                     "ic.pl: sellprice in save = $form->{sellprice}\n");
2724   $rc = IC->save(\%myconfig, \%$form);
2725   if ($rc == 3) {
2726     $form->error($locale->text('Partnumber not unique!'));
2727   }
2728   $parts_id = $form->{id};
2729
2730   # load previous variables
2731   if ($form->{previousform}) {
2732
2733     # save the new form variables before splitting previousform
2734     map { $newform{$_} = $form->{$_} } keys %$form;
2735
2736     $previousform = $form->unescape($form->{previousform});
2737
2738     # don't trample on previous variables
2739     map { delete $form->{$_} } keys %newform;
2740
2741     # now take it apart and restore original values
2742     foreach $item (split /&/, $previousform) {
2743       ($key, $value) = split /=/, $item, 2;
2744       $value =~ s/%26/&/g;
2745       $form->{$key} = $value;
2746     }
2747     $form->{taxaccounts} = $newform{taxaccount2};
2748
2749     if ($form->{item} eq 'assembly') {
2750
2751       # undo number formatting
2752       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
2753         qw(weight listprice sellprice rop);
2754
2755       $form->{assembly_rows}--;
2756       $i = $newform{rowcount};
2757       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
2758
2759       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
2760       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
2761
2762       # change/add values for assembly item
2763       map { $form->{"${_}_$i"} = $newform{$_} }
2764         qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno);
2765
2766       $form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
2767       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
2768
2769     } else {
2770
2771       # set values for last invoice/order item
2772       $i = $form->{rowcount};
2773       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
2774
2775       map { $form->{"${_}_$i"} = $newform{$_} }
2776         qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice);
2777       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
2778       if ($form->{exchangerate} != 0) {
2779         $form->{"sellprice_$i"} /= $form->{exchangerate};
2780       }
2781       $lxdebug->message(LXDebug::DEBUG1,
2782                         qq|sellprice_$i in previousform 2 = |
2783                           . $form->{"sellprice_$i"} . qq|\n|);
2784       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /,
2785         $newform{taxaccount};
2786       chop $form->{"taxaccounts_$i"};
2787       foreach $item (qw(description rate taxnumber)) {
2788         $index = $form->{"taxaccounts_$i"} . "_$item";
2789         $form->{$index} = $newform{$index};
2790       }
2791
2792       # credit remaining calculation
2793       $amount =
2794         $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) *
2795         $form->{"qty_$i"};
2796       map { $form->{"${_}_base"} += $amount }
2797         (split / /, $form->{"taxaccounts_$i"});
2798       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) }
2799         split / /, $form->{"taxaccounts_$i"}
2800         if !$form->{taxincluded};
2801
2802       $form->{creditremaining} -= $amount;
2803
2804       # redo number formatting, because invoice parse them!
2805       $i = $form->{rowcount};
2806       map {
2807         $form->{"${_}_$i"} =
2808           $form->format_amount(\%myconfig, $form->{"${_}_$i"})
2809       } qw(weight listprice sellprice rop);
2810     }
2811
2812     $form->{"id_$i"} = $parts_id;
2813     delete $form->{action};
2814
2815     # restore original callback
2816     $callback = $form->unescape($form->{callback});
2817     $form->{callback} = $form->unescape($form->{old_callback});
2818     delete $form->{old_callback};
2819
2820     $form->{makemodel_rows}--;
2821
2822     # put callback together
2823     foreach $key (keys %$form) {
2824
2825       # do single escape for Apache 2.0
2826       $value = $form->escape($form->{$key}, 1);
2827       $callback .= qq|&$key=$value|;
2828     }
2829     $form->{callback} = $callback;
2830   }
2831   $lxdebug->message(LXDebug::DEBUG1,
2832                     qq|ic.pl: sellprice_$i nach sub save = |
2833                       . $form->{"sellprice_$i"} . qq|\n|);
2834
2835   # redirect
2836   $form->redirect;
2837
2838   $lxdebug->leave_sub();
2839 }
2840
2841 sub save_as_new {
2842   $lxdebug->enter_sub();
2843
2844   $form->{id} = 0;
2845   &save;
2846
2847   $lxdebug->leave_sub();
2848 }
2849
2850 sub delete {
2851   $lxdebug->enter_sub();
2852
2853   $rc = IC->delete(\%myconfig, \%$form);
2854
2855   # redirect
2856   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2857   $form->error($locale->text('Cannot delete item!'));
2858
2859   $lxdebug->leave_sub();
2860 }
2861
2862 sub stock_assembly {
2863   $lxdebug->enter_sub();
2864
2865   $form->{title} = $locale->text('Stock Assembly');
2866
2867   $form->header;
2868
2869   print qq|
2870 <body>
2871
2872 <form method=post action=$form->{script}>
2873
2874 <table width="100%">
2875   <tr>
2876     <th class=listtop>$form->{title}</th>
2877   </tr>
2878   <tr height="5"></tr>
2879   <tr valign=top>
2880     <td>
2881       <table>
2882         <tr>
2883           <th align="right" nowrap="true">|
2884     . $locale->text('Part Number') . qq|</th>
2885           <td><input name=partnumber size=20></td>
2886           <td>&nbsp;</td>
2887         </tr>
2888         <tr>
2889           <th align="right" nowrap="true">|
2890     . $locale->text('Part Description') . qq|</th>
2891           <td><input name=description size=40></td>
2892         </tr>
2893       </table>
2894     </td>
2895   </tr>
2896   <tr><td><hr size=3 noshade></td></tr>
2897 </table>
2898
2899 <input type=hidden name=path value=$form->{path}>
2900 <input type=hidden name=login value=$form->{login}>
2901 <input type=hidden name=password value=$form->{password}>
2902
2903 <input type=hidden name=nextsub value=list_assemblies>
2904
2905 <br>
2906 <input class=submit type=submit name=action value="|
2907     . $locale->text('Continue') . qq|">
2908 </form>
2909
2910 </body>
2911 </html>
2912 |;
2913
2914   $lxdebug->leave_sub();
2915 }
2916
2917 sub list_assemblies {
2918   $lxdebug->enter_sub();
2919
2920   IC->retrieve_assemblies(\%myconfig, \%$form);
2921
2922   $column_header{partnumber} =
2923     qq|<th class=listheading>| . $locale->text('Part Number') . qq|</th>|;
2924   $column_header{description} =
2925     qq|<th class=listheading>| . $locale->text('Part Description') . qq|</th>|;
2926   $column_header{bin} =
2927     qq|<th class=listheading>| . $locale->text('Bin') . qq|</th>|;
2928   $column_header{onhand} =
2929     qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
2930   $column_header{rop} =
2931     qq|<th class=listheading>| . $locale->text('ROP') . qq|</th>|;
2932   $column_header{stock} =
2933     qq|<th class=listheading>| . $locale->text('Add') . qq|</th>|;
2934
2935   @column_index = (qw(partnumber description bin onhand rop stock));
2936
2937   $form->{title} = $locale->text('Stock Assembly');
2938
2939   $form->{callback} =
2940     "$form->{script}?action=stock_assembly&path=$form->{path}&login=$form->{login}&password=$form->{password}";
2941
2942   $form->header;
2943
2944   $colspan = $#column_index + 1;
2945
2946   print qq|
2947 <body>
2948
2949 <form method=post action=$form->{script}>
2950
2951 <table width=100%>
2952   <tr>
2953     <th class=listtop colspan=$colspan>$form->{title}</th>
2954   </tr>
2955   <tr size=5></tr>
2956   <tr class=listheading>|;
2957
2958   map { print "\n$column_header{$_}" } @column_index;
2959
2960   print qq|
2961   </tr>
2962 |;
2963
2964   $i = 1;
2965   foreach $ref (@{ $form->{assembly_items} }) {
2966
2967     map { $ref->{$_} =~ s/\"/&quot;/g } qw(partnumber description);
2968
2969     $column_data{partnumber}  = qq|<td width=20%>$ref->{partnumber}</td>|;
2970     $column_data{description} =
2971       qq|<td width=50%>$ref->{description}&nbsp;</td>|;
2972     $column_data{bin}    = qq|<td>$ref->{bin}&nbsp;</td>|;
2973     $column_data{onhand} =
2974         qq|<td align=right>|
2975       . $form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;")
2976       . qq|</td>|;
2977     $column_data{rop} =
2978         qq|<td align=right>|
2979       . $form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;")
2980       . qq|</td>|;
2981     $column_data{stock} = qq|<td width=10%><input name="qty_$i" size=10></td>|;
2982
2983     $j++;
2984     $j %= 2;
2985     print
2986       qq|<tr class=listrow$j><input name="id_$i" type=hidden value=$ref->{id}>\n|;
2987
2988     map { print "\n$column_data{$_}" } @column_index;
2989
2990     print qq|
2991     </tr>
2992 |;
2993
2994     $i++;
2995
2996   }
2997
2998   $i--;
2999   print qq|
3000   <tr>
3001     <td colspan=6><hr size=3 noshade>
3002   </tr>
3003 </table>
3004 <input name=rowcount type=hidden value="$i">
3005
3006 <input type=hidden name=path value=$form->{path}>
3007 <input type=hidden name=login value=$form->{login}>
3008 <input type=hidden name=password value=$form->{password}>
3009
3010 <input name=callback type=hidden value="$form->{callback}">
3011
3012 <input type=hidden name=nextsub value=restock_assemblies>
3013
3014 <br>
3015 <input class=submit type=submit name=action value="|
3016     . $locale->text('Continue') . qq|">
3017
3018 </form>
3019
3020 </body>
3021 </html>
3022 |;
3023
3024   $lxdebug->leave_sub();
3025 }
3026
3027 sub restock_assemblies {
3028   $lxdebug->enter_sub();
3029
3030   $form->redirect($locale->text('Assemblies restocked!'))
3031     if (IC->restock_assemblies(\%myconfig, \%$form));
3032   $form->error($locale->text('Cannot stock assemblies!'));
3033
3034   $lxdebug->leave_sub();
3035 }
3036
3037 sub price_row {
3038   $lxdebug->enter_sub();
3039
3040   my ($numrows) = @_;
3041
3042   print qq|
3043   <tr>
3044     <td>
3045       <table width=100%>
3046         <tr>
3047           <th class="listheading">| . $locale->text('Preisklasse') . qq|</th>
3048           <th class="listheading">| . $locale->text('Preis') . qq|</th>
3049         </tr>
3050 |;
3051   for $i (1 .. $numrows) {
3052     print qq|
3053         <tr>
3054           <td width=50%><input type=hidden name="pricegroup_$i" size=30  value="$form->{"pricegroup_$i"}">$form->{"pricegroup_$i"}</td>
3055           <td width=50%><input name="price_$i" size=11 value="$form->{"price_$i"}"></td>
3056           <input type=hidden name="pricegroup_id_$i" value="$form->{"pricegroup_id_$i"}">
3057         </tr>
3058 |;
3059   }
3060
3061   print qq|
3062       </table>
3063     </td>
3064   </tr>
3065 |;
3066
3067   $lxdebug->leave_sub();
3068 }
3069
3070 sub continue { &{ $form->{nextsub} } }