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
1612   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1613   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1614
1615   if (($form->{partnumber} ne '') && !SL::TransNumber->new(number => $form->{partnumber}, type => $form->{item}, id => $form->{id})->is_unique) {
1616     flash('info', $::locale->text('This partnumber is not unique. You should change it.'));
1617   }
1618
1619   my $units = AM->retrieve_units(\%myconfig, $form);
1620   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1621
1622   $form->{defaults} = AM->get_defaults();
1623
1624   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1625
1626   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1627     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1628
1629   $form->header;
1630   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1631   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1632   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1633   #                                                     payment_terms     => $form->{payment_terms},
1634   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1635
1636   $form->{show_edit_buttons} = $main::auth->check_right($form->{login}, 'part_service_assembly_edit');
1637
1638   print $form->parse_html_template('ic/form_header');
1639   $lxdebug->leave_sub();
1640 }
1641
1642 sub form_footer {
1643   $lxdebug->enter_sub();
1644
1645   $auth->assert('part_service_assembly_details');
1646
1647   print $form->parse_html_template('ic/form_footer');
1648
1649   $lxdebug->leave_sub();
1650 }
1651
1652 sub makemodel_row {
1653   $lxdebug->enter_sub();
1654   my ($numrows) = @_;
1655   #hli
1656   my @mm_data = grep { any { $_ ne '' } @$_{qw(make model)} } map +{ make => $form->{"make_$_"}, model => $form->{"model_$_"}, lastcost => $form->{"lastcost_$_"}, lastupdate => $form->{"lastupdate_$_"}, sortorder => $form->{"sortorder_$_"} }, 1 .. $numrows;
1657   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1658   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1659
1660   $lxdebug->leave_sub();
1661 }
1662
1663 sub assembly_row {
1664   $lxdebug->enter_sub();
1665   my ($numrows) = @_;
1666   my (@column_index);
1667   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1668
1669   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1670
1671   if ($form->{previousform}) {
1672     $nochange     = 1;
1673     @column_index = qw(qty unit bom partnumber description partsgroup total);
1674   } else {
1675
1676     # change callback
1677     $form->{old_callback} = $form->{callback};
1678     $callback             = $form->{callback};
1679     $form->{callback}     = "$form->{script}?action=display_form";
1680
1681     # delete action
1682     map { delete $form->{$_} } qw(action header);
1683
1684     # save form variables in a previousform variable
1685     my %form_to_save = map   { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1686                        keys %{ $form };
1687     $previousform    = $::auth->save_form_in_session(form => \%form_to_save);
1688
1689     $form->{callback} = $callback;
1690     $form->{assemblytotal} = 0;
1691     $form->{assembly_purchase_price_total} = 0;
1692     $form->{weight}        = 0;
1693   }
1694
1695   my %header = (
1696    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%',  align => 'left',},
1697    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%', align => 'left',},
1698    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%',  align => 'left',},
1699    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%', align => 'left',},
1700    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%', align => 'left',},
1701    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%', align => 'right',},
1702    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                 align => 'right',},
1703    bom           => { text =>  $locale->text('BOM'),                                           align => 'center',},
1704    partsgroup    => { text =>  $locale->text('Group'),                                         align => 'left',},
1705   );
1706
1707   my @ROWS;
1708
1709   for my $i (1 .. $numrows) {
1710     my (%row, @row_hiddens);
1711
1712     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1713
1714     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1715     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1716     $form->{assemblytotal}                  += $linetotal;
1717     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1718     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1719     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1720     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1721     $href                = build_std_url("action=edit", qq|id=$form->{"id_$i"}|, "rowcount=$numrows", "currow=$i", "previousform=$previousform");
1722     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1723
1724     # last row
1725     if (($i >= 1) && ($i == $numrows)) {
1726       if (!$form->{previousform}) {
1727         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1728         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1729         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1730         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1731       }
1732     # other rows
1733     } else {
1734       if ($form->{previousform}) {
1735         push @row_hiddens,          qw(qty bom);
1736         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1737         $row{qty}{data}           = $form->{"qty_$i"};
1738         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1739         $row{qty}{align}          = 'right';
1740       } else {
1741         $row{partnumber}{data}    = qq|$form->{"partnumber_$i"}|;
1742         $row{partnumber}{link}     = $href;
1743         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1744         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1745         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1746                                        $form->{"bom_$i"} ? 'checked' : '';
1747       }
1748       push @row_hiddens,        qw(unit description partnumber partsgroup);
1749       $row{unit}{data}        = $form->{"unit_$i"};
1750       #Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
1751       #werden, die den HTML Code stören. Daher sollen diese im Template escaped werden
1752       #dies geschieht, wenn die Variable escape gesetzt ist
1753       $row{description}{data}   = $form->{"description_$i"};
1754       $row{description}{escape} = 1;
1755       $row{partsgroup}{data}    = $form->{"partsgroup_$i"};
1756       $row{partsgroup}{escape}  = 1;
1757       $row{bom}{align}          = 'center';
1758     }
1759
1760     $row{lastcost}{data}      = $line_purchase_price;
1761     $row{total}{data}         = $linetotal;
1762     $row{lastcost}{align}     = 'right';
1763     $row{total}{align}        = 'right';
1764     $row{deliverydate}{align} = 'right';
1765
1766     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1767     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1768
1769     push @ROWS, \%row;
1770   }
1771
1772   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1773
1774   $lxdebug->leave_sub();
1775 }
1776
1777 sub update {
1778   $lxdebug->enter_sub();
1779
1780   $auth->assert('part_service_assembly_edit');
1781
1782   # parse pricegroups. and no, don't rely on check_form for this...
1783   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1784   $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(sellprice listprice ve gv);
1785
1786   if ($form->{item} eq 'part') {
1787     $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) for qw(weight rop);
1788   }
1789
1790   # same for makemodel lastcosts
1791   # but parse_amount not necessary for assembly component lastcosts
1792   unless ($form->{item} eq "assembly") {
1793     map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1794     $form->{lastcost} = $form->parse_amount(\%myconfig, $form->{lastcost});
1795   }
1796
1797   if ($form->{item} eq "assembly") {
1798     my $i = $form->{assembly_rows};
1799
1800     # if last row is empty check the form otherwise retrieve item
1801     if (   ($form->{"partnumber_$i"} eq "")
1802         && ($form->{"description_$i"} eq "")
1803         && ($form->{"partsgroup_$i"}  eq "")) {
1804
1805       &check_form;
1806
1807     } else {
1808
1809       IC->assembly_item(\%myconfig, \%$form);
1810
1811       my $rows = scalar @{ $form->{item_list} };
1812
1813       if ($rows) {
1814         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1815
1816         if ($rows > 1) {
1817           $form->{makemodel_rows}--;
1818           select_item(mode => 'IC');
1819           ::end_of_request();
1820         } else {
1821           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1822             qw(partnumber description unit partsgroup);
1823           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1824             keys %{ $form->{item_list}[0] };
1825           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1826           $form->{assembly_rows}++;
1827
1828           &check_form;
1829
1830         }
1831
1832       } else {
1833
1834         $form->{rowcount} = $i;
1835         $form->{assembly_rows}++;
1836
1837         &new_item;
1838
1839       }
1840     }
1841
1842   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1843     &check_form;
1844   }
1845
1846   $lxdebug->leave_sub();
1847 }
1848
1849 sub save {
1850   $lxdebug->enter_sub();
1851
1852   $auth->assert('part_service_assembly_edit');
1853
1854   my ($parts_id, %newform, $amount, $callback);
1855
1856   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1857   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1858
1859   # check if there is a description
1860   $form->isblank("description", $locale->text("Part Description missing!"));
1861
1862   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1863     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1864
1865   if (!$form->{buchungsgruppen_id}) {
1866     $form->error($locale->text("Parts must have an entry type.") . " " .
1867      $locale->text("If you see this message, you most likely just setup your LX-Office and haven't added any entry types. If this is the case, the option is accessible for administrators in the System menu.")
1868     );
1869   }
1870
1871   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1872   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1873
1874   # undef warehouse_id if the empty value is selected
1875   if ( ($form->{warehouse_id} == 0) && ($form->{bin_id} == 0) ) {
1876     undef $form->{warehouse_id};
1877     undef $form->{bin_id};
1878   }
1879   # save part
1880   if (IC->save(\%myconfig, \%$form) == 3) {
1881     $form->error($locale->text('Partnumber not unique!'));
1882   }
1883   # saving the history
1884   if(!exists $form->{addition}) {
1885     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1886     $form->{addition} = "SAVED";
1887     $form->save_history;
1888   }
1889   # /saving the history
1890   $parts_id = $form->{id};
1891
1892   my $i;
1893   # load previous variables
1894   if ($form->{previousform}) {
1895
1896     # save the new form variables before splitting previousform
1897     map { $newform{$_} = $form->{$_} } keys %$form;
1898
1899     # don't trample on previous variables
1900     map { delete $form->{$_} } keys %newform;
1901
1902     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1903     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1904
1905     # restore original values
1906     $::auth->restore_form_from_session($newform{previousform}, form => $form);
1907     $form->{taxaccounts} = $newform{taxaccount2};
1908
1909     if ($form->{item} eq 'assembly') {
1910
1911       # undo number formatting
1912       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1913         qw(weight listprice sellprice rop);
1914
1915       $form->{assembly_rows}--;
1916       if ($newform{currow}) {
1917         $i = $newform{currow};
1918       } else {
1919         $i = $form->{assembly_rows};
1920       }
1921       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1922
1923       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1924       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1925
1926       # change/add values for assembly item
1927       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1928       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1929
1930       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1931       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1932       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1933
1934     } else {
1935
1936       # set values for last invoice/order item
1937       $i = $form->{rowcount};
1938       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1939
1940       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1941       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1942
1943       $form->{"longdescription_$i"} = $newform{notes};
1944
1945       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1946
1947       if ($form->{exchangerate} != 0) {
1948         $form->{"sellprice_$i"} /= $form->{exchangerate};
1949       }
1950
1951       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1952       chop $form->{"taxaccounts_$i"};
1953       foreach my $item (qw(description rate taxnumber)) {
1954         my $index = $form->{"taxaccounts_$i"} . "_$item";
1955         $form->{$index} = $newform{$index};
1956       }
1957
1958       # credit remaining calculation
1959       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1960
1961       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1962       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1963
1964       $form->{creditremaining} -= $amount;
1965
1966       # redo number formatting, because invoice parse them!
1967       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1968     }
1969
1970     $form->{"id_$i"} = $parts_id;
1971
1972     # Get the actual price factor (not just the ID) for the marge calculation.
1973     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1974     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1975       next if ($pfac->{id} != $newform{price_factor_id});
1976       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1977       last;
1978     }
1979     delete $form->{ALL_PRICE_FACTORS};
1980
1981     delete $form->{action};
1982
1983     # restore original callback
1984     $callback = $form->unescape($form->{callback});
1985     $form->{callback} = $form->unescape($form->{old_callback});
1986     delete $form->{old_callback};
1987
1988     $form->{makemodel_rows}--;
1989
1990     # put callback together
1991     foreach my $key (keys %$form) {
1992
1993       # do single escape for Apache 2.0
1994       my $value = $form->escape($form->{$key}, 1);
1995       $callback .= qq|&$key=$value|;
1996     }
1997     $form->{callback} = $callback;
1998   }
1999
2000   # redirect
2001   $form->redirect;
2002
2003   $lxdebug->leave_sub();
2004 }
2005
2006 sub save_as_new {
2007   $lxdebug->enter_sub();
2008
2009   $auth->assert('part_service_assembly_edit');
2010
2011   # saving the history
2012   if(!exists $form->{addition}) {
2013     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2014     $form->{addition} = "SAVED AS NEW";
2015     $form->save_history;
2016   }
2017   # /saving the history
2018   $form->{id} = 0;
2019   if ($form->{"original_partnumber"} &&
2020       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
2021     $form->{partnumber} = "";
2022   }
2023   &save;
2024   $lxdebug->leave_sub();
2025 }
2026
2027 sub delete {
2028   $lxdebug->enter_sub();
2029
2030   $auth->assert('part_service_assembly_edit');
2031
2032   # saving the history
2033   if(!exists $form->{addition}) {
2034     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
2035     $form->{addition} = "DELETED";
2036     $form->save_history;
2037   }
2038   # /saving the history
2039   my $rc = IC->delete(\%myconfig, \%$form);
2040
2041   # redirect
2042   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2043   $form->error($locale->text('Cannot delete item!'));
2044
2045   $lxdebug->leave_sub();
2046 }
2047
2048 sub price_row {
2049   $lxdebug->enter_sub();
2050
2051   $auth->assert('part_service_assembly_details');
2052
2053   my ($numrows) = @_;
2054
2055   my @PRICES = map +{
2056     pricegroup    => $form->{"pricegroup_$_"},
2057     pricegroup_id => $form->{"pricegroup_id_$_"},
2058     price         => $form->{"price_$_"},
2059   }, 1 .. $numrows;
2060
2061   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2062
2063   $lxdebug->leave_sub();
2064 }
2065
2066 sub parts_language_selection {
2067   $lxdebug->enter_sub();
2068
2069   $auth->assert('part_service_assembly_edit');
2070
2071   my $languages = IC->retrieve_languages(\%myconfig, $form);
2072
2073   if ($form->{language_values} ne "") {
2074     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
2075       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
2076
2077       foreach my $language (@{ $languages }) {
2078         next unless ($language->{id} == $language_id);
2079
2080         $language->{translation}     = $translation;
2081         $language->{longdescription} = $longdescription;
2082
2083         $language->{translation_area}     = ($language->{translation_rows} = $form->numtextrows($language->{translation}, 40)) > 1;
2084         $language->{longdescription_rows} = max 4, $form->numtextrows($language->{longdescription}, 40);
2085
2086         last;
2087       }
2088     }
2089   }
2090
2091   my @header_sort = qw(name longdescription);
2092   my %header_title = ( "name" => $locale->text("Name"),
2093                        "longdescription" => $locale->text("Long Description"),
2094                        );
2095
2096   my @header =
2097     map(+{ "column_title" => $header_title{$_},
2098            "column" => $_,
2099          },
2100         @header_sort);
2101
2102   $form->{"title"} = $locale->text("Language Values");
2103   $form->header();
2104   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2105                                                                     "LANGUAGES" => $languages, });
2106
2107   $lxdebug->leave_sub();
2108 }
2109
2110 sub ajax_autocomplete {
2111   $main::lxdebug->enter_sub();
2112
2113   my $form     = $main::form;
2114   my %myconfig = %main::myconfig;
2115
2116   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2117   $form->{$form->{column}} = $form->{q}           || '';
2118   $form->{limit}           = ($form->{limit} * 1) || 10;
2119   $form->{searchitems}   ||= '';
2120
2121   my @results = IC->all_parts(\%myconfig, $form);
2122
2123   print $form->ajax_response_header(),
2124         $form->parse_html_template('ic/ajax_autocomplete');
2125
2126   $main::lxdebug->leave_sub();
2127 }
2128
2129 sub back_to_record {
2130   _check_io_auth();
2131
2132
2133   delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2134
2135   $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2136   $::form->{rowcount}--;
2137   $::form->{action}   = 'display_form';
2138   $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2139   $::form->redirect;
2140 }
2141
2142 sub continue { call_sub($form->{"nextsub"}); }
2143
2144 sub dispatcher {
2145   my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2146   $::form->error($::locale->text('No action defined.')) unless $action;
2147
2148   $::form->{dispatched_action} = $action;
2149   call_sub($action);
2150 }