bin/mozilla/ic.pl

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