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::ReportGenerator;
49 our ($form, $locale, %myconfig, $lxdebug, $auth);
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";
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');
77 $lxdebug->enter_sub();
79 $auth->assert('part_service_assembly_edit');
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;
86 IC->get_pricegroups(\%myconfig, \%$form);
90 $lxdebug->leave_sub();
94 $lxdebug->enter_sub();
96 $auth->assert('part_service_assembly_edit');
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
102 my %is_xyz = map { +"is_$_" => ($form->{searchitems} eq $_) } qw(part service assembly);
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});
108 $form->{jsscript} = 1;
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');
118 $form->get_lists('partsgroup' => 'ALL_PARTSGROUPS');
119 print $form->parse_html_template('ic/search', { %is_xyz,
120 dateformat => $myconfig{dateformat},
121 limit => $myconfig{vclimit}, });
123 $lxdebug->leave_sub();
126 sub search_update_prices {
127 $lxdebug->enter_sub();
129 $auth->assert('part_service_assembly_edit');
131 my $pricegroups = IC->get_pricegroups(\%myconfig, \%$form);
133 $form->{title} = $locale->text('Update Prices');
137 print $form->parse_html_template('ic/search_update_prices', { PRICE_ROWS => $pricegroups });
139 $lxdebug->leave_sub();
142 sub confirm_price_update {
143 $lxdebug->enter_sub();
145 $auth->assert('part_service_assembly_edit');
148 my $value_found = undef;
150 foreach my $idx (qw(sellprice listprice), (1..$form->{price_rows})) {
151 my $name = $idx =~ m/\d/ ? $form->{"pricegroup_${idx}"} : $idx eq 'sellprice' ? $locale->text('Sell Price') : $locale->text('List Price');
152 my $type = $idx =~ m/\d/ ? $form->{"pricegroup_type_${idx}"} : $form->{"${idx}_type"};
153 my $value_idx = $idx =~ m/\d/ ? "price_${idx}" : $idx;
154 my $value = $form->parse_amount(\%myconfig, $form->{$value_idx});
156 if ((0 > $value) && ($type eq 'percent')) {
157 push @errors, $locale->text('You cannot adjust the price for pricegroup "#1" by a negative percentage.', $name);
159 } elsif (!$value && ($form->{$value_idx} ne '')) {
160 push @errors, $locale->text('No valid number entered for pricegroup "#1".', $name);
162 } elsif (0 < $value) {
167 push @errors, $locale->text('No prices will be updated because no prices have been entered.') if (!$value_found);
169 my $num_matches = IC->get_num_matches_for_priceupdate();
174 $form->show_generic_error(join('<br>', @errors), 'back_button' => 1);
177 $form->{nextsub} = "update_prices";
179 map { delete $form->{$_} } qw(action header);
181 print $form->parse_html_template('ic/confirm_price_update', { HIDDENS => [ map { name => $_, value => $form->{$_} }, keys %$form ],
182 num_matches => $num_matches });
184 $lxdebug->leave_sub();
188 $lxdebug->enter_sub();
190 $auth->assert('part_service_assembly_edit');
192 my $num_updated = IC->update_prices(\%myconfig, \%$form);
194 if (-1 != $num_updated) {
195 $form->redirect($locale->text('#1 prices were updated.', $num_updated));
197 $form->error($locale->text('Could not update prices!'));
200 $lxdebug->leave_sub();
204 # $lxdebug->enter_sub();
206 # $auth->assert('part_service_assembly_edit');
208 # our ($j, $lastndx);
211 # $form->{title} = $locale->text('Top 100 hinzufuegen');
215 # push @custom_hiddens, qw(searchitems title bom titel revers lastsort sort ndxs_counter extras);
216 # push @custom_hiddens, qw(itemstatus l_linetotal l_partnumber l_description l_onhand l_unit l_sellprice l_linetotalsellprice);
218 # +{ name => 'row', value => $j },
219 # +{ name => 'nextsub', value => 'item_selected' },
220 # +{ name => 'test', value => 'item_selected' },
221 # +{ name => 'lastndx', value => $lastndx },
222 # map(+{ name => $_, value => $form->{$_} }, @custom_hiddens),
225 # my ($partnumber, $description, $unit, $sellprice, $soldtotal);
226 # # if choice set data
227 ## if ($form->{ndx}) {
228 ## for my $i (0 .. $form->{ndxs_counter}) {
230 ## # insert data into top100
231 ## push @{ $form->{parts} },
233 ## partnumber => $form->{"totop100_partnumber_$j"},
234 ## description => $form->{"totop100_description_$j"},
235 ## unit => $form->{"totop100_unit_$j"},
236 ## sellprice => $form->{"totop100_sellprice_$j"},
237 ## soldtotal => $form->{"totop100_soldtotal_$j"},
244 # # set data for next page
245 # for my $i (1 .. $form->{ndxs_counter}) {
246 # $partnumber = $form->{"totop100_partnumber_$i"};
247 # $description = $form->{"totop100_description_$i"};
248 # $unit = $form->{"totop100_unit_$i"};
249 # $sellprice = $form->{"totop100_sellprice_$i"};
250 # $soldtotal = $form->{"totop100_soldtotal_$i"};
253 # totop100_partnumber => $form->{"totop100_partnumber_$i"},
254 # totop100_description => $form->{"totop100_description_$i"},
255 # totop100_unit => $form->{"totop100_unit_$i"},
256 # totop100_sellprice => $form->{"totop100_sellprice_$i"},
257 # totop100_soldtotal => $form->{"totop100_soldtotal_$i"},
261 ##<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
262 ##<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
263 ##<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
264 ##<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
265 ##<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
269 # print $form->parse_html_template('ic/choice', +{ HIDDENS => \@HIDDENS, PARTS => \@PARTS });
271 # $lxdebug->leave_sub();
275 # $lxdebug->enter_sub();
277 # $auth->assert('part_service_assembly_edit');
280 # our ($partnumber, $description, $unit, $sellprice, $soldtotal);
282 # my @sortorders = ("", "partnumber", "description", "all");
283 # my $sortorder = $sortorders[($form->{description} ? 2 : 0) + ($form->{partnumber} ? 1 : 0)];
284 # IC->get_parts(\%myconfig, \%$form, $sortorder);
286 # $form->{title} = $locale->text('Top 100 hinzufuegen');
292 # <form method=post action=ic.pl>
295 # <th class=listtop colspan=6>| . $locale->text('choice part') . qq|</th>
297 # <tr height="5"></tr>
298 # <tr class=listheading>
300 # <th class=listheading>| . $locale->text('Part Number') . qq|</th>
301 # <th class=listheading>| . $locale->text('Part Description') . qq|</th>
302 # <th class=listheading>| . $locale->text('Unit of measure') . qq|</th>
303 # <th class=listheading>| . $locale->text('Sell Price') . qq|</th>
304 # <th class=listheading>| . $locale->text('soldtotal') . qq|</th>
308 # my $i = $form->{rows};
310 # for ($j = 1; $j <= $i; $j++) {
313 # <tr class=listrow| . ($j % 2) . qq|>|;
316 # <td><input name=ndx class=radio type=radio value=$j checked></td>|;
319 # <td><input name=ndx class=radio type=radio value=$j></td>|;
322 # <td><input name="new_partnumber_$j" type=hidden value="$form->{"partnumber_$j"}">$form->{"partnumber_$j"}</td>
323 # <td><input name="new_description_$j" type=hidden value="$form->{"description_$j"}">$form->{"description_$j"}</td>
324 # <td><input name="new_unit_$j" type=hidden value="$form->{"unit_$j"}">$form->{"unit_$j"}</td>
325 # <td><input name="new_sellprice_$j" type=hidden value="$form->{"sellprice_$j"}">$form->{"sellprice_$j"}</td>
326 # <td><input name="new_soldtotal_$j" type=hidden value="$form->{"soldtotal_$j"}">$form->{"soldtotal_$j"}</td>
329 # <input name="new_id_$j" type=hidden value="$form->{"id_$j"}">|;
339 #<input type=hidden name=itemstatus value="$form->{itemstatus}">
340 #<input type=hidden name=l_linetotal value="$form->{l_linetotal}">
341 #<input type=hidden name=l_partnumber value="$form->{l_partnumber}">
342 #<input type=hidden name=l_description value="$form->{l_description}">
343 #<input type=hidden name=l_onhand value="$form->{l_onhand}">
344 #<input type=hidden name=l_unit value="$form->{l_unit}">
345 #<input type=hidden name=l_sellprice value="$form->{l_sellprice}">
346 #<input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
347 #<input type=hidden name=sort value="$form->{sort}">
348 #<input type=hidden name=revers value="$form->{revers}">
349 #<input type=hidden name=lastsort value="$form->{lastsort}">
351 #<input type=hidden name=bom value="$form->{bom}">
352 #<input type=hidden name=titel value="$form->{titel}">
353 #<input type=hidden name=searchitems value="$form->{searchitems}">
355 #<input type=hidden name=row value=$j>
357 #<input type=hidden name=nextsub value=item_selected>
359 #<input name=lastndx type=hidden value=$lastndx>
361 #<input name=ndxs_counter type=hidden value=$form->{ndxs_counter}>|;
365 # if (($form->{ndxs_counter}) > 0) {
366 # for ($i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
368 # $partnumber = $form->{"totop100_partnumber_$i"};
369 # $description = $form->{"totop100_description_$i"};
370 # $unit = $form->{"totop100_unit_$i"};
371 # $sellprice = $form->{"totop100_sellprice_$i"};
372 # $soldtotal = $form->{"totop100_soldtotal_$i"};
375 #<input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
376 #<input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
377 #<input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
378 #<input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
379 #<input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
387 #<input class=submit type=submit name=action value="|
388 # . $locale->text('TOP100') . qq|">
394 # $lxdebug->leave_sub();
398 $lxdebug->enter_sub();
400 $auth->assert('part_service_assembly_edit');
403 $form->{ndxs_counter}++;
405 if ($form->{ndxs_counter} > 0) {
407 my $index = $form->{ndx};
409 $form->{"totop100_partnumber_$form->{ndxs_counter}"} = $form->{"new_partnumber_$index"};
410 $form->{"totop100_description_$form->{ndxs_counter}"} = $form->{"new_description_$index"};
411 $form->{"totop100_unit_$form->{ndxs_counter}"} = $form->{"new_unit_$index"};
412 $form->{"totop100_sellprice_$form->{ndxs_counter}"} = $form->{"new_sellprice_$index"};
413 $form->{"totop100_soldtotal_$form->{ndxs_counter}"} = $form->{"new_soldtotal_$index"};
417 $lxdebug->leave_sub();
421 $lxdebug->enter_sub();
423 $auth->assert('part_service_assembly_edit');
425 my ($revers, $lastsort, $callback, $option, $description, $sameitem,
426 $partnumber, $unit, $sellprice, $soldtotal, $totop100, $onhand, $align);
427 my (@column_index, %column_header, %column_data);
428 my ($totalsellprice, $totallastcost, $totallistprice, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice);
430 $form->{top100} = "top100";
431 $form->{l_soldtotal} = "Y";
432 $form->{soldtotal} = "soldtotal";
433 $form->{sort} = "soldtotal";
434 $form->{l_qty} = "N";
435 $form->{l_linetotal} = "";
437 $form->{number} = "position";
438 $form->{l_number} = "Y";
442 $form->{title} = $locale->text('Top 100');
444 $revers = $form->{revers};
445 $lastsort = $form->{lastsort};
447 if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
449 $form->{lastsort} = "partnumber";
450 $form->{sort} = "partnumber";
454 "$form->{script}?action=top100&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title="
455 . $form->escape($form->{title}, 1);
457 # if we have a serialnumber limit search
458 if ($form->{serialnumber} || $form->{l_serialnumber}) {
459 $form->{l_serialnumber} = "Y";
460 unless ( $form->{bought}
463 || $form->{quoted}) {
464 $form->{bought} = $form->{sold} = 1;
467 IC->all_parts(\%myconfig, \%$form);
469 if ($form->{itemstatus} eq 'active') {
470 $option .= $locale->text('Active') . " : ";
472 if ($form->{itemstatus} eq 'obsolete') {
473 $option .= $locale->text('Obsolete') . " : ";
475 if ($form->{itemstatus} eq 'orphaned') {
476 $option .= $locale->text('Orphaned') . " : ";
478 if ($form->{itemstatus} eq 'onhand') {
479 $option .= $locale->text('On Hand') . " : ";
480 $form->{l_onhand} = "Y";
482 if ($form->{itemstatus} eq 'short') {
483 $option .= $locale->text('Short') . " : ";
484 $form->{l_onhand} = "Y";
486 if ($form->{onorder}) {
487 $form->{l_ordnumber} = "Y";
488 $callback .= "&onorder=$form->{onorder}";
489 $option .= $locale->text('On Order') . " : ";
491 if ($form->{ordered}) {
492 $form->{l_ordnumber} = "Y";
493 $callback .= "&ordered=$form->{ordered}";
494 $option .= $locale->text('Ordered') . " : ";
497 $form->{l_quonumber} = "Y";
498 $callback .= "&rfq=$form->{rfq}";
499 $option .= $locale->text('RFQ') . " : ";
501 if ($form->{quoted}) {
502 $form->{l_quonumber} = "Y";
503 $callback .= ""ed=$form->{quoted}";
504 $option .= $locale->text('Quoted') . " : ";
506 if ($form->{bought}) {
507 $form->{l_invnumber} = "Y";
508 $callback .= "&bought=$form->{bought}";
509 $option .= $locale->text('Bought') . " : ";
512 $form->{l_invnumber} = "Y";
513 $callback .= "&sold=$form->{sold}";
514 $option .= $locale->text('Sold') . " : ";
521 || $form->{quoted}) {
523 $form->{l_lastcost} = "";
524 $form->{l_name} = "Y";
525 if ($form->{transdatefrom}) {
526 $callback .= "&transdatefrom=$form->{transdatefrom}";
528 . $locale->text('From')
530 . $locale->date(\%myconfig, $form->{transdatefrom}, 1);
532 if ($form->{transdateto}) {
533 $callback .= "&transdateto=$form->{transdateto}";
535 . $locale->text('To')
537 . $locale->date(\%myconfig, $form->{transdateto}, 1);
543 if ($form->{partnumber}) {
544 $callback .= "&partnumber=$form->{partnumber}";
545 $option .= $locale->text('Part Number') . qq| : $form->{partnumber}<br>|;
548 $callback .= "&partnumber=$form->{ean}";
549 $option .= $locale->text('EAN') . qq| : $form->{ean}<br>|;
551 if ($form->{partsgroup}) {
552 $callback .= "&partsgroup=$form->{partsgroup}";
553 $option .= $locale->text('Group') . qq| : $form->{partsgroup}<br>|;
555 if ($form->{serialnumber}) {
556 $callback .= "&serialnumber=$form->{serialnumber}";
557 $option .= $locale->text('Serial Number') . qq| : $form->{serialnumber}<br>|;
559 if ($form->{description}) {
560 $callback .= "&description=$form->{description}";
561 $description = $form->{description};
562 $description =~ s/\n/<br>/g;
563 $option .= $locale->text('Part Description') . qq| : $form->{description}<br>|;
566 $callback .= "&make=$form->{make}";
567 $option .= $locale->text('Make') . qq| : $form->{make}<br>|;
569 if ($form->{model}) {
570 $callback .= "&model=$form->{model}";
571 $option .= $locale->text('Model') . qq| : $form->{model}<br>|;
573 if ($form->{drawing}) {
574 $callback .= "&drawing=$form->{drawing}";
575 $option .= $locale->text('Drawing') . qq| : $form->{drawing}<br>|;
577 if ($form->{microfiche}) {
578 $callback .= "µfiche=$form->{microfiche}";
579 $option .= $locale->text('Microfiche') . qq| : $form->{microfiche}<br>|;
581 if ($form->{l_soldtotal}) {
582 $callback .= "&soldtotal=$form->{soldtotal}";
583 $option .= $locale->text('soldtotal') . qq| : $form->{soldtotal}<br>|;
586 my @columns = $form->sort_columns(
587 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)
590 if ($form->{l_linetotal}) {
591 $form->{l_onhand} = "Y";
592 $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
593 if ($form->{l_lastcost}) {
594 $form->{l_linetotallastcost} = "Y";
595 if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
596 $form->{l_linetotallastcost} = "";
599 $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
602 if ($form->{searchitems} eq 'service') {
604 # remove bin, weight and rop from list
605 map { $form->{"l_$_"} = "" } qw(bin weight rop);
607 $form->{l_onhand} = "";
609 # qty is irrelevant unless bought or sold
615 || $form->{quoted}) {
616 $form->{l_onhand} = "Y";
618 $form->{l_linetotalsellprice} = "";
619 $form->{l_linetotallastcost} = "";
623 foreach my $item (@columns) {
624 if ($form->{"l_$item"} eq "Y") {
625 push @column_index, $item;
627 # add column to callback
628 $callback .= "&l_$item=Y";
632 if ($form->{l_subtotal} eq 'Y') {
633 $callback .= "&l_subtotal=Y";
636 $column_header{number} =
637 qq|<th class=listheading nowrap>| . $locale->text('number') . qq|</th>|;
638 $column_header{partnumber} =
639 qq|<th nowrap><a class=listheading href=$callback&sort=partnumber&revers=$form->{revers}&lastsort=$form->{lastsort}>|
640 . $locale->text('Part Number')
642 $column_header{description} =
643 qq|<th nowrap><a class=listheading href=$callback&sort=description&revers=$form->{revers}&lastsort=$form->{lastsort}>|
644 . $locale->text('Part Description')
646 $column_header{partsgroup} =
647 qq|<th nowrap><a class=listheading href=$callback&sort=partsgroup>|
648 . $locale->text('Group')
650 $column_header{bin} =
651 qq|<th><a class=listheading href=$callback&sort=bin>|
652 . $locale->text('Bin')
654 $column_header{priceupdate} =
655 qq|<th nowrap><a class=listheading href=$callback&sort=priceupdate>|
656 . $locale->text('Updated')
658 $column_header{onhand} =
659 qq|<th nowrap><a class=listheading href=$callback&sort=onhand&revers=$form->{revers}&lastsort=$form->{lastsort}>|
660 . $locale->text('Qty')
662 $column_header{unit} =
663 qq|<th class=listheading nowrap>| . $locale->text('Unit') . qq|</th>|;
664 $column_header{listprice} =
665 qq|<th class=listheading nowrap>|
666 . $locale->text('List Price')
668 $column_header{lastcost} =
669 qq|<th class=listheading nowrap>| . $locale->text('Last Cost') . qq|</th>|;
670 $column_header{rop} =
671 qq|<th class=listheading nowrap>| . $locale->text('ROP') . qq|</th>|;
672 $column_header{weight} =
673 qq|<th class=listheading nowrap>| . $locale->text('Weight') . qq|</th>|;
675 $column_header{invnumber} =
676 qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|
677 . $locale->text('Invoice Number')
679 $column_header{ordnumber} =
680 qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|
681 . $locale->text('Order Number')
683 $column_header{quonumber} =
684 qq|<th nowrap><a class=listheading href=$callback&sort=quonumber>|
685 . $locale->text('Quotation')
688 $column_header{name} =
689 qq|<th nowrap><a class=listheading href=$callback&sort=name>|
690 . $locale->text('Name')
693 $column_header{sellprice} =
694 qq|<th class=listheading nowrap>|
695 . $locale->text('Sell Price')
697 $column_header{linetotalsellprice} =
698 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
699 $column_header{linetotallastcost} =
700 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
701 $column_header{linetotallistprice} =
702 qq|<th class=listheading nowrap>| . $locale->text('Extended') . qq|</th>|;
704 $column_header{image} =
705 qq|<th class=listheading nowrap>| . $locale->text('Image') . qq|</a></th>|;
706 $column_header{drawing} =
707 qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|
708 . $locale->text('Drawing')
710 $column_header{microfiche} =
711 qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|
712 . $locale->text('Microfiche')
715 $column_header{serialnumber} =
716 qq|<th nowrap><a class=listheading href=$callback&sort=serialnumber>|
717 . $locale->text('Serial Number')
719 $column_header{soldtotal} =
720 qq|<th nowrap><a class=listheading href=$callback&sort=soldtotal&revers=$form->{revers}&lastsort=$form->{lastsort}>|
721 . $locale->text('soldtotal')
725 my $colspan = $#column_index + 1;
732 <th class=listtop colspan=$colspan>$form->{title}</th>
736 <tr><td colspan=$colspan>$option</td></tr>
738 <tr class=listheading>
741 map { print "\n$column_header{$_}" } @column_index;
747 # add order to callback
748 $form->{callback} = $callback .= "&sort=$form->{sort}";
750 # escape callback for href
751 $callback = $form->escape($callback);
753 if (@{ $form->{parts} }) {
754 $sameitem = $form->{parts}->[0]->{ $form->{sort} };
757 # insert numbers for top100
759 foreach my $ref (@{ $form->{parts} }) {
764 # if avaible -> insert choice here
765 if (($form->{ndxs_counter}) > 0) {
766 for (my $i = 1; ($i < $form->{ndxs_counter} + 1); $i++) {
767 $partnumber = $form->{"totop100_partnumber_$i"};
768 $description = $form->{"totop100_description_$i"};
769 $unit = $form->{"totop100_unit_$i"};
770 $sellprice = $form->{"totop100_sellprice_$i"};
771 $soldtotal = $form->{"totop100_soldtotal_$i"};
774 <input type=hidden name=totop100_partnumber_$i value=$form->{"totop100_partnumber_$i"}>
775 <input type=hidden name=totop100_description_$i value=$form->{"totop100_description_$i"}>
776 <input type=hidden name=totop100_unit_$i value=$form->{"totop100_unit_$i"}>
777 <input type=hidden name=totop100_sellprice_$i value=$form->{"totop100_sellprice_$i"}>
778 <input type=hidden name=totop100_soldtotal_$i value=$form->{"totop100_soldtotal_$i"}>
782 push @{ $form->{parts} },
784 partnumber => "$partnumber",
785 description => "$description",
787 sellprice => "$sellprice",
788 soldtotal => "$soldtotal" };
791 # build data for columns
793 foreach my $ref (@{ $form->{parts} }) {
795 if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) {
796 if ($sameitem ne $ref->{ $form->{sort} }) {
797 parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
798 $sameitem = $ref->{ $form->{sort} };
802 $ref->{exchangerate} = 1 unless $ref->{exchangerate};
803 $ref->{sellprice} *= $ref->{exchangerate};
804 $ref->{listprice} *= $ref->{exchangerate};
805 $ref->{lastcost} *= $ref->{exchangerate};
807 # use this for assemblies
808 $onhand = $ref->{onhand};
811 if ($ref->{assemblyitem}) {
813 $onhand = 0 if ($form->{sold});
816 $ref->{description} =~ s/\n/<br>/g;
818 $column_data{number} =
820 . $form->format_amount(\%myconfig, $ref->{number})
822 $column_data{partnumber} =
823 "<td align=$align>$ref->{partnumber} </a></td>";
824 $column_data{description} = "<td>$ref->{description} </td>";
825 $column_data{partsgroup} = "<td>$ref->{partsgroup} </td>";
827 $column_data{onhand} =
829 . $form->format_amount(\%myconfig, $ref->{onhand})
831 $column_data{sellprice} =
833 . $form->format_amount(\%myconfig, $ref->{sellprice})
835 $column_data{listprice} =
837 . $form->format_amount(\%myconfig, $ref->{listprice})
839 $column_data{lastcost} =
841 . $form->format_amount(\%myconfig, $ref->{lastcost})
844 $column_data{linetotalsellprice} = "<td align=right>"
845 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2)
847 $column_data{linetotallastcost} = "<td align=right>"
848 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2)
850 $column_data{linetotallistprice} = "<td align=right>"
851 . $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2)
854 if (!$ref->{assemblyitem}) {
855 $totalsellprice += $onhand * $ref->{sellprice};
856 $totallastcost += $onhand * $ref->{lastcost};
857 $totallistprice += $onhand * $ref->{listprice};
859 $subtotalonhand += $onhand;
860 $subtotalsellprice += $onhand * $ref->{sellprice};
861 $subtotallastcost += $onhand * $ref->{lastcost};
862 $subtotallistprice += $onhand * $ref->{listprice};
867 . $form->format_amount(\%myconfig, $ref->{rop}) . "</td>";
868 $column_data{weight} =
870 . $form->format_amount(\%myconfig, $ref->{weight})
872 $column_data{unit} = "<td>$ref->{unit} </td>";
873 $column_data{bin} = "<td>$ref->{bin} </td>";
874 $column_data{priceupdate} = "<td>$ref->{priceupdate} </td>";
876 $column_data{invnumber} =
877 ($ref->{module} ne 'oe')
878 ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&callback=$callback>$ref->{invnumber}</a></td>"
879 : "<td>$ref->{invnumber}</td>";
880 $column_data{ordnumber} =
881 ($ref->{module} eq 'oe')
882 ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{ordnumber}</a></td>"
883 : "<td>$ref->{ordnumber}</td>";
884 $column_data{quonumber} =
885 ($ref->{module} eq 'oe' && !$ref->{ordnumber})
886 ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&callback=$callback>$ref->{quonumber}</a></td>"
887 : "<td>$ref->{quonumber}</td>";
889 $column_data{name} = "<td>$ref->{name}</td>";
891 $column_data{image} =
893 ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>"
895 $column_data{drawing} =
897 ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>"
899 $column_data{microfiche} =
901 ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>"
904 $column_data{serialnumber} = "<td>$ref->{serialnumber}</td>";
906 $column_data{soldtotal} = "<td align=right>$ref->{soldtotal}</td>";
910 print "<tr class=listrow$i>";
912 map { print "\n$column_data{$_}" } @column_index;
919 if ($form->{l_subtotal} eq 'Y') {
920 parts_subtotal(\@column_index, \$subtotalonhand, \$subtotalsellprice, \$subtotallastcost, \$subtotallistprice);
923 if ($form->{"l_linetotal"}) {
924 map { $column_data{$_} = "<td> </td>" } @column_index;
925 $column_data{linetotalsellprice} =
926 "<th class=listtotal align=right>"
927 . $form->format_amount(\%myconfig, $totalsellprice, 2)
929 $column_data{linetotallastcost} =
930 "<th class=listtotal align=right>"
931 . $form->format_amount(\%myconfig, $totallastcost, 2)
933 $column_data{linetotallistprice} =
934 "<th class=listtotal align=right>"
935 . $form->format_amount(\%myconfig, $totallistprice, 2)
938 print "<tr class=listtotal>";
940 map { print "\n$column_data{$_}" } @column_index;
947 <tr><td colspan=$colspan><hr size=3 noshade></td></tr>
956 <form method=post action=$form->{script}>
958 <input type=hidden name=itemstatus value="$form->{itemstatus}">
959 <input type=hidden name=l_linetotal value="$form->{l_linetotal}">
960 <input type=hidden name=l_partnumber value="$form->{l_partnumber}">
961 <input type=hidden name=l_description value="$form->{l_description}">
962 <input type=hidden name=l_onhand value="$form->{l_onhand}">
963 <input type=hidden name=l_unit value="$form->{l_unit}">
964 <input type=hidden name=l_sellprice value="$form->{l_sellprice}">
965 <input type=hidden name=l_linetotalsellprice value="$form->{l_linetotalsellprice}">
966 <input type=hidden name=sort value="$form->{sort}">
967 <input type=hidden name=revers value="$form->{revers}">
968 <input type=hidden name=lastsort value="$form->{lastsort}">
969 <input type=hidden name=parts value="$form->{parts}">
971 <input type=hidden name=bom value="$form->{bom}">
972 <input type=hidden name=titel value="$form->{titel}">
973 <input type=hidden name=searchitems value="$form->{searchitems}">|;
978 <!-- <input type=hidden name=ndxs_counter value="$form->{ndxs_counter}">-->
980 <input class=submit type=submit name=action value="|
981 . $locale->text('choice') . qq|">
989 $lxdebug->leave_sub();
994 # Warning, deep magic ahead.
995 # This function parses the requested details, sanity checks them, and converts them into a format thats usable for IC->all_parts
997 # flags coming from the form:
999 # searchitems=part revers=0 lastsort=''
1002 # partnumber ean description partsgroup serialnumber make model drawing microfiche
1003 # transdatefrom transdateto
1006 # itemstatus = active | onhand | short | obsolete | orphaned
1007 # action = continue | top100
1010 # bought sold onorder ordered rfq quoted
1011 # l_partnumber l_description l_serialnumber l_unit l_listprice l_sellprice l_lastcost
1012 # l_linetotal l_priceupdate l_bin l_rop l_weight l_image l_drawing l_microfiche
1013 # l_partsgroup l_subtotal l_soldtotal l_deliverydate l_pricegroups
1016 # nextsub revers lastsort sort ndxs_counter
1018 sub generate_report {
1019 $lxdebug->enter_sub();
1021 $auth->assert('part_service_assembly_edit');
1023 my ($revers, $lastsort, $description);
1025 my $cvar_configs = CVar->get_configs('module' => 'IC');
1027 $form->{title} = (ucfirst $form->{searchitems}) . "s";
1028 $form->{title} =~ s/ys$/ies/;
1029 $form->{title} = $locale->text($form->{title});
1032 'bin' => { 'text' => $locale->text('Bin'), },
1033 'deliverydate' => { 'text' => $locale->text('deliverydate'), },
1034 'description' => { 'text' => $locale->text('Part Description'), },
1035 'notes' => { 'text' => $locale->text('Notes'), },
1036 'drawing' => { 'text' => $locale->text('Drawing'), },
1037 'ean' => { 'text' => $locale->text('EAN'), },
1038 'image' => { 'text' => $locale->text('Image'), },
1039 'invnumber' => { 'text' => $locale->text('Invoice Number'), },
1040 'lastcost' => { 'text' => $locale->text('Last Cost'), },
1041 'linetotallastcost' => { 'text' => $locale->text('Extended'), },
1042 'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1043 'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1044 'listprice' => { 'text' => $locale->text('List Price'), },
1045 'microfiche' => { 'text' => $locale->text('Microfiche'), },
1046 'name' => { 'text' => $locale->text('Name'), },
1047 'onhand' => { 'text' => $locale->text('Stocked Qty'), },
1048 'ordnumber' => { 'text' => $locale->text('Order Number'), },
1049 'partnumber' => { 'text' => $locale->text('Part Number'), },
1050 'partsgroup' => { 'text' => $locale->text('Group'), },
1051 'priceupdate' => { 'text' => $locale->text('Updated'), },
1052 'quonumber' => { 'text' => $locale->text('Quotation'), },
1053 'rop' => { 'text' => $locale->text('ROP'), },
1054 'sellprice' => { 'text' => $locale->text('Sell Price'), },
1055 'serialnumber' => { 'text' => $locale->text('Serial Number'), },
1056 'soldtotal' => { 'text' => $locale->text('Qty in Selected Records'), },
1057 'transdate' => { 'text' => $locale->text('Transdate'), },
1058 'unit' => { 'text' => $locale->text('Unit'), },
1059 'weight' => { 'text' => $locale->text('Weight'), },
1060 'projectnumber' => { 'text' => $locale->text('Project Number'), },
1061 'projectdescription' => { 'text' => $locale->text('Project Description'), },
1064 $revers = $form->{revers};
1065 $lastsort = $form->{lastsort};
1067 # sorting and direction of sorting
1068 # ToDO: change this to the simpler field+direction method
1069 if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1070 $form->{revers} = 0;
1071 $form->{lastsort} = "partnumber";
1072 $form->{sort} = "partnumber";
1074 if ($form->{lastsort} eq $form->{sort}) {
1075 $form->{revers} = 1 - $form->{revers};
1077 $form->{revers} = 0;
1078 $form->{lastsort} = $form->{sort};
1082 # special case if we have a serialnumber limit search
1083 # serialnumbers are only given in invoices and orders,
1084 # so they can only pop up in bought, sold, rfq, and quoted stuff
1085 $form->{no_sn_joins} = 'Y' if ( !$form->{bought} && !$form->{sold}
1086 && !$form->{rfq} && !$form->{quoted}
1087 && ($form->{l_serialnumber} || $form->{serialnumber}));
1089 # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1090 # if any of these are ticked the behavior changes slightly for lastcost
1091 # since all those are aggregation checks for the legder tables this is an internal switch
1092 # refered to as ledgerchecks
1093 $form->{ledgerchecks} = 'Y' if ( $form->{bought} || $form->{sold} || $form->{onorder}
1094 || $form->{ordered} || $form->{rfq} || $form->{quoted});
1096 # if something should be activated if something else is active, enter it here
1097 my %dependencies = (
1098 onhand => [ qw(l_onhand) ],
1099 short => [ qw(l_onhand) ],
1100 onorder => [ qw(l_ordnumber) ],
1101 ordered => [ qw(l_ordnumber) ],
1102 rfq => [ qw(l_quonumber) ],
1103 quoted => [ qw(l_quonumber) ],
1104 bought => [ qw(l_invnumber) ],
1105 sold => [ qw(l_invnumber) ],
1106 ledgerchecks => [ qw(l_name) ],
1107 serialnumber => [ qw(l_serialnumber) ],
1108 no_sn_joins => [ qw(bought sold) ],
1111 # get name of partsgroup if id is given
1113 if ($form->{partsgroup_id}) {
1114 my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load;
1115 $pg_name = $pg->{'partsgroup'};
1118 # these strings get displayed at the top of the results to indicate the user which switches were used
1120 active => $locale->text('Active'),
1121 obsolete => $locale->text('Obsolete'),
1122 orphaned => $locale->text('Orphaned'),
1123 onhand => $locale->text('On Hand'),
1124 short => $locale->text('Short'),
1125 onorder => $locale->text('On Order'),
1126 ordered => $locale->text('Ordered'),
1127 rfq => $locale->text('RFQ'),
1128 quoted => $locale->text('Quoted'),
1129 bought => $locale->text('Bought'),
1130 sold => $locale->text('Sold'),
1131 transdatefrom => $locale->text('From') . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1132 transdateto => $locale->text('To (time)') . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1133 partnumber => $locale->text('Part Number') . ": '$form->{partnumber}'",
1134 partsgroup => $locale->text('Group') . ": '$form->{partsgroup}'",
1135 partsgroup_id => $locale->text('Group') . ": '$pg_name'",
1136 serialnumber => $locale->text('Serial Number') . ": '$form->{serialnumber}'",
1137 description => $locale->text('Part Description') . ": '$form->{description}'",
1138 make => $locale->text('Make') . ": '$form->{make}'",
1139 model => $locale->text('Model') . ": '$form->{model}'",
1140 drawing => $locale->text('Drawing') . ": '$form->{drawing}'",
1141 microfiche => $locale->text('Microfiche') . ": '$form->{microfiche}'",
1142 l_soldtotal => $locale->text('Qty in Selected Records'),
1143 ean => $locale->text('EAN') . ": '$form->{ean}'",
1146 my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1147 my @callback_keys = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model
1148 drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1150 # calculate dependencies
1151 for (@itemstatus_keys, @callback_keys) {
1152 next if ($form->{itemstatus} ne $_ && !$form->{$_});
1153 map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1156 # generate callback and optionstrings
1158 for my $key (@itemstatus_keys, @callback_keys) {
1159 next if ($form->{itemstatus} ne $key && !$form->{$key});
1160 push @options, $optiontexts{$key};
1163 # special case for lastcost
1164 if ($form->{ledgerchecks}){
1165 # ledgerchecks don't know about sellprice or lastcost. they just return a
1166 # price. so rename sellprice to price, and drop lastcost.
1167 $column_defs{sellprice}{text} = $locale->text('Price');
1168 $form->{l_lastcost} = ""
1171 if ($form->{description}) {
1172 $description = $form->{description};
1173 $description =~ s/\n/<br>/g;
1176 if ($form->{l_linetotal}) {
1177 $form->{l_qty} = "Y";
1178 $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1179 $form->{l_linetotallastcost} = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if $form->{l_lastcost};
1180 $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1183 if ($form->{searchitems} eq 'service') {
1185 # remove bin, weight and rop from list
1186 map { $form->{"l_$_"} = "" } qw(bin weight rop);
1188 $form->{l_onhand} = "";
1190 # qty is irrelevant unless bought or sold
1191 if ( $form->{bought}
1196 || $form->{quoted}) {
1197 # $form->{l_onhand} = "Y";
1199 $form->{l_linetotalsellprice} = "";
1200 $form->{l_linetotallastcost} = "";
1204 # soldtotal doesn't make sense with more than one bsooqr option.
1205 # so reset it to sold (the most common option), and issue a warning
1206 my @bsooqr = qw(sold bought onorder ordered rfq quoted);
1207 if ($form->{l_subtotal} && 1 < grep { $form->{$_} } @bsooqr) {
1208 my $enabled = first { $form->{$_} } @bsooqr;
1209 $form->{$_} = '' for @bsooqr;
1210 $form->{$enabled} = 'Y';
1212 push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});
1215 IC->all_parts(\%myconfig, \%$form);
1218 partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
1219 linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1220 priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1221 transdate name serialnumber deliverydate ean projectnumber projectdescription
1224 my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id');
1225 my @pricegroup_columns;
1226 my %column_defs_pricegroups;
1227 if ($form->{l_pricegroups}) {
1228 @pricegroup_columns = map { "pricegroup_" . $_->id } @{ $pricegroups };
1229 %column_defs_pricegroups = map {
1230 "pricegroup_" . $_->id => {
1231 text => $::locale->text('Pricegroup') . ' ' . $_->pricegroup,
1234 } @{ $pricegroups };
1236 push @columns, @pricegroup_columns;
1238 my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1239 my @searchable_custom_variables = grep { $_->{searchable} } @{ $cvar_configs };
1240 my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1242 push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1244 %column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups);
1245 map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
1246 map { $column_defs{$_}->{align} = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
1248 my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), @itemstatus_keys, @callback_keys,
1249 map({ "cvar_$_->{name}" } @searchable_custom_variables), map { "l_$_" } @columns);
1251 my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1253 my @sort_full = qw(partnumber description onhand soldtotal deliverydate);
1254 my @sort_no_revers = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1256 foreach my $col (@sort_full) {
1257 $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1259 map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1261 # add order to callback
1262 $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1264 my $report = SL::ReportGenerator->new(\%myconfig, $form);
1266 my %attachment_basenames = (
1267 'part' => $locale->text('part_list'),
1268 'service' => $locale->text('service_list'),
1269 'assembly' => $locale->text('assembly_list'),
1272 $report->set_options('top_info_text' => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1273 'raw_bottom_info_text' => $form->parse_html_template('ic/generate_report_bottom'),
1274 'output_format' => 'HTML',
1275 'title' => $form->{title},
1276 'attachment_basename' => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1278 $report->set_options_from_form();
1279 $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1281 $report->set_columns(%column_defs);
1282 $report->set_column_order(@columns);
1284 $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1286 $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1288 CVar->add_custom_variables_to_report('module' => 'IC',
1289 'trans_id_field' => 'id',
1290 'configs' => $cvar_configs,
1291 'column_defs' => \%column_defs,
1292 'data' => $form->{parts});
1294 CVar->add_custom_variables_to_report('module' => 'IC',
1295 'sub_module' => sub { $_[0]->{ioi} },
1296 'trans_id_field' => 'ioi_id',
1297 'configs' => $cvar_configs,
1298 'column_defs' => \%column_defs,
1299 'data' => $form->{parts});
1301 my @subtotal_columns = qw(sellprice listprice lastcost);
1302 my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1303 my %totals = map { $_ => 0 } @subtotal_columns;
1305 my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
1307 my $defaults = AM->get_defaults();
1310 foreach my $ref (@{ $form->{parts} }) {
1312 # fresh row, for inserting later
1313 my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1315 $ref->{exchangerate} ||= 1;
1316 $ref->{price_factor} ||= 1;
1317 $ref->{sellprice} *= $ref->{exchangerate} / $ref->{price_factor};
1318 $ref->{listprice} *= $ref->{exchangerate} / $ref->{price_factor};
1319 $ref->{lastcost} *= $ref->{exchangerate} / $ref->{price_factor};
1321 # use this for assemblies
1322 my $soldtotal = $ref->{soldtotal};
1324 if ($ref->{assemblyitem}) {
1325 $row->{partnumber}{align} = 'right';
1326 $row->{soldtotal}{data} = 0;
1327 $soldtotal = 0 if ($form->{sold});
1330 my $edit_link = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1331 $row->{partnumber}->{link} = $edit_link;
1332 $row->{description}->{link} = $edit_link;
1334 foreach (qw(sellprice listprice lastcost)) {
1335 $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}, 2);
1336 $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1338 foreach ( @pricegroup_columns ) {
1339 $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
1343 map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1345 $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1347 if (!$ref->{assemblyitem}) {
1348 foreach my $col (@subtotal_columns) {
1349 $totals{$col} += $soldtotal * $ref->{$col};
1350 $subtotals{$col} += $soldtotal * $ref->{$col};
1353 $subtotals{soldtotal} += $soldtotal;
1357 if ($ref->{module} eq 'oe') {
1358 # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich:
1360 # | ist bestellt | Vom Kunde bestellt | -> edit_oe_ord_link
1361 # | Anfrage | Angebot | -> edit_oe_quo_link
1363 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');
1364 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');
1366 $row->{ordnumber}{link} = $edit_oe_ord_link;
1367 $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber});
1370 $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1373 # set properties of images
1374 if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1375 $row->{image}{data} = '';
1376 $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1378 map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1380 $report->add_data($row);
1382 my $next_ref = $form->{parts}[$idx + 1];
1384 # insert subtotal rows
1385 if (($form->{l_subtotal} eq 'Y') &&
1387 (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1388 my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1390 if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1391 $row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
1394 map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1395 map { $subtotals{$_} = 0 } ('soldtotal', @subtotal_columns);
1397 $report->add_data($row);
1399 $same_item = $next_ref->{ $form->{sort} };
1405 if ($form->{"l_linetotal"} && !$form->{report_generator_csv_options_for_import}) {
1406 my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1408 map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1410 $report->add_separator();
1411 $report->add_data($row);
1414 $report->generate_with_headers();
1416 $lxdebug->leave_sub();
1417 } #end generate_report
1419 sub parts_subtotal {
1420 $lxdebug->enter_sub();
1422 $auth->assert('part_service_assembly_edit');
1425 my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1427 map { $column_data{$_} = "<td> </td>" } @{ $column_index };
1428 $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1430 $column_data{onhand} =
1431 "<th class=listsubtotal align=right>"
1432 . $form->format_amount(\%myconfig, $$subtotalonhand)
1435 $column_data{linetotalsellprice} =
1436 "<th class=listsubtotal align=right>"
1437 . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1439 $column_data{linetotallistprice} =
1440 "<th class=listsubtotal align=right>"
1441 . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1443 $column_data{linetotallastcost} =
1444 "<th class=listsubtotal align=right>"
1445 . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1448 $$subtotalonhand = 0;
1449 $$subtotalsellprice = 0;
1450 $$subtotallistprice = 0;
1451 $$subtotallastcost = 0;
1453 print "<tr class=listsubtotal>";
1455 map { print "\n$column_data{$_}" } @{ $column_index };
1461 $lxdebug->leave_sub();
1465 $lxdebug->enter_sub();
1467 $auth->assert('part_service_assembly_edit');
1469 # show history button
1470 $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1471 #/show hhistory button
1472 IC->get_part(\%myconfig, \%$form);
1474 $form->{"original_partnumber"} = $form->{"partnumber"};
1476 my $title = 'Edit ' . ucfirst $form->{item};
1477 $form->{title} = $locale->text($title);
1482 $lxdebug->leave_sub();
1486 $lxdebug->enter_sub();
1488 $auth->assert('part_service_assembly_edit');
1490 IC->create_links("IC", \%myconfig, \%$form);
1493 map({ $form->{selectcurrency} .= "<option>$_\n" }
1494 split(/:/, $form->{currencies}));
1496 # parts and assemblies have the same links
1497 my $item = $form->{item};
1498 if ($form->{item} eq 'assembly') {
1502 # build the popup menus
1503 $form->{taxaccounts} = "";
1504 foreach my $key (keys %{ $form->{IC_links} }) {
1505 foreach my $ref (@{ $form->{IC_links}{$key} }) {
1507 # if this is a tax field
1508 if ($key =~ /IC_tax/) {
1509 if ($key =~ /\Q$item\E/) {
1510 $form->{taxaccounts} .= "$ref->{accno} ";
1511 $form->{"IC_tax_$ref->{accno}_description"} =
1512 "$ref->{accno}--$ref->{description}";
1515 if ($form->{amount}{ $ref->{accno} }) {
1516 $form->{"IC_tax_$ref->{accno}"} = "checked";
1519 $form->{"IC_tax_$ref->{accno}"} = "checked";
1524 $form->{"select$key"} .=
1525 "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1526 if ($form->{amount}{$key} eq $ref->{accno}) {
1527 $form->{$key} = "$ref->{accno}--$ref->{description}";
1533 chop $form->{taxaccounts};
1535 if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1536 $form->{selectIC_income} = $form->{selectIC_sale};
1537 $form->{selectIC_expense} = $form->{selectIC_cogs};
1538 $form->{IC_income} = $form->{IC_sale};
1539 $form->{IC_expense} = $form->{IC_cogs};
1542 delete $form->{IC_links};
1543 delete $form->{amount};
1545 $form->get_partsgroup(\%myconfig, { all => 1 });
1547 $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1549 if (@{ $form->{all_partsgroup} }) {
1550 $form->{selectpartsgroup} = qq|<option>\n|;
1551 map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1554 if ($form->{item} eq 'assembly') {
1556 foreach my $i (1 .. $form->{assembly_rows}) {
1557 if ($form->{"partsgroup_id_$i"}) {
1558 $form->{"partsgroup_$i"} =
1559 qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1562 $form->get_partsgroup(\%myconfig);
1564 if (@{ $form->{all_partsgroup} }) {
1565 $form->{selectassemblypartsgroup} = qq|<option>\n|;
1568 $form->{selectassemblypartsgroup} .=
1569 qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1570 } @{ $form->{all_partsgroup} };
1573 $lxdebug->leave_sub();
1577 $lxdebug->enter_sub();
1579 $auth->assert('part_service_assembly_edit');
1581 $form->{pg_keys} = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1582 $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1583 $form->{notes_rows} = max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1585 map { $form->{"is_$_"} = ($form->{item} eq $_) } qw(part service assembly);
1586 map { $form->{$_} =~ s/"/"/g; } qw(unit);
1588 $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1589 'partsgroup' => 'all_partsgroup',
1590 'vendors' => 'ALL_VENDORS',);
1593 IC->retrieve_buchungsgruppen(\%myconfig, $form);
1594 @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1596 # use JavaScript Calendar or not (yes!)
1597 $form->{jsscript} = 1;
1599 my $units = AM->retrieve_units(\%myconfig, $form);
1600 $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1602 $form->{defaults} = AM->get_defaults();
1604 $form->{fokus} = "ic.partnumber";
1606 $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1608 CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1609 if (scalar @{ $form->{CUSTOM_VARIABLES} });
1612 #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1613 # ALL_UNITS => $form->{ALL_UNITS},
1614 # BUCHUNGSGRUPPEN => $form->{BUCHUNGSGRUPPEN},
1615 # payment_terms => $form->{payment_terms},
1616 # all_partsgroup => $form->{all_partsgroup}});
1617 print $form->parse_html_template('ic/form_header');
1618 $lxdebug->leave_sub();
1622 $lxdebug->enter_sub();
1624 $auth->assert('part_service_assembly_edit');
1626 print $form->parse_html_template('ic/form_footer');
1628 $lxdebug->leave_sub();
1632 $lxdebug->enter_sub();
1635 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;
1636 delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1637 print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1639 $lxdebug->leave_sub();
1643 $lxdebug->enter_sub();
1646 my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1648 @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1650 if ($form->{previousform}) {
1652 @column_index = qw(qty unit bom partnumber description partsgroup total);
1656 $form->{old_callback} = $form->{callback};
1657 $callback = $form->{callback};
1658 $form->{callback} = "$form->{script}?action=display_form";
1661 map { delete $form->{$_} } qw(action header);
1663 # save form variables in a previousform variable
1664 my %form_to_save = map { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1666 $previousform = $::auth->save_form_in_session(form => \%form_to_save);
1668 $form->{callback} = $callback;
1669 $form->{assemblytotal} = 0;
1670 $form->{assembly_purchase_price_total} = 0;
1671 $form->{weight} = 0;
1675 runningnumber => { text => $locale->text('No.'), nowrap => 1, width => '5%' },
1676 qty => { text => $locale->text('Qty'), nowrap => 1, width => '10%' },
1677 unit => { text => $locale->text('Unit'), nowrap => 1, width => '5%' },
1678 partnumber => { text => $locale->text('Part Number'), nowrap => 1, width => '20%' },
1679 description => { text => $locale->text('Part Description'), nowrap => 1, width => '50%' },
1680 lastcost => { text => $locale->text('Purchase Prices'), nowrap => 1, width => '50%' },
1681 total => { text => $locale->text('Sale Prices'), nowrap => 1, },
1682 bom => { text => $locale->text('BOM'), },
1683 partsgroup => { text => $locale->text('Group'), },
1688 for my $i (1 .. $numrows) {
1689 my (%row, @row_hiddens);
1691 $form->{"partnumber_$i"} =~ s/\"/"/g;
1693 $linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1694 $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1695 $form->{assemblytotal} += $linetotal;
1696 $form->{assembly_purchase_price_total} += $line_purchase_price;
1697 $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1698 $linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
1699 $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1700 $href = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1701 map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1704 if (($i >= 1) && ($i == $numrows)) {
1705 if (!$form->{previousform}) {
1706 $row{partnumber}{data} = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1707 $row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1708 $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1709 $row{partsgroup}{data} = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1713 if ($form->{previousform}) {
1714 push @row_hiddens, qw(qty bom);
1715 $row{partnumber}{data} = $form->{"partnumber_$i"};
1716 $row{qty}{data} = $form->{"qty_$i"};
1717 $row{bom}{data} = $form->{"bom_$i"} ? "x" : " ";
1718 $row{qty}{align} = 'right';
1720 $row{partnumber}{data} = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1721 $row{qty}{data} = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1722 $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1723 $row{bom}{data} = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1724 $form->{"bom_$i"} ? 'checked' : '';
1726 push @row_hiddens, qw(unit description partnumber partsgroup);
1727 $row{unit}{data} = $form->{"unit_$i"};
1728 #Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
1729 #werden, die den HTML Code stören. Daher sollen diese im Template escaped werden
1730 #dies geschieht, wenn die Variable escape gesetzt ist
1731 $row{description}{data} = $form->{"description_$i"};
1732 $row{description}{escape} = 1;
1733 $row{partsgroup}{data} = $form->{"partsgroup_$i"};
1734 $row{partsgroup}{escape} = 1;
1735 $row{bom}{align} = 'center';
1738 $row{lastcost}{data} = $line_purchase_price;
1739 $row{total}{data} = $linetotal;
1740 $row{lastcost}{align} = 'right';
1741 $row{total}{align} = 'right';
1742 $row{deliverydate}{align} = 'right';
1744 push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1745 $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1750 print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1752 $lxdebug->leave_sub();
1756 $lxdebug->enter_sub();
1758 # parse pricegroups. and no, don't rely on check_form for this...
1759 map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1761 # same for makemodel lastcosts
1762 # but parse_amount not necessary for assembly component lastcosts
1763 unless ($form->{item} eq "assembly") {
1764 map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1767 if ($form->{item} eq "assembly") {
1768 my $i = $form->{assembly_rows};
1770 # if last row is empty check the form otherwise retrieve item
1771 if ( ($form->{"partnumber_$i"} eq "")
1772 && ($form->{"description_$i"} eq "")
1773 && ($form->{"partsgroup_$i"} eq "")) {
1779 IC->assembly_item(\%myconfig, \%$form);
1781 my $rows = scalar @{ $form->{item_list} };
1784 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1787 $form->{makemodel_rows}--;
1788 select_item(mode => 'IC');
1791 map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }
1792 qw(partnumber description unit partsgroup);
1793 map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1794 keys %{ $form->{item_list}[0] };
1795 $form->{"runningnumber_$i"} = $form->{assembly_rows};
1796 $form->{assembly_rows}++;
1804 $form->{rowcount} = $i;
1805 $form->{assembly_rows}++;
1812 } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1816 $lxdebug->leave_sub();
1820 $lxdebug->enter_sub();
1822 $auth->assert('part_service_assembly_edit');
1824 my ($parts_id, %newform, $amount, $callback);
1826 # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1827 # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1829 # check if there is a description
1830 $form->isblank("description", $locale->text("Part Description missing!"));
1832 $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1833 if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1835 if (!$form->{buchungsgruppen_id}) {
1836 $form->error($locale->text("Parts must have an entry type.") . " " .
1837 $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.")
1841 $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1842 $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1845 if (IC->save(\%myconfig, \%$form) == 3) {
1846 $form->error($locale->text('Partnumber not unique!'));
1848 # saving the history
1849 if(!exists $form->{addition}) {
1850 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1851 $form->{addition} = "SAVED";
1852 $form->save_history;
1854 # /saving the history
1855 $parts_id = $form->{id};
1858 # load previous variables
1859 if ($form->{previousform}) {
1861 # save the new form variables before splitting previousform
1862 map { $newform{$_} = $form->{$_} } keys %$form;
1864 # don't trample on previous variables
1865 map { delete $form->{$_} } keys %newform;
1867 my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1868 my @ic_cvar_fields = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1870 # restore original values
1871 $::auth->restore_form_from_session($newform{previousform}, form => $form);
1872 $form->{taxaccounts} = $newform{taxaccount2};
1874 if ($form->{item} eq 'assembly') {
1876 # undo number formatting
1877 map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1878 qw(weight listprice sellprice rop);
1880 $form->{assembly_rows}--;
1881 $i = $form->{assembly_rows};
1882 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1884 $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1885 $form->{weight} -= $form->{"weight_$i"} * $form->{"qty_$i"};
1887 # change/add values for assembly item
1888 map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1889 map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1891 # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1892 #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1893 $form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"};
1897 # set values for last invoice/order item
1898 $i = $form->{rowcount};
1899 $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1901 map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1902 map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1904 $form->{"longdescription_$i"} = $newform{notes};
1906 $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1908 if ($form->{exchangerate} != 0) {
1909 $form->{"sellprice_$i"} /= $form->{exchangerate};
1912 map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1913 chop $form->{"taxaccounts_$i"};
1914 foreach my $item (qw(description rate taxnumber)) {
1915 my $index = $form->{"taxaccounts_$i"} . "_$item";
1916 $form->{$index} = $newform{$index};
1919 # credit remaining calculation
1920 $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1922 map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1923 map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1925 $form->{creditremaining} -= $amount;
1927 # redo number formatting, because invoice parse them!
1928 map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1931 $form->{"id_$i"} = $parts_id;
1933 # Get the actual price factor (not just the ID) for the marge calculation.
1934 $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1935 foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1936 next if ($pfac->{id} != $newform{price_factor_id});
1937 $form->{"marge_price_factor_$i"} = $pfac->{factor};
1940 delete $form->{ALL_PRICE_FACTORS};
1942 delete $form->{action};
1944 # restore original callback
1945 $callback = $form->unescape($form->{callback});
1946 $form->{callback} = $form->unescape($form->{old_callback});
1947 delete $form->{old_callback};
1949 $form->{makemodel_rows}--;
1951 # put callback together
1952 foreach my $key (keys %$form) {
1954 # do single escape for Apache 2.0
1955 my $value = $form->escape($form->{$key}, 1);
1956 $callback .= qq|&$key=$value|;
1958 $form->{callback} = $callback;
1964 $lxdebug->leave_sub();
1968 $lxdebug->enter_sub();
1970 $auth->assert('part_service_assembly_edit');
1972 # saving the history
1973 if(!exists $form->{addition}) {
1974 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1975 $form->{addition} = "SAVED AS NEW";
1976 $form->save_history;
1978 # /saving the history
1980 if ($form->{"original_partnumber"} &&
1981 ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1982 $form->{partnumber} = "";
1985 $lxdebug->leave_sub();
1989 $lxdebug->enter_sub();
1991 $auth->assert('part_service_assembly_edit');
1993 # saving the history
1994 if(!exists $form->{addition}) {
1995 $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1996 $form->{addition} = "DELETED";
1997 $form->save_history;
1999 # /saving the history
2000 my $rc = IC->delete(\%myconfig, \%$form);
2003 $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2004 $form->error($locale->text('Cannot delete item!'));
2006 $lxdebug->leave_sub();
2010 $lxdebug->enter_sub();
2012 $auth->assert('part_service_assembly_edit');
2017 pricegroup => $form->{"pricegroup_$_"},
2018 pricegroup_id => $form->{"pricegroup_id_$_"},
2019 price => $form->{"price_$_"},
2022 print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2024 $lxdebug->leave_sub();
2027 sub parts_language_selection {
2028 $lxdebug->enter_sub();
2030 $auth->assert('part_service_assembly_edit');
2032 my $languages = IC->retrieve_languages(\%myconfig, $form);
2034 if ($form->{language_values} ne "") {
2035 foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
2036 my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
2038 foreach my $language (@{ $languages }) {
2039 next unless ($language->{id} == $language_id);
2041 $language->{translation} = $translation;
2042 $language->{longdescription} = $longdescription;
2044 $language->{translation_area} = ($language->{translation_rows} = $form->numtextrows($language->{translation}, 40)) > 1;
2045 $language->{longdescription_rows} = max 4, $form->numtextrows($language->{longdescription}, 40);
2052 my @header_sort = qw(name longdescription);
2053 my %header_title = ( "name" => $locale->text("Name"),
2054 "longdescription" => $locale->text("Long Description"),
2058 map(+{ "column_title" => $header_title{$_},
2063 $form->{"title"} = $locale->text("Language Values");
2065 print $form->parse_html_template("ic/parts_language_selection", { "HEADER" => \@header,
2066 "LANGUAGES" => $languages, });
2068 $lxdebug->leave_sub();
2071 sub ajax_autocomplete {
2072 $main::lxdebug->enter_sub();
2074 my $form = $main::form;
2075 my %myconfig = %main::myconfig;
2077 $form->{column} = 'description' unless $form->{column} =~ /^partnumber|description$/;
2078 $form->{$form->{column}} = $form->{q} || '';
2079 $form->{limit} = ($form->{limit} * 1) || 10;
2080 $form->{searchitems} ||= '';
2082 my @results = IC->all_parts(\%myconfig, $form);
2084 print $form->ajax_response_header(),
2085 $form->parse_html_template('ic/ajax_autocomplete');
2087 $main::lxdebug->leave_sub();
2090 sub back_to_record {
2094 delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2096 $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2097 $::form->{rowcount}--;
2098 $::form->{action} = 'display_form';
2099 $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2103 sub continue { call_sub($form->{"nextsub"}); }
2106 my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2107 $::form->error($::locale->text('No action defined.')) unless $action;
2109 $::form->{dispatched_action} = $action;