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     'image'              => { 'text' => $locale->text('Image'), },
1035     'invnumber'          => { 'text' => $locale->text('Invoice Number'), },
1036     'lastcost'           => { 'text' => $locale->text('Last Cost'), },
1037     'linetotallastcost'  => { 'text' => $locale->text('Extended'), },
1038     'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1039     'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1040     'listprice'          => { 'text' => $locale->text('List Price'), },
1041     'microfiche'         => { 'text' => $locale->text('Microfiche'), },
1042     'name'               => { 'text' => $locale->text('Name'), },
1043     'onhand'             => { 'text' => $locale->text('Qty'), },
1044     'ordnumber'          => { 'text' => $locale->text('Order Number'), },
1045     'partnumber'         => { 'text' => $locale->text('Part Number'), },
1046     'partsgroup'         => { 'text' => $locale->text('Group'), },
1047     'priceupdate'        => { 'text' => $locale->text('Updated'), },
1048     'quonumber'          => { 'text' => $locale->text('Quotation'), },
1049     'rop'                => { 'text' => $locale->text('ROP'), },
1050     'sellprice'          => { 'text' => $locale->text('Sell Price'), },
1051     'serialnumber'       => { 'text' => $locale->text('Serial Number'), },
1052     'soldtotal'          => { 'text' => $locale->text('soldtotal'), },
1053     'transdate'          => { 'text' => $locale->text('Transdate'), },
1054     'unit'               => { 'text' => $locale->text('Unit'), },
1055     'weight'             => { 'text' => $locale->text('Weight'), },
1056   );
1057
1058   $revers     = $form->{revers};
1059   $lastsort   = $form->{lastsort};
1060
1061   # sorting and direction of sorting
1062   # ToDO: change this to the simpler field+direction method
1063   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1064     $form->{revers}   = 0;
1065     $form->{lastsort} = "partnumber";
1066     $form->{sort}     = "partnumber";
1067   } else {
1068     if ($form->{lastsort} eq $form->{sort}) {
1069       $form->{revers} = 1 - $form->{revers};
1070     } else {
1071       $form->{revers} = 0;
1072       $form->{lastsort} = $form->{sort};
1073     }    #fi
1074   }    #fi
1075
1076   # special case if we have a serialnumber limit search
1077   # serialnumbers are only given in invoices and orders,
1078   # so they can only pop up in bought, sold, rfq, and quoted stuff
1079   $form->{no_sn_joins} = 'Y' if (   !$form->{bought} && !$form->{sold}
1080                                  && !$form->{rfq}    && !$form->{quoted}
1081                                  && ($form->{l_serialnumber} || $form->{serialnumber}));
1082
1083   # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1084   # if any of these are ticked the behavior changes slightly for lastcost
1085   # since all those are aggregation checks for the legder tables this is an internal switch
1086   # refered to as ledgerchecks
1087   $form->{ledgerchecks} = 'Y' if (   $form->{bought} || $form->{sold} || $form->{onorder}
1088                                   || $form->{ordered} || $form->{rfq} || $form->{quoted});
1089
1090   # if something should be activated if something else is active, enter it here
1091   my %dependencies = (
1092     onhand       => [ qw(l_onhand) ],
1093     short        => [ qw(l_onhand) ],
1094     onorder      => [ qw(l_ordnumber) ],
1095     ordered      => [ qw(l_ordnumber) ],
1096     rfq          => [ qw(l_quonumber) ],
1097     quoted       => [ qw(l_quonumber) ],
1098     bought       => [ qw(l_invnumber) ],
1099     sold         => [ qw(l_invnumber) ],
1100     ledgerchecks => [ qw(l_name) ],
1101     serialnumber => [ qw(l_serialnumber) ],
1102     no_sn_joins  => [ qw(bought sold) ],
1103   );
1104
1105   # these strings get displayed at the top of the results to indicate the user which switches were used
1106   my %optiontexts = (
1107     active        => $locale->text('Active'),
1108     obsolete      => $locale->text('Obsolete'),
1109     orphaned      => $locale->text('Orphaned'),
1110     onhand        => $locale->text('On Hand'),
1111     short         => $locale->text('Short'),
1112     onorder       => $locale->text('On Order'),
1113     ordered       => $locale->text('Ordered'),
1114     rfq           => $locale->text('RFQ'),
1115     quoted        => $locale->text('Quoted'),
1116     bought        => $locale->text('Bought'),
1117     sold          => $locale->text('Sold'),
1118     transdatefrom => $locale->text('From')       . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1119     transdateto   => $locale->text('To (time)')  . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1120     partnumber    => $locale->text('Part Number')      . ": '$form->{partnumber}'",
1121     partsgroup    => $locale->text('Group')            . ": '$form->{partsgroup}'",
1122     serialnumber  => $locale->text('Serial Number')    . ": '$form->{serialnumber}'",
1123     description   => $locale->text('Part Description') . ": '$form->{description}'",
1124     make          => $locale->text('Make')             . ": '$form->{make}'",
1125     model         => $locale->text('Model')            . ": '$form->{model}'",
1126     drawing       => $locale->text('Drawing')          . ": '$form->{drawing}'",
1127     microfiche    => $locale->text('Microfiche')       . ": '$form->{microfiche}'",
1128     l_soldtotal   => $locale->text('soldtotal'),
1129     ean           => $locale->text('EAN')              . ": '$form->{ean}'",
1130   );
1131
1132   my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1133   my @callback_keys   = qw(onorder ordered rfq quoted bought sold partnumber partsgroup serialnumber description make model
1134                            drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1135
1136   # calculate dependencies
1137   for (@itemstatus_keys, @callback_keys) {
1138     next if ($form->{itemstatus} ne $_ && !$form->{$_});
1139     map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1140   }
1141
1142   # generate callback and optionstrings
1143   my @options;
1144   for my  $key (@itemstatus_keys, @callback_keys) {
1145     next if ($form->{itemstatus} ne $key && !$form->{$key});
1146     push @options, $optiontexts{$key};
1147   }
1148
1149   # special case for lastcost
1150   if ($form->{ledgerchecks}){
1151     # ledgerchecks don't know about sellprice or lastcost. they just return a
1152     # price. so rename sellprice to price, and drop lastcost.
1153     $column_defs{sellprice}{text} = $locale->text('Price');
1154     $form->{l_lastcost} = ""
1155   }
1156
1157   if ($form->{description}) {
1158     $description = $form->{description};
1159     $description =~ s/\n/<br>/g;
1160   }
1161
1162   if ($form->{l_linetotal}) {
1163     $form->{l_onhand} = "Y";
1164     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1165     $form->{l_linetotallastcost}  = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if  $form->{l_lastcost};
1166     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1167   }
1168
1169   if ($form->{searchitems} eq 'service') {
1170
1171     # remove bin, weight and rop from list
1172     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1173
1174     $form->{l_onhand} = "";
1175
1176     # qty is irrelevant unless bought or sold
1177     if (   $form->{bought}
1178         || $form->{sold}
1179         || $form->{onorder}
1180         || $form->{ordered}
1181         || $form->{rfq}
1182         || $form->{quoted}) {
1183       $form->{l_onhand} = "Y";
1184     } else {
1185       $form->{l_linetotalsellprice} = "";
1186       $form->{l_linetotallastcost}  = "";
1187     }
1188   }
1189
1190   IC->all_parts(\%myconfig, \%$form);
1191
1192   my @columns = qw(
1193     partnumber description partsgroup bin onhand rop unit listprice
1194     linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1195     priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1196     transdate name serialnumber soldtotal deliverydate ean
1197   );
1198
1199   my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1200   my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
1201   my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1202
1203   push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1204
1205   %column_defs = (%column_defs,%column_defs_cvars); # nochmal die cvars als überschrift hinzufügen
1206     map { $column_defs{$_}->{visible} = $form->{"l_$_"} ? 1 : 0 } @columns;
1207   map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal);
1208
1209   my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom), @itemstatus_keys, @callback_keys, @searchable_custom_variables, map { "l_$_" } @columns);
1210   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1211
1212   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1213   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1214
1215   foreach my $col (@sort_full) {
1216     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1217   }
1218   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1219
1220   # add order to callback
1221   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1222
1223   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1224
1225   my %attachment_basenames = (
1226     'part'     => $locale->text('part_list'),
1227     'service'  => $locale->text('service_list'),
1228     'assembly' => $locale->text('assembly_list'),
1229   );
1230
1231   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1232                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1233                        'output_format'         => 'HTML',
1234                        'title'                 => $form->{title},
1235                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1236   );
1237   $report->set_options_from_form();
1238
1239   $report->set_columns(%column_defs);
1240   $report->set_column_order(@columns);
1241
1242   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1243
1244   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1245
1246   CVar->add_custom_variables_to_report('module'         => 'IC',
1247                                        'trans_id_field' => 'id',
1248                                        'configs'        => $cvar_configs,
1249                                        'column_defs'    => \%column_defs,
1250                                        'data'           => $form->{parts});
1251
1252   CVar->add_custom_variables_to_report('module'         => 'IC',
1253                                        'sub_module'     => sub { $_[0]->{ioi} },
1254                                        'trans_id_field' => 'ioi_id',
1255                                        'configs'        => $cvar_configs,
1256                                        'column_defs'    => \%column_defs,
1257                                        'data'           => $form->{parts});
1258
1259   my @subtotal_columns = qw(sellprice listprice lastcost);
1260   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1261   my %totals    = map { $_ => 0 } @subtotal_columns;
1262   my $idx       = 0;
1263   my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
1264
1265   my $defaults  = AM->get_defaults();
1266
1267   # postprocess parts
1268   foreach my $ref (@{ $form->{parts} }) {
1269
1270     # fresh row, for inserting later
1271     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1272
1273     $ref->{exchangerate} ||= 1;
1274     $ref->{price_factor} ||= 1;
1275     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1276     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1277     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1278
1279     # use this for assemblies
1280     my $onhand = $ref->{onhand};
1281
1282     if ($ref->{assemblyitem}) {
1283       $row->{partnumber}{align}   = 'right';
1284       $row->{onhand}{data}        = 0;
1285       $onhand                     = 0 if ($form->{sold});
1286     }
1287
1288     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1289     $row->{partnumber}->{link}  = $edit_link;
1290     $row->{description}->{link} = $edit_link;
1291
1292     foreach (qw(sellprice listprice lastcost)) {
1293       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
1294       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1295     }
1296
1297     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1298
1299     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1300
1301     if (!$ref->{assemblyitem}) {
1302       foreach my $col (@subtotal_columns) {
1303         $totals{$col}    += $onhand * $ref->{$col};
1304         $subtotals{$col} += $onhand * $ref->{$col};
1305       }
1306
1307       $subtotals{onhand} += $onhand;
1308     }
1309
1310     # set module stuff
1311     if ($ref->{module} eq 'oe') {
1312       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');
1313       $row->{ordnumber}{link} = $edit_oe_link;
1314       $row->{quonumber}{link} = $edit_oe_link if (!$ref->{ordnumber});
1315
1316     } else {
1317       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1318     }
1319
1320     # set properties of images
1321     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1322       $row->{image}{data}     = '';
1323       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1324     }
1325     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1326
1327     $report->add_data($row);
1328
1329     my $next_ref = $form->{parts}[$idx + 1];
1330
1331     # insert subtotal rows
1332     if (($form->{l_subtotal} eq 'Y') &&
1333         (!$next_ref ||
1334          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1335       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1336
1337       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1338         $row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand});
1339       }
1340
1341       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1342       map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns);
1343
1344       $report->add_data($row);
1345
1346       $same_item = $next_ref->{ $form->{sort} };
1347     }
1348
1349     $idx++;
1350   }
1351
1352   if ($form->{"l_linetotal"}) {
1353     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1354
1355     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1356
1357     $report->add_separator();
1358     $report->add_data($row);
1359   }
1360
1361   $report->generate_with_headers();
1362
1363   $lxdebug->leave_sub();
1364 }    #end generate_report
1365
1366 sub parts_subtotal {
1367   $lxdebug->enter_sub();
1368
1369   $auth->assert('part_service_assembly_edit');
1370
1371   my (%column_data);
1372   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1373
1374   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1375   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1376
1377   $column_data{onhand} =
1378       "<th class=listsubtotal align=right>"
1379     . $form->format_amount(\%myconfig, $$subtotalonhand)
1380     . "</th>";
1381
1382   $column_data{linetotalsellprice} =
1383       "<th class=listsubtotal align=right>"
1384     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1385     . "</th>";
1386   $column_data{linetotallistprice} =
1387       "<th class=listsubtotal align=right>"
1388     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1389     . "</th>";
1390   $column_data{linetotallastcost} =
1391       "<th class=listsubtotal align=right>"
1392     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1393     . "</th>";
1394
1395   $$subtotalonhand    = 0;
1396   $$subtotalsellprice = 0;
1397   $$subtotallistprice = 0;
1398   $$subtotallastcost  = 0;
1399
1400   print "<tr class=listsubtotal>";
1401
1402   map { print "\n$column_data{$_}" } @{ $column_index };
1403
1404   print qq|
1405   </tr>
1406 |;
1407
1408   $lxdebug->leave_sub();
1409 }
1410
1411 sub edit {
1412   $lxdebug->enter_sub();
1413
1414   $auth->assert('part_service_assembly_edit');
1415
1416   # show history button
1417   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1418   #/show hhistory button
1419   IC->get_part(\%myconfig, \%$form);
1420
1421   $form->{"original_partnumber"} = $form->{"partnumber"};
1422
1423   my $title      = 'Edit ' . ucfirst $form->{item};
1424   $form->{title} = $locale->text($title);
1425
1426   &link_part;
1427   &display_form;
1428
1429   $lxdebug->leave_sub();
1430 }
1431
1432 sub link_part {
1433   $lxdebug->enter_sub();
1434
1435   $auth->assert('part_service_assembly_edit');
1436
1437   IC->create_links("IC", \%myconfig, \%$form);
1438
1439   # currencies
1440   map({ $form->{selectcurrency} .= "<option>$_\n" }
1441       split(/:/, $form->{currencies}));
1442
1443   # parts and assemblies have the same links
1444   my $item = $form->{item};
1445   if ($form->{item} eq 'assembly') {
1446     $item = 'part';
1447   }
1448
1449   # build the popup menus
1450   $form->{taxaccounts} = "";
1451   foreach my $key (keys %{ $form->{IC_links} }) {
1452     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1453
1454       # if this is a tax field
1455       if ($key =~ /IC_tax/) {
1456         if ($key =~ /\Q$item\E/) {
1457           $form->{taxaccounts} .= "$ref->{accno} ";
1458           $form->{"IC_tax_$ref->{accno}_description"} =
1459             "$ref->{accno}--$ref->{description}";
1460
1461           if ($form->{id}) {
1462             if ($form->{amount}{ $ref->{accno} }) {
1463               $form->{"IC_tax_$ref->{accno}"} = "checked";
1464             }
1465           } else {
1466             $form->{"IC_tax_$ref->{accno}"} = "checked";
1467           }
1468         }
1469       } else {
1470
1471         $form->{"select$key"} .=
1472           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1473         if ($form->{amount}{$key} eq $ref->{accno}) {
1474           $form->{$key} = "$ref->{accno}--$ref->{description}";
1475         }
1476
1477       }
1478     }
1479   }
1480   chop $form->{taxaccounts};
1481
1482   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1483     $form->{selectIC_income}  = $form->{selectIC_sale};
1484     $form->{selectIC_expense} = $form->{selectIC_cogs};
1485     $form->{IC_income}        = $form->{IC_sale};
1486     $form->{IC_expense}       = $form->{IC_cogs};
1487   }
1488
1489   delete $form->{IC_links};
1490   delete $form->{amount};
1491
1492   $form->get_partsgroup(\%myconfig, { all => 1 });
1493
1494   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1495
1496   if (@{ $form->{all_partsgroup} }) {
1497     $form->{selectpartsgroup} = qq|<option>\n|;
1498     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1499   }
1500
1501   if ($form->{item} eq 'assembly') {
1502
1503     foreach my $i (1 .. $form->{assembly_rows}) {
1504       if ($form->{"partsgroup_id_$i"}) {
1505         $form->{"partsgroup_$i"} =
1506           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1507       }
1508     }
1509     $form->get_partsgroup(\%myconfig);
1510
1511     if (@{ $form->{all_partsgroup} }) {
1512       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1513
1514       map {
1515         $form->{selectassemblypartsgroup} .=
1516           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1517       } @{ $form->{all_partsgroup} };
1518     }
1519   }
1520   $lxdebug->leave_sub();
1521 }
1522
1523 sub form_header {
1524   $lxdebug->enter_sub();
1525
1526   $auth->assert('part_service_assembly_edit');
1527
1528   $form->{eur}              = $main::eur; # config dumps into namespace - yuck
1529   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1530   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1531   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1532
1533   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1534   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1535
1536   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1537                    'partsgroup'    => 'all_partsgroup',
1538                    'vendors'       => 'ALL_VENDORS',);
1539
1540
1541   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1542   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1543
1544   # use JavaScript Calendar or not (yes!)
1545   $form->{jsscript} = 1;
1546
1547   my $units = AM->retrieve_units(\%myconfig, $form);
1548   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1549
1550   $form->{defaults} = AM->get_defaults();
1551
1552   $form->{fokus} = "ic.partnumber";
1553
1554   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1555
1556   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1557     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1558
1559   $form->header;
1560   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1561   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1562   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1563   #                                                     payment_terms     => $form->{payment_terms},
1564   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1565   print $form->parse_html_template('ic/form_header');
1566   $lxdebug->leave_sub();
1567 }
1568
1569 sub form_footer {
1570   $lxdebug->enter_sub();
1571
1572   $auth->assert('part_service_assembly_edit');
1573
1574   print $form->parse_html_template('ic/form_footer');
1575
1576   $lxdebug->leave_sub();
1577 }
1578
1579 sub makemodel_row {
1580   $lxdebug->enter_sub();
1581   my ($numrows) = @_;
1582   #hli
1583   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;
1584   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1585   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1586
1587   $lxdebug->leave_sub();
1588 }
1589
1590 sub assembly_row {
1591   $lxdebug->enter_sub();
1592   my ($numrows) = @_;
1593   my (@column_index);
1594   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1595
1596   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1597
1598   if ($form->{previousform}) {
1599     $nochange     = 1;
1600     @column_index = qw(qty unit bom partnumber description partsgroup total);
1601   } else {
1602
1603     # change callback
1604     $form->{old_callback} = $form->{callback};
1605     $callback             = $form->{callback};
1606     $form->{callback}     = "$form->{script}?action=display_form";
1607
1608     # delete action
1609     map { delete $form->{$_} } qw(action header);
1610
1611     # save form variables in a previousform variable
1612     $previousform = $form->escape($form->escape(join '&', map {
1613       sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}
1614     } grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
1615
1616     $form->{callback} = $callback;
1617     $form->{assemblytotal} = 0;
1618     $form->{assembly_purchase_price_total} = 0;
1619     $form->{weight}        = 0;
1620   }
1621
1622   my %header = (
1623    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1624    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1625    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1626    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1627    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1628    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1629    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1630    bom           => { text =>  $locale->text('BOM'),                                          },
1631    partsgroup    => { text =>  $locale->text('Group'),                                        },
1632   );
1633
1634   my @ROWS;
1635
1636   for my $i (1 .. $numrows) {
1637     my (%row, @row_hiddens);
1638
1639     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1640
1641     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1642     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1643     $form->{assemblytotal}                  += $linetotal;
1644     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1645     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1646     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1647     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1648     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1649     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1650
1651     # last row
1652     if (($i >= 1) && ($i == $numrows)) {
1653       if (!$form->{previousform}) {
1654         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1655         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1656         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1657         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1658       }
1659     # other rows
1660     } else {
1661       if ($form->{previousform}) {
1662         push @row_hiddens,          qw(qty bom);
1663         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1664         $row{qty}{data}           = $form->{"qty_$i"};
1665         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1666         $row{qty}{align}          = 'right';
1667       } else {
1668         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1669         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1670         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1671         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1672                                        $form->{"bom_$i"} ? 'checked' : '';
1673       }
1674       push @row_hiddens,        qw(unit description partnumber partsgroup);
1675       $row{unit}{data}        = $form->{"unit_$i"};
1676       $row{description}{data} = $form->{"description_$i"};
1677       $row{partsgroup}{data}  = $form->{"partsgroup_$i"};
1678       $row{bom}{align}        = 'center';
1679     }
1680
1681     $row{lastcost}{data}      = $line_purchase_price;
1682     $row{total}{data}         = $linetotal;
1683     $row{lastcost}{align}     = 'right';
1684     $row{total}{align}        = 'right';
1685     $row{deliverydate}{align} = 'right';
1686
1687     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1688     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1689
1690     push @ROWS, \%row;
1691   }
1692
1693   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1694
1695   $lxdebug->leave_sub();
1696 }
1697
1698 sub update {
1699   $lxdebug->enter_sub();
1700
1701   # parse pricegroups. and no, don't rely on check_form for this...
1702   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1703
1704   if ($form->{item} eq "assembly") {
1705     my $i = $form->{assembly_rows};
1706
1707     # if last row is empty check the form otherwise retrieve item
1708     if (   ($form->{"partnumber_$i"} eq "")
1709         && ($form->{"description_$i"} eq "")
1710         && ($form->{"partsgroup_$i"}  eq "")) {
1711
1712       &check_form;
1713
1714     } else {
1715
1716       IC->assembly_item(\%myconfig, \%$form);
1717
1718       my $rows = scalar @{ $form->{item_list} };
1719
1720       if ($rows) {
1721         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1722
1723         if ($rows > 1) {
1724           $form->{makemodel_rows}--;
1725           &select_item;
1726           ::end_of_request();
1727         } else {
1728           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1729             qw(partnumber description unit partsgroup);
1730           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1731             keys %{ $form->{item_list}[0] };
1732           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1733           $form->{assembly_rows}++;
1734
1735           &check_form;
1736
1737         }
1738
1739       } else {
1740
1741         $form->{rowcount} = $i;
1742         $form->{assembly_rows}++;
1743
1744         &new_item;
1745
1746       }
1747     }
1748
1749   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1750     &check_form;
1751   }
1752
1753   $lxdebug->leave_sub();
1754 }
1755
1756 sub save {
1757   $lxdebug->enter_sub();
1758
1759   $auth->assert('part_service_assembly_edit');
1760
1761   my ($parts_id, %newform, $previousform, $amount, $callback);
1762
1763   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1764   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1765
1766   # check if there is a description
1767   $form->isblank("description", $locale->text("Part Description missing!"));
1768
1769   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1770     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1771
1772   if (!$form->{buchungsgruppen_id}) {
1773     $form->error($locale->text("Parts must have an entry type.") . " " .
1774      $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.")
1775     );
1776   }
1777
1778   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1779   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1780
1781   # save part
1782   $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
1783   if (IC->save(\%myconfig, \%$form) == 3) {
1784     $form->error($locale->text('Partnumber not unique!'));
1785   }
1786   # saving the history
1787   if(!exists $form->{addition}) {
1788     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1789     $form->{addition} = "SAVED";
1790     $form->save_history;
1791   }
1792   # /saving the history
1793   $parts_id = $form->{id};
1794
1795   my $i;
1796   # load previous variables
1797   if ($form->{previousform}) {
1798
1799     # save the new form variables before splitting previousform
1800     map { $newform{$_} = $form->{$_} } keys %$form;
1801
1802     $previousform = $form->unescape($form->{previousform});
1803
1804     # don't trample on previous variables
1805     map { delete $form->{$_} } keys %newform;
1806
1807     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1808     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1809
1810     # now take it apart and restore original values
1811     foreach my $item (split /&/, $previousform) {
1812       my ($key, $value) = split m/=/, $item, 2;
1813       $value =~ s/%26/&/g;
1814       $form->{$key} = $value;
1815     }
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"}); }