bin/mozilla/ic.pl

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