1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger, Accounting
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
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.
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 #======================================================================
30 # Inventory Control module
32 #======================================================================
34 use POSIX qw(strftime);
35 use List::Util qw(first max);
36 use List::MoreUtils qw(any);
41 use SL::Helper::Flash;
42 use SL::ReportGenerator;
50 our ($form, $locale, %myconfig, $lxdebug, $auth);
52 require "bin/mozilla/io.pl";
53 require "bin/mozilla/invoice_io.pl";
54 require "bin/mozilla/common.pl";
55 require "bin/mozilla/reportgenerator.pl";
60 # type=submit $locale->text('Add Part')
61 # type=submit $locale->text('Add Service')
62 # type=submit $locale->text('Add Assembly')
63 # type=submit $locale->text('Edit Part')
64 # type=submit $locale->text('Edit Service')
65 # type=submit $locale->text('Edit Assembly')
66 # $locale->text('Parts')
67 # $locale->text('Services')
68 # $locale->text('Inventory quantity must be zero before you can set this part obsolete!')
69 # $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!')
70 # $locale->text('Part Number missing!')
71 # $locale->text('Service Number missing!')
72 # $locale->text('Assembly Number missing!')
73 # $locale->text('ea');
78 $lxdebug->enter_sub();
80 $auth->assert('part_service_assembly_edit');
82 my $title = 'Add ' . ucfirst $form->{item};
83 $form->{title} = $locale->text($title);
84 $form->{callback} = "$form->{script}?action=add&item=$form->{item}" unless $form->{callback};
85 $form->{unit_changeable} = 1;
87 IC->get_pricegroups(\%myconfig, \%$form);
91 $lxdebug->leave_sub();
95 $lxdebug->enter_sub();
97 $auth->assert('part_service_assembly_details');
99 $form->{revers} = 0; # switch for backward sorting
100 $form->{lastsort} = ""; # memory for which table was sort at last time
101 $form->{ndxs_counter} = 0; # counter for added entries to top100
103 my %is_xyz = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly);
105 $form->{title} = (ucfirst $form->{searchitems}) . "s";
106 $form->{title} = $locale->text($form->{title});
107 $form->{title} = $locale->text('Assemblies') if ($is_xyz{is_assembly});
109 $form->{CUSTOM_VARIABLES} = CVar->get_configs('module' => 'IC');
110 ($form->{CUSTOM_VARIABLES_FILTER_CODE},
111 $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables' => $form->{CUSTOM_VARIABLES},
112 'include_prefix' => 'l_',
113 'include_value' => 'Y');
117 $form->get_lists('partsgroup' => 'ALL_PARTSGROUPS');
118 print $form->parse_html_template('ic/search', { %is_xyz,
119 dateformat => $myconfig{dateformat},
120 limit => $myconfig{vclimit}, });
122 $lxdebug->leave_sub();
125 sub search_update_prices {
126 $lxdebug->enter_sub();
128 $auth->assert('part_service_assembly_edit');
130 my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form);
132 $form->{title} = $locale->text('Update Prices');
136 print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups });
138 $lxdebug->leave_sub();
141 sub confirm_price_update {
142 $lxdebug->enter_sub();
144 $auth->assert('part_service_assembly_edit');
147 my $value_found = undef;
149 foreach my $idx (qw(sellprice listprice), (1..$form->{price_rows})) {
150 my $name = $idx =~ m/\d/ ? $form->{"pricegroup_${idx}"} : $idx eq 'sellprice' ? $locale->text('Sell Price') : $locale->text('List Price');
151 my $type = $idx =~ m/\d/ ? $form->{"pricegroup_type_${idx}"} : $form->{"${idx}_type"};
152 my $value_idx = $idx =~ m/\d/ ? "price_${idx}" : $idx;
153 my $value = $form->parse_amount(\%myconfig, $form->{$value_idx});
155 if ((0 > $value) && ($type eq 'percent')) {
156 push @errors, $locale->text('You cannot adjust the price for pricegroup "#1" by a negative percentage.', $name);
158 } elsif (!$value && ($form->{$value_idx} ne '')) {
159 push @errors, $locale->text('No valid number entered for pricegroup "#1".', $name);
161 } elsif (0 < $value) {
166 push @errors, $locale->text('No prices will be updated because no prices have been entered.') if (!$value_found);
168 my $num_matches = IC->get_num_matches_for_priceupdate();
173 $form->show_generic_error(join('<br>', @errors), 'back_button' => 1);
176 $form->{nextsub} = "update_prices";
178 map { delete $form->{$_} } qw(action header);
180 print $form->parse_html_template('ic/confirm_price_update', { HIDDENS => [ map { name => $_, value => $form->{$_} }, keys %$form ],
181 num_matches => $num_matches });
183 $lxdebug->leave_sub();
187 $lxdebug->enter_sub();
189 $auth->assert('part_service_assembly_edit');
191 my $num_updated = IC->update_prices(\%myconfig, \%$form);
193 if (-1 != $num_updated) {
194 $form->redirect($locale->text('#1 prices were updated.', $num_updated));
196 $form->error($locale->text('Could not update prices!'));
199 $lxdebug->leave_sub();
203 # $lxdebug->enter_sub();
205 # $auth->assert('part_service_assembly_edit');
207 # our ($j, $lastndx);
210 # $form->{title} = $locale->text('Top 100 hinzufuegen');
214 # push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras);
215 # push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice);
217 # +{ name => 'row', value => $j },
218 # +{ name => 'nextsub', value => 'item_selected' },
219 # +{ name => 'test', value => 'item_selected' },
220 # +{ name => 'lastndx', value => $lastndx },
221 # map(+{ name => $_, value => $form->{$_} }, @custom_hiddens),
224 # my ($partnumber, $description, $unit, $sellprice, $soldtotal);
225 # # if choice set data
226 ## if ($form->{ndx}) {
227 ## for my $i (0 .. $form->{ndxs_counter}) {
229 ## # insert data into top100
230 ## push @{ $form->{parts} },
232 ## partnumber => $form->{"totop100_partnumber_$j"},
233 ## description => $form->{"totop100_description_$j"},
234 ## unit => $form->{"totop100_unit_$j"},
235 ## sellprice => $form->{"totop100_sellprice_$j"},
236 ## soldtotal => $form->{"totop100_soldtotal_$j"},
243 # # set data for next page
244 # for my $i (1 .. $form->{ndxs_counter}) {
245 # $partnumber = $form->{"totop100_partnumber_$i"};
246 # $description = $form->{"totop100_description_$i"};
247 # $unit = $form->{"totop100_unit_$i"};
248 # $sellprice = $form->{"totop100_sellprice_$i"};
249 # $soldtotal = $form->{"totop100_soldtotal_$i"};
252 # totop100_partnumber => $form->{"totop100_partnumber_$i"},
253 # totop100_description => $form->{"totop100_description_$i"},
254 # totop100_unit => $form->{"totop100_unit_$i"},
255 # totop100_sellprice => $form->{"totop100_sellprice_$i"},
256 # totop100_soldtotal => $form->{"totop100_soldtotal_$i"},
260 ##<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
261 ##<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
262 ##<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
263 ##<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
264 ##<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
268 # print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, PARTS => \@PARTS });
270 # $lxdebug->leave_sub();
274 # $lxdebug->enter_sub();
276 # $auth->assert('part_service_assembly_edit');
279 # our ($partnumber, $description, $unit, $sellprice, $soldtotal);
281 # my @sortorders = ("", "partnumber", "description", "all");
282 # my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
283 # IC->get_parts(\%myconfig, \%$form, $sortorder);
285 # $form->{title} = $locale->text('Top 100 hinzufuegen');
290 # <form method=post action=ic.pl>
293 # <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
295 # <tr height="5"></tr>
296 # <tr class=listheading>
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>
306 # my $i = $form->{rows};
308 # for ($j = 1; $j <= $i; $j++) {
311 # <tr class=listrow| . ($j % 2) . qq|>|;
314 # <td><input name=ndx class=radio type=radio value=$j checked></td>|;
317 # <td><input name=ndx class=radio type=radio value=$j></td>|;
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>
327 # <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
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}">
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}">
353 #<input type=hidden name=row value=$j>
355 #<input type=hidden name=nextsub value=item_selected>
357 #<input name=lastndx type=hidden value=$lastndx>
359 #<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
363 # if (($form->{ndxs_counter}) > 0) {
364 # for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
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"};
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"}>
385 #<input class=submit type=submit name=action value="|
386 # . $locale->text('TOP100') . qq|">
390 # $lxdebug->leave_sub();
394 $lxdebug->enter_sub();
396 $auth->assert('part_service_assembly_edit');
399 $form->{ndxs_counter}++;
401 if ($form->{ndxs_counter} > 0) {
403 my $index = $form->{ndx};
405 $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $form->{"new_partnumber_$index"};
406 $form->{"totop100_description_$form->{ndxs_counter}"} = $form->{"new_description_$index"};
407 $form->{"totop100_unit_$form->{ndxs_counter}"} = $form->{"new_unit_$index"};
408 $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $form->{"new_sellprice_$index"};
409 $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $form->{"new_soldtotal_$index"};
413 $lxdebug->leave_sub();
417 $lxdebug->enter_sub();
419 $auth->assert('part_service_assembly_edit');
421 my ($revers, $lastsort, $callback, $option, $description, $sameitem,
422 $partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align);
423 my (@column_index, %column_header, %column_data);
424 my ($totalsellprice, $totallastcost, $totallistprice, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
426 $form->{top100} = "top100";
427 $form->{l_soldtotal} = "Y";
428 $form->{soldtotal} = "soldtotal";
429 $form->{sort} = "soldtotal";
430 $form->{l_qty} = "N";
431 $form->{l_linetotal} = "";
433 $form->{number} = "position";
434 $form->{l_number} = "Y";
438 $form->{title} = $locale->text('Top 100');
440 $revers = $form->{revers};
441 $lastsort = $form->{lastsort};
443 if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
445 $form->{lastsort} = "partnumber";
446 $form->{sort} = "partnumber";
450 "$form->{script}?action=top100&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
451 . $form->escape($form->{title}, 1);
453 # if we have a serialnumber limit search
454 if ($form->{serialnumber} || $form->{l_serialnumber}) {
455 $form->{l_serialnumber} = "Y";
456 unless ( $form->{bought}
459 || $form->{quoted}) {
460 $form->{bought} = $form->{sold} = 1;
463 IC->all_parts(\%myconfig, \%$form);
465 if ($form->{itemstatus} eq 'active') {
466 $option .= $locale->text('Active') . " : ";
468 if ($form->{itemstatus} eq 'obsolete') {
469 $option .= $locale->text('Obsolete') . " : ";
471 if ($form->{itemstatus} eq 'orphaned') {
472 $option .= $locale->text('Orphaned') . " : ";
474 if ($form->{itemstatus} eq 'onhand') {
475 $option .= $locale->text('On Hand') . " : ";
476 $form->{l_onhand} = "Y";
478 if ($form->{itemstatus} eq 'short') {
479 $option .= $locale->text('Short') . " : ";
480 $form->{l_onhand} = "Y";
482 if ($form->{onorder}) {
483 $form->{l_ordnumber} = "Y";
484 $callback .= "&onorder=$form->{onorder}";
485 $option .= $locale->text('On Order') . " : ";
487 if ($form->{ordered}) {
488 $form->{l_ordnumber} = "Y";
489 $callback .= "&ordered=$form->{ordered}";
490 $option .= $locale->text('Ordered') . " : ";
493 $form->{l_quonumber} = "Y";
494 $callback .= "&rfq=$form->{rfq}";
495 $option .= $locale->text('RFQ') . " : ";
497 if ($form->{quoted}) {
498 $form->{l_quonumber} = "Y";
499 $callback .= ""ed=$form->{quoted}";
500 $option .= $locale->text('Quoted') . " : ";
502 if ($form->{bought}) {
503 $form->{l_invnumber} = "Y";
504 $callback .= "&bought=$form->{bought}";
505 $option .= $locale->text('Bought') . " : ";
508 $form->{l_invnumber} = "Y";
509 $callback .= "&sold=$form->{sold}";
510 $option .= $locale->text('Sold') . " : ";
517 || $form->{quoted}) {
519 $form->{l_lastcost} = "";
520 $form->{l_name} = "Y";
521 if ($form->{transdatefrom}) {
522 $callback .= "&transdatefrom=$form->{transdatefrom}";
524 . $locale->text('From')
526 . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
528 if ($form->{transdateto}) {
529 $callback .= "&transdateto=$form->{transdateto}";
531 . $locale->text('To')
533 . $locale->date(\%myconfig, $form->{transdateto}, 1);
539 if ($form->{partnumber}) {
540 $callback .= "&partnumber=$form->{partnumber}";
541 $option .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
544 $callback .= "&partnumber=$form->{ean}";
545 $option .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
547 if ($form->{partsgroup}) {
548 $callback .= "&partsgroup=$form->{partsgroup}";
549 $option .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
551 if ($form->{serialnumber}) {
552 $callback .= "&serialnumber=$form->{serialnumber}";
553 $option .= $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
555 if ($form->{description}) {
556 $callback .= "&description=$form->{description}";
557 $description = $form->{description};
558 $description =~ s/\n/<br>/g;
559 $option .= $locale->text('Part Description') . qq| : $form->{description}<br>|;
562 $callback .= "&make=$form->{make}";
563 $option .= $locale->text('Make') . qq| : $form->{make}<br>|;
565 if ($form->{model}) {
566 $callback .= "&model=$form->{model}";
567 $option .= $locale->text('Model') . qq| : $form->{model}<br>|;
569 if ($form->{drawing}) {
570 $callback .= "&drawing=$form->{drawing}";
571 $option .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
573 if ($form->{microfiche}) {
574 $callback .= "µfiche=$form->{microfiche}";
575 $option .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
577 if ($form->{l_soldtotal}) {
578 $callback .= "&soldtotal=$form->{soldtotal}";
579 $option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
582 my @columns = $form->sort_columns(
583 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 if ($form->{l_linetotal}) {
587 $form->{l_onhand} = "Y";
588 $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
589 if ($form->{l_lastcost}) {
590 $form->{l_linetotallastcost} = "Y";
591 if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
592 $form->{l_linetotallastcost} = "";
595 $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
598 if ($form->{searchitems} eq 'service') {
600 # remove bin, weight and rop from list
601 map { $form->{"l_$_"} = "" } qw(bin weight rop);
603 $form->{l_onhand} = "";
605 # qty is irrelevant unless bought or sold
611 || $form->{quoted}) {
612 $form->{l_onhand} = "Y";
614 $form->{l_linetotalsellprice} = "";
615 $form->{l_linetotallastcost} = "";
619 foreach my $item (@columns) {
620 if ($form->{"l_$item"} eq "Y") {
621 push @column_index, $item;
623 # add column to callback
624 $callback .= "&l_$item=Y";
628 if ($form->{l_subtotal} eq 'Y') {
629 $callback .= "&l_subtotal=Y";
632 $column_header{number} =
633 qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
634 $column_header{partnumber} =
635 qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
636 . $locale->text('Part Number')
638 $column_header{description} =
639 qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
640 . $locale->text('Part Description')
642 $column_header{partsgroup} =
643 qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
644 . $locale->text('Group')
646 $column_header{bin} =
647 qq|<th><a class=listheading href=$callback&sort=bin>|
648 . $locale->text('Bin')
650 $column_header{priceupdate} =
651 qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
652 . $locale->text('Updated')
654 $column_header{onhand} =
655 qq|<th nowrap><a class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
656 . $locale->text('Qty')
658 $column_header{unit} =
659 qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
660 $column_header{listprice} =
661 qq|<th class=listheading nowrap>|
662 . $locale->text('List Price')
664 $column_header{lastcost} =
665 qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
666 $column_header{rop} =
667 qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
668 $column_header{weight} =
669 qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
671 $column_header{invnumber} =
672 qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
673 . $locale->text('Invoice Number')
675 $column_header{ordnumber} =
676 qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
677 . $locale->text('Order Number')
679 $column_header{quonumber} =
680 qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
681 . $locale->text('Quotation')
684 $column_header{name} =
685 qq|<th nowrap><a class=listheading href=$callback&sort=name>|
686 . $locale->text('Name')
689 $column_header{sellprice} =
690 qq|<th class=listheading nowrap>|
691 . $locale->text('Sell Price')
693 $column_header{linetotalsellprice} =
694 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
695 $column_header{linetotallastcost} =
696 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
697 $column_header{linetotallistprice} =
698 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
700 $column_header{image} =
701 qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
702 $column_header{drawing} =
703 qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
704 . $locale->text('Drawing')
706 $column_header{microfiche} =
707 qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
708 . $locale->text('Microfiche')
711 $column_header{serialnumber} =
712 qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
713 . $locale->text('Serial Number')
715 $column_header{soldtotal} =
716 qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
717 . $locale->text('soldtotal')
721 my $colspan = $#column_index + 1;
726 <th class=listtop colspan=$colspan>$form->{title}</th>
730 <tr><td colspan=$colspan>$option</td></tr>
732 <tr class=listheading>
735 map { print "\n$column_header{$_}" } @column_index;
741 # add order to callback
742 $form->{callback} = $callback .= "&sort=$form->{sort}";
744 # escape callback for href
745 $callback = $form->escape($callback);
747 if (@{ $form->{parts} }) {
748 $sameitem = $form->{parts}->[0]->{ $form->{sort} };
751 # insert numbers for top100
753 foreach my $ref (@{ $form->{parts} }) {
758 # if avaible -> insert choice here
759 if (($form->{ndxs_counter}) > 0) {
760 for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
761 $partnumber = $form->{"totop100_partnumber_$i"};
762 $description = $form->{"totop100_description_$i"};
763 $unit = $form->{"totop100_unit_$i"};
764 $sellprice = $form->{"totop100_sellprice_$i"};
765 $soldtotal = $form->{"totop100_soldtotal_$i"};
768 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
769 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
770 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
771 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
772 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
776 push @{ $form->{parts} },
778 partnumber => "$partnumber",
779 description => "$description",
781 sellprice => "$sellprice",
782 soldtotal => "$soldtotal" };
785 # build data for columns
787 foreach my $ref (@{ $form->{parts} }) {
789 if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
790 if ($sameitem ne $ref->{ $form->{sort} }) {
791 parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
792 $sameitem = $ref->{ $form->{sort} };
796 $ref->{exchangerate} = 1 unless $ref->{exchangerate};
797 $ref->{sellprice} *= $ref->{exchangerate};
798 $ref->{listprice} *= $ref->{exchangerate};
799 $ref->{lastcost} *= $ref->{exchangerate};
801 # use this for assemblies
802 $onhand = $ref->{onhand};
805 if ($ref->{assemblyitem}) {
807 $onhand = 0 if ($form->{sold});
810 $ref->{description} =~ s/\n/<br>/g;
812 $column_data{number} =
814 . $form->format_amount(\%myconfig, $ref->{number})
816 $column_data{partnumber} =
817 "<td align=$align>$ref->{partnumber} </a></td>";
818 $column_data{description} = "<td>$ref->{description} </td>";
819 $column_data{partsgroup} = "<td>$ref->{partsgroup} </td>";
821 $column_data{onhand} =
823 . $form->format_amount(\%myconfig, $ref->{onhand})
825 $column_data{sellprice} =
827 . $form->format_amount(\%myconfig, $ref->{sellprice})
829 $column_data{listprice} =
831 . $form->format_amount(\%myconfig, $ref->{listprice})
833 $column_data{lastcost} =
835 . $form->format_amount(\%myconfig, $ref->{lastcost})
838 $column_data{linetotalsellprice} = "<td align=right>"
839 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
841 $column_data{linetotallastcost} = "<td align=right>"
842 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
844 $column_data{linetotallistprice} = "<td align=right>"
845 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
848 if (!$ref->{assemblyitem}) {
849 $totalsellprice += $onhand * $ref->{sellprice};
850 $totallastcost += $onhand * $ref->{lastcost};
851 $totallistprice += $onhand * $ref->{listprice};
853 $subtotalonhand += $onhand;
854 $subtotalsellprice += $onhand * $ref->{sellprice};
855 $subtotallastcost += $onhand * $ref->{lastcost};
856 $subtotallistprice += $onhand * $ref->{listprice};
861 . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
862 $column_data{weight} =
864 . $form->format_amount(\%myconfig, $ref->{weight})
866 $column_data{unit} = "<td>$ref->{unit} </td>";
867 $column_data{bin} = "<td>$ref->{bin} </td>";
868 $column_data{priceupdate} = "<td>$ref->{priceupdate} </td>";
870 $column_data{invnumber} =
871 ($ref->{module} ne 'oe')
872 ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&callback=$callback>$ref->{invnumber}</a></td>"
873 : "<td>$ref->{invnumber}</td>";
874 $column_data{ordnumber} =
875 ($ref->{module} eq 'oe')
876 ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{ordnumber}</a></td>"
877 : "<td>$ref->{ordnumber}</td>";
878 $column_data{quonumber} =
879 ($ref->{module} eq 'oe' && !$ref->{ordnumber})
880 ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{quonumber}</a></td>"
881 : "<td>$ref->{quonumber}</td>";
883 $column_data{name} = "<td>$ref->{name}</td>";
885 $column_data{image} =
887 ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
889 $column_data{drawing} =
891 ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
893 $column_data{microfiche} =
895 ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
898 $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
900 $column_data{soldtotal} = "<td align=right>$ref->{soldtotal}</td>";
904 print "<tr class=listrow$i>";
906 map { print "\n$column_data{$_}" } @column_index;
913 if ($form->{l_subtotal} eq 'Y') {
914 parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
917 if ($form->{"l_linetotal"}) {
918 map { $column_data{$_} = "<td> </td>" } @column_index;
919 $column_data{linetotalsellprice} =
920 "<th class=listtotal align=right>"
921 . $form->format_amount(\%myconfig, $totalsellprice, 2)
923 $column_data{linetotallastcost} =
924 "<th class=listtotal align=right>"
925 . $form->format_amount(\%myconfig, $totallastcost, 2)
927 $column_data{linetotallistprice} =
928 "<th class=listtotal align=right>"
929 . $form->format_amount(\%myconfig, $totallistprice, 2)
932 print "<tr class=listtotal>";
934 map { print "\n$column_data{$_}" } @column_index;
941 <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
950 <form method=post action=$form->{script}>
952 <input type=hidden name=itemstatus value="$form->{itemstatus}">
953 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
954 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
955 <input type=hidden name=l_description value="$form->{l_description}">
956 <input type=hidden name=l_onhand value="$form->{l_onhand}">
957 <input type=hidden name=l_unit value="$form->{l_unit}">
958 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
959 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
960 <input type=hidden name=sort value="$form->{sort}">
961 <input type=hidden name=revers value="$form->{revers}">
962 <input type=hidden name=lastsort value="$form->{lastsort}">
963 <input type=hidden name=parts value="$form->{parts}">
965 <input type=hidden name=bom value="$form->{bom}">
966 <input type=hidden name=titel value="$form->{titel}">
967 <input type=hidden name=searchitems value="$form->{searchitems}">|;
972 <!-- <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">-->
974 <!-- <input class=submit type=submit name=action value="|
975 . $locale->text('choice') . qq|"> -->
980 $lxdebug->leave_sub();
985 # Warning, deep magic ahead.
986 # This function parses the requested details, sanity checks them, and converts them into a format thats usable for IC->all_parts
988 # flags coming from the form:
990 # searchitems=part revers=0 lastsort=''
993 # partnumber ean description partsgroup serialnumber make model drawing microfiche
994 # transdatefrom transdateto
997 # itemstatus = active | onhand | short | obsolete | orphaned
998 # action = continue | top100
1001 # bought sold onorder ordered rfq quoted
1002 # l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
1003 # l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
1004 # l_partsgroup l_subtotal l_soldtotal l_deliverydate l_pricegroups
1007 # nextsub revers lastsort sort ndxs_counter
1009 sub generate_report {
1010 $lxdebug->enter_sub();
1012 $auth->assert('part_service_assembly_details');
1014 my ($revers, $lastsort, $description);
1016 my $cvar_configs = CVar->get_configs('module' => 'IC');
1018 $form->{title} = (ucfirst $form->{searchitems}) . "s";
1019 $form->{title} =~ s/ys$/ies/;
1020 $form->{title} = $locale->text($form->{title});
1023 'bin' => { 'text' => $locale->text('Bin'), },
1024 'deliverydate' => { 'text' => $locale->text('deliverydate'), },
1025 'description' => { 'text' => $locale->text('Part Description'), },
1026 'notes' => { 'text' => $locale->text('Notes'), },
1027 'drawing' => { 'text' => $locale->text('Drawing'), },
1028 'ean' => { 'text' => $locale->text('EAN'), },
1029 'image' => { 'text' => $locale->text('Image'), },
1030 'invnumber' => { 'text' => $locale->text('Invoice Number'), },
1031 'lastcost' => { 'text' => $locale->text('Last Cost'), },
1032 'linetotallastcost' => { 'text' => $locale->text('Extended'), },
1033 'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1034 'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1035 'listprice' => { 'text' => $locale->text('List Price'), },
1036 'microfiche' => { 'text' => $locale->text('Microfiche'), },
1037 'name' => { 'text' => $locale->text('Name'), },
1038 'onhand' => { 'text' => $locale->text('Stocked Qty'), },
1039 'ordnumber' => { 'text' => $locale->text('Order Number'), },
1040 'partnumber' => { 'text' => $locale->text('Part Number'), },
1041 'partsgroup' => { 'text' => $locale->text('Group'), },
1042 'priceupdate' => { 'text' => $locale->text('Updated'), },
1043 'quonumber' => { 'text' => $locale->text('Quotation'), },
1044 'rop' => { 'text' => $locale->text('ROP'), },
1045 'sellprice' => { 'text' => $locale->text('Sell Price'), },
1046 'serialnumber' => { 'text' => $locale->text('Serial Number'), },
1047 'soldtotal' => { 'text' => $locale->text('Qty in Selected Records'), },
1048 'transdate' => { 'text' => $locale->text('Transdate'), },
1049 'unit' => { 'text' => $locale->text('Unit'), },
1050 'weight' => { 'text' => $locale->text('Weight'), },
1051 'projectnumber' => { 'text' => $locale->text('Project Number'), },
1052 'projectdescription' => { 'text' => $locale->text('Project Description'), },
1055 $revers = $form->{revers};
1056 $lastsort = $form->{lastsort};
1058 # sorting and direction of sorting
1059 # ToDO: change this to the simpler field+direction method
1060 if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1061 $form->{revers} = 0;
1062 $form->{lastsort} = "partnumber";
1063 $form->{sort} = "partnumber";
1065 if ($form->{lastsort} eq $form->{sort}) {
1066 $form->{revers} = 1 - $form->{revers};
1068 $form->{revers} = 0;
1069 $form->{lastsort} = $form->{sort};
1073 # special case if we have a serialnumber limit search
1074 # serialnumbers are only given in invoices and orders,
1075 # so they can only pop up in bought, sold, rfq, and quoted stuff
1076 $form->{no_sn_joins} = 'Y' if ( !$form->{bought} && !$form->{sold}
1077 && !$form->{rfq} && !$form->{quoted}
1078 && ($form->{l_serialnumber} || $form->{serialnumber}));
1080 # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1081 # if any of these are ticked the behavior changes slightly for lastcost
1082 # since all those are aggregation checks for the legder tables this is an internal switch
1083 # refered to as ledgerchecks
1084 $form->{ledgerchecks} = 'Y' if ( $form->{bought} || $form->{sold} || $form->{onorder}
1085 || $form->{ordered} || $form->{rfq} || $form->{quoted});
1087 # if something should be activated if something else is active, enter it here
1088 my %dependencies = (
1089 onhand => [ qw(l_onhand) ],
1090 short => [ qw(l_onhand) ],
1091 onorder => [ qw(l_ordnumber) ],
1092 ordered => [ qw(l_ordnumber) ],
1093 rfq => [ qw(l_quonumber) ],
1094 quoted => [ qw(l_quonumber) ],
1095 bought => [ qw(l_invnumber) ],
1096 sold => [ qw(l_invnumber) ],
1097 ledgerchecks => [ qw(l_name) ],
1098 serialnumber => [ qw(l_serialnumber) ],
1099 no_sn_joins => [ qw(bought sold) ],
1102 # get name of partsgroup if id is given
1104 if ($form->{partsgroup_id}) {
1105 my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load;
1106 $pg_name = $pg->{'partsgroup'};
1109 # these strings get displayed at the top of the results to indicate the user which switches were used
1111 active => $locale->text('Active'),
1112 obsolete => $locale->text('Obsolete'),
1113 orphaned => $locale->text('Orphaned'),
1114 onhand => $locale->text('On Hand'),
1115 short => $locale->text('Short'),
1116 onorder => $locale->text('On Order'),
1117 ordered => $locale->text('Ordered'),
1118 rfq => $locale->text('RFQ'),
1119 quoted => $locale->text('Quoted'),
1120 bought => $locale->text('Bought'),
1121 sold => $locale->text('Sold'),
1122 transdatefrom => $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1123 transdateto => $locale->text('To (time)') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1124 partnumber => $locale->text('Part Number') . ": '$form->{partnumber}'",
1125 partsgroup => $locale->text('Group') . ": '$form->{partsgroup}'",
1126 partsgroup_id => $locale->text('Group') . ": '$pg_name'",
1127 serialnumber => $locale->text('Serial Number') . ": '$form->{serialnumber}'",
1128 description => $locale->text('Part Description') . ": '$form->{description}'",
1129 make => $locale->text('Make') . ": '$form->{make}'",
1130 model => $locale->text('Model') . ": '$form->{model}'",
1131 drawing => $locale->text('Drawing') . ": '$form->{drawing}'",
1132 microfiche => $locale->text('Microfiche') . ": '$form->{microfiche}'",
1133 l_soldtotal => $locale->text('Qty in Selected Records'),
1134 ean => $locale->text('EAN') . ": '$form->{ean}'",
1137 my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1138 my @callback_keys = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model
1139 drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1141 # calculate dependencies
1142 for (@itemstatus_keys, @callback_keys) {
1143 next if ($form->{itemstatus} ne $_ && !$form->{$_});
1144 map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1147 # generate callback and optionstrings
1149 for my $key (@itemstatus_keys, @callback_keys) {
1150 next if ($form->{itemstatus} ne $key && !$form->{$key});
1151 push @options, $optiontexts{$key};
1154 # special case for lastcost
1155 if ($form->{ledgerchecks}){
1156 # ledgerchecks don't know about sellprice or lastcost. they just return a
1157 # price. so rename sellprice to price, and drop lastcost.
1158 $column_defs{sellprice}{text} = $locale->text('Price');
1159 $form->{l_lastcost} = ""
1162 if ($form->{description}) {
1163 $description = $form->{description};
1164 $description =~ s/\n/<br>/g;
1167 if ($form->{l_linetotal}) {
1168 $form->{l_qty} = "Y";
1169 $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1170 $form->{l_linetotallastcost} = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if $form->{l_lastcost};
1171 $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1174 if ($form->{searchitems} eq 'service') {
1176 # remove bin, weight and rop from list
1177 map { $form->{"l_$_"} = "" } qw(bin weight rop);
1179 $form->{l_onhand} = "";
1181 # qty is irrelevant unless bought or sold
1182 if ( $form->{bought}
1187 || $form->{quoted}) {
1188 # $form->{l_onhand} = "Y";
1190 $form->{l_linetotalsellprice} = "";
1191 $form->{l_linetotallastcost} = "";
1195 # soldtotal doesn't make sense with more than one bsooqr option.
1196 # so reset it to sold (the most common option), and issue a warning
1198 # also it doesn't make sense without bsooqr. disable and issue a warning too
1199 my @bsooqr = qw(sold bought onorder ordered rfq quoted);
1200 my $bsooqr_mode = grep { $form->{$_} } @bsooqr;
1201 if ($form->{l_subtotal} && 1 < $bsooqr_mode) {
1202 my $enabled = first { $form->{$_} } @bsooqr;
1203 $form->{$_} = '' for @bsooqr;
1204 $form->{$enabled} = 'Y';
1206 push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});
1208 if ($form->{l_soldtotal} && !$bsooqr_mode) {
1209 delete $form->{l_soldtotal};
1211 flash('warning', $::locale->text('Soldtotal does not make sense without any bsooqr options'));
1214 IC->all_parts(\%myconfig, \%$form);
1217 partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
1218 linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1219 priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1220 transdate name serialnumber deliverydate ean projectnumber projectdescription
1223 my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id');
1224 my @pricegroup_columns;
1225 my %column_defs_pricegroups;
1226 if ($form->{l_pricegroups}) {
1227 @pricegroup_columns = map { "pricegroup_" . $_->id } @{ $pricegroups };
1228 %column_defs_pricegroups = map {
1229 "pricegroup_" . $_->id => {
1230 text => $::locale->text('Pricegroup') . ' ' . $_->pricegroup,
1233 } @{ $pricegroups };
1235 push @columns, @pricegroup_columns;
1237 my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1238 my @searchable_custom_variables = grep { $_->{searchable} } @{ $cvar_configs };
1239 my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1241 push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1243 %column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups);
1244 map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
1245 map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
1247 my @hidden_variables = (
1248 qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups),
1251 map({ "cvar_$_->{name}" } @searchable_custom_variables),
1252 map({'cvar_'. $_->{name} .'_qtyop'} grep({$_->{type} eq 'number'} @searchable_custom_variables)),
1253 map({ "l_$_" } @columns),
1256 my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1258 my @sort_full = qw(partnumber description onhand soldtotal deliverydate);
1259 my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1261 foreach my $col (@sort_full) {
1262 $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1264 map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1266 # add order to callback
1267 $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1269 my $report = SL::ReportGenerator->new(\%myconfig, $form);
1271 my %attachment_basenames = (
1272 'part' => $locale->text('part_list'),
1273 'service' => $locale->text('service_list'),
1274 'assembly' => $locale->text('assembly_list'),
1277 $report->set_options('raw_top_info_text' => $form->parse_html_template('ic/generate_report_top', { options => \@options }),
1278 'raw_bottom_info_text' => $form->parse_html_template('ic/generate_report_bottom'),
1279 'output_format' => 'HTML',
1280 'title' => $form->{title},
1281 'attachment_basename' => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1283 $report->set_options_from_form();
1284 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1286 $report->set_columns(%column_defs);
1287 $report->set_column_order(@columns);
1289 $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1291 $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1293 CVar->add_custom_variables_to_report('module' => 'IC',
1294 'trans_id_field' => 'id',
1295 'configs' => $cvar_configs,
1296 'column_defs' => \%column_defs,
1297 'data' => $form->{parts});
1299 CVar->add_custom_variables_to_report('module' => 'IC',
1300 'sub_module' => sub { $_[0]->{ioi} },
1301 'trans_id_field' => 'ioi_id',
1302 'configs' => $cvar_configs,
1303 'column_defs' => \%column_defs,
1304 'data' => $form->{parts});
1306 my @subtotal_columns = qw(sellprice listprice lastcost);
1307 my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1308 my %totals = map { $_ => 0 } @subtotal_columns;
1310 my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
1312 my $defaults = AM->get_defaults();
1315 foreach my $ref (@{ $form->{parts} }) {
1317 # fresh row, for inserting later
1318 my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1320 $ref->{exchangerate} ||= 1;
1321 $ref->{price_factor} ||= 1;
1322 $ref->{sellprice} *= $ref->{exchangerate} / $ref->{price_factor};
1323 $ref->{listprice} *= $ref->{exchangerate} / $ref->{price_factor};
1324 $ref->{lastcost} *= $ref->{exchangerate} / $ref->{price_factor};
1326 # use this for assemblies
1327 my $soldtotal = $bsooqr_mode ? $ref->{soldtotal} : $ref->{onhand};
1329 if ($ref->{assemblyitem}) {
1330 $row->{partnumber}{align} = 'right';
1331 $row->{soldtotal}{data} = 0;
1332 $soldtotal = 0 if ($form->{sold});
1335 my $edit_link = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1336 $row->{partnumber}->{link} = $edit_link;
1337 $row->{description}->{link} = $edit_link;
1339 foreach (qw(sellprice listprice lastcost)) {
1340 $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}, 2);
1341 $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1343 foreach ( @pricegroup_columns ) {
1344 $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
1348 map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1350 $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1352 if (!$ref->{assemblyitem}) {
1353 foreach my $col (@subtotal_columns) {
1354 $totals{$col} += $soldtotal * $ref->{$col};
1355 $subtotals{$col} += $soldtotal * $ref->{$col};
1358 $subtotals{soldtotal} += $soldtotal;
1362 if ($ref->{module} eq 'oe') {
1363 # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich:
1365 # | ist bestellt | Von Kunden bestellt | -> edit_oe_ord_link
1366 # | Anfrage | Angebot | -> edit_oe_quo_link
1368 my $edit_oe_ord_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');
1369 my $edit_oe_quo_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'request_quotation' : 'sales_quotation'), 'id=' . E($ref->{trans_id}), 'callback');
1371 $row->{ordnumber}{link} = $edit_oe_ord_link;
1372 $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber});
1375 $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1378 # set properties of images
1379 if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1380 $row->{image}{data} = '';
1381 $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1383 map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1385 $report->add_data($row);
1387 my $next_ref = $form->{parts}[$idx + 1];
1389 # insert subtotal rows
1390 if (($form->{l_subtotal} eq 'Y') &&
1392 (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1393 my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1395 if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1396 $row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
1399 map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1400 map { $subtotals{$_} = 0 } ('soldtotal', @subtotal_columns);
1402 $report->add_data($row);
1404 $same_item = $next_ref->{ $form->{sort} };
1410 if ($form->{"l_linetotal"} && !$form->{report_generator_csv_options_for_import}) {
1411 my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1413 map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1415 $report->add_separator();
1416 $report->add_data($row);
1419 $report->generate_with_headers();
1421 $lxdebug->leave_sub();
1422 } #end generate_report
1424 sub parts_subtotal {
1425 $lxdebug->enter_sub();
1427 $auth->assert('part_service_assembly_edit');
1430 my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1432 map { $column_data{$_} = "<td> </td>" } @{ $column_index };
1433 $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1435 $column_data{onhand} =
1436 "<th class=listsubtotal align=right>"
1437 . $form->format_amount(\%myconfig, $$subtotalonhand)
1440 $column_data{linetotalsellprice} =
1441 "<th class=listsubtotal align=right>"
1442 . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1444 $column_data{linetotallistprice} =
1445 "<th class=listsubtotal align=right>"
1446 . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1448 $column_data{linetotallastcost} =
1449 "<th class=listsubtotal align=right>"
1450 . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1453 $$subtotalonhand = 0;
1454 $$subtotalsellprice = 0;
1455 $$subtotallistprice = 0;
1456 $$subtotallastcost = 0;
1458 print "<tr class=listsubtotal>";
1460 map { print "\n$column_data{$_}" } @{ $column_index };
1466 $lxdebug->leave_sub();
1470 $lxdebug->enter_sub();
1472 $auth->assert('part_service_assembly_details');
1474 # show history button
1475 $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1476 #/show hhistory button
1477 IC->get_part(\%myconfig, \%$form);
1479 $form->{"original_partnumber"} = $form->{"partnumber"};
1481 my $title = 'Edit ' . ucfirst $form->{item};
1482 $form->{title} = $locale->text($title);
1487 $lxdebug->leave_sub();
1491 $lxdebug->enter_sub();
1493 $auth->assert('part_service_assembly_details');
1495 IC->create_links("IC", \%myconfig, \%$form);
1498 map({ $form->{selectcurrency} .= "<option>$_\n" } $::form->get_all_currencies());
1500 # parts and assemblies have the same links
1501 my $item = $form->{item};
1502 if ($form->{item} eq 'assembly') {
1506 # build the popup menus
1507 $form->{taxaccounts} = "";
1508 foreach my $key (keys %{ $form->{IC_links} }) {
1509 foreach my $ref (@{ $form->{IC_links}{$key} }) {
1511 # if this is a tax field
1512 if ($key =~ /IC_tax/) {
1513 if ($key =~ /\Q$item\E/) {
1514 $form->{taxaccounts} .= "$ref->{accno} ";
1515 $form->{"IC_tax_$ref->{accno}_description"} =
1516 "$ref->{accno}--$ref->{description}";
1519 if ($form->{amount}{ $ref->{accno} }) {
1520 $form->{"IC_tax_$ref->{accno}"} = "checked";
1523 $form->{"IC_tax_$ref->{accno}"} = "checked";
1528 $form->{"select$key"} .=
1529 "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1530 if ($form->{amount}{$key} eq $ref->{accno}) {
1531 $form->{$key} = "$ref->{accno}--$ref->{description}";
1537 chop $form->{taxaccounts};
1539 if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1540 $form->{selectIC_income} = $form->{selectIC_sale};
1541 $form->{selectIC_expense} = $form->{selectIC_cogs};
1542 $form->{IC_income} = $form->{IC_sale};
1543 $form->{IC_expense} = $form->{IC_cogs};
1546 delete $form->{IC_links};
1547 delete $form->{amount};
1549 $form->get_partsgroup(\%myconfig, { all => 1 });
1551 $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1553 if (@{ $form->{all_partsgroup} }) {
1554 $form->{selectpartsgroup} = qq|<option>\n|;
1555 map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1558 if ($form->{item} eq 'assembly') {
1560 foreach my $i (1 .. $form->{assembly_rows}) {
1561 if ($form->{"partsgroup_id_$i"}) {
1562 $form->{"partsgroup_$i"} =
1563 qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1566 $form->get_partsgroup(\%myconfig);
1568 if (@{ $form->{all_partsgroup} }) {
1569 $form->{selectassemblypartsgroup} = qq|<option>\n|;
1572 $form->{selectassemblypartsgroup} .=
1573 qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1574 } @{ $form->{all_partsgroup} };
1577 $lxdebug->leave_sub();
1581 $lxdebug->enter_sub();
1583 $auth->assert('part_service_assembly_details');
1585 $form->{pg_keys} = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1586 $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1587 $form->{notes_rows} = max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1589 map { $form->{"is_$_"} = ($form->{item} eq $_) } qw(part service assembly);
1590 map { $form->{$_} =~ s/"/"/g; } qw(unit);
1592 $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1593 'partsgroup' => 'all_partsgroup',
1594 'vendors' => 'ALL_VENDORS',
1595 'warehouses' => { 'key' => 'WAREHOUSES',
1596 'bins' => 'BINS', });
1597 # leerer wert für Lager und Lagerplatz korrekt einstellt
1598 # ID 0 sollte in Ordnung sein, da der Zähler sowieso höher ist
1599 my $no_default_bin_entry = { 'id' => '0', description => '--', 'BINS' => [ { id => '0', description => ''} ] };
1600 push @ { $form->{WAREHOUSES} }, $no_default_bin_entry;
1601 if (my $max = scalar @{ $form->{WAREHOUSES} }) {
1602 my ($default_warehouse_id, $default_bin_id);
1603 if ($form->{action} eq 'add') { # default only for new entries
1604 $default_warehouse_id = $::instance_conf->get_warehouse_id;
1605 $default_bin_id = $::instance_conf->get_bin_id;
1607 $form->{warehouse_id} ||= $default_warehouse_id || $form->{WAREHOUSES}->[$max -1]->{id};
1608 $form->{bin_id} ||= $default_bin_id || $form->{WAREHOUSES}->[$max -1]->{BINS}->[0]->{id};
1612 IC->retrieve_buchungsgruppen(\%myconfig, $form);
1613 @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1615 if (($form->{partnumber} ne '') && !SL::TransNumber->new(number => $form->{partnumber}, type => $form->{item}, id => $form->{id})->is_unique) {
1616 flash('info', $::locale->text('This partnumber is not unique. You should change it.'));
1619 my $units = AM->retrieve_units(\%myconfig, $form);
1620 $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1622 $form->{defaults} = AM->get_defaults();
1624 $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1626 CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1627 if (scalar @{ $form->{CUSTOM_VARIABLES} });
1630 #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1631 # ALL_UNITS => $form->{ALL_UNITS},
1632 # BUCHUNGSGRUPPEN => $form->{BUCHUNGSGRUPPEN},
1633 # payment_terms => $form->{payment_terms},
1634 # all_partsgroup => $form->{all_partsgroup}});
1636 $form->{show_edit_buttons} = $main::auth->check_right($form->{login}, 'part_service_assembly_edit');
1638 print $form->parse_html_template('ic/form_header');
1639 $lxdebug->leave_sub();
1643 $lxdebug->enter_sub();
1645 $auth->assert('part_service_assembly_details');
1647 print $form->parse_html_template('ic/form_footer');
1649 $lxdebug->leave_sub();
1653 $lxdebug->enter_sub();
1656 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;
1657 delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1658 print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1660 $lxdebug->leave_sub();
1664 $lxdebug->enter_sub();
1667 my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1669 @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1671 if ($form->{previousform}) {
1673 @column_index = qw(qty unit bom partnumber description partsgroup total);
1677 $form->{old_callback} = $form->{callback};
1678 $callback = $form->{callback};
1679 $form->{callback} = "$form->{script}?action=display_form";
1682 map { delete $form->{$_} } qw(action header);
1684 # save form variables in a previousform variable
1685 my %form_to_save = map { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1687 $previousform = $::auth->save_form_in_session(form => \%form_to_save);
1689 $form->{callback} = $callback;
1690 $form->{assemblytotal} = 0;
1691 $form->{assembly_purchase_price_total} = 0;
1692 $form->{weight} = 0;
1696 runningnumber => { text => $locale->text('No.'), nowrap => 1, width => '5%', align => 'left',},
1697 qty => { text => $locale->text('Qty'), nowrap => 1, width => '10%', align => 'left',},
1698 unit => { text => $locale->text('Unit'), nowrap => 1, width => '5%', align => 'left',},
1699 partnumber => { text => $locale->text('Part Number'), nowrap => 1, width => '20%', align => 'left',},
1700 description => { text => $locale->text('Part Description'), nowrap => 1, width => '50%', align => 'left',},
1701 lastcost => { text => $locale->text('Purchase Prices'), nowrap => 1, width => '50%', align => 'right',},
1702 total => { text => $locale->text('Sale Prices'), nowrap => 1, align => 'right',},
1703 bom => { text => $locale->text('BOM'), align => 'center',},
1704 partsgroup => { text => $locale->text('Group'), align => 'left',},
1709 for my $i (1 .. $numrows) {
1710 my (%row, @row_hiddens);
1712 $form->{"partnumber_$i"} =~ s/\"/"/g;
1714 $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1715 $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1716 $form->{assemblytotal} += $linetotal;
1717 $form->{assembly_purchase_price_total} += $line_purchase_price;
1718 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1719 $linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
1720 $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1721 $href = build_std_url("action=edit", qq|id=$form->{"id_$i"}|, "rowcount=$numrows", "currow=$i", "previousform=$previousform");
1722 map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1725 if (($i >= 1) && ($i == $numrows)) {
1726 if (!$form->{previousform}) {
1727 $row{partnumber}{data} = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1728 $row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1729 $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1730 $row{partsgroup}{data} = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1734 if ($form->{previousform}) {
1735 push @row_hiddens, qw(qty bom);
1736 $row{partnumber}{data} = $form->{"partnumber_$i"};
1737 $row{qty}{data} = $form->{"qty_$i"};
1738 $row{bom}{data} = $form->{"bom_$i"} ? "x" : " ";
1739 $row{qty}{align} = 'right';
1741 $row{partnumber}{data} = qq|$form->{"partnumber_$i"}|;
1742 $row{partnumber}{link} = $href;
1743 $row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1744 $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1745 $row{bom}{data} = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1746 $form->{"bom_$i"} ? 'checked' : '';
1748 push @row_hiddens, qw(unit description partnumber partsgroup);
1749 $row{unit}{data} = $form->{"unit_$i"};
1750 #Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
1751 #werden, die den HTML Code stören. Daher sollen diese im Template escaped werden
1752 #dies geschieht, wenn die Variable escape gesetzt ist
1753 $row{description}{data} = $form->{"description_$i"};
1754 $row{description}{escape} = 1;
1755 $row{partsgroup}{data} = $form->{"partsgroup_$i"};
1756 $row{partsgroup}{escape} = 1;
1757 $row{bom}{align} = 'center';
1760 $row{lastcost}{data} = $line_purchase_price;
1761 $row{total}{data} = $linetotal;
1762 $row{lastcost}{align} = 'right';
1763 $row{total}{align} = 'right';
1764 $row{deliverydate}{align} = 'right';
1766 push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1767 $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1772 print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1774 $lxdebug->leave_sub();
1778 $lxdebug->enter_sub();
1780 $auth->assert('part_service_assembly_edit');
1782 # parse pricegroups. and no, don't rely on check_form for this...
1783 map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1784 $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(sellprice listprice ve gv);
1786 if ($form->{item} eq 'part') {
1787 $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(weight rop);
1790 # same for makemodel lastcosts
1791 # but parse_amount not necessary for assembly component lastcosts
1792 unless ($form->{item} eq "assembly") {
1793 map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1794 $form->{lastcost} = $form->parse_amount(\%myconfig, $form->{lastcost});
1797 if ($form->{item} eq "assembly") {
1798 my $i = $form->{assembly_rows};
1800 # if last row is empty check the form otherwise retrieve item
1801 if ( ($form->{"partnumber_$i"} eq "")
1802 && ($form->{"description_$i"} eq "")
1803 && ($form->{"partsgroup_$i"} eq "")) {
1809 IC->assembly_item(\%myconfig, \%$form);
1811 my $rows = scalar @{ $form->{item_list} };
1814 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1817 $form->{makemodel_rows}--;
1818 select_item(mode => 'IC');
1821 map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }
1822 qw(partnumber description unit partsgroup);
1823 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1824 keys %{ $form->{item_list}[0] };
1825 $form->{"runningnumber_$i"} = $form->{assembly_rows};
1826 $form->{assembly_rows}++;
1834 $form->{rowcount} = $i;
1835 $form->{assembly_rows}++;
1842 } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1846 $lxdebug->leave_sub();
1850 $lxdebug->enter_sub();
1852 $auth->assert('part_service_assembly_edit');
1854 my ($parts_id, %newform, $amount, $callback);
1856 # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1857 # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1859 # check if there is a description
1860 $form->isblank("description", $locale->text("Part Description missing!"));
1862 $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1863 if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1865 if (!$form->{buchungsgruppen_id}) {
1866 $form->error($locale->text("Parts must have an entry type.") . " " .
1867 $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.")
1871 $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1872 $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1874 # undef warehouse_id if the empty value is selected
1875 if ( ($form->{warehouse_id} == 0) && ($form->{bin_id} == 0) ) {
1876 undef $form->{warehouse_id};
1877 undef $form->{bin_id};
1880 if (IC->save(\%myconfig, \%$form) == 3) {
1881 $form->error($locale->text('Partnumber not unique!'));
1883 # saving the history
1884 if(!exists $form->{addition}) {
1885 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1886 $form->{addition} = "SAVED";
1887 $form->save_history;
1889 # /saving the history
1890 $parts_id = $form->{id};
1893 # load previous variables
1894 if ($form->{previousform}) {
1896 # save the new form variables before splitting previousform
1897 map { $newform{$_} = $form->{$_} } keys %$form;
1899 # don't trample on previous variables
1900 map { delete $form->{$_} } keys %newform;
1902 my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1903 my @ic_cvar_fields = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1905 # restore original values
1906 $::auth->restore_form_from_session($newform{previousform}, form => $form);
1907 $form->{taxaccounts} = $newform{taxaccount2};
1909 if ($form->{item} eq 'assembly') {
1911 # undo number formatting
1912 map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1913 qw(weight listprice sellprice rop);
1915 $form->{assembly_rows}--;
1916 if ($newform{currow}) {
1917 $i = $newform{currow};
1919 $i = $form->{assembly_rows};
1921 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"} > 0);
1923 $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1924 $form->{weight} -= $form->{"weight_$i"} * $form->{"qty_$i"};
1926 # change/add values for assembly item
1927 map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1928 map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1930 # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1931 #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1932 $form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"};
1936 # set values for last invoice/order item
1937 $i = $form->{rowcount};
1938 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"} > 0);
1940 map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1941 map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1943 $form->{"longdescription_$i"} = $newform{notes};
1945 $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1947 if ($form->{exchangerate} != 0) {
1948 $form->{"sellprice_$i"} /= $form->{exchangerate};
1951 map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1952 chop $form->{"taxaccounts_$i"};
1953 foreach my $item (qw(description rate taxnumber)) {
1954 my $index = $form->{"taxaccounts_$i"} . "_$item";
1955 $form->{$index} = $newform{$index};
1958 # credit remaining calculation
1959 $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1961 map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1962 map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1964 $form->{creditremaining} -= $amount;
1966 # redo number formatting, because invoice parse them!
1967 map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1970 $form->{"id_$i"} = $parts_id;
1972 # Get the actual price factor (not just the ID) for the marge calculation.
1973 $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1974 foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1975 next if ($pfac->{id} != $newform{price_factor_id});
1976 $form->{"marge_price_factor_$i"} = $pfac->{factor};
1979 delete $form->{ALL_PRICE_FACTORS};
1981 delete $form->{action};
1983 # restore original callback
1984 $callback = $form->unescape($form->{callback});
1985 $form->{callback} = $form->unescape($form->{old_callback});
1986 delete $form->{old_callback};
1988 $form->{makemodel_rows}--;
1990 # put callback together
1991 foreach my $key (keys %$form) {
1993 # do single escape for Apache 2.0
1994 my $value = $form->escape($form->{$key}, 1);
1995 $callback .= qq|&$key=$value|;
1997 $form->{callback} = $callback;
2003 $lxdebug->leave_sub();
2007 $lxdebug->enter_sub();
2009 $auth->assert('part_service_assembly_edit');
2011 # saving the history
2012 if(!exists $form->{addition}) {
2013 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2014 $form->{addition} = "SAVED AS NEW";
2015 $form->save_history;
2017 # /saving the history
2019 if ($form->{"original_partnumber"} &&
2020 ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
2021 $form->{partnumber} = "";
2024 $lxdebug->leave_sub();
2028 $lxdebug->enter_sub();
2030 $auth->assert('part_service_assembly_edit');
2032 # saving the history
2033 if(!exists $form->{addition}) {
2034 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2035 $form->{addition} = "DELETED";
2036 $form->save_history;
2038 # /saving the history
2039 my $rc = IC->delete(\%myconfig, \%$form);
2042 $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2043 $form->error($locale->text('Cannot delete item!'));
2045 $lxdebug->leave_sub();
2049 $lxdebug->enter_sub();
2051 $auth->assert('part_service_assembly_details');
2056 pricegroup => $form->{"pricegroup_$_"},
2057 pricegroup_id => $form->{"pricegroup_id_$_"},
2058 price => $form->{"price_$_"},
2061 print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2063 $lxdebug->leave_sub();
2066 sub parts_language_selection {
2067 $lxdebug->enter_sub();
2069 $auth->assert('part_service_assembly_edit');
2071 my $languages = IC->retrieve_languages(\%myconfig, $form);
2073 if ($form->{language_values} ne "") {
2074 foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
2075 my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
2077 foreach my $language (@{ $languages }) {
2078 next unless ($language->{id} == $language_id);
2080 $language->{translation} = $translation;
2081 $language->{longdescription} = $longdescription;
2083 $language->{translation_area} = ($language->{translation_rows} = $form->numtextrows($language->{translation}, 40)) > 1;
2084 $language->{longdescription_rows} = max 4, $form->numtextrows($language->{longdescription}, 40);
2091 my @header_sort = qw(name longdescription);
2092 my %header_title = ( "name" => $locale->text("Name"),
2093 "longdescription" => $locale->text("Long Description"),
2097 map(+{ "column_title" => $header_title{$_},
2102 $form->{"title"} = $locale->text("Language Values");
2104 print $form->parse_html_template("ic/parts_language_selection", { "HEADER" => \@header,
2105 "LANGUAGES" => $languages, });
2107 $lxdebug->leave_sub();
2110 sub ajax_autocomplete {
2111 $main::lxdebug->enter_sub();
2113 my $form = $main::form;
2114 my %myconfig = %main::myconfig;
2116 $form->{column} = 'description' unless $form->{column} =~ /^partnumber|description$/;
2117 $form->{$form->{column}} = $form->{q} || '';
2118 $form->{limit} = ($form->{limit} * 1) || 10;
2119 $form->{searchitems} ||= '';
2121 my @results = IC->all_parts(\%myconfig, $form);
2123 print $form->ajax_response_header(),
2124 $form->parse_html_template('ic/ajax_autocomplete');
2126 $main::lxdebug->leave_sub();
2129 sub back_to_record {
2133 delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2135 $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2136 $::form->{rowcount}--;
2137 $::form->{action} = 'display_form';
2138 $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2142 sub continue { call_sub($form->{"nextsub"}); }
2145 my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2146 $::form->error($::locale->text('No action defined.')) unless $action;
2148 $::form->{dispatched_action} = $action;