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