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, @searchable_custom_variables, map { "l_$_" } @columns);
1211   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1212
1213   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1214   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1215
1216   foreach my $col (@sort_full) {
1217     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1218   }
1219   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1220
1221   # add order to callback
1222   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1223
1224   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1225
1226   my %attachment_basenames = (
1227     'part'     => $locale->text('part_list'),
1228     'service'  => $locale->text('service_list'),
1229     'assembly' => $locale->text('assembly_list'),
1230   );
1231
1232   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1233                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1234                        'output_format'         => 'HTML',
1235                        'title'                 => $form->{title},
1236                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1237   );
1238   $report->set_options_from_form();
1239   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1240
1241   $report->set_columns(%column_defs);
1242   $report->set_column_order(@columns);
1243
1244   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1245
1246   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1247
1248   CVar->add_custom_variables_to_report('module'         => 'IC',
1249                                        'trans_id_field' => 'id',
1250                                        'configs'        => $cvar_configs,
1251                                        'column_defs'    => \%column_defs,
1252                                        'data'           => $form->{parts});
1253
1254   CVar->add_custom_variables_to_report('module'         => 'IC',
1255                                        'sub_module'     => sub { $_[0]->{ioi} },
1256                                        'trans_id_field' => 'ioi_id',
1257                                        'configs'        => $cvar_configs,
1258                                        'column_defs'    => \%column_defs,
1259                                        'data'           => $form->{parts});
1260
1261   my @subtotal_columns = qw(sellprice listprice lastcost);
1262   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1263   my %totals    = map { $_ => 0 } @subtotal_columns;
1264   my $idx       = 0;
1265   my $same_item = $form->{parts}[0]{ $form->{sort} } if (scalar @{ $form->{parts} });
1266
1267   my $defaults  = AM->get_defaults();
1268
1269   # postprocess parts
1270   foreach my $ref (@{ $form->{parts} }) {
1271
1272     # fresh row, for inserting later
1273     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1274
1275     $ref->{exchangerate} ||= 1;
1276     $ref->{price_factor} ||= 1;
1277     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1278     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1279     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1280
1281     # use this for assemblies
1282     my $onhand = $ref->{onhand};
1283
1284     if ($ref->{assemblyitem}) {
1285       $row->{partnumber}{align}   = 'right';
1286       $row->{onhand}{data}        = 0;
1287       $onhand                     = 0 if ($form->{sold});
1288     }
1289
1290     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1291     $row->{partnumber}->{link}  = $edit_link;
1292     $row->{description}->{link} = $edit_link;
1293
1294     foreach (qw(sellprice listprice lastcost)) {
1295       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, -2);
1296       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1297     }
1298
1299     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1300
1301     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1302
1303     if (!$ref->{assemblyitem}) {
1304       foreach my $col (@subtotal_columns) {
1305         $totals{$col}    += $onhand * $ref->{$col};
1306         $subtotals{$col} += $onhand * $ref->{$col};
1307       }
1308
1309       $subtotals{onhand} += $onhand;
1310     }
1311
1312     # set module stuff
1313     if ($ref->{module} eq 'oe') {
1314       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');
1315       $row->{ordnumber}{link} = $edit_oe_link;
1316       $row->{quonumber}{link} = $edit_oe_link if (!$ref->{ordnumber});
1317
1318     } else {
1319       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1320     }
1321
1322     # set properties of images
1323     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1324       $row->{image}{data}     = '';
1325       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1326     }
1327     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1328
1329     $report->add_data($row);
1330
1331     my $next_ref = $form->{parts}[$idx + 1];
1332
1333     # insert subtotal rows
1334     if (($form->{l_subtotal} eq 'Y') &&
1335         (!$next_ref ||
1336          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1337       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1338
1339       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1340         $row->{onhand}->{data} = $form->format_amount(\%myconfig, $subtotals{onhand});
1341       }
1342
1343       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1344       map { $subtotals{$_} = 0 } ('onhand', @subtotal_columns);
1345
1346       $report->add_data($row);
1347
1348       $same_item = $next_ref->{ $form->{sort} };
1349     }
1350
1351     $idx++;
1352   }
1353
1354   if ($form->{"l_linetotal"}) {
1355     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1356
1357     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1358
1359     $report->add_separator();
1360     $report->add_data($row);
1361   }
1362
1363   $report->generate_with_headers();
1364
1365   $lxdebug->leave_sub();
1366 }    #end generate_report
1367
1368 sub parts_subtotal {
1369   $lxdebug->enter_sub();
1370
1371   $auth->assert('part_service_assembly_edit');
1372
1373   my (%column_data);
1374   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1375
1376   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1377   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1378
1379   $column_data{onhand} =
1380       "<th class=listsubtotal align=right>"
1381     . $form->format_amount(\%myconfig, $$subtotalonhand)
1382     . "</th>";
1383
1384   $column_data{linetotalsellprice} =
1385       "<th class=listsubtotal align=right>"
1386     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1387     . "</th>";
1388   $column_data{linetotallistprice} =
1389       "<th class=listsubtotal align=right>"
1390     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1391     . "</th>";
1392   $column_data{linetotallastcost} =
1393       "<th class=listsubtotal align=right>"
1394     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1395     . "</th>";
1396
1397   $$subtotalonhand    = 0;
1398   $$subtotalsellprice = 0;
1399   $$subtotallistprice = 0;
1400   $$subtotallastcost  = 0;
1401
1402   print "<tr class=listsubtotal>";
1403
1404   map { print "\n$column_data{$_}" } @{ $column_index };
1405
1406   print qq|
1407   </tr>
1408 |;
1409
1410   $lxdebug->leave_sub();
1411 }
1412
1413 sub edit {
1414   $lxdebug->enter_sub();
1415
1416   $auth->assert('part_service_assembly_edit');
1417
1418   # show history button
1419   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1420   #/show hhistory button
1421   IC->get_part(\%myconfig, \%$form);
1422
1423   $form->{"original_partnumber"} = $form->{"partnumber"};
1424
1425   my $title      = 'Edit ' . ucfirst $form->{item};
1426   $form->{title} = $locale->text($title);
1427
1428   &link_part;
1429   &display_form;
1430
1431   $lxdebug->leave_sub();
1432 }
1433
1434 sub link_part {
1435   $lxdebug->enter_sub();
1436
1437   $auth->assert('part_service_assembly_edit');
1438
1439   IC->create_links("IC", \%myconfig, \%$form);
1440
1441   # currencies
1442   map({ $form->{selectcurrency} .= "<option>$_\n" }
1443       split(/:/, $form->{currencies}));
1444
1445   # parts and assemblies have the same links
1446   my $item = $form->{item};
1447   if ($form->{item} eq 'assembly') {
1448     $item = 'part';
1449   }
1450
1451   # build the popup menus
1452   $form->{taxaccounts} = "";
1453   foreach my $key (keys %{ $form->{IC_links} }) {
1454     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1455
1456       # if this is a tax field
1457       if ($key =~ /IC_tax/) {
1458         if ($key =~ /\Q$item\E/) {
1459           $form->{taxaccounts} .= "$ref->{accno} ";
1460           $form->{"IC_tax_$ref->{accno}_description"} =
1461             "$ref->{accno}--$ref->{description}";
1462
1463           if ($form->{id}) {
1464             if ($form->{amount}{ $ref->{accno} }) {
1465               $form->{"IC_tax_$ref->{accno}"} = "checked";
1466             }
1467           } else {
1468             $form->{"IC_tax_$ref->{accno}"} = "checked";
1469           }
1470         }
1471       } else {
1472
1473         $form->{"select$key"} .=
1474           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1475         if ($form->{amount}{$key} eq $ref->{accno}) {
1476           $form->{$key} = "$ref->{accno}--$ref->{description}";
1477         }
1478
1479       }
1480     }
1481   }
1482   chop $form->{taxaccounts};
1483
1484   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1485     $form->{selectIC_income}  = $form->{selectIC_sale};
1486     $form->{selectIC_expense} = $form->{selectIC_cogs};
1487     $form->{IC_income}        = $form->{IC_sale};
1488     $form->{IC_expense}       = $form->{IC_cogs};
1489   }
1490
1491   delete $form->{IC_links};
1492   delete $form->{amount};
1493
1494   $form->get_partsgroup(\%myconfig, { all => 1 });
1495
1496   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1497
1498   if (@{ $form->{all_partsgroup} }) {
1499     $form->{selectpartsgroup} = qq|<option>\n|;
1500     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1501   }
1502
1503   if ($form->{item} eq 'assembly') {
1504
1505     foreach my $i (1 .. $form->{assembly_rows}) {
1506       if ($form->{"partsgroup_id_$i"}) {
1507         $form->{"partsgroup_$i"} =
1508           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1509       }
1510     }
1511     $form->get_partsgroup(\%myconfig);
1512
1513     if (@{ $form->{all_partsgroup} }) {
1514       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1515
1516       map {
1517         $form->{selectassemblypartsgroup} .=
1518           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1519       } @{ $form->{all_partsgroup} };
1520     }
1521   }
1522   $lxdebug->leave_sub();
1523 }
1524
1525 sub form_header {
1526   $lxdebug->enter_sub();
1527
1528   $auth->assert('part_service_assembly_edit');
1529
1530   $form->{eur}              = $::lx_office_conf{system}->{eur}; # config dumps into namespace - yuck
1531   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1532   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1533   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1534
1535   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1536   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1537
1538   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1539                    'partsgroup'    => 'all_partsgroup',
1540                    'vendors'       => 'ALL_VENDORS',);
1541
1542
1543   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1544   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1545
1546   # use JavaScript Calendar or not (yes!)
1547   $form->{jsscript} = 1;
1548
1549   my $units = AM->retrieve_units(\%myconfig, $form);
1550   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1551
1552   $form->{defaults} = AM->get_defaults();
1553
1554   $form->{fokus} = "ic.partnumber";
1555
1556   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1557
1558   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1559     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1560
1561   $form->header;
1562   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1563   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1564   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1565   #                                                     payment_terms     => $form->{payment_terms},
1566   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1567   print $form->parse_html_template('ic/form_header');
1568   $lxdebug->leave_sub();
1569 }
1570
1571 sub form_footer {
1572   $lxdebug->enter_sub();
1573
1574   $auth->assert('part_service_assembly_edit');
1575
1576   print $form->parse_html_template('ic/form_footer');
1577
1578   $lxdebug->leave_sub();
1579 }
1580
1581 sub makemodel_row {
1582   $lxdebug->enter_sub();
1583   my ($numrows) = @_;
1584   #hli
1585   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;
1586   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1587   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1588
1589   $lxdebug->leave_sub();
1590 }
1591
1592 sub assembly_row {
1593   $lxdebug->enter_sub();
1594   my ($numrows) = @_;
1595   my (@column_index);
1596   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1597
1598   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1599
1600   if ($form->{previousform}) {
1601     $nochange     = 1;
1602     @column_index = qw(qty unit bom partnumber description partsgroup total);
1603   } else {
1604
1605     # change callback
1606     $form->{old_callback} = $form->{callback};
1607     $callback             = $form->{callback};
1608     $form->{callback}     = "$form->{script}?action=display_form";
1609
1610     # delete action
1611     map { delete $form->{$_} } qw(action header);
1612
1613     # save form variables in a previousform variable
1614     $previousform = $form->escape($form->escape(join '&', map {
1615       sprintf "%s=%s", Q($_), /^listprice|lastcost|sellprice$/ ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}
1616     } grep { ref $form->{$_} eq '' && $form->{$_} } grep { !/^select/ } sort keys %$form ));
1617
1618     $form->{callback} = $callback;
1619     $form->{assemblytotal} = 0;
1620     $form->{assembly_purchase_price_total} = 0;
1621     $form->{weight}        = 0;
1622   }
1623
1624   my %header = (
1625    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1626    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1627    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1628    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1629    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1630    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1631    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1632    bom           => { text =>  $locale->text('BOM'),                                          },
1633    partsgroup    => { text =>  $locale->text('Group'),                                        },
1634   );
1635
1636   my @ROWS;
1637
1638   for my $i (1 .. $numrows) {
1639     my (%row, @row_hiddens);
1640
1641     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1642
1643     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1644     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1645     $form->{assemblytotal}                  += $linetotal;
1646     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1647     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1648     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1649     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1650     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1651     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1652
1653     # last row
1654     if (($i >= 1) && ($i == $numrows)) {
1655       if (!$form->{previousform}) {
1656         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1657         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1658         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1659         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1660       }
1661     # other rows
1662     } else {
1663       if ($form->{previousform}) {
1664         push @row_hiddens,          qw(qty bom);
1665         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1666         $row{qty}{data}           = $form->{"qty_$i"};
1667         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1668         $row{qty}{align}          = 'right';
1669       } else {
1670         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1671         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1672         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1673         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1674                                        $form->{"bom_$i"} ? 'checked' : '';
1675       }
1676       push @row_hiddens,        qw(unit description partnumber partsgroup);
1677       $row{unit}{data}        = $form->{"unit_$i"};
1678       $row{description}{data} = $form->{"description_$i"};
1679       $row{partsgroup}{data}  = $form->{"partsgroup_$i"};
1680       $row{bom}{align}        = 'center';
1681     }
1682
1683     $row{lastcost}{data}      = $line_purchase_price;
1684     $row{total}{data}         = $linetotal;
1685     $row{lastcost}{align}     = 'right';
1686     $row{total}{align}        = 'right';
1687     $row{deliverydate}{align} = 'right';
1688
1689     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1690     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1691
1692     push @ROWS, \%row;
1693   }
1694
1695   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1696
1697   $lxdebug->leave_sub();
1698 }
1699
1700 sub update {
1701   $lxdebug->enter_sub();
1702
1703   # parse pricegroups. and no, don't rely on check_form for this...
1704   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1705
1706   if ($form->{item} eq "assembly") {
1707     my $i = $form->{assembly_rows};
1708
1709     # if last row is empty check the form otherwise retrieve item
1710     if (   ($form->{"partnumber_$i"} eq "")
1711         && ($form->{"description_$i"} eq "")
1712         && ($form->{"partsgroup_$i"}  eq "")) {
1713
1714       &check_form;
1715
1716     } else {
1717
1718       IC->assembly_item(\%myconfig, \%$form);
1719
1720       my $rows = scalar @{ $form->{item_list} };
1721
1722       if ($rows) {
1723         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1724
1725         if ($rows > 1) {
1726           $form->{makemodel_rows}--;
1727           &select_item;
1728           ::end_of_request();
1729         } else {
1730           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1731             qw(partnumber description unit partsgroup);
1732           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1733             keys %{ $form->{item_list}[0] };
1734           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1735           $form->{assembly_rows}++;
1736
1737           &check_form;
1738
1739         }
1740
1741       } else {
1742
1743         $form->{rowcount} = $i;
1744         $form->{assembly_rows}++;
1745
1746         &new_item;
1747
1748       }
1749     }
1750
1751   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1752     &check_form;
1753   }
1754
1755   $lxdebug->leave_sub();
1756 }
1757
1758 sub save {
1759   $lxdebug->enter_sub();
1760
1761   $auth->assert('part_service_assembly_edit');
1762
1763   my ($parts_id, %newform, $amount, $callback);
1764
1765   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1766   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1767
1768   # check if there is a description
1769   $form->isblank("description", $locale->text("Part Description missing!"));
1770
1771   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1772     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1773
1774   if (!$form->{buchungsgruppen_id}) {
1775     $form->error($locale->text("Parts must have an entry type.") . " " .
1776      $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.")
1777     );
1778   }
1779
1780   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1781   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1782
1783   # save part
1784   $lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
1785   if (IC->save(\%myconfig, \%$form) == 3) {
1786     $form->error($locale->text('Partnumber not unique!'));
1787   }
1788   # saving the history
1789   if(!exists $form->{addition}) {
1790     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1791     $form->{addition} = "SAVED";
1792     $form->save_history;
1793   }
1794   # /saving the history
1795   $parts_id = $form->{id};
1796
1797   my $i;
1798   # load previous variables
1799   if ($form->{previousform}) {
1800
1801     # save the new form variables before splitting previousform
1802     map { $newform{$_} = $form->{$_} } keys %$form;
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     # restore original values
1811     $::auth->restore_form_from_session($newform{previousform}, form => $form);
1812     $form->{taxaccounts} = $newform{taxaccount2};
1813
1814     if ($form->{item} eq 'assembly') {
1815
1816       # undo number formatting
1817       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1818         qw(weight listprice sellprice rop);
1819
1820       $form->{assembly_rows}--;
1821       $i = $newform{rowcount};
1822       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1823
1824       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1825       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1826
1827       # change/add values for assembly item
1828       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1829       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1830
1831       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1832       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1833       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1834
1835     } else {
1836
1837       # set values for last invoice/order item
1838       $i = $form->{rowcount};
1839       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1840
1841       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1842       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1843
1844       $form->{"longdescription_$i"} = $newform{notes};
1845
1846       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1847
1848       if ($form->{exchangerate} != 0) {
1849         $form->{"sellprice_$i"} /= $form->{exchangerate};
1850       }
1851
1852       $lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
1853
1854       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1855       chop $form->{"taxaccounts_$i"};
1856       foreach my $item (qw(description rate taxnumber)) {
1857         my $index = $form->{"taxaccounts_$i"} . "_$item";
1858         $form->{$index} = $newform{$index};
1859       }
1860
1861       # credit remaining calculation
1862       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1863
1864       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1865       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1866
1867       $form->{creditremaining} -= $amount;
1868
1869       # redo number formatting, because invoice parse them!
1870       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1871     }
1872
1873     $form->{"id_$i"} = $parts_id;
1874
1875     # Get the actual price factor (not just the ID) for the marge calculation.
1876     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1877     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1878       next if ($pfac->{id} != $newform{price_factor_id});
1879       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1880       last;
1881     }
1882     delete $form->{ALL_PRICE_FACTORS};
1883
1884     delete $form->{action};
1885
1886     # restore original callback
1887     $callback = $form->unescape($form->{callback});
1888     $form->{callback} = $form->unescape($form->{old_callback});
1889     delete $form->{old_callback};
1890
1891     $form->{makemodel_rows}--;
1892
1893     # put callback together
1894     foreach my $key (keys %$form) {
1895
1896       # do single escape for Apache 2.0
1897       my $value = $form->escape($form->{$key}, 1);
1898       $callback .= qq|&$key=$value|;
1899     }
1900     $form->{callback} = $callback;
1901   }
1902   $lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
1903
1904   # redirect
1905   $form->redirect;
1906
1907   $lxdebug->leave_sub();
1908 }
1909
1910 sub save_as_new {
1911   $lxdebug->enter_sub();
1912
1913   $auth->assert('part_service_assembly_edit');
1914
1915   # saving the history
1916   if(!exists $form->{addition}) {
1917     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1918     $form->{addition} = "SAVED AS NEW";
1919     $form->save_history;
1920   }
1921   # /saving the history
1922   $form->{id} = 0;
1923   if ($form->{"original_partnumber"} &&
1924       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1925     $form->{partnumber} = "";
1926   }
1927   &save;
1928   $lxdebug->leave_sub();
1929 }
1930
1931 sub delete {
1932   $lxdebug->enter_sub();
1933
1934   $auth->assert('part_service_assembly_edit');
1935
1936   # saving the history
1937   if(!exists $form->{addition}) {
1938     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1939     $form->{addition} = "DELETED";
1940     $form->save_history;
1941   }
1942   # /saving the history
1943   my $rc = IC->delete(\%myconfig, \%$form);
1944
1945   # redirect
1946   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
1947   $form->error($locale->text('Cannot delete item!'));
1948
1949   $lxdebug->leave_sub();
1950 }
1951
1952 sub price_row {
1953   $lxdebug->enter_sub();
1954
1955   $auth->assert('part_service_assembly_edit');
1956
1957   my ($numrows) = @_;
1958
1959   my @PRICES = map +{
1960     pricegroup    => $form->{"pricegroup_$_"},
1961     pricegroup_id => $form->{"pricegroup_id_$_"},
1962     price         => $form->{"price_$_"},
1963   }, 1 .. $numrows;
1964
1965   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
1966
1967   $lxdebug->leave_sub();
1968 }
1969
1970 sub parts_language_selection {
1971   $lxdebug->enter_sub();
1972
1973   $auth->assert('part_service_assembly_edit');
1974
1975   my $languages = IC->retrieve_languages(\%myconfig, $form);
1976
1977   if ($form->{language_values} ne "") {
1978     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
1979       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
1980
1981       foreach my $language (@{ $languages }) {
1982         next unless ($language->{id} == $language_id);
1983
1984         $language->{translation}     = $translation;
1985         $language->{longdescription} = $longdescription;
1986         last;
1987       }
1988     }
1989   }
1990
1991   my @header_sort = qw(name longdescription);
1992   my %header_title = ( "name" => $locale->text("Name"),
1993                        "longdescription" => $locale->text("Long Description"),
1994                        );
1995
1996   my @header =
1997     map(+{ "column_title" => $header_title{$_},
1998            "column" => $_,
1999          },
2000         @header_sort);
2001
2002   $form->{"title"} = $locale->text("Language Values");
2003   $form->header();
2004   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2005                                                                     "LANGUAGES" => $languages, });
2006
2007   $lxdebug->leave_sub();
2008 }
2009
2010 sub ajax_autocomplete {
2011   $main::lxdebug->enter_sub();
2012
2013   my $form     = $main::form;
2014   my %myconfig = %main::myconfig;
2015
2016   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2017   $form->{$form->{column}} = $form->{q}           || '';
2018   $form->{limit}           = ($form->{limit} * 1) || 10;
2019   $form->{searchitems}   ||= '';
2020
2021   my @results = IC->all_parts(\%myconfig, $form);
2022
2023   print $form->ajax_response_header(),
2024         $form->parse_html_template('ic/ajax_autocomplete');
2025
2026   $main::lxdebug->leave_sub();
2027 }
2028
2029 sub continue { call_sub($form->{"nextsub"}); }