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 l_pricegroups
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     'projectnumber'      => { 'text' => $locale->text('Project Number'), },
1060     'projectdescription' => { 'text' => $locale->text('Project Description'), },
1061   );
1062
1063   $revers     = $form->{revers};
1064   $lastsort   = $form->{lastsort};
1065
1066   # sorting and direction of sorting
1067   # ToDO: change this to the simpler field+direction method
1068   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1069     $form->{revers}   = 0;
1070     $form->{lastsort} = "partnumber";
1071     $form->{sort}     = "partnumber";
1072   } else {
1073     if ($form->{lastsort} eq $form->{sort}) {
1074       $form->{revers} = 1 - $form->{revers};
1075     } else {
1076       $form->{revers} = 0;
1077       $form->{lastsort} = $form->{sort};
1078     }    #fi
1079   }    #fi
1080
1081   # special case if we have a serialnumber limit search
1082   # serialnumbers are only given in invoices and orders,
1083   # so they can only pop up in bought, sold, rfq, and quoted stuff
1084   $form->{no_sn_joins} = 'Y' if (   !$form->{bought} && !$form->{sold}
1085                                  && !$form->{rfq}    && !$form->{quoted}
1086                                  && ($form->{l_serialnumber} || $form->{serialnumber}));
1087
1088   # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1089   # if any of these are ticked the behavior changes slightly for lastcost
1090   # since all those are aggregation checks for the legder tables this is an internal switch
1091   # refered to as ledgerchecks
1092   $form->{ledgerchecks} = 'Y' if (   $form->{bought} || $form->{sold} || $form->{onorder}
1093                                   || $form->{ordered} || $form->{rfq} || $form->{quoted});
1094
1095   # if something should be activated if something else is active, enter it here
1096   my %dependencies = (
1097     onhand       => [ qw(l_onhand) ],
1098     short        => [ qw(l_onhand) ],
1099     onorder      => [ qw(l_ordnumber) ],
1100     ordered      => [ qw(l_ordnumber) ],
1101     rfq          => [ qw(l_quonumber) ],
1102     quoted       => [ qw(l_quonumber) ],
1103     bought       => [ qw(l_invnumber) ],
1104     sold         => [ qw(l_invnumber) ],
1105     ledgerchecks => [ qw(l_name) ],
1106     serialnumber => [ qw(l_serialnumber) ],
1107     no_sn_joins  => [ qw(bought sold) ],
1108   );
1109
1110   # get name of partsgroup if id is given
1111   my $pg_name;
1112   if ($form->{partsgroup_id}) {
1113     my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load;
1114     $pg_name = $pg->{'partsgroup'};
1115   }
1116
1117   # these strings get displayed at the top of the results to indicate the user which switches were used
1118   my %optiontexts = (
1119     active        => $locale->text('Active'),
1120     obsolete      => $locale->text('Obsolete'),
1121     orphaned      => $locale->text('Orphaned'),
1122     onhand        => $locale->text('On Hand'),
1123     short         => $locale->text('Short'),
1124     onorder       => $locale->text('On Order'),
1125     ordered       => $locale->text('Ordered'),
1126     rfq           => $locale->text('RFQ'),
1127     quoted        => $locale->text('Quoted'),
1128     bought        => $locale->text('Bought'),
1129     sold          => $locale->text('Sold'),
1130     transdatefrom => $locale->text('From')       . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1131     transdateto   => $locale->text('To (time)')  . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1132     partnumber    => $locale->text('Part Number')      . ": '$form->{partnumber}'",
1133     partsgroup    => $locale->text('Group')            . ": '$form->{partsgroup}'",
1134     partsgroup_id => $locale->text('Group')            . ": '$pg_name'",
1135     serialnumber  => $locale->text('Serial Number')    . ": '$form->{serialnumber}'",
1136     description   => $locale->text('Part Description') . ": '$form->{description}'",
1137     make          => $locale->text('Make')             . ": '$form->{make}'",
1138     model         => $locale->text('Model')            . ": '$form->{model}'",
1139     drawing       => $locale->text('Drawing')          . ": '$form->{drawing}'",
1140     microfiche    => $locale->text('Microfiche')       . ": '$form->{microfiche}'",
1141     l_soldtotal   => $locale->text('Qty in Selected Records'),
1142     ean           => $locale->text('EAN')              . ": '$form->{ean}'",
1143   );
1144
1145   my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1146   my @callback_keys   = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model
1147                            drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1148
1149   # calculate dependencies
1150   for (@itemstatus_keys, @callback_keys) {
1151     next if ($form->{itemstatus} ne $_ && !$form->{$_});
1152     map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1153   }
1154
1155   # generate callback and optionstrings
1156   my @options;
1157   for my  $key (@itemstatus_keys, @callback_keys) {
1158     next if ($form->{itemstatus} ne $key && !$form->{$key});
1159     push @options, $optiontexts{$key};
1160   }
1161
1162   # special case for lastcost
1163   if ($form->{ledgerchecks}){
1164     # ledgerchecks don't know about sellprice or lastcost. they just return a
1165     # price. so rename sellprice to price, and drop lastcost.
1166     $column_defs{sellprice}{text} = $locale->text('Price');
1167     $form->{l_lastcost} = ""
1168   }
1169
1170   if ($form->{description}) {
1171     $description = $form->{description};
1172     $description =~ s/\n/<br>/g;
1173   }
1174
1175   if ($form->{l_linetotal}) {
1176     $form->{l_qty} = "Y";
1177     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1178     $form->{l_linetotallastcost}  = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if  $form->{l_lastcost};
1179     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1180   }
1181
1182   if ($form->{searchitems} eq 'service') {
1183
1184     # remove bin, weight and rop from list
1185     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1186
1187     $form->{l_onhand} = "";
1188
1189     # qty is irrelevant unless bought or sold
1190     if (   $form->{bought}
1191         || $form->{sold}
1192         || $form->{onorder}
1193         || $form->{ordered}
1194         || $form->{rfq}
1195         || $form->{quoted}) {
1196 #      $form->{l_onhand} = "Y";
1197     } else {
1198       $form->{l_linetotalsellprice} = "";
1199       $form->{l_linetotallastcost}  = "";
1200     }
1201   }
1202
1203   # soldtotal doesn't make sense with more than one bsooqr option.
1204   # so reset it to sold (the most common option), and issue a warning
1205   my @bsooqr = qw(sold bought onorder ordered rfq quoted);
1206   if ($form->{l_subtotal} && 1 < grep { $form->{$_} } @bsooqr) {
1207     my $enabled       = first { $form->{$_} } @bsooqr;
1208     $form->{$_}       = ''   for @bsooqr;
1209     $form->{$enabled} = 'Y';
1210
1211     push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});
1212   }
1213
1214   IC->all_parts(\%myconfig, \%$form);
1215
1216   my @columns = qw(
1217     partnumber description 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 = (qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), @itemstatus_keys, @callback_keys,
1248                               map({ "cvar_$_->{name}" } @searchable_custom_variables), map { "l_$_" } @columns);
1249
1250   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1251
1252   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1253   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1254
1255   foreach my $col (@sort_full) {
1256     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1257   }
1258   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1259
1260   # add order to callback
1261   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1262
1263   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1264
1265   my %attachment_basenames = (
1266     'part'     => $locale->text('part_list'),
1267     'service'  => $locale->text('service_list'),
1268     'assembly' => $locale->text('assembly_list'),
1269   );
1270
1271   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1272                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1273                        'output_format'         => 'HTML',
1274                        'title'                 => $form->{title},
1275                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1276   );
1277   $report->set_options_from_form();
1278   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1279
1280   $report->set_columns(%column_defs);
1281   $report->set_column_order(@columns);
1282
1283   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1284
1285   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1286
1287   CVar->add_custom_variables_to_report('module'         => 'IC',
1288                                        'trans_id_field' => 'id',
1289                                        'configs'        => $cvar_configs,
1290                                        'column_defs'    => \%column_defs,
1291                                        'data'           => $form->{parts});
1292
1293   CVar->add_custom_variables_to_report('module'         => 'IC',
1294                                        'sub_module'     => sub { $_[0]->{ioi} },
1295                                        'trans_id_field' => 'ioi_id',
1296                                        'configs'        => $cvar_configs,
1297                                        'column_defs'    => \%column_defs,
1298                                        'data'           => $form->{parts});
1299
1300   my @subtotal_columns = qw(sellprice listprice lastcost);
1301   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1302   my %totals    = map { $_ => 0 } @subtotal_columns;
1303   my $idx       = 0;
1304   my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
1305
1306   my $defaults  = AM->get_defaults();
1307
1308   # postprocess parts
1309   foreach my $ref (@{ $form->{parts} }) {
1310
1311     # fresh row, for inserting later
1312     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1313
1314     $ref->{exchangerate} ||= 1;
1315     $ref->{price_factor} ||= 1;
1316     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1317     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1318     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1319
1320     # use this for assemblies
1321     my $soldtotal = $ref->{soldtotal};
1322
1323     if ($ref->{assemblyitem}) {
1324       $row->{partnumber}{align}   = 'right';
1325       $row->{soldtotal}{data}     = 0;
1326       $soldtotal                  = 0 if ($form->{sold});
1327     }
1328
1329     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1330     $row->{partnumber}->{link}  = $edit_link;
1331     $row->{description}->{link} = $edit_link;
1332
1333     foreach (qw(sellprice listprice lastcost)) {
1334       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
1335       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1336     }
1337     foreach ( @pricegroup_columns ) {
1338       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, -2);
1339     };
1340
1341
1342     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1343
1344     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1345
1346     if (!$ref->{assemblyitem}) {
1347       foreach my $col (@subtotal_columns) {
1348         $totals{$col}    += $soldtotal * $ref->{$col};
1349         $subtotals{$col} += $soldtotal * $ref->{$col};
1350       }
1351
1352       $subtotals{soldtotal} += $soldtotal;
1353     }
1354
1355     # set module stuff
1356     if ($ref->{module} eq 'oe') {
1357       # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich:
1358       #
1359       # | ist bestellt  | Vom Kunde bestellt |  -> edit_oe_ord_link
1360       # | Anfrage       | Angebot            |  -> edit_oe_quo_link
1361
1362       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');
1363       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');
1364
1365       $row->{ordnumber}{link} = $edit_oe_ord_link;
1366       $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber});
1367
1368     } else {
1369       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1370     }
1371
1372     # set properties of images
1373     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1374       $row->{image}{data}     = '';
1375       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1376     }
1377     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1378
1379     $report->add_data($row);
1380
1381     my $next_ref = $form->{parts}[$idx + 1];
1382
1383     # insert subtotal rows
1384     if (($form->{l_subtotal} eq 'Y') &&
1385         (!$next_ref ||
1386          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1387       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1388
1389       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1390         $row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
1391       }
1392
1393       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1394       map { $subtotals{$_} = 0 } ('soldtotal', @subtotal_columns);
1395
1396       $report->add_data($row);
1397
1398       $same_item = $next_ref->{ $form->{sort} };
1399     }
1400
1401     $idx++;
1402   }
1403
1404   if ($form->{"l_linetotal"}) {
1405     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1406
1407     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1408
1409     $report->add_separator();
1410     $report->add_data($row);
1411   }
1412
1413   $report->generate_with_headers();
1414
1415   $lxdebug->leave_sub();
1416 }    #end generate_report
1417
1418 sub parts_subtotal {
1419   $lxdebug->enter_sub();
1420
1421   $auth->assert('part_service_assembly_edit');
1422
1423   my (%column_data);
1424   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1425
1426   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1427   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1428
1429   $column_data{onhand} =
1430       "<th class=listsubtotal align=right>"
1431     . $form->format_amount(\%myconfig, $$subtotalonhand)
1432     . "</th>";
1433
1434   $column_data{linetotalsellprice} =
1435       "<th class=listsubtotal align=right>"
1436     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1437     . "</th>";
1438   $column_data{linetotallistprice} =
1439       "<th class=listsubtotal align=right>"
1440     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1441     . "</th>";
1442   $column_data{linetotallastcost} =
1443       "<th class=listsubtotal align=right>"
1444     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1445     . "</th>";
1446
1447   $$subtotalonhand    = 0;
1448   $$subtotalsellprice = 0;
1449   $$subtotallistprice = 0;
1450   $$subtotallastcost  = 0;
1451
1452   print "<tr class=listsubtotal>";
1453
1454   map { print "\n$column_data{$_}" } @{ $column_index };
1455
1456   print qq|
1457   </tr>
1458 |;
1459
1460   $lxdebug->leave_sub();
1461 }
1462
1463 sub edit {
1464   $lxdebug->enter_sub();
1465
1466   $auth->assert('part_service_assembly_edit');
1467
1468   # show history button
1469   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1470   #/show hhistory button
1471   IC->get_part(\%myconfig, \%$form);
1472
1473   $form->{"original_partnumber"} = $form->{"partnumber"};
1474
1475   my $title      = 'Edit ' . ucfirst $form->{item};
1476   $form->{title} = $locale->text($title);
1477
1478   &link_part;
1479   &display_form;
1480
1481   $lxdebug->leave_sub();
1482 }
1483
1484 sub link_part {
1485   $lxdebug->enter_sub();
1486
1487   $auth->assert('part_service_assembly_edit');
1488
1489   IC->create_links("IC", \%myconfig, \%$form);
1490
1491   # currencies
1492   map({ $form->{selectcurrency} .= "<option>$_\n" }
1493       split(/:/, $form->{currencies}));
1494
1495   # parts and assemblies have the same links
1496   my $item = $form->{item};
1497   if ($form->{item} eq 'assembly') {
1498     $item = 'part';
1499   }
1500
1501   # build the popup menus
1502   $form->{taxaccounts} = "";
1503   foreach my $key (keys %{ $form->{IC_links} }) {
1504     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1505
1506       # if this is a tax field
1507       if ($key =~ /IC_tax/) {
1508         if ($key =~ /\Q$item\E/) {
1509           $form->{taxaccounts} .= "$ref->{accno} ";
1510           $form->{"IC_tax_$ref->{accno}_description"} =
1511             "$ref->{accno}--$ref->{description}";
1512
1513           if ($form->{id}) {
1514             if ($form->{amount}{ $ref->{accno} }) {
1515               $form->{"IC_tax_$ref->{accno}"} = "checked";
1516             }
1517           } else {
1518             $form->{"IC_tax_$ref->{accno}"} = "checked";
1519           }
1520         }
1521       } else {
1522
1523         $form->{"select$key"} .=
1524           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1525         if ($form->{amount}{$key} eq $ref->{accno}) {
1526           $form->{$key} = "$ref->{accno}--$ref->{description}";
1527         }
1528
1529       }
1530     }
1531   }
1532   chop $form->{taxaccounts};
1533
1534   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1535     $form->{selectIC_income}  = $form->{selectIC_sale};
1536     $form->{selectIC_expense} = $form->{selectIC_cogs};
1537     $form->{IC_income}        = $form->{IC_sale};
1538     $form->{IC_expense}       = $form->{IC_cogs};
1539   }
1540
1541   delete $form->{IC_links};
1542   delete $form->{amount};
1543
1544   $form->get_partsgroup(\%myconfig, { all => 1 });
1545
1546   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1547
1548   if (@{ $form->{all_partsgroup} }) {
1549     $form->{selectpartsgroup} = qq|<option>\n|;
1550     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1551   }
1552
1553   if ($form->{item} eq 'assembly') {
1554
1555     foreach my $i (1 .. $form->{assembly_rows}) {
1556       if ($form->{"partsgroup_id_$i"}) {
1557         $form->{"partsgroup_$i"} =
1558           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1559       }
1560     }
1561     $form->get_partsgroup(\%myconfig);
1562
1563     if (@{ $form->{all_partsgroup} }) {
1564       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1565
1566       map {
1567         $form->{selectassemblypartsgroup} .=
1568           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1569       } @{ $form->{all_partsgroup} };
1570     }
1571   }
1572   $lxdebug->leave_sub();
1573 }
1574
1575 sub form_header {
1576   $lxdebug->enter_sub();
1577
1578   $auth->assert('part_service_assembly_edit');
1579
1580   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1581   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1582   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1583
1584   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1585   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1586
1587   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1588                    'partsgroup'    => 'all_partsgroup',
1589                    'vendors'       => 'ALL_VENDORS',);
1590
1591
1592   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1593   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1594
1595   # use JavaScript Calendar or not (yes!)
1596   $form->{jsscript} = 1;
1597
1598   my $units = AM->retrieve_units(\%myconfig, $form);
1599   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1600
1601   $form->{defaults} = AM->get_defaults();
1602
1603   $form->{fokus} = "ic.partnumber";
1604
1605   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1606
1607   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1608     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1609
1610   $form->header;
1611   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1612   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1613   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1614   #                                                     payment_terms     => $form->{payment_terms},
1615   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1616   print $form->parse_html_template('ic/form_header');
1617   $lxdebug->leave_sub();
1618 }
1619
1620 sub form_footer {
1621   $lxdebug->enter_sub();
1622
1623   $auth->assert('part_service_assembly_edit');
1624
1625   print $form->parse_html_template('ic/form_footer');
1626
1627   $lxdebug->leave_sub();
1628 }
1629
1630 sub makemodel_row {
1631   $lxdebug->enter_sub();
1632   my ($numrows) = @_;
1633   #hli
1634   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;
1635   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1636   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1637
1638   $lxdebug->leave_sub();
1639 }
1640
1641 sub assembly_row {
1642   $lxdebug->enter_sub();
1643   my ($numrows) = @_;
1644   my (@column_index);
1645   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1646
1647   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1648
1649   if ($form->{previousform}) {
1650     $nochange     = 1;
1651     @column_index = qw(qty unit bom partnumber description partsgroup total);
1652   } else {
1653
1654     # change callback
1655     $form->{old_callback} = $form->{callback};
1656     $callback             = $form->{callback};
1657     $form->{callback}     = "$form->{script}?action=display_form";
1658
1659     # delete action
1660     map { delete $form->{$_} } qw(action header);
1661
1662     # save form variables in a previousform variable
1663     my %form_to_save = map   { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1664                        keys %{ $form };
1665     $previousform    = $::auth->save_form_in_session(form => \%form_to_save);
1666
1667     $form->{callback} = $callback;
1668     $form->{assemblytotal} = 0;
1669     $form->{assembly_purchase_price_total} = 0;
1670     $form->{weight}        = 0;
1671   }
1672
1673   my %header = (
1674    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1675    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1676    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1677    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1678    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1679    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1680    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1681    bom           => { text =>  $locale->text('BOM'),                                          },
1682    partsgroup    => { text =>  $locale->text('Group'),                                        },
1683   );
1684
1685   my @ROWS;
1686
1687   for my $i (1 .. $numrows) {
1688     my (%row, @row_hiddens);
1689
1690     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1691
1692     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1693     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1694     $form->{assemblytotal}                  += $linetotal;
1695     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1696     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1697     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1698     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1699     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1700     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1701
1702     # last row
1703     if (($i >= 1) && ($i == $numrows)) {
1704       if (!$form->{previousform}) {
1705         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1706         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1707         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1708         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1709       }
1710     # other rows
1711     } else {
1712       if ($form->{previousform}) {
1713         push @row_hiddens,          qw(qty bom);
1714         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1715         $row{qty}{data}           = $form->{"qty_$i"};
1716         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1717         $row{qty}{align}          = 'right';
1718       } else {
1719         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1720         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1721         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1722         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1723                                        $form->{"bom_$i"} ? 'checked' : '';
1724       }
1725       push @row_hiddens,        qw(unit description partnumber partsgroup);
1726       $row{unit}{data}        = $form->{"unit_$i"};
1727       $row{description}{data} = $form->{"description_$i"};
1728       $row{partsgroup}{data}  = $form->{"partsgroup_$i"};
1729       $row{bom}{align}        = 'center';
1730     }
1731
1732     $row{lastcost}{data}      = $line_purchase_price;
1733     $row{total}{data}         = $linetotal;
1734     $row{lastcost}{align}     = 'right';
1735     $row{total}{align}        = 'right';
1736     $row{deliverydate}{align} = 'right';
1737
1738     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1739     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1740
1741     push @ROWS, \%row;
1742   }
1743
1744   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1745
1746   $lxdebug->leave_sub();
1747 }
1748
1749 sub update {
1750   $lxdebug->enter_sub();
1751
1752   # parse pricegroups. and no, don't rely on check_form for this...
1753   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1754
1755   # same for makemodel lastcosts
1756   # but parse_amount not necessary for assembly component lastcosts
1757   unless ($form->{item} eq "assembly") {
1758     map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1759   };
1760
1761   if ($form->{item} eq "assembly") {
1762     my $i = $form->{assembly_rows};
1763
1764     # if last row is empty check the form otherwise retrieve item
1765     if (   ($form->{"partnumber_$i"} eq "")
1766         && ($form->{"description_$i"} eq "")
1767         && ($form->{"partsgroup_$i"}  eq "")) {
1768
1769       &check_form;
1770
1771     } else {
1772
1773       IC->assembly_item(\%myconfig, \%$form);
1774
1775       my $rows = scalar @{ $form->{item_list} };
1776
1777       if ($rows) {
1778         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1779
1780         if ($rows > 1) {
1781           $form->{makemodel_rows}--;
1782           select_item(mode => 'IC');
1783           ::end_of_request();
1784         } else {
1785           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1786             qw(partnumber description unit partsgroup);
1787           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1788             keys %{ $form->{item_list}[0] };
1789           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1790           $form->{assembly_rows}++;
1791
1792           &check_form;
1793
1794         }
1795
1796       } else {
1797
1798         $form->{rowcount} = $i;
1799         $form->{assembly_rows}++;
1800
1801         &new_item;
1802
1803       }
1804     }
1805
1806   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1807     &check_form;
1808   }
1809
1810   $lxdebug->leave_sub();
1811 }
1812
1813 sub save {
1814   $lxdebug->enter_sub();
1815
1816   $auth->assert('part_service_assembly_edit');
1817
1818   my ($parts_id, %newform, $amount, $callback);
1819
1820   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1821   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1822
1823   # check if there is a description
1824   $form->isblank("description", $locale->text("Part Description missing!"));
1825
1826   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1827     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1828
1829   if (!$form->{buchungsgruppen_id}) {
1830     $form->error($locale->text("Parts must have an entry type.") . " " .
1831      $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.")
1832     );
1833   }
1834
1835   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1836   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1837
1838   # save part
1839   $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
1840   if (IC->save(\%myconfig, \%$form) == 3) {
1841     $form->error($locale->text('Partnumber not unique!'));
1842   }
1843   # saving the history
1844   if(!exists $form->{addition}) {
1845     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1846     $form->{addition} = "SAVED";
1847     $form->save_history;
1848   }
1849   # /saving the history
1850   $parts_id = $form->{id};
1851
1852   my $i;
1853   # load previous variables
1854   if ($form->{previousform}) {
1855
1856     # save the new form variables before splitting previousform
1857     map { $newform{$_} = $form->{$_} } keys %$form;
1858
1859     # don't trample on previous variables
1860     map { delete $form->{$_} } keys %newform;
1861
1862     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1863     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1864
1865     # restore original values
1866     $::auth->restore_form_from_session($newform{previousform}, form => $form);
1867     $form->{taxaccounts} = $newform{taxaccount2};
1868
1869     if ($form->{item} eq 'assembly') {
1870
1871       # undo number formatting
1872       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1873         qw(weight listprice sellprice rop);
1874
1875       $form->{assembly_rows}--;
1876       $i = $form->{assembly_rows};
1877       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1878
1879       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1880       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1881
1882       # change/add values for assembly item
1883       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1884       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1885
1886       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1887       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1888       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1889
1890     } else {
1891
1892       # set values for last invoice/order item
1893       $i = $form->{rowcount};
1894       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1895
1896       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1897       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1898
1899       $form->{"longdescription_$i"} = $newform{notes};
1900
1901       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1902
1903       if ($form->{exchangerate} != 0) {
1904         $form->{"sellprice_$i"} /= $form->{exchangerate};
1905       }
1906
1907       $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
1908
1909       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1910       chop $form->{"taxaccounts_$i"};
1911       foreach my $item (qw(description rate taxnumber)) {
1912         my $index = $form->{"taxaccounts_$i"} . "_$item";
1913         $form->{$index} = $newform{$index};
1914       }
1915
1916       # credit remaining calculation
1917       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1918
1919       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1920       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1921
1922       $form->{creditremaining} -= $amount;
1923
1924       # redo number formatting, because invoice parse them!
1925       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1926     }
1927
1928     $form->{"id_$i"} = $parts_id;
1929
1930     # Get the actual price factor (not just the ID) for the marge calculation.
1931     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1932     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1933       next if ($pfac->{id} != $newform{price_factor_id});
1934       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1935       last;
1936     }
1937     delete $form->{ALL_PRICE_FACTORS};
1938
1939     delete $form->{action};
1940
1941     # restore original callback
1942     $callback = $form->unescape($form->{callback});
1943     $form->{callback} = $form->unescape($form->{old_callback});
1944     delete $form->{old_callback};
1945
1946     $form->{makemodel_rows}--;
1947
1948     # put callback together
1949     foreach my $key (keys %$form) {
1950
1951       # do single escape for Apache 2.0
1952       my $value = $form->escape($form->{$key}, 1);
1953       $callback .= qq|&$key=$value|;
1954     }
1955     $form->{callback} = $callback;
1956   }
1957   $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
1958
1959   # redirect
1960   $form->redirect;
1961
1962   $lxdebug->leave_sub();
1963 }
1964
1965 sub save_as_new {
1966   $lxdebug->enter_sub();
1967
1968   $auth->assert('part_service_assembly_edit');
1969
1970   # saving the history
1971   if(!exists $form->{addition}) {
1972     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1973     $form->{addition} = "SAVED AS NEW";
1974     $form->save_history;
1975   }
1976   # /saving the history
1977   $form->{id} = 0;
1978   if ($form->{"original_partnumber"} &&
1979       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1980     $form->{partnumber} = "";
1981   }
1982   &save;
1983   $lxdebug->leave_sub();
1984 }
1985
1986 sub delete {
1987   $lxdebug->enter_sub();
1988
1989   $auth->assert('part_service_assembly_edit');
1990
1991   # saving the history
1992   if(!exists $form->{addition}) {
1993     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1994     $form->{addition} = "DELETED";
1995     $form->save_history;
1996   }
1997   # /saving the history
1998   my $rc = IC->delete(\%myconfig, \%$form);
1999
2000   # redirect
2001   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
2002   $form->error($locale->text('Cannot delete item!'));
2003
2004   $lxdebug->leave_sub();
2005 }
2006
2007 sub price_row {
2008   $lxdebug->enter_sub();
2009
2010   $auth->assert('part_service_assembly_edit');
2011
2012   my ($numrows) = @_;
2013
2014   my @PRICES = map +{
2015     pricegroup    => $form->{"pricegroup_$_"},
2016     pricegroup_id => $form->{"pricegroup_id_$_"},
2017     price         => $form->{"price_$_"},
2018   }, 1 .. $numrows;
2019
2020   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2021
2022   $lxdebug->leave_sub();
2023 }
2024
2025 sub parts_language_selection {
2026   $lxdebug->enter_sub();
2027
2028   $auth->assert('part_service_assembly_edit');
2029
2030   my $languages = IC->retrieve_languages(\%myconfig, $form);
2031
2032   if ($form->{language_values} ne "") {
2033     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
2034       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
2035
2036       foreach my $language (@{ $languages }) {
2037         next unless ($language->{id} == $language_id);
2038
2039         $language->{translation}     = $translation;
2040         $language->{longdescription} = $longdescription;
2041
2042         $language->{translation_area}     = ($language->{translation_rows} = $form->numtextrows($language->{translation}, 40)) > 1;
2043         $language->{longdescription_rows} = max 4, $form->numtextrows($language->{longdescription}, 40);
2044
2045         last;
2046       }
2047     }
2048   }
2049
2050   my @header_sort = qw(name longdescription);
2051   my %header_title = ( "name" => $locale->text("Name"),
2052                        "longdescription" => $locale->text("Long Description"),
2053                        );
2054
2055   my @header =
2056     map(+{ "column_title" => $header_title{$_},
2057            "column" => $_,
2058          },
2059         @header_sort);
2060
2061   $form->{"title"} = $locale->text("Language Values");
2062   $form->header();
2063   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2064                                                                     "LANGUAGES" => $languages, });
2065
2066   $lxdebug->leave_sub();
2067 }
2068
2069 sub ajax_autocomplete {
2070   $main::lxdebug->enter_sub();
2071
2072   my $form     = $main::form;
2073   my %myconfig = %main::myconfig;
2074
2075   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2076   $form->{$form->{column}} = $form->{q}           || '';
2077   $form->{limit}           = ($form->{limit} * 1) || 10;
2078   $form->{searchitems}   ||= '';
2079
2080   my @results = IC->all_parts(\%myconfig, $form);
2081
2082   print $form->ajax_response_header(),
2083         $form->parse_html_template('ic/ajax_autocomplete');
2084
2085   $main::lxdebug->leave_sub();
2086 }
2087
2088 sub back_to_record {
2089   _check_io_auth();
2090
2091
2092   delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2093
2094   $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2095   $::form->{rowcount}--;
2096   $::form->{action}   = 'display_form';
2097   $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2098   $::form->redirect;
2099 }
2100
2101 sub continue { call_sub($form->{"nextsub"}); }
2102
2103 sub dispatcher {
2104   my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2105   $::form->error($::locale->text('No action defined.')) unless $action;
2106
2107   $::form->{dispatched_action} = $action;
2108   call_sub($action);
2109 }