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