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   # ...
1198   # also it doesn't make sense without bsooqr. disable and issue a warning too
1199   my @bsooqr = qw(sold bought onorder ordered rfq quoted);
1200   my $bsooqr_mode = grep { $form->{$_} } @bsooqr;
1201   if ($form->{l_subtotal} && 1 < $bsooqr_mode) {
1202     my $enabled       = first { $form->{$_} } @bsooqr;
1203     $form->{$_}       = ''   for @bsooqr;
1204     $form->{$enabled} = 'Y';
1205
1206     push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});
1207   }
1208   if ($form->{l_soldtotal} && !$bsooqr_mode) {
1209     delete $form->{l_soldtotal};
1210
1211     flash('warning', $::locale->text('Soldtotal does not make sense without any bsooqr options'));
1212   }
1213
1214   IC->all_parts(\%myconfig, \%$form);
1215
1216   my @columns = qw(
1217     partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
1218     linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1219     priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1220     transdate name serialnumber deliverydate ean projectnumber projectdescription
1221   );
1222
1223   my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id');
1224   my @pricegroup_columns;
1225   my %column_defs_pricegroups;
1226   if ($form->{l_pricegroups}) {
1227     @pricegroup_columns      = map { "pricegroup_" . $_->id } @{ $pricegroups };
1228     %column_defs_pricegroups = map {
1229       "pricegroup_" . $_->id => {
1230         text    => $::locale->text('Pricegroup') . ' ' . $_->pricegroup,
1231         visible => 1,
1232       },
1233     }  @{ $pricegroups };
1234   }
1235   push @columns, @pricegroup_columns;
1236
1237   my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1238   my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
1239   my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1240
1241   push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1242
1243   %column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups);
1244   map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
1245   map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
1246
1247   my @hidden_variables = (
1248     qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups),
1249     @itemstatus_keys,
1250     @callback_keys,
1251     map({ "cvar_$_->{name}" } @searchable_custom_variables),
1252     map({'cvar_'. $_->{name} .'_qtyop'} grep({$_->{type} eq 'number'} @searchable_custom_variables)),
1253     map({ "l_$_" } @columns),
1254   );
1255
1256   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1257
1258   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1259   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1260
1261   foreach my $col (@sort_full) {
1262     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1263   }
1264   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1265
1266   # add order to callback
1267   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1268
1269   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1270
1271   my %attachment_basenames = (
1272     'part'     => $locale->text('part_list'),
1273     'service'  => $locale->text('service_list'),
1274     'assembly' => $locale->text('assembly_list'),
1275   );
1276
1277   $report->set_options('raw_top_info_text'     => $form->parse_html_template('ic/generate_report_top', { options => \@options }),
1278                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1279                        'output_format'         => 'HTML',
1280                        'title'                 => $form->{title},
1281                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1282   );
1283   $report->set_options_from_form();
1284   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1285
1286   $report->set_columns(%column_defs);
1287   $report->set_column_order(@columns);
1288
1289   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1290
1291   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1292
1293   CVar->add_custom_variables_to_report('module'         => 'IC',
1294                                        'trans_id_field' => 'id',
1295                                        'configs'        => $cvar_configs,
1296                                        'column_defs'    => \%column_defs,
1297                                        'data'           => $form->{parts});
1298
1299   CVar->add_custom_variables_to_report('module'         => 'IC',
1300                                        'sub_module'     => sub { $_[0]->{ioi} },
1301                                        'trans_id_field' => 'ioi_id',
1302                                        'configs'        => $cvar_configs,
1303                                        'column_defs'    => \%column_defs,
1304                                        'data'           => $form->{parts});
1305
1306   my @subtotal_columns = qw(sellprice listprice lastcost);
1307   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1308   my %totals    = map { $_ => 0 } @subtotal_columns;
1309   my $idx       = 0;
1310   my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
1311
1312   my $defaults  = AM->get_defaults();
1313
1314   # postprocess parts
1315   foreach my $ref (@{ $form->{parts} }) {
1316
1317     # fresh row, for inserting later
1318     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1319
1320     $ref->{exchangerate} ||= 1;
1321     $ref->{price_factor} ||= 1;
1322     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1323     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1324     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1325
1326     # use this for assemblies
1327     my $soldtotal = $bsooqr_mode ? $ref->{soldtotal} : $ref->{onhand};
1328
1329     if ($ref->{assemblyitem}) {
1330       $row->{partnumber}{align}   = 'right';
1331       $row->{soldtotal}{data}     = 0;
1332       $soldtotal                  = 0 if ($form->{sold});
1333     }
1334
1335     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1336     $row->{partnumber}->{link}  = $edit_link;
1337     $row->{description}->{link} = $edit_link;
1338
1339     foreach (qw(sellprice listprice lastcost)) {
1340       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, 2);
1341       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1342     }
1343     foreach ( @pricegroup_columns ) {
1344       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
1345     };
1346
1347
1348     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1349
1350     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1351
1352     if (!$ref->{assemblyitem}) {
1353       foreach my $col (@subtotal_columns) {
1354         $totals{$col}    += $soldtotal * $ref->{$col};
1355         $subtotals{$col} += $soldtotal * $ref->{$col};
1356       }
1357
1358       $subtotals{soldtotal} += $soldtotal;
1359     }
1360
1361     # set module stuff
1362     if ($ref->{module} eq 'oe') {
1363       # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich:
1364       #
1365       # | ist bestellt  | Von Kunden bestellt |  -> edit_oe_ord_link
1366       # | Anfrage       | Angebot             |  -> edit_oe_quo_link
1367
1368       my $edit_oe_ord_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'purchase_order' : 'sales_order'), 'id=' . E($ref->{trans_id}), 'callback');
1369       my $edit_oe_quo_link = build_std_url("script=oe.pl", 'action=edit', 'type=' . E($ref->{cv} eq 'vendor' ? 'request_quotation' : 'sales_quotation'), 'id=' . E($ref->{trans_id}), 'callback');
1370
1371       $row->{ordnumber}{link} = $edit_oe_ord_link;
1372       $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber});
1373
1374     } else {
1375       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1376     }
1377
1378     # set properties of images
1379     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1380       $row->{image}{data}     = '';
1381       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1382     }
1383     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1384
1385     $report->add_data($row);
1386
1387     my $next_ref = $form->{parts}[$idx + 1];
1388
1389     # insert subtotal rows
1390     if (($form->{l_subtotal} eq 'Y') &&
1391         (!$next_ref ||
1392          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1393       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1394
1395       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1396         $row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
1397       }
1398
1399       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1400       map { $subtotals{$_} = 0 } ('soldtotal', @subtotal_columns);
1401
1402       $report->add_data($row);
1403
1404       $same_item = $next_ref->{ $form->{sort} };
1405     }
1406
1407     $idx++;
1408   }
1409
1410   if ($form->{"l_linetotal"} && !$form->{report_generator_csv_options_for_import}) {
1411     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1412
1413     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1414
1415     $report->add_separator();
1416     $report->add_data($row);
1417   }
1418
1419   $report->generate_with_headers();
1420
1421   $lxdebug->leave_sub();
1422 }    #end generate_report
1423
1424 sub parts_subtotal {
1425   $lxdebug->enter_sub();
1426
1427   $auth->assert('part_service_assembly_edit');
1428
1429   my (%column_data);
1430   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1431
1432   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1433   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1434
1435   $column_data{onhand} =
1436       "<th class=listsubtotal align=right>"
1437     . $form->format_amount(\%myconfig, $$subtotalonhand)
1438     . "</th>";
1439
1440   $column_data{linetotalsellprice} =
1441       "<th class=listsubtotal align=right>"
1442     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1443     . "</th>";
1444   $column_data{linetotallistprice} =
1445       "<th class=listsubtotal align=right>"
1446     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1447     . "</th>";
1448   $column_data{linetotallastcost} =
1449       "<th class=listsubtotal align=right>"
1450     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1451     . "</th>";
1452
1453   $$subtotalonhand    = 0;
1454   $$subtotalsellprice = 0;
1455   $$subtotallistprice = 0;
1456   $$subtotallastcost  = 0;
1457
1458   print "<tr class=listsubtotal>";
1459
1460   map { print "\n$column_data{$_}" } @{ $column_index };
1461
1462   print qq|
1463   </tr>
1464 |;
1465
1466   $lxdebug->leave_sub();
1467 }
1468
1469 sub edit {
1470   $lxdebug->enter_sub();
1471
1472   $auth->assert('part_service_assembly_details');
1473
1474   # show history button
1475   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1476   #/show hhistory button
1477   IC->get_part(\%myconfig, \%$form);
1478
1479   $form->{"original_partnumber"} = $form->{"partnumber"};
1480
1481   my $title      = 'Edit ' . ucfirst $form->{item};
1482   $form->{title} = $locale->text($title);
1483
1484   &link_part;
1485   &display_form;
1486
1487   $lxdebug->leave_sub();
1488 }
1489
1490 sub link_part {
1491   $lxdebug->enter_sub();
1492
1493   $auth->assert('part_service_assembly_details');
1494
1495   IC->create_links("IC", \%myconfig, \%$form);
1496
1497   # currencies
1498   map({ $form->{selectcurrency} .= "<option>$_\n" } $::form->get_all_currencies());
1499
1500   # parts and assemblies have the same links
1501   my $item = $form->{item};
1502   if ($form->{item} eq 'assembly') {
1503     $item = 'part';
1504   }
1505
1506   # build the popup menus
1507   $form->{taxaccounts} = "";
1508   foreach my $key (keys %{ $form->{IC_links} }) {
1509     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1510
1511       # if this is a tax field
1512       if ($key =~ /IC_tax/) {
1513         if ($key =~ /\Q$item\E/) {
1514           $form->{taxaccounts} .= "$ref->{accno} ";
1515           $form->{"IC_tax_$ref->{accno}_description"} =
1516             "$ref->{accno}--$ref->{description}";
1517
1518           if ($form->{id}) {
1519             if ($form->{amount}{ $ref->{accno} }) {
1520               $form->{"IC_tax_$ref->{accno}"} = "checked";
1521             }
1522           } else {
1523             $form->{"IC_tax_$ref->{accno}"} = "checked";
1524           }
1525         }
1526       } else {
1527
1528         $form->{"select$key"} .=
1529           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1530         if ($form->{amount}{$key} eq $ref->{accno}) {
1531           $form->{$key} = "$ref->{accno}--$ref->{description}";
1532         }
1533
1534       }
1535     }
1536   }
1537   chop $form->{taxaccounts};
1538
1539   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1540     $form->{selectIC_income}  = $form->{selectIC_sale};
1541     $form->{selectIC_expense} = $form->{selectIC_cogs};
1542     $form->{IC_income}        = $form->{IC_sale};
1543     $form->{IC_expense}       = $form->{IC_cogs};
1544   }
1545
1546   delete $form->{IC_links};
1547   delete $form->{amount};
1548
1549   $form->get_partsgroup(\%myconfig, { all => 1 });
1550
1551   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1552
1553   if (@{ $form->{all_partsgroup} }) {
1554     $form->{selectpartsgroup} = qq|<option>\n|;
1555     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1556   }
1557
1558   if ($form->{item} eq 'assembly') {
1559
1560     foreach my $i (1 .. $form->{assembly_rows}) {
1561       if ($form->{"partsgroup_id_$i"}) {
1562         $form->{"partsgroup_$i"} =
1563           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1564       }
1565     }
1566     $form->get_partsgroup(\%myconfig);
1567
1568     if (@{ $form->{all_partsgroup} }) {
1569       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1570
1571       map {
1572         $form->{selectassemblypartsgroup} .=
1573           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1574       } @{ $form->{all_partsgroup} };
1575     }
1576   }
1577   $lxdebug->leave_sub();
1578 }
1579
1580 sub form_header {
1581   $lxdebug->enter_sub();
1582
1583   $auth->assert('part_service_assembly_details');
1584
1585   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1586   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1587   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1588
1589   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1590   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1591
1592   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1593                    'partsgroup'    => 'all_partsgroup',
1594                    'vendors'       => 'ALL_VENDORS',
1595                    'warehouses'    => { 'key'    => 'WAREHOUSES',
1596                                         'bins'   => 'BINS', });
1597   # leerer wert für Lager und Lagerplatz korrekt einstellt
1598   # ID 0 sollte in Ordnung sein, da der Zähler sowieso höher ist
1599   my $no_default_bin_entry = { 'id' => '0', description => '--', 'BINS' => [ { id => '0', description => ''} ] };
1600   push @ { $form->{WAREHOUSES} }, $no_default_bin_entry;
1601   if (my $max = scalar @{ $form->{WAREHOUSES} }) {
1602     my ($default_warehouse_id, $default_bin_id);
1603     if ($form->{action} eq 'add') { # default only for new entries
1604       $default_warehouse_id = $::instance_conf->get_warehouse_id;
1605       $default_bin_id       = $::instance_conf->get_bin_id;
1606     }
1607     $form->{warehouse_id} ||= $default_warehouse_id || $form->{WAREHOUSES}->[$max -1]->{id};
1608     $form->{bin_id}       ||= $default_bin_id       ||  $form->{WAREHOUSES}->[$max -1]->{BINS}->[0]->{id};
1609   }
1610
1611   $form->{LANGUAGES}        = SL::DB::Manager::Language->get_all_sorted;
1612   $form->{translations_map} = { map { ($_->{language_id} => $_) } @{ $form->{translations} || [] } };
1613
1614   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1615   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1616
1617   if (($form->{partnumber} ne '') && !SL::TransNumber->new(number => $form->{partnumber}, type => $form->{item}, id => $form->{id})->is_unique) {
1618     flash('info', $::locale->text('This partnumber is not unique. You should change it.'));
1619   }
1620
1621   my $units = AM->retrieve_units(\%myconfig, $form);
1622   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1623
1624   $form->{defaults} = AM->get_defaults();
1625
1626   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1627
1628   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1629     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1630
1631   $form->header;
1632   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1633   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1634   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1635   #                                                     payment_terms     => $form->{payment_terms},
1636   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1637
1638   $form->{show_edit_buttons} = $main::auth->check_right($form->{login}, 'part_service_assembly_edit');
1639
1640   print $form->parse_html_template('ic/form_header');
1641   $lxdebug->leave_sub();
1642 }
1643
1644 sub form_footer {
1645   $lxdebug->enter_sub();
1646
1647   $auth->assert('part_service_assembly_details');
1648
1649   print $form->parse_html_template('ic/form_footer');
1650
1651   $lxdebug->leave_sub();
1652 }
1653
1654 sub makemodel_row {
1655   $lxdebug->enter_sub();
1656   my ($numrows) = @_;
1657   #hli
1658   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;
1659   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1660   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1661
1662   $lxdebug->leave_sub();
1663 }
1664
1665 sub assembly_row {
1666   $lxdebug->enter_sub();
1667   my ($numrows) = @_;
1668   my (@column_index);
1669   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1670
1671   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1672
1673   if ($form->{previousform}) {
1674     $nochange     = 1;
1675     @column_index = qw(qty unit bom partnumber description partsgroup total);
1676   } else {
1677
1678     # change callback
1679     $form->{old_callback} = $form->{callback};
1680     $callback             = $form->{callback};
1681     $form->{callback}     = "$form->{script}?action=display_form";
1682
1683     # delete action
1684     map { delete $form->{$_} } qw(action header);
1685
1686     # save form variables in a previousform variable
1687     my %form_to_save = map   { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1688                        keys %{ $form };
1689     $previousform    = $::auth->save_form_in_session(form => \%form_to_save);
1690
1691     $form->{callback} = $callback;
1692     $form->{assemblytotal} = 0;
1693     $form->{assembly_purchase_price_total} = 0;
1694     $form->{weight}        = 0;
1695   }
1696
1697   my %header = (
1698    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%',  align => 'left',},
1699    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%', align => 'left',},
1700    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%',  align => 'left',},
1701    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%', align => 'left',},
1702    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%', align => 'left',},
1703    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%', align => 'right',},
1704    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                 align => 'right',},
1705    bom           => { text =>  $locale->text('BOM'),                                           align => 'center',},
1706    partsgroup    => { text =>  $locale->text('Group'),                                         align => 'left',},
1707   );
1708
1709   my @ROWS;
1710
1711   for my $i (1 .. $numrows) {
1712     my (%row, @row_hiddens);
1713
1714     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1715
1716     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1717     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1718     $form->{assemblytotal}                  += $linetotal;
1719     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1720     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1721     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1722     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1723     $href                = build_std_url("action=edit", qq|id=$form->{"id_$i"}|, "rowcount=$numrows", "currow=$i", "previousform=$previousform");
1724     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1725
1726     # last row
1727     if (($i >= 1) && ($i == $numrows)) {
1728       if (!$form->{previousform}) {
1729         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1730         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1731         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1732         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1733       }
1734     # other rows
1735     } else {
1736       if ($form->{previousform}) {
1737         push @row_hiddens,          qw(qty bom);
1738         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1739         $row{qty}{data}           = $form->{"qty_$i"};
1740         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1741         $row{qty}{align}          = 'right';
1742       } else {
1743         $row{partnumber}{data}    = qq|$form->{"partnumber_$i"}|;
1744         $row{partnumber}{link}     = $href;
1745         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1746         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1747         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1748                                        $form->{"bom_$i"} ? 'checked' : '';
1749       }
1750       push @row_hiddens,        qw(unit description partnumber partsgroup);
1751       $row{unit}{data}        = $form->{"unit_$i"};
1752       #Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
1753       #werden, die den HTML Code stören. Daher sollen diese im Template escaped werden
1754       #dies geschieht, wenn die Variable escape gesetzt ist
1755       $row{description}{data}   = $form->{"description_$i"};
1756       $row{description}{escape} = 1;
1757       $row{partsgroup}{data}    = $form->{"partsgroup_$i"};
1758       $row{partsgroup}{escape}  = 1;
1759       $row{bom}{align}          = 'center';
1760     }
1761
1762     $row{lastcost}{data}      = $line_purchase_price;
1763     $row{total}{data}         = $linetotal;
1764     $row{lastcost}{align}     = 'right';
1765     $row{total}{align}        = 'right';
1766     $row{deliverydate}{align} = 'right';
1767
1768     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1769     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1770
1771     push @ROWS, \%row;
1772   }
1773
1774   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1775
1776   $lxdebug->leave_sub();
1777 }
1778
1779 sub update {
1780   $lxdebug->enter_sub();
1781
1782   $auth->assert('part_service_assembly_edit');
1783
1784   # parse pricegroups. and no, don't rely on check_form for this...
1785   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1786   $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(sellprice listprice ve gv);
1787
1788   if ($form->{item} eq 'part') {
1789     $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(weight rop);
1790   }
1791
1792   # same for makemodel lastcosts
1793   # but parse_amount not necessary for assembly component lastcosts
1794   unless ($form->{item} eq "assembly") {
1795     map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1796     $form->{lastcost} = $form->parse_amount(\%myconfig, $form->{lastcost});
1797   }
1798
1799   if ($form->{item} eq "assembly") {
1800     my $i = $form->{assembly_rows};
1801
1802     # if last row is empty check the form otherwise retrieve item
1803     if (   ($form->{"partnumber_$i"} eq "")
1804         && ($form->{"description_$i"} eq "")
1805         && ($form->{"partsgroup_$i"}  eq "")) {
1806
1807       &check_form;
1808
1809     } else {
1810
1811       IC->assembly_item(\%myconfig, \%$form);
1812
1813       my $rows = scalar @{ $form->{item_list} };
1814
1815       if ($rows) {
1816         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1817
1818         if ($rows > 1) {
1819           $form->{makemodel_rows}--;
1820           select_item(mode => 'IC');
1821           ::end_of_request();
1822         } else {
1823           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1824             qw(partnumber description unit partsgroup);
1825           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1826             keys %{ $form->{item_list}[0] };
1827           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1828           $form->{assembly_rows}++;
1829
1830           &check_form;
1831
1832         }
1833
1834       } else {
1835
1836         $form->{rowcount} = $i;
1837         $form->{assembly_rows}++;
1838
1839         &new_item;
1840
1841       }
1842     }
1843
1844   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1845     &check_form;
1846   }
1847
1848   $lxdebug->leave_sub();
1849 }
1850
1851 sub save {
1852   $lxdebug->enter_sub();
1853
1854   $auth->assert('part_service_assembly_edit');
1855
1856   my ($parts_id, %newform, $amount, $callback);
1857
1858   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1859   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1860
1861   # check if there is a description
1862   $form->isblank("description", $locale->text("Part Description missing!"));
1863
1864   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1865     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1866
1867   if (!$form->{buchungsgruppen_id}) {
1868     $form->error($locale->text("Parts must have an entry type.") . " " .
1869      $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.")
1870     );
1871   }
1872
1873   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1874   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1875
1876   # undef warehouse_id if the empty value is selected
1877   if ( ($form->{warehouse_id} == 0) && ($form->{bin_id} == 0) ) {
1878     undef $form->{warehouse_id};
1879     undef $form->{bin_id};
1880   }
1881   # save part
1882   if (IC->save(\%myconfig, \%$form) == 3) {
1883     $form->error($locale->text('Partnumber not unique!'));
1884   }
1885   # saving the history
1886   if(!exists $form->{addition}) {
1887     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1888     $form->{addition} = "SAVED";
1889     $form->save_history;
1890   }
1891   # /saving the history
1892   $parts_id = $form->{id};
1893
1894   my $i;
1895   # load previous variables
1896   if ($form->{previousform}) {
1897
1898     # save the new form variables before splitting previousform
1899     map { $newform{$_} = $form->{$_} } keys %$form;
1900
1901     # don't trample on previous variables
1902     map { delete $form->{$_} } keys %newform;
1903
1904     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1905     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1906
1907     # restore original values
1908     $::auth->restore_form_from_session($newform{previousform}, form => $form);
1909     $form->{taxaccounts} = $newform{taxaccount2};
1910
1911     if ($form->{item} eq 'assembly') {
1912
1913       # undo number formatting
1914       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1915         qw(weight listprice sellprice rop);
1916
1917       $form->{assembly_rows}--;
1918       if ($newform{currow}) {
1919         $i = $newform{currow};
1920       } else {
1921         $i = $form->{assembly_rows};
1922       }
1923       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"} > 0);
1924
1925       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1926       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1927
1928       # change/add values for assembly item
1929       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1930       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1931
1932       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1933       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1934       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1935
1936     } else {
1937
1938       # set values for last invoice/order item
1939       $i = $form->{rowcount};
1940       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"} > 0);
1941
1942       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1943       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1944
1945       $form->{"longdescription_$i"} = $newform{notes};
1946
1947       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1948
1949       if ($form->{exchangerate} != 0) {
1950         $form->{"sellprice_$i"} /= $form->{exchangerate};
1951       }
1952
1953       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1954       chop $form->{"taxaccounts_$i"};
1955       foreach my $item (qw(description rate taxnumber)) {
1956         my $index = $form->{"taxaccounts_$i"} . "_$item";
1957         $form->{$index} = $newform{$index};
1958       }
1959
1960       # credit remaining calculation
1961       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1962
1963       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1964       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1965
1966       $form->{creditremaining} -= $amount;
1967
1968       # redo number formatting, because invoice parse them!
1969       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1970     }
1971
1972     $form->{"id_$i"} = $parts_id;
1973
1974     # Get the actual price factor (not just the ID) for the marge calculation.
1975     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1976     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1977       next if ($pfac->{id} != $newform{price_factor_id});
1978       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1979       last;
1980     }
1981     delete $form->{ALL_PRICE_FACTORS};
1982
1983     delete $form->{action};
1984
1985     # restore original callback
1986     $callback = $form->unescape($form->{callback});
1987     $form->{callback} = $form->unescape($form->{old_callback});
1988     delete $form->{old_callback};
1989
1990     $form->{makemodel_rows}--;
1991
1992     # put callback together
1993     foreach my $key (keys %$form) {
1994
1995       # do single escape for Apache 2.0
1996       my $value = $form->escape($form->{$key}, 1);
1997       $callback .= qq|&$key=$value|;
1998     }
1999     $form->{callback} = $callback;
2000   }
2001
2002   # redirect
2003   $form->redirect;
2004
2005   $lxdebug->leave_sub();
2006 }
2007
2008 sub save_as_new {
2009   $lxdebug->enter_sub();
2010
2011   $auth->assert('part_service_assembly_edit');
2012
2013   # saving the history
2014   if(!exists $form->{addition}) {
2015     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2016     $form->{addition} = "SAVED AS NEW";
2017     $form->save_history;
2018   }
2019   # /saving the history
2020   $form->{id} = 0;
2021   if ($form->{"original_partnumber"} &&
2022       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
2023     $form->{partnumber} = "";
2024   }
2025   &save;
2026   $lxdebug->leave_sub();
2027 }
2028
2029 sub delete {
2030   $lxdebug->enter_sub();
2031
2032   $auth->assert('part_service_assembly_edit');
2033
2034   # saving the history
2035   if(!exists $form->{addition}) {
2036     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2037     $form->{addition} = "DELETED";
2038     $form->save_history;
2039   }
2040   # /saving the history
2041   my $rc = IC->delete(\%myconfig, \%$form);
2042
2043   # redirect
2044   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2045   $form->error($locale->text('Cannot delete item!'));
2046
2047   $lxdebug->leave_sub();
2048 }
2049
2050 sub price_row {
2051   $lxdebug->enter_sub();
2052
2053   $auth->assert('part_service_assembly_details');
2054
2055   my ($numrows) = @_;
2056
2057   my @PRICES = map +{
2058     pricegroup    => $form->{"pricegroup_$_"},
2059     pricegroup_id => $form->{"pricegroup_id_$_"},
2060     price         => $form->{"price_$_"},
2061   }, 1 .. $numrows;
2062
2063   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2064
2065   $lxdebug->leave_sub();
2066 }
2067
2068 sub ajax_autocomplete {
2069   $main::lxdebug->enter_sub();
2070
2071   my $form     = $main::form;
2072   my %myconfig = %main::myconfig;
2073
2074   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2075   $form->{$form->{column}} = $form->{q}           || '';
2076   $form->{limit}           = ($form->{limit} * 1) || 10;
2077   $form->{searchitems}   ||= '';
2078
2079   my @results = IC->all_parts(\%myconfig, $form);
2080
2081   print $form->ajax_response_header(),
2082         $form->parse_html_template('ic/ajax_autocomplete');
2083
2084   $main::lxdebug->leave_sub();
2085 }
2086
2087 sub back_to_record {
2088   _check_io_auth();
2089
2090
2091   delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2092
2093   $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2094   $::form->{rowcount}--;
2095   $::form->{action}   = 'display_form';
2096   $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2097   $::form->redirect;
2098 }
2099
2100 sub continue { call_sub($form->{"nextsub"}); }
2101
2102 sub dispatcher {
2103   my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2104   $::form->error($::locale->text('No action defined.')) unless $action;
2105
2106   $::form->{dispatched_action} = $action;
2107   call_sub($action);
2108 }