arap.pl: merge conflict hatte broken Pod hinterlassen.
[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
34 use POSIX qw(strftime);
35 use List::Util qw(max);
36 use List::MoreUtils qw(any);
37
38 use SL::AM;
39 use SL::CVar;
40 use SL::IC;
41 use SL::ReportGenerator;
42
43 #use SL::PE;
44
45 use strict;
46 #use warnings;
47
48 # global imports
49 our ($form, $locale, %myconfig, $lxdebug, $auth);
50
51 require "bin/mozilla/io.pl";
52 require "bin/mozilla/invoice_io.pl";
53 require "bin/mozilla/common.pl";
54 require "bin/mozilla/reportgenerator.pl";
55
56 1;
57
58 # Parserhappy(R):
59 # type=submit $locale->text('Add Part')
60 # type=submit $locale->text('Add Service')
61 # type=submit $locale->text('Add Assembly')
62 # type=submit $locale->text('Edit Part')
63 # type=submit $locale->text('Edit Service')
64 # type=submit $locale->text('Edit Assembly')
65 # $locale->text('Parts')
66 # $locale->text('Services')
67 # $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
68 # $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
69 # $locale->text('Part Number missing!')
70 # $locale->text('Service Number missing!')
71 # $locale->text('Assembly Number missing!')
72 # $locale->text('ea');
73
74 # end of main
75
76 sub add {
77   $lxdebug->enter_sub();
78
79   $auth->assert('part_service_assembly_edit');
80
81   my $title                = 'Add ' . ucfirst $form->{item};
82   $form->{title}           = $locale->text($title);
83   $form->{callback}        = "$form->{script}?action=add&item=$form->{item}" unless $form->{callback};
84   $form->{unit_changeable} = 1;
85
86   IC->get_pricegroups(\%myconfig, \%$form);
87   &link_part;
88   &display_form;
89
90   $lxdebug->leave_sub();
91 }
92
93 sub search {
94   $lxdebug->enter_sub();
95
96   $auth->assert('part_service_assembly_edit');
97
98   $form->{revers}       = 0;  # switch for backward sorting
99   $form->{lastsort}     = ""; # memory for which table was sort at last time
100   $form->{ndxs_counter} = 0;  # counter for added entries to top100
101
102   my %is_xyz     = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly);
103
104   $form->{title} = (ucfirst $form->{searchitems}) . "s";
105   $form->{title} = $locale->text($form->{title});
106   $form->{title} = $locale->text('Assemblies') if ($is_xyz{is_assembly});
107
108   $form->{jsscript} = 1;
109
110   $form->{CUSTOM_VARIABLES}                  = CVar->get_configs('module' => 'IC');
111   ($form->{CUSTOM_VARIABLES_FILTER_CODE},
112    $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables'      => $form->{CUSTOM_VARIABLES},
113                                                                            'include_prefix' => 'l_',
114                                                                            'include_value'  => 'Y');
115
116   $form->header;
117
118   print $form->parse_html_template('ic/search', { %is_xyz,
119                                                   dateformat => $myconfig{dateformat}, });
120
121   $lxdebug->leave_sub();
122 }    #end search()
123
124 sub search_update_prices {
125   $lxdebug->enter_sub();
126
127   $auth->assert('part_service_assembly_edit');
128
129   my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form);
130
131   $form->{title} = $locale->text('Update Prices');
132
133   $form->header;
134
135   print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups });
136
137   $lxdebug->leave_sub();
138 }    #end search()
139
140 sub confirm_price_update {
141   $lxdebug->enter_sub();
142
143   $auth->assert('part_service_assembly_edit');
144
145   my @errors      = ();
146   my $value_found = undef;
147
148   foreach my $idx (qw(sellprice listprice), (1..$form->{price_rows})) {
149     my $name      = $idx =~ m/\d/ ? $form->{"pricegroup_${idx}"}      : $idx eq 'sellprice' ? $locale->text('Sell Price') : $locale->text('List Price');
150     my $type      = $idx =~ m/\d/ ? $form->{"pricegroup_type_${idx}"} : $form->{"${idx}_type"};
151     my $value_idx = $idx =~ m/\d/ ? "price_${idx}" : $idx;
152     my $value     = $form->parse_amount(\%myconfig, $form->{$value_idx});
153
154     if ((0 > $value) && ($type eq 'percent')) {
155       push @errors, $locale->text('You cannot adjust the price for pricegroup "#1" by a negative percentage.', $name);
156
157     } elsif (!$value && ($form->{$value_idx} ne '')) {
158       push @errors, $locale->text('No valid number entered for pricegroup "#1".', $name);
159
160     } elsif (0 < $value) {
161       $value_found = 1;
162     }
163   }
164
165   push @errors, $locale->text('No prices will be updated because no prices have been entered.') if (!$value_found);
166
167   my $num_matches = IC->get_num_matches_for_priceupdate();
168
169   $form->header();
170
171   if (@errors) {
172     $form->show_generic_error(join('<br>', @errors), 'back_button' => 1);
173   }
174
175   $form->{nextsub} = "update_prices";
176
177   map { delete $form->{$_} } qw(action header);
178
179   print $form->parse_html_template('ic/confirm_price_update', { HIDDENS     => [ map { name => $_, value => $form->{$_} }, keys %$form ],
180                                                                 num_matches => $num_matches });
181
182   $lxdebug->leave_sub();
183 }
184
185 sub update_prices {
186   $lxdebug->enter_sub();
187
188   $auth->assert('part_service_assembly_edit');
189
190   my $num_updated = IC->update_prices(\%myconfig, \%$form);
191
192   if (-1 != $num_updated) {
193     $form->redirect($locale->text('#1 prices were updated.', $num_updated));
194   } else {
195     $form->error($locale->text('Could not update prices!'));
196   }
197
198   $lxdebug->leave_sub();
199 }
200
201 #sub choice {
202 #  $lxdebug->enter_sub();
203 #
204 #  $auth->assert('part_service_assembly_edit');
205 #
206 #  our ($j, $lastndx);
207 #  my ($totop100);
208 #
209 #  $form->{title} = $locale->text('Top 100 hinzufuegen');
210 #
211 #  $form->header;
212 #
213 #  push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras);
214 #  push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice);
215 #  my @HIDDENS = (
216 #        +{ name => 'row',     value => $j              },
217 #        +{ name => 'nextsub', value => 'item_selected' },
218 #        +{ name => 'test',    value => 'item_selected' },
219 #        +{ name => 'lastndx', value => $lastndx        },
220 #    map(+{ name => $_,        value => $form->{$_}     }, @custom_hiddens),
221 #  );
222 #
223 #  my ($partnumber, $description, $unit, $sellprice, $soldtotal);
224 #  # if choice set data
225 ##  if ($form->{ndx}) {
226 ##    for my $i (0 .. $form->{ndxs_counter}) {
227 ##
228 ##      # insert data into top100
229 ##      push @{ $form->{parts} },
230 ##        { number      => "",
231 ##          partnumber  => $form->{"totop100_partnumber_$j"},
232 ##          description => $form->{"totop100_description_$j"},
233 ##          unit        => $form->{"totop100_unit_$j"},
234 ##          sellprice   => $form->{"totop100_sellprice_$j"},
235 ##          soldtotal   => $form->{"totop100_soldtotal_$j"},
236 ##        };
237 ##    }    #rof
238 ##  }    #fi
239 #
240 #  $totop100 = "";
241 #
242 #  # set data for next page
243 #  for my $i (1 .. $form->{ndxs_counter}) {
244 #    $partnumber  = $form->{"totop100_partnumber_$i"};
245 #    $description = $form->{"totop100_description_$i"};
246 #    $unit        = $form->{"totop100_unit_$i"};
247 #    $sellprice   = $form->{"totop100_sellprice_$i"};
248 #    $soldtotal   = $form->{"totop100_soldtotal_$i"};
249 #
250 #  push @PARTS, {
251 #    totop100_partnumber  => $form->{"totop100_partnumber_$i"},
252 #    totop100_description => $form->{"totop100_description_$i"},
253 #    totop100_unit        => $form->{"totop100_unit_$i"},
254 #    totop100_sellprice   => $form->{"totop100_sellprice_$i"},
255 #    totop100_soldtotal   => $form->{"totop100_soldtotal_$i"},
256 #  }
257 #
258 ##    $totop100 .= qq|
259 ##<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
260 ##<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
261 ##<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
262 ##<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
263 ##<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
264 ##    |;
265 #  }    #rof
266 #
267 #  print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, PARTS => \@PARTS });
268 #
269 #  $lxdebug->leave_sub();
270 #}    #end choice
271
272 #sub list {
273 #  $lxdebug->enter_sub();
274 #
275 #  $auth->assert('part_service_assembly_edit');
276 #
277 #  our ($lastndx);
278 #  our ($partnumber, $description, $unit, $sellprice, $soldtotal);
279 #
280 #  my @sortorders = ("", "partnumber", "description", "all");
281 #  my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
282 #  IC->get_parts(\%myconfig, \%$form, $sortorder);
283 #
284 #  $form->{title} = $locale->text('Top 100 hinzufuegen');
285 #
286 #  $form->header;
287 #
288 #  print qq|
289 #<body>
290 #  <form method=post action=ic.pl>
291 #    <table width=100%>
292 #     <tr>
293 #      <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
294 #     </tr>
295 #        <tr height="5"></tr>
296 #        <tr class=listheading>
297 #          <th>&nbsp;</th>
298 #          <th class=listheading>| . $locale->text('Part Number') . qq|</th>
299 #          <th class=listheading>| . $locale->text('Part Description') . qq|</th>
300 #          <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
301 #          <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
302 #          <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
303 #        </tr>|;
304 #
305 #  my $j = 0;
306 #  my $i = $form->{rows};
307 #
308 #  for ($j = 1; $j <= $i; $j++) {
309 #
310 #    print qq|
311 #        <tr class=listrow| . ($j % 2) . qq|>|;
312 #    if ($j == 1) {
313 #      print qq|
314 #            <td><input name=ndx class=radio type=radio value=$j checked></td>|;
315 #    } else {
316 #      print qq|
317 #          <td><input name=ndx class=radio type=radio value=$j></td>|;
318 #    }
319 #    print qq|
320 #          <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
321 #          <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
322 #          <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
323 #          <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
324 #          <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
325 #        </tr>
326 #
327 #        <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
328 #  }
329 #
330 #  print qq|
331 #
332 #</table>
333 #
334 #<br>
335 #
336 #
337 #<input type=hidden name=itemstatus value="$form->{itemstatus}">
338 #<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
339 #<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
340 #<input type=hidden name=l_description value="$form->{l_description}">
341 #<input type=hidden name=l_onhand value="$form->{l_onhand}">
342 #<input type=hidden name=l_unit value="$form->{l_unit}">
343 #<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
344 #<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
345 #<input type=hidden name=sort value="$form->{sort}">
346 #<input type=hidden name=revers value="$form->{revers}">
347 #<input type=hidden name=lastsort value="$form->{lastsort}">
348 #
349 #<input type=hidden name=bom value="$form->{bom}">
350 #<input type=hidden name=titel value="$form->{titel}">
351 #<input type=hidden name=searchitems value="$form->{searchitems}">
352 #
353 #<input type=hidden name=row value=$j>
354 #
355 #<input type=hidden name=nextsub value=item_selected>
356 #
357 #<input name=lastndx type=hidden value=$lastndx>
358 #
359 #<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
360 #
361 #  my $totop100 = "";
362 #
363 #  if (($form->{ndxs_counter}) > 0) {
364 #    for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
365 #
366 #      $partnumber  = $form->{"totop100_partnumber_$i"};
367 #      $description = $form->{"totop100_description_$i"};
368 #      $unit        = $form->{"totop100_unit_$i"};
369 #      $sellprice   = $form->{"totop100_sellprice_$i"};
370 #      $soldtotal   = $form->{"totop100_soldtotal_$i"};
371 #
372 #      $totop100 .= qq|
373 #<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
374 #<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
375 #<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
376 #<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
377 #<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
378 #      |;
379 #    }    #rof
380 #  }    #fi
381 #
382 #  print $totop100;
383 #
384 #  print qq|
385 #<input class=submit type=submit name=action value="|
386 #    . $locale->text('TOP100') . qq|">
387 #
388 #</form>
389 #</body>
390 #</html>
391 #|;
392 #  $lxdebug->leave_sub();
393 #}    #end list()
394
395 sub top100 {
396   $lxdebug->enter_sub();
397
398   $auth->assert('part_service_assembly_edit');
399
400   if ($form->{ndx}) {
401     $form->{ndxs_counter}++;
402
403     if ($form->{ndxs_counter} > 0) {
404
405       my $index = $form->{ndx};
406
407       $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $form->{"new_partnumber_$index"};
408       $form->{"totop100_description_$form->{ndxs_counter}"} = $form->{"new_description_$index"};
409       $form->{"totop100_unit_$form->{ndxs_counter}"} = $form->{"new_unit_$index"};
410       $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $form->{"new_sellprice_$index"};
411       $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $form->{"new_soldtotal_$index"};
412     }    #fi
413   }    #fi
414   &addtop100();
415   $lxdebug->leave_sub();
416 }    #end top100
417
418 sub addtop100 {
419   $lxdebug->enter_sub();
420
421   $auth->assert('part_service_assembly_edit');
422
423   my ($revers, $lastsort, $callback, $option, $description, $sameitem,
424       $partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align);
425   my (@column_index, %column_header, %column_data);
426   my ($totalsellprice, $totallastcost, $totallistprice, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
427
428   $form->{top100}      = "top100";
429   $form->{l_soldtotal} = "Y";
430   $form->{soldtotal}   = "soldtotal";
431   $form->{sort}        = "soldtotal";
432   $form->{l_qty}       = "N";
433   $form->{l_linetotal} = "";
434   $form->{revers}      = 1;
435   $form->{number}      = "position";
436   $form->{l_number}    = "Y";
437
438   $totop100 = "";
439
440   $form->{title} = $locale->text('Top 100');
441
442   $revers   = $form->{revers};
443   $lastsort = $form->{lastsort};
444
445   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
446     $form->{revers}   = 0;
447     $form->{lastsort} = "partnumber";
448     $form->{sort}     = "partnumber";
449   }    #fi
450
451   $callback =
452     "$form->{script}?action=top100&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
453     . $form->escape($form->{title}, 1);
454
455   # if we have a serialnumber limit search
456   if ($form->{serialnumber} || $form->{l_serialnumber}) {
457     $form->{l_serialnumber} = "Y";
458     unless (   $form->{bought}
459             || $form->{sold}
460             || $form->{rfq}
461             || $form->{quoted}) {
462       $form->{bought} = $form->{sold} = 1;
463     }
464   }
465   IC->all_parts(\%myconfig, \%$form);
466
467   if ($form->{itemstatus} eq 'active') {
468     $option .= $locale->text('Active') . " : ";
469   }
470   if ($form->{itemstatus} eq 'obsolete') {
471     $option .= $locale->text('Obsolete') . " : ";
472   }
473   if ($form->{itemstatus} eq 'orphaned') {
474     $option .= $locale->text('Orphaned') . " : ";
475   }
476   if ($form->{itemstatus} eq 'onhand') {
477     $option .= $locale->text('On Hand') . " : ";
478     $form->{l_onhand} = "Y";
479   }
480   if ($form->{itemstatus} eq 'short') {
481     $option .= $locale->text('Short') . " : ";
482     $form->{l_onhand} = "Y";
483   }
484   if ($form->{onorder}) {
485     $form->{l_ordnumber} = "Y";
486     $callback .= "&onorder=$form->{onorder}";
487     $option   .= $locale->text('On Order') . " : ";
488   }
489   if ($form->{ordered}) {
490     $form->{l_ordnumber} = "Y";
491     $callback .= "&ordered=$form->{ordered}";
492     $option   .= $locale->text('Ordered') . " : ";
493   }
494   if ($form->{rfq}) {
495     $form->{l_quonumber} = "Y";
496     $callback .= "&rfq=$form->{rfq}";
497     $option   .= $locale->text('RFQ') . " : ";
498   }
499   if ($form->{quoted}) {
500     $form->{l_quonumber} = "Y";
501     $callback .= "&quoted=$form->{quoted}";
502     $option   .= $locale->text('Quoted') . " : ";
503   }
504   if ($form->{bought}) {
505     $form->{l_invnumber} = "Y";
506     $callback .= "&bought=$form->{bought}";
507     $option   .= $locale->text('Bought') . " : ";
508   }
509   if ($form->{sold}) {
510     $form->{l_invnumber} = "Y";
511     $callback .= "&sold=$form->{sold}";
512     $option   .= $locale->text('Sold') . " : ";
513   }
514   if (   $form->{bought}
515       || $form->{sold}
516       || $form->{onorder}
517       || $form->{ordered}
518       || $form->{rfq}
519       || $form->{quoted}) {
520
521     $form->{l_lastcost} = "";
522     $form->{l_name}     = "Y";
523     if ($form->{transdatefrom}) {
524       $callback .= "&transdatefrom=$form->{transdatefrom}";
525       $option   .= "\n<br>"
526         . $locale->text('From')
527         . "&nbsp;"
528         . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
529     }
530     if ($form->{transdateto}) {
531       $callback .= "&transdateto=$form->{transdateto}";
532       $option   .= "\n<br>"
533         . $locale->text('To')
534         . "&nbsp;"
535         . $locale->date(\%myconfig, $form->{transdateto}, 1);
536     }
537   }
538
539   $option .= "<br>";
540
541   if ($form->{partnumber}) {
542     $callback .= "&partnumber=$form->{partnumber}";
543     $option   .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
544   }
545   if ($form->{ean}) {
546     $callback .= "&partnumber=$form->{ean}";
547     $option   .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
548   }
549   if ($form->{partsgroup}) {
550     $callback .= "&partsgroup=$form->{partsgroup}";
551     $option   .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
552   }
553   if ($form->{serialnumber}) {
554     $callback .= "&serialnumber=$form->{serialnumber}";
555     $option   .= $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
556   }
557   if ($form->{description}) {
558     $callback   .= "&description=$form->{description}";
559     $description = $form->{description};
560     $description =~ s/\n/<br>/g;
561     $option     .= $locale->text('Part Description') . qq| : $form->{description}<br>|;
562   }
563   if ($form->{make}) {
564     $callback .= "&make=$form->{make}";
565     $option   .= $locale->text('Make') . qq| : $form->{make}<br>|;
566   }
567   if ($form->{model}) {
568     $callback .= "&model=$form->{model}";
569     $option   .= $locale->text('Model') . qq| : $form->{model}<br>|;
570   }
571   if ($form->{drawing}) {
572     $callback .= "&drawing=$form->{drawing}";
573     $option   .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
574   }
575   if ($form->{microfiche}) {
576     $callback .= "&microfiche=$form->{microfiche}";
577     $option   .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
578   }
579   if ($form->{l_soldtotal}) {
580     $callback .= "&soldtotal=$form->{soldtotal}";
581     $option   .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
582   }
583
584   my @columns = $form->sort_columns(
585     qw(number partnumber ean description partsgroup bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber quonumber name serialnumber soldtotal)
586   );
587
588   if ($form->{l_linetotal}) {
589     $form->{l_onhand} = "Y";
590     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
591     if ($form->{l_lastcost}) {
592       $form->{l_linetotallastcost} = "Y";
593       if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
594         $form->{l_linetotallastcost} = "";
595       }
596     }
597     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
598   }
599
600   if ($form->{searchitems} eq 'service') {
601
602     # remove bin, weight and rop from list
603     map { $form->{"l_$_"} = "" } qw(bin weight rop);
604
605     $form->{l_onhand} = "";
606
607     # qty is irrelevant unless bought or sold
608     if (   $form->{bought}
609         || $form->{sold}
610         || $form->{onorder}
611         || $form->{ordered}
612         || $form->{rfq}
613         || $form->{quoted}) {
614       $form->{l_onhand} = "Y";
615     } else {
616       $form->{l_linetotalsellprice} = "";
617       $form->{l_linetotallastcost}  = "";
618     }
619   }
620
621   foreach my $item (@columns) {
622     if ($form->{"l_$item"} eq "Y") {
623       push @column_index, $item;
624
625       # add column to callback
626       $callback .= "&l_$item=Y";
627     }
628   }
629
630   if ($form->{l_subtotal} eq 'Y') {
631     $callback .= "&l_subtotal=Y";
632   }
633
634   $column_header{number} =
635     qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
636   $column_header{partnumber} =
637     qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
638     . $locale->text('Part Number')
639     . qq|</a></th>|;
640   $column_header{description} =
641     qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
642     . $locale->text('Part Description')
643     . qq|</a></th>|;
644   $column_header{partsgroup} =
645       qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
646     . $locale->text('Group')
647     . qq|</a></th>|;
648   $column_header{bin} =
649       qq|<th><a class=listheading href=$callback&sort=bin>|
650     . $locale->text('Bin')
651     . qq|</a></th>|;
652   $column_header{priceupdate} =
653       qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
654     . $locale->text('Updated')
655     . qq|</a></th>|;
656   $column_header{onhand} =
657     qq|<th nowrap><a  class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
658     . $locale->text('Qty')
659     . qq|</th>|;
660   $column_header{unit} =
661     qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
662   $column_header{listprice} =
663       qq|<th class=listheading nowrap>|
664     . $locale->text('List Price')
665     . qq|</th>|;
666   $column_header{lastcost} =
667     qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
668   $column_header{rop} =
669     qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
670   $column_header{weight} =
671     qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
672
673   $column_header{invnumber} =
674       qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
675     . $locale->text('Invoice Number')
676     . qq|</a></th>|;
677   $column_header{ordnumber} =
678       qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
679     . $locale->text('Order Number')
680     . qq|</a></th>|;
681   $column_header{quonumber} =
682       qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
683     . $locale->text('Quotation')
684     . qq|</a></th>|;
685
686   $column_header{name} =
687       qq|<th nowrap><a class=listheading href=$callback&sort=name>|
688     . $locale->text('Name')
689     . qq|</a></th>|;
690
691   $column_header{sellprice} =
692       qq|<th class=listheading nowrap>|
693     . $locale->text('Sell Price')
694     . qq|</th>|;
695   $column_header{linetotalsellprice} =
696     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
697   $column_header{linetotallastcost} =
698     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
699   $column_header{linetotallistprice} =
700     qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
701
702   $column_header{image} =
703     qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
704   $column_header{drawing} =
705       qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
706     . $locale->text('Drawing')
707     . qq|</a></th>|;
708   $column_header{microfiche} =
709       qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
710     . $locale->text('Microfiche')
711     . qq|</a></th>|;
712
713   $column_header{serialnumber} =
714       qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
715     . $locale->text('Serial Number')
716     . qq|</a></th>|;
717   $column_header{soldtotal} =
718     qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
719     . $locale->text('soldtotal')
720     . qq|</a></th>|;
721
722   $form->header;
723   my $colspan = $#column_index + 1;
724
725   print qq|
726 <body>
727
728 <table width=100%>
729   <tr>
730     <th class=listtop colspan=$colspan>$form->{title}</th>
731   </tr>
732   <tr height="5"></tr>
733
734   <tr><td colspan=$colspan>$option</td></tr>
735
736   <tr class=listheading>
737 |;
738
739   map { print "\n$column_header{$_}" } @column_index;
740
741   print qq|
742   </tr>
743   |;
744
745   # add order to callback
746   $form->{callback} = $callback .= "&sort=$form->{sort}";
747
748   # escape callback for href
749   $callback = $form->escape($callback);
750
751   if (@{ $form->{parts} }) {
752     $sameitem = $form->{parts}->[0]->{ $form->{sort} };
753   }
754
755   # insert numbers for top100
756   my $j = 0;
757   foreach my $ref (@{ $form->{parts} }) {
758     $j++;
759     $ref->{number} = $j;
760   }
761
762   # if avaible -> insert choice here
763   if (($form->{ndxs_counter}) > 0) {
764     for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
765       $partnumber  = $form->{"totop100_partnumber_$i"};
766       $description = $form->{"totop100_description_$i"};
767       $unit        = $form->{"totop100_unit_$i"};
768       $sellprice   = $form->{"totop100_sellprice_$i"};
769       $soldtotal   = $form->{"totop100_soldtotal_$i"};
770
771       $totop100 .= qq|
772 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
773 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
774 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
775 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
776 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
777       |;
778
779       # insert into list
780       push @{ $form->{parts} },
781         { number      => "",
782           partnumber  => "$partnumber",
783           description => "$description",
784           unit        => "$unit",
785           sellprice   => "$sellprice",
786           soldtotal   => "$soldtotal" };
787     }    #rof
788   }    #fi
789        # build data for columns
790   my $i = 0;
791   foreach my $ref (@{ $form->{parts} }) {
792
793     if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
794       if ($sameitem ne $ref->{ $form->{sort} }) {
795         parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
796         $sameitem = $ref->{ $form->{sort} };
797       }
798     }
799
800     $ref->{exchangerate} = 1 unless $ref->{exchangerate};
801     $ref->{sellprice} *= $ref->{exchangerate};
802     $ref->{listprice} *= $ref->{exchangerate};
803     $ref->{lastcost}  *= $ref->{exchangerate};
804
805     # use this for assemblies
806     $onhand = $ref->{onhand};
807
808     $align = "left";
809     if ($ref->{assemblyitem}) {
810       $align = "right";
811       $onhand = 0 if ($form->{sold});
812     }
813
814     $ref->{description} =~ s/\n/<br>/g;
815
816     $column_data{number} =
817         "<td align=right>"
818       . $form->format_amount(\%myconfig, $ref->{number})
819       . "</td>";
820     $column_data{partnumber} =
821       "<td align=$align>$ref->{partnumber}&nbsp;</a></td>";
822     $column_data{description} = "<td>$ref->{description}&nbsp;</td>";
823     $column_data{partsgroup}  = "<td>$ref->{partsgroup}&nbsp;</td>";
824
825     $column_data{onhand} =
826         "<td align=right>"
827       . $form->format_amount(\%myconfig, $ref->{onhand})
828       . "</td>";
829     $column_data{sellprice} =
830         "<td align=right>"
831       . $form->format_amount(\%myconfig, $ref->{sellprice})
832       . "</td>";
833     $column_data{listprice} =
834         "<td align=right>"
835       . $form->format_amount(\%myconfig, $ref->{listprice})
836       . "</td>";
837     $column_data{lastcost} =
838         "<td align=right>"
839       . $form->format_amount(\%myconfig, $ref->{lastcost})
840       . "</td>";
841
842     $column_data{linetotalsellprice} = "<td align=right>"
843       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
844       . "</td>";
845     $column_data{linetotallastcost} = "<td align=right>"
846       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
847       . "</td>";
848     $column_data{linetotallistprice} = "<td align=right>"
849       . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
850       . "</td>";
851
852     if (!$ref->{assemblyitem}) {
853       $totalsellprice += $onhand * $ref->{sellprice};
854       $totallastcost  += $onhand * $ref->{lastcost};
855       $totallistprice += $onhand * $ref->{listprice};
856
857       $subtotalonhand    += $onhand;
858       $subtotalsellprice += $onhand * $ref->{sellprice};
859       $subtotallastcost  += $onhand * $ref->{lastcost};
860       $subtotallistprice += $onhand * $ref->{listprice};
861     }
862
863     $column_data{rop} =
864       "<td align=right>"
865       . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
866     $column_data{weight} =
867         "<td align=right>"
868       . $form->format_amount(\%myconfig, $ref->{weight})
869       . "</td>";
870     $column_data{unit}        = "<td>$ref->{unit}&nbsp;</td>";
871     $column_data{bin}         = "<td>$ref->{bin}&nbsp;</td>";
872     $column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
873
874     $column_data{invnumber} =
875       ($ref->{module} ne 'oe')
876       ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&callback=$callback>$ref->{invnumber}</a></td>"
877       : "<td>$ref->{invnumber}</td>";
878     $column_data{ordnumber} =
879       ($ref->{module} eq 'oe')
880       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{ordnumber}</a></td>"
881       : "<td>$ref->{ordnumber}</td>";
882     $column_data{quonumber} =
883       ($ref->{module} eq 'oe' && !$ref->{ordnumber})
884       ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{quonumber}</a></td>"
885       : "<td>$ref->{quonumber}</td>";
886
887     $column_data{name} = "<td>$ref->{name}</td>";
888
889     $column_data{image} =
890       ($ref->{image})
891       ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
892       : "<td>&nbsp;</td>";
893     $column_data{drawing} =
894       ($ref->{drawing})
895       ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
896       : "<td>&nbsp;</td>";
897     $column_data{microfiche} =
898       ($ref->{microfiche})
899       ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
900       : "<td>&nbsp;</td>";
901
902     $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
903
904     $column_data{soldtotal} = "<td  align=right>$ref->{soldtotal}</td>";
905
906     $i++;
907     $i %= 2;
908     print "<tr class=listrow$i>";
909
910     map { print "\n$column_data{$_}" } @column_index;
911
912     print qq|
913     </tr>
914 |;
915   }
916
917   if ($form->{l_subtotal} eq 'Y') {
918     parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
919   }    #fi
920
921   if ($form->{"l_linetotal"}) {
922     map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
923     $column_data{linetotalsellprice} =
924         "<th class=listtotal align=right>"
925       . $form->format_amount(\%myconfig, $totalsellprice, 2)
926       . "</th>";
927     $column_data{linetotallastcost} =
928         "<th class=listtotal align=right>"
929       . $form->format_amount(\%myconfig, $totallastcost, 2)
930       . "</th>";
931     $column_data{linetotallistprice} =
932         "<th class=listtotal align=right>"
933       . $form->format_amount(\%myconfig, $totallistprice, 2)
934       . "</th>";
935
936     print "<tr class=listtotal>";
937
938     map { print "\n$column_data{$_}" } @column_index;
939
940     print qq|</tr>
941     |;
942   }
943
944   print qq|
945   <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
946 </table>
947
948 |;
949
950   print qq|
951
952 <br>
953
954 <form method=post action=$form->{script}>
955
956 <input type=hidden name=itemstatus value="$form->{itemstatus}">
957 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
958 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
959 <input type=hidden name=l_description value="$form->{l_description}">
960 <input type=hidden name=l_onhand value="$form->{l_onhand}">
961 <input type=hidden name=l_unit value="$form->{l_unit}">
962 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
963 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
964 <input type=hidden name=sort value="$form->{sort}">
965 <input type=hidden name=revers value="$form->{revers}">
966 <input type=hidden name=lastsort value="$form->{lastsort}">
967 <input type=hidden name=parts value="$form->{parts}">
968
969 <input type=hidden name=bom value="$form->{bom}">
970 <input type=hidden name=titel value="$form->{titel}">
971 <input type=hidden name=searchitems value="$form->{searchitems}">|;
972
973   print $totop100;
974
975   print qq|
976 <!--    <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">-->
977
978     <input class=submit type=submit name=action value="|
979     . $locale->text('choice') . qq|">
980
981   </form>
982
983 </body>
984 </html>
985 |;
986
987   $lxdebug->leave_sub();
988 }    # end addtop100
989
990 #
991 # Report for Wares.
992 # Warning, deep magic ahead.
993 # This function parses the requested details, sanity checks them, and converts them into a format thats usable for IC->all_parts
994 #
995 # flags coming from the form:
996 # hardcoded:
997 #  searchitems=part revers=0 lastsort=''
998 #
999 # filter:
1000 # partnumber ean description partsgroup serialnumber make model drawing microfiche
1001 # transdatefrom transdateto
1002 #
1003 # radio:
1004 #  itemstatus = active | onhand | short | obsolete | orphaned
1005 #  action     = continue | top100
1006 #
1007 # checkboxes:
1008 #  bought sold onorder ordered rfq quoted
1009 #  l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
1010 #  l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
1011 #  l_partsgroup l_subtotal l_soldtotal l_deliverydate
1012 #
1013 # hiddens:
1014 #  nextsub revers lastsort sort ndxs_counter
1015 #
1016 sub generate_report {
1017   $lxdebug->enter_sub();
1018
1019   $auth->assert('part_service_assembly_edit');
1020
1021   my ($revers, $lastsort, $description);
1022
1023   my $cvar_configs = CVar->get_configs('module' => 'IC');
1024
1025   $form->{title} = (ucfirst $form->{searchitems}) . "s";
1026   $form->{title} =~ s/ys$/ies/;
1027   $form->{title} = $locale->text($form->{title});
1028
1029   my %column_defs = (
1030     'bin'                => { 'text' => $locale->text('Bin'), },
1031     'deliverydate'       => { 'text' => $locale->text('deliverydate'), },
1032     'description'        => { 'text' => $locale->text('Part Description'), },
1033     'drawing'            => { 'text' => $locale->text('Drawing'), },
1034     'image'              => { 'text' => $locale->text('Image'), },
1035     'invnumber'          => { 'text' => $locale->text('Invoice Number'), },
1036     'lastcost'           => { 'text' => $locale->text('Last Cost'), },
1037     'linetotallastcost'  => { 'text' => $locale->text('Extended'), },
1038     'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1039     'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1040     'listprice'          => { 'text' => $locale->text('List Price'), },
1041     'microfiche'         => { 'text' => $locale->text('Microfiche'), },
1042     'name'               => { 'text' => $locale->text('Name'), },
1043     'onhand'             => { 'text' => $locale->text('Qty'), },
1044     'ordnumber'          => { 'text' => $locale->text('Order Number'), },
1045     'partnumber'         => { 'text' => $locale->text('Part Number'), },
1046     'partsgroup'         => { 'text' => $locale->text('Group'), },
1047     'priceupdate'        => { 'text' => $locale->text('Updated'), },
1048     'quonumber'          => { 'text' => $locale->text('Quotation'), },
1049     'rop'                => { 'text' => $locale->text('ROP'), },
1050     'sellprice'          => { 'text' => $locale->text('Sell Price'), },
1051     'serialnumber'       => { 'text' => $locale->text('Serial Number'), },
1052     'soldtotal'          => { 'text' => $locale->text('soldtotal'), },
1053     'transdate'          => { 'text' => $locale->text('Transdate'), },
1054     'unit'               => { 'text' => $locale->text('Unit'), },
1055     'weight'             => { 'text' => $locale->text('Weight'), },
1056   );
1057
1058   $revers     = $form->{revers};
1059   $lastsort   = $form->{lastsort};
1060
1061   # sorting and direction of sorting
1062   # ToDO: change this to the simpler field+direction method
1063   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1064     $form->{revers}   = 0;
1065     $form->{lastsort} = "partnumber";
1066     $form->{sort}     = "partnumber";
1067   } else {
1068     if ($form->{lastsort} eq $form->{sort}) {
1069       $form->{revers} = 1 - $form->{revers};
1070     } else {
1071       $form->{revers} = 0;
1072       $form->{lastsort} = $form->{sort};
1073     }    #fi
1074   }    #fi
1075
1076   # special case if we have a serialnumber limit search
1077   # serialnumbers are only given in invoices and orders,
1078   # so they can only pop up in bought, sold, rfq, and quoted stuff
1079   $form->{no_sn_joins} = 'Y' if (   !$form->{bought} && !$form->{sold}
1080                                  && !$form->{rfq}    && !$form->{quoted}
1081                                  && ($form->{l_serialnumber} || $form->{serialnumber}));
1082
1083   # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1084   # if any of these are ticked the behavior changes slightly for lastcost
1085   # since all those are aggregation checks for the legder tables this is an internal switch
1086   # refered to as ledgerchecks
1087   $form->{ledgerchecks} = 'Y' if (   $form->{bought} || $form->{sold} || $form->{onorder}
1088                                   || $form->{ordered} || $form->{rfq} || $form->{quoted});
1089
1090   # if something should be activated if something else is active, enter it here
1091   my %dependencies = (
1092     onhand       => [ qw(l_onhand) ],
1093     short        => [ qw(l_onhand) ],
1094     onorder      => [ qw(l_ordnumber) ],
1095     ordered      => [ qw(l_ordnumber) ],
1096     rfq          => [ qw(l_quonumber) ],
1097     quoted       => [ qw(l_quonumber) ],
1098     bought       => [ qw(l_invnumber) ],
1099     sold         => [ qw(l_invnumber) ],
1100     ledgerchecks => [ qw(l_name) ],
1101     serialnumber => [ qw(l_serialnumber) ],
1102     no_sn_joins  => [ qw(bought sold) ],
1103   );
1104
1105   # these strings get displayed at the top of the results to indicate the user which switches were used
1106   my %optiontexts = (
1107     active        => $locale->text('Active'),
1108     obsolete      => $locale->text('Obsolete'),
1109     orphaned      => $locale->text('Orphaned'),
1110     onhand        => $locale->text('On Hand'),
1111     short         => $locale->text('Short'),
1112     onorder       => $locale->text('On Order'),
1113     ordered       => $locale->text('Ordered'),
1114     rfq           => $locale->text('RFQ'),
1115     quoted        => $locale->text('Quoted'),
1116     bought        => $locale->text('Bought'),
1117     sold          => $locale->text('Sold'),
1118     transdatefrom => $locale->text('From')       . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1119     transdateto   => $locale->text('To (time)')  . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1120     partnumber    => $locale->text('Part Number')      . ": '$form->{partnumber}'",
1121     partsgroup    => $locale->text('Group')            . ": '$form->{partsgroup}'",
1122     serialnumber  => $locale->text('Serial Number')    . ": '$form->{serialnumber}'",
1123     description   => $locale->text('Part Description') . ": '$form->{description}'",
1124     make          => $locale->text('Make')             . ": '$form->{make}'",
1125     model         => $locale->text('Model')            . ": '$form->{model}'",
1126     drawing       => $locale->text('Drawing')          . ": '$form->{drawing}'",
1127     microfiche    => $locale->text('Microfiche')       . ": '$form->{microfiche}'",
1128     l_soldtotal   => $locale->text('soldtotal'),
1129     ean           => $locale->text('EAN')              . ": '$form->{ean}'",
1130   );
1131
1132   my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1133   my @callback_keys   = qw(onorder ordered rfq quoted bought sold partnumber partsgroup serialnumber description make model
1134                            drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1135
1136   # calculate dependencies
1137   for (@itemstatus_keys, @callback_keys) {
1138     next if ($form->{itemstatus} ne $_ && !$form->{$_});
1139     map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1140   }
1141
1142   # generate callback and optionstrings
1143   my @options;
1144   for my  $key (@itemstatus_keys, @callback_keys) {
1145     next if ($form->{itemstatus} ne $key && !$form->{$key});
1146     push @options, $optiontexts{$key};
1147   }
1148
1149   # special case for lastcost
1150   if ($form->{ledgerchecks}){
1151     # ledgerchecks don't know about sellprice or lastcost. they just return a
1152     # price. so rename sellprice to price, and drop lastcost.
1153     $column_defs{sellprice}{text} = $locale->text('Price');
1154     $form->{l_lastcost} = ""
1155   }
1156
1157   if ($form->{description}) {
1158     $description = $form->{description};
1159     $description =~ s/\n/<br>/g;
1160   }
1161
1162   if ($form->{l_linetotal}) {
1163     $form->{l_onhand} = "Y";
1164     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1165     $form->{l_linetotallastcost}  = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if  $form->{l_lastcost};
1166     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1167   }
1168
1169   if ($form->{searchitems} eq 'service') {
1170
1171     # remove bin, weight and rop from list
1172     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1173
1174     $form->{l_onhand} = "";
1175
1176     # qty is irrelevant unless bought or sold
1177     if (   $form->{bought}
1178         || $form->{sold}
1179         || $form->{onorder}
1180         || $form->{ordered}
1181         || $form->{rfq}
1182         || $form->{quoted}) {
1183       $form->{l_onhand} = "Y";
1184     } else {
1185       $form->{l_linetotalsellprice} = "";
1186       $form->{l_linetotallastcost}  = "";
1187     }
1188   }
1189
1190   IC->all_parts(\%myconfig, \%$form);
1191
1192   my @columns = qw(
1193     partnumber description partsgroup bin onhand rop unit listprice
1194     linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1195     priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1196     transdate name serialnumber soldtotal deliverydate ean
1197   );
1198
1199   my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1200   my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
1201   my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1202
1203   push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1204
1205   %column_defs = (%column_defs,%column_defs_cvars); # nochmal die cvars als Ã¼berschrift hinzufügen
1206     map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns;
1207   map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal);
1208
1209   my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom), @itemstatus_keys, @callback_keys, @searchable_custom_variables, map { "l_$_" } @columns);
1210   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1211
1212   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1213   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1214
1215   foreach my $col (@sort_full) {
1216     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1217   }
1218   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1219
1220   # add order to callback
1221   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1222
1223   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1224
1225   my %attachment_basenames = (
1226     'part'     => $locale->text('part_list'),
1227     'service'  => $locale->text('service_list'),
1228     'assembly' => $locale->text('assembly_list'),
1229   );
1230
1231   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1232                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1233                        'output_format'         => 'HTML',
1234                        'title'                 => $form->{title},
1235                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1236   );
1237   $report->set_options_from_form();
1238   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1239
1240   $report->set_columns(%column_defs);
1241   $report->set_column_order(@columns);
1242
1243   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1244
1245   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1246
1247   CVar->add_custom_variables_to_report('module'         => 'IC',
1248                                        'trans_id_field' => 'id',
1249                                        'configs'        => $cvar_configs,
1250                                        'column_defs'    => \%column_defs,
1251                                        'data'           => $form->{parts});
1252
1253   CVar->add_custom_variables_to_report('module'         => 'IC',
1254                                        'sub_module'     => sub { $_[0]->{ioi} },
1255                                        'trans_id_field' => 'ioi_id',
1256                                        'configs'        => $cvar_configs,
1257                                        'column_defs'    => \%column_defs,
1258                                        'data'           => $form->{parts});
1259
1260   my @subtotal_columns = qw(sellprice listprice lastcost);
1261   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1262   my %totals    = map { $_ => 0 } @subtotal_columns;
1263   my $idx       = 0;
1264   my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
1265
1266   my $defaults  = AM->get_defaults();
1267
1268   # postprocess parts
1269   foreach my $ref (@{ $form->{parts} }) {
1270
1271     # fresh row, for inserting later
1272     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1273
1274     $ref->{exchangerate} ||= 1;
1275     $ref->{price_factor} ||= 1;
1276     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1277     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1278     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1279
1280     # use this for assemblies
1281     my $onhand = $ref->{onhand};
1282
1283     if ($ref->{assemblyitem}) {
1284       $row->{partnumber}{align}   = 'right';
1285       $row->{onhand}{data}        = 0;
1286       $onhand                     = 0 if ($form->{sold});
1287     }
1288
1289     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1290     $row->{partnumber}->{link}  = $edit_link;
1291     $row->{description}->{link} = $edit_link;
1292
1293     foreach (qw(sellprice listprice lastcost)) {
1294       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
1295       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1296     }
1297
1298     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1299
1300     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1301
1302     if (!$ref->{assemblyitem}) {
1303       foreach my $col (@subtotal_columns) {
1304         $totals{$col}    += $onhand * $ref->{$col};
1305         $subtotals{$col} += $onhand * $ref->{$col};
1306       }
1307
1308       $subtotals{onhand} += $onhand;
1309     }
1310
1311     # set module stuff
1312     if ($ref->{module} eq 'oe') {
1313       my $edit_oe_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'purchase_order' : 'sales_order'), 'id=' . E($ref->{trans_id}), 'callback');
1314       $row->{ordnumber}{link} = $edit_oe_link;
1315       $row->{quonumber}{link} = $edit_oe_link if (!$ref->{ordnumber});
1316
1317     } else {
1318       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1319     }
1320
1321     # set properties of images
1322     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1323       $row->{image}{data}     = '';
1324       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1325     }
1326     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1327
1328     $report->add_data($row);
1329
1330     my $next_ref = $form->{parts}[$idx + 1];
1331
1332     # insert subtotal rows
1333     if (($form->{l_subtotal} eq 'Y') &&
1334         (!$next_ref ||
1335          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1336       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1337
1338       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1339         $row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand});
1340       }
1341
1342       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1343       map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns);
1344
1345       $report->add_data($row);
1346
1347       $same_item = $next_ref->{ $form->{sort} };
1348     }
1349
1350     $idx++;
1351   }
1352
1353   if ($form->{"l_linetotal"}) {
1354     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1355
1356     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1357
1358     $report->add_separator();
1359     $report->add_data($row);
1360   }
1361
1362   $report->generate_with_headers();
1363
1364   $lxdebug->leave_sub();
1365 }    #end generate_report
1366
1367 sub parts_subtotal {
1368   $lxdebug->enter_sub();
1369
1370   $auth->assert('part_service_assembly_edit');
1371
1372   my (%column_data);
1373   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1374
1375   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1376   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1377
1378   $column_data{onhand} =
1379       "<th class=listsubtotal align=right>"
1380     . $form->format_amount(\%myconfig, $$subtotalonhand)
1381     . "</th>";
1382
1383   $column_data{linetotalsellprice} =
1384       "<th class=listsubtotal align=right>"
1385     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1386     . "</th>";
1387   $column_data{linetotallistprice} =
1388       "<th class=listsubtotal align=right>"
1389     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1390     . "</th>";
1391   $column_data{linetotallastcost} =
1392       "<th class=listsubtotal align=right>"
1393     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1394     . "</th>";
1395
1396   $$subtotalonhand    = 0;
1397   $$subtotalsellprice = 0;
1398   $$subtotallistprice = 0;
1399   $$subtotallastcost  = 0;
1400
1401   print "<tr class=listsubtotal>";
1402
1403   map { print "\n$column_data{$_}" } @{ $column_index };
1404
1405   print qq|
1406   </tr>
1407 |;
1408
1409   $lxdebug->leave_sub();
1410 }
1411
1412 sub edit {
1413   $lxdebug->enter_sub();
1414
1415   $auth->assert('part_service_assembly_edit');
1416
1417   # show history button
1418   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1419   #/show hhistory button
1420   IC->get_part(\%myconfig, \%$form);
1421
1422   $form->{"original_partnumber"} = $form->{"partnumber"};
1423
1424   my $title      = 'Edit ' . ucfirst $form->{item};
1425   $form->{title} = $locale->text($title);
1426
1427   &link_part;
1428   &display_form;
1429
1430   $lxdebug->leave_sub();
1431 }
1432
1433 sub link_part {
1434   $lxdebug->enter_sub();
1435
1436   $auth->assert('part_service_assembly_edit');
1437
1438   IC->create_links("IC", \%myconfig, \%$form);
1439
1440   # currencies
1441   map({ $form->{selectcurrency} .= "<option>$_\n" }
1442       split(/:/, $form->{currencies}));
1443
1444   # parts and assemblies have the same links
1445   my $item = $form->{item};
1446   if ($form->{item} eq 'assembly') {
1447     $item = 'part';
1448   }
1449
1450   # build the popup menus
1451   $form->{taxaccounts} = "";
1452   foreach my $key (keys %{ $form->{IC_links} }) {
1453     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1454
1455       # if this is a tax field
1456       if ($key =~ /IC_tax/) {
1457         if ($key =~ /\Q$item\E/) {
1458           $form->{taxaccounts} .= "$ref->{accno} ";
1459           $form->{"IC_tax_$ref->{accno}_description"} =
1460             "$ref->{accno}--$ref->{description}";
1461
1462           if ($form->{id}) {
1463             if ($form->{amount}{ $ref->{accno} }) {
1464               $form->{"IC_tax_$ref->{accno}"} = "checked";
1465             }
1466           } else {
1467             $form->{"IC_tax_$ref->{accno}"} = "checked";
1468           }
1469         }
1470       } else {
1471
1472         $form->{"select$key"} .=
1473           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1474         if ($form->{amount}{$key} eq $ref->{accno}) {
1475           $form->{$key} = "$ref->{accno}--$ref->{description}";
1476         }
1477
1478       }
1479     }
1480   }
1481   chop $form->{taxaccounts};
1482
1483   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1484     $form->{selectIC_income}  = $form->{selectIC_sale};
1485     $form->{selectIC_expense} = $form->{selectIC_cogs};
1486     $form->{IC_income}        = $form->{IC_sale};
1487     $form->{IC_expense}       = $form->{IC_cogs};
1488   }
1489
1490   delete $form->{IC_links};
1491   delete $form->{amount};
1492
1493   $form->get_partsgroup(\%myconfig, { all => 1 });
1494
1495   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1496
1497   if (@{ $form->{all_partsgroup} }) {
1498     $form->{selectpartsgroup} = qq|<option>\n|;
1499     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1500   }
1501
1502   if ($form->{item} eq 'assembly') {
1503
1504     foreach my $i (1 .. $form->{assembly_rows}) {
1505       if ($form->{"partsgroup_id_$i"}) {
1506         $form->{"partsgroup_$i"} =
1507           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1508       }
1509     }
1510     $form->get_partsgroup(\%myconfig);
1511
1512     if (@{ $form->{all_partsgroup} }) {
1513       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1514
1515       map {
1516         $form->{selectassemblypartsgroup} .=
1517           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1518       } @{ $form->{all_partsgroup} };
1519     }
1520   }
1521   $lxdebug->leave_sub();
1522 }
1523
1524 sub form_header {
1525   $lxdebug->enter_sub();
1526
1527   $auth->assert('part_service_assembly_edit');
1528
1529   $form->{eur}              = $main::eur; # config dumps into namespace - yuck
1530   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1531   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1532   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1533
1534   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1535   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1536
1537   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1538                    'partsgroup'    => 'all_partsgroup',
1539                    'vendors'       => 'ALL_VENDORS',);
1540
1541
1542   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1543   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1544
1545   # use JavaScript Calendar or not (yes!)
1546   $form->{jsscript} = 1;
1547
1548   my $units = AM->retrieve_units(\%myconfig, $form);
1549   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1550
1551   $form->{defaults} = AM->get_defaults();
1552
1553   $form->{fokus} = "ic.partnumber";
1554
1555   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1556
1557   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1558     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1559
1560   $form->header;
1561   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1562   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1563   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1564   #                                                     payment_terms     => $form->{payment_terms},
1565   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1566   print $form->parse_html_template('ic/form_header');
1567   $lxdebug->leave_sub();
1568 }
1569
1570 sub form_footer {
1571   $lxdebug->enter_sub();
1572
1573   $auth->assert('part_service_assembly_edit');
1574
1575   print $form->parse_html_template('ic/form_footer');
1576
1577   $lxdebug->leave_sub();
1578 }
1579
1580 sub makemodel_row {
1581   $lxdebug->enter_sub();
1582   my ($numrows) = @_;
1583   #hli
1584   my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"}, lastcost => $form->{"lastcost_$_"}, lastupdate => $form->{"lastupdate_$_"}, sortorder => $form->{"sortorder_$_"} }, 1 .. $numrows;
1585   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1586   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1587
1588   $lxdebug->leave_sub();
1589 }
1590
1591 sub assembly_row {
1592   $lxdebug->enter_sub();
1593   my ($numrows) = @_;
1594   my (@column_index);
1595   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1596
1597   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1598
1599   if ($form->{previousform}) {
1600     $nochange     = 1;
1601     @column_index = qw(qty unit bom partnumber description partsgroup total);
1602   } else {
1603
1604     # change callback
1605     $form->{old_callback} = $form->{callback};
1606     $callback             = $form->{callback};
1607     $form->{callback}     = "$form->{script}?action=display_form";
1608
1609     # delete action
1610     map { delete $form->{$_} } qw(action header);
1611
1612     # save form variables in a previousform variable
1613     $previousform = $form->escape($form->escape(join '&', map {
1614       sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}
1615     } grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
1616
1617     $form->{callback} = $callback;
1618     $form->{assemblytotal} = 0;
1619     $form->{assembly_purchase_price_total} = 0;
1620     $form->{weight}        = 0;
1621   }
1622
1623   my %header = (
1624    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1625    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1626    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1627    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1628    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1629    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1630    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1631    bom           => { text =>  $locale->text('BOM'),                                          },
1632    partsgroup    => { text =>  $locale->text('Group'),                                        },
1633   );
1634
1635   my @ROWS;
1636
1637   for my $i (1 .. $numrows) {
1638     my (%row, @row_hiddens);
1639
1640     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1641
1642     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1643     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1644     $form->{assemblytotal}                  += $linetotal;
1645     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1646     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1647     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1648     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1649     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1650     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1651
1652     # last row
1653     if (($i >= 1) && ($i == $numrows)) {
1654       if (!$form->{previousform}) {
1655         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1656         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1657         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1658         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1659       }
1660     # other rows
1661     } else {
1662       if ($form->{previousform}) {
1663         push @row_hiddens,          qw(qty bom);
1664         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1665         $row{qty}{data}           = $form->{"qty_$i"};
1666         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1667         $row{qty}{align}          = 'right';
1668       } else {
1669         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1670         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1671         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1672         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1673                                        $form->{"bom_$i"} ? 'checked' : '';
1674       }
1675       push @row_hiddens,        qw(unit description partnumber partsgroup);
1676       $row{unit}{data}        = $form->{"unit_$i"};
1677       $row{description}{data} = $form->{"description_$i"};
1678       $row{partsgroup}{data}  = $form->{"partsgroup_$i"};
1679       $row{bom}{align}        = 'center';
1680     }
1681
1682     $row{lastcost}{data}      = $line_purchase_price;
1683     $row{total}{data}         = $linetotal;
1684     $row{lastcost}{align}     = 'right';
1685     $row{total}{align}        = 'right';
1686     $row{deliverydate}{align} = 'right';
1687
1688     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1689     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1690
1691     push @ROWS, \%row;
1692   }
1693
1694   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1695
1696   $lxdebug->leave_sub();
1697 }
1698
1699 sub update {
1700   $lxdebug->enter_sub();
1701
1702   # parse pricegroups. and no, don't rely on check_form for this...
1703   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1704
1705   if ($form->{item} eq "assembly") {
1706     my $i = $form->{assembly_rows};
1707
1708     # if last row is empty check the form otherwise retrieve item
1709     if (   ($form->{"partnumber_$i"} eq "")
1710         && ($form->{"description_$i"} eq "")
1711         && ($form->{"partsgroup_$i"}  eq "")) {
1712
1713       &check_form;
1714
1715     } else {
1716
1717       IC->assembly_item(\%myconfig, \%$form);
1718
1719       my $rows = scalar @{ $form->{item_list} };
1720
1721       if ($rows) {
1722         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1723
1724         if ($rows > 1) {
1725           $form->{makemodel_rows}--;
1726           &select_item;
1727           ::end_of_request();
1728         } else {
1729           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1730             qw(partnumber description unit partsgroup);
1731           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1732             keys %{ $form->{item_list}[0] };
1733           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1734           $form->{assembly_rows}++;
1735
1736           &check_form;
1737
1738         }
1739
1740       } else {
1741
1742         $form->{rowcount} = $i;
1743         $form->{assembly_rows}++;
1744
1745         &new_item;
1746
1747       }
1748     }
1749
1750   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1751     &check_form;
1752   }
1753
1754   $lxdebug->leave_sub();
1755 }
1756
1757 sub save {
1758   $lxdebug->enter_sub();
1759
1760   $auth->assert('part_service_assembly_edit');
1761
1762   my ($parts_id, %newform, $previousform, $amount, $callback);
1763
1764   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1765   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1766
1767   # check if there is a description
1768   $form->isblank("description", $locale->text("Part Description missing!"));
1769
1770   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1771     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1772
1773   if (!$form->{buchungsgruppen_id}) {
1774     $form->error($locale->text("Parts must have an entry type.") . " " .
1775      $locale->text("If you see this message, you most likely just setup your LX-Office and haven't added any entry types. If this is the case, the option is accessible for administrators in the System menu.")
1776     );
1777   }
1778
1779   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1780   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1781
1782   # save part
1783   $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
1784   if (IC->save(\%myconfig, \%$form) == 3) {
1785     $form->error($locale->text('Partnumber not unique!'));
1786   }
1787   # saving the history
1788   if(!exists $form->{addition}) {
1789     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1790     $form->{addition} = "SAVED";
1791     $form->save_history;
1792   }
1793   # /saving the history
1794   $parts_id = $form->{id};
1795
1796   my $i;
1797   # load previous variables
1798   if ($form->{previousform}) {
1799
1800     # save the new form variables before splitting previousform
1801     map { $newform{$_} = $form->{$_} } keys %$form;
1802
1803     $previousform = $form->unescape($form->{previousform});
1804
1805     # don't trample on previous variables
1806     map { delete $form->{$_} } keys %newform;
1807
1808     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1809     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1810
1811     # now take it apart and restore original values
1812     foreach my $item (split /&/, $previousform) {
1813       my ($key, $value) = split m/=/, $item, 2;
1814       $value =~ s/%26/&/g;
1815       $form->{$key} = $value;
1816     }
1817     $form->{taxaccounts} = $newform{taxaccount2};
1818
1819     if ($form->{item} eq 'assembly') {
1820
1821       # undo number formatting
1822       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1823         qw(weight listprice sellprice rop);
1824
1825       $form->{assembly_rows}--;
1826       $i = $newform{rowcount};
1827       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1828
1829       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1830       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1831
1832       # change/add values for assembly item
1833       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1834       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1835
1836       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1837       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1838       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1839
1840     } else {
1841
1842       # set values for last invoice/order item
1843       $i = $form->{rowcount};
1844       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1845
1846       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1847       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1848
1849       $form->{"longdescription_$i"} = $newform{notes};
1850
1851       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1852
1853       if ($form->{exchangerate} != 0) {
1854         $form->{"sellprice_$i"} /= $form->{exchangerate};
1855       }
1856
1857       $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
1858
1859       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1860       chop $form->{"taxaccounts_$i"};
1861       foreach my $item (qw(description rate taxnumber)) {
1862         my $index = $form->{"taxaccounts_$i"} . "_$item";
1863         $form->{$index} = $newform{$index};
1864       }
1865
1866       # credit remaining calculation
1867       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1868
1869       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1870       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1871
1872       $form->{creditremaining} -= $amount;
1873
1874       # redo number formatting, because invoice parse them!
1875       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1876     }
1877
1878     $form->{"id_$i"} = $parts_id;
1879
1880     # Get the actual price factor (not just the ID) for the marge calculation.
1881     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1882     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1883       next if ($pfac->{id} != $newform{price_factor_id});
1884       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1885       last;
1886     }
1887     delete $form->{ALL_PRICE_FACTORS};
1888
1889     delete $form->{action};
1890
1891     # restore original callback
1892     $callback = $form->unescape($form->{callback});
1893     $form->{callback} = $form->unescape($form->{old_callback});
1894     delete $form->{old_callback};
1895
1896     $form->{makemodel_rows}--;
1897
1898     # put callback together
1899     foreach my $key (keys %$form) {
1900
1901       # do single escape for Apache 2.0
1902       my $value = $form->escape($form->{$key}, 1);
1903       $callback .= qq|&$key=$value|;
1904     }
1905     $form->{callback} = $callback;
1906   }
1907   $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
1908
1909   # redirect
1910   $form->redirect;
1911
1912   $lxdebug->leave_sub();
1913 }
1914
1915 sub save_as_new {
1916   $lxdebug->enter_sub();
1917
1918   $auth->assert('part_service_assembly_edit');
1919
1920   # saving the history
1921   if(!exists $form->{addition}) {
1922     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1923     $form->{addition} = "SAVED AS NEW";
1924     $form->save_history;
1925   }
1926   # /saving the history
1927   $form->{id} = 0;
1928   if ($form->{"original_partnumber"} &&
1929       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1930     $form->{partnumber} = "";
1931   }
1932   &save;
1933   $lxdebug->leave_sub();
1934 }
1935
1936 sub delete {
1937   $lxdebug->enter_sub();
1938
1939   $auth->assert('part_service_assembly_edit');
1940
1941   # saving the history
1942   if(!exists $form->{addition}) {
1943     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1944     $form->{addition} = "DELETED";
1945     $form->save_history;
1946   }
1947   # /saving the history
1948   my $rc = IC->delete(\%myconfig, \%$form);
1949
1950   # redirect
1951   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
1952   $form->error($locale->text('Cannot delete item!'));
1953
1954   $lxdebug->leave_sub();
1955 }
1956
1957 sub price_row {
1958   $lxdebug->enter_sub();
1959
1960   $auth->assert('part_service_assembly_edit');
1961
1962   my ($numrows) = @_;
1963
1964   my @PRICES = map +{
1965     pricegroup    => $form->{"pricegroup_$_"},
1966     pricegroup_id => $form->{"pricegroup_id_$_"},
1967     price         => $form->{"price_$_"},
1968   }, 1 .. $numrows;
1969
1970   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
1971
1972   $lxdebug->leave_sub();
1973 }
1974
1975 sub parts_language_selection {
1976   $lxdebug->enter_sub();
1977
1978   $auth->assert('part_service_assembly_edit');
1979
1980   my $languages = IC->retrieve_languages(\%myconfig, $form);
1981
1982   if ($form->{language_values} ne "") {
1983     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
1984       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
1985
1986       foreach my $language (@{ $languages }) {
1987         next unless ($language->{id} == $language_id);
1988
1989         $language->{translation}     = $translation;
1990         $language->{longdescription} = $longdescription;
1991         last;
1992       }
1993     }
1994   }
1995
1996   my @header_sort = qw(name longdescription);
1997   my %header_title = ( "name" => $locale->text("Name"),
1998                        "longdescription" => $locale->text("Long Description"),
1999                        );
2000
2001   my @header =
2002     map(+{ "column_title" => $header_title{$_},
2003            "column" => $_,
2004          },
2005         @header_sort);
2006
2007   $form->{"title"} = $locale->text("Language Values");
2008   $form->header();
2009   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2010                                                                     "LANGUAGES" => $languages, });
2011
2012   $lxdebug->leave_sub();
2013 }
2014
2015 sub ajax_autocomplete {
2016   $main::lxdebug->enter_sub();
2017
2018   my $form     = $main::form;
2019   my %myconfig = %main::myconfig;
2020
2021   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2022   $form->{$form->{column}} = $form->{q}           || '';
2023   $form->{limit}           = ($form->{limit} * 1) || 10;
2024   $form->{searchitems}   ||= '';
2025
2026   my @results = IC->all_parts(\%myconfig, $form);
2027
2028   print $form->ajax_response_header(),
2029         $form->parse_html_template('ic/ajax_autocomplete');
2030
2031   $main::lxdebug->leave_sub();
2032 }
2033
2034 sub continue { call_sub($form->{"nextsub"}); }