bin/mozilla/ic.pl

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