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