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     'notes'              => { 'text' => $locale->text('Notes'), },
1028     'drawing'            => { 'text' => $locale->text('Drawing'), },
1029     'ean'                => { 'text' => $locale->text('EAN'), },
1030     'image'              => { 'text' => $locale->text('Image'), },
1031     'invnumber'          => { 'text' => $locale->text('Invoice Number'), },
1032     'lastcost'           => { 'text' => $locale->text('Last Cost'), },
1033     'linetotallastcost'  => { 'text' => $locale->text('Extended'), },
1034     'linetotallistprice' => { 'text' => $locale->text('Extended'), },
1035     'linetotalsellprice' => { 'text' => $locale->text('Extended'), },
1036     'listprice'          => { 'text' => $locale->text('List Price'), },
1037     'microfiche'         => { 'text' => $locale->text('Microfiche'), },
1038     'name'               => { 'text' => $locale->text('Name'), },
1039     'onhand'             => { 'text' => $locale->text('Stocked Qty'), },
1040     'ordnumber'          => { 'text' => $locale->text('Order Number'), },
1041     'partnumber'         => { 'text' => $locale->text('Part Number'), },
1042     'partsgroup'         => { 'text' => $locale->text('Group'), },
1043     'priceupdate'        => { 'text' => $locale->text('Updated'), },
1044     'quonumber'          => { 'text' => $locale->text('Quotation'), },
1045     'rop'                => { 'text' => $locale->text('ROP'), },
1046     'sellprice'          => { 'text' => $locale->text('Sell Price'), },
1047     'serialnumber'       => { 'text' => $locale->text('Serial Number'), },
1048     'soldtotal'          => { 'text' => $locale->text('Qty in Selected Records'), },
1049     'transdate'          => { 'text' => $locale->text('Transdate'), },
1050     'unit'               => { 'text' => $locale->text('Unit'), },
1051     'weight'             => { 'text' => $locale->text('Weight'), },
1052     'projectnumber'      => { 'text' => $locale->text('Project Number'), },
1053     'projectdescription' => { 'text' => $locale->text('Project Description'), },
1054   );
1055
1056   $revers     = $form->{revers};
1057   $lastsort   = $form->{lastsort};
1058
1059   # sorting and direction of sorting
1060   # ToDO: change this to the simpler field+direction method
1061   if (($form->{lastsort} eq "") && ($form->{sort} eq undef)) {
1062     $form->{revers}   = 0;
1063     $form->{lastsort} = "partnumber";
1064     $form->{sort}     = "partnumber";
1065   } else {
1066     if ($form->{lastsort} eq $form->{sort}) {
1067       $form->{revers} = 1 - $form->{revers};
1068     } else {
1069       $form->{revers} = 0;
1070       $form->{lastsort} = $form->{sort};
1071     }    #fi
1072   }    #fi
1073
1074   # special case if we have a serialnumber limit search
1075   # serialnumbers are only given in invoices and orders,
1076   # so they can only pop up in bought, sold, rfq, and quoted stuff
1077   $form->{no_sn_joins} = 'Y' if (   !$form->{bought} && !$form->{sold}
1078                                  && !$form->{rfq}    && !$form->{quoted}
1079                                  && ($form->{l_serialnumber} || $form->{serialnumber}));
1080
1081   # special case for any checkbox of bought | sold | onorder | ordered | rfq | quoted.
1082   # if any of these are ticked the behavior changes slightly for lastcost
1083   # since all those are aggregation checks for the legder tables this is an internal switch
1084   # refered to as ledgerchecks
1085   $form->{ledgerchecks} = 'Y' if (   $form->{bought} || $form->{sold} || $form->{onorder}
1086                                   || $form->{ordered} || $form->{rfq} || $form->{quoted});
1087
1088   # if something should be activated if something else is active, enter it here
1089   my %dependencies = (
1090     onhand       => [ qw(l_onhand) ],
1091     short        => [ qw(l_onhand) ],
1092     onorder      => [ qw(l_ordnumber) ],
1093     ordered      => [ qw(l_ordnumber) ],
1094     rfq          => [ qw(l_quonumber) ],
1095     quoted       => [ qw(l_quonumber) ],
1096     bought       => [ qw(l_invnumber) ],
1097     sold         => [ qw(l_invnumber) ],
1098     ledgerchecks => [ qw(l_name) ],
1099     serialnumber => [ qw(l_serialnumber) ],
1100     no_sn_joins  => [ qw(bought sold) ],
1101   );
1102
1103   # get name of partsgroup if id is given
1104   my $pg_name;
1105   if ($form->{partsgroup_id}) {
1106     my $pg = SL::DB::PartsGroup->new(id => $form->{partsgroup_id})->load;
1107     $pg_name = $pg->{'partsgroup'};
1108   }
1109
1110   # these strings get displayed at the top of the results to indicate the user which switches were used
1111   my %optiontexts = (
1112     active        => $locale->text('Active'),
1113     obsolete      => $locale->text('Obsolete'),
1114     orphaned      => $locale->text('Orphaned'),
1115     onhand        => $locale->text('On Hand'),
1116     short         => $locale->text('Short'),
1117     onorder       => $locale->text('On Order'),
1118     ordered       => $locale->text('Ordered'),
1119     rfq           => $locale->text('RFQ'),
1120     quoted        => $locale->text('Quoted'),
1121     bought        => $locale->text('Bought'),
1122     sold          => $locale->text('Sold'),
1123     transdatefrom => $locale->text('From')       . " " . $locale->date(\%myconfig, $form->{transdatefrom}, 1),
1124     transdateto   => $locale->text('To (time)')  . " " . $locale->date(\%myconfig, $form->{transdateto}, 1),
1125     partnumber    => $locale->text('Part Number')      . ": '$form->{partnumber}'",
1126     partsgroup    => $locale->text('Group')            . ": '$form->{partsgroup}'",
1127     partsgroup_id => $locale->text('Group')            . ": '$pg_name'",
1128     serialnumber  => $locale->text('Serial Number')    . ": '$form->{serialnumber}'",
1129     description   => $locale->text('Part Description') . ": '$form->{description}'",
1130     make          => $locale->text('Make')             . ": '$form->{make}'",
1131     model         => $locale->text('Model')            . ": '$form->{model}'",
1132     drawing       => $locale->text('Drawing')          . ": '$form->{drawing}'",
1133     microfiche    => $locale->text('Microfiche')       . ": '$form->{microfiche}'",
1134     l_soldtotal   => $locale->text('Qty in Selected Records'),
1135     ean           => $locale->text('EAN')              . ": '$form->{ean}'",
1136   );
1137
1138   my @itemstatus_keys = qw(active obsolete orphaned onhand short);
1139   my @callback_keys   = qw(onorder ordered rfq quoted bought sold partnumber partsgroup partsgroup_id serialnumber description make model
1140                            drawing microfiche l_soldtotal l_deliverydate transdatefrom transdateto ean);
1141
1142   # calculate dependencies
1143   for (@itemstatus_keys, @callback_keys) {
1144     next if ($form->{itemstatus} ne $_ && !$form->{$_});
1145     map { $form->{$_} = 'Y' } @{ $dependencies{$_} } if $dependencies{$_};
1146   }
1147
1148   # generate callback and optionstrings
1149   my @options;
1150   for my  $key (@itemstatus_keys, @callback_keys) {
1151     next if ($form->{itemstatus} ne $key && !$form->{$key});
1152     push @options, $optiontexts{$key};
1153   }
1154
1155   # special case for lastcost
1156   if ($form->{ledgerchecks}){
1157     # ledgerchecks don't know about sellprice or lastcost. they just return a
1158     # price. so rename sellprice to price, and drop lastcost.
1159     $column_defs{sellprice}{text} = $locale->text('Price');
1160     $form->{l_lastcost} = ""
1161   }
1162
1163   if ($form->{description}) {
1164     $description = $form->{description};
1165     $description =~ s/\n/<br>/g;
1166   }
1167
1168   if ($form->{l_linetotal}) {
1169     $form->{l_qty} = "Y";
1170     $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
1171     $form->{l_linetotallastcost}  = $form->{searchitems} eq 'assembly' && !$form->{bom} ? "" : 'Y' if  $form->{l_lastcost};
1172     $form->{l_linetotallistprice} = "Y" if $form->{l_listprice};
1173   }
1174
1175   if ($form->{searchitems} eq 'service') {
1176
1177     # remove bin, weight and rop from list
1178     map { $form->{"l_$_"} = "" } qw(bin weight rop);
1179
1180     $form->{l_onhand} = "";
1181
1182     # qty is irrelevant unless bought or sold
1183     if (   $form->{bought}
1184         || $form->{sold}
1185         || $form->{onorder}
1186         || $form->{ordered}
1187         || $form->{rfq}
1188         || $form->{quoted}) {
1189 #      $form->{l_onhand} = "Y";
1190     } else {
1191       $form->{l_linetotalsellprice} = "";
1192       $form->{l_linetotallastcost}  = "";
1193     }
1194   }
1195
1196   # soldtotal doesn't make sense with more than one bsooqr option.
1197   # so reset it to sold (the most common option), and issue a warning
1198   my @bsooqr = qw(sold bought onorder ordered rfq quoted);
1199   if ($form->{l_subtotal} && 1 < grep { $form->{$_} } @bsooqr) {
1200     my $enabled       = first { $form->{$_} } @bsooqr;
1201     $form->{$_}       = ''   for @bsooqr;
1202     $form->{$enabled} = 'Y';
1203
1204     push @options, $::locale->text('Subtotal cannot distinguish betweens record types. Only one of the selected record types will be displayed: #1', $optiontexts{$enabled});
1205   }
1206
1207   IC->all_parts(\%myconfig, \%$form);
1208
1209   my @columns = qw(
1210     partnumber description notes partsgroup bin onhand rop soldtotal unit listprice
1211     linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost
1212     priceupdate weight image drawing microfiche invnumber ordnumber quonumber
1213     transdate name serialnumber deliverydate ean projectnumber projectdescription
1214   );
1215
1216   my $pricegroups = SL::DB::Manager::Pricegroup->get_all(sort => 'id');
1217   my @pricegroup_columns;
1218   my %column_defs_pricegroups;
1219   if ($form->{l_pricegroups}) {
1220     @pricegroup_columns      = map { "pricegroup_" . $_->id } @{ $pricegroups };
1221     %column_defs_pricegroups = map {
1222       "pricegroup_" . $_->id => {
1223         text    => $::locale->text('Pricegroup') . ' ' . $_->pricegroup,
1224         visible => 1,
1225       },
1226     }  @{ $pricegroups };
1227   }
1228   push @columns, @pricegroup_columns;
1229
1230   my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
1231   my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
1232   my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
1233
1234   push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
1235
1236   %column_defs = (%column_defs, %column_defs_cvars, %column_defs_pricegroups);
1237   map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
1238   map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
1239
1240   my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), @itemstatus_keys, @callback_keys,
1241                               map({ "cvar_$_->{name}" } @searchable_custom_variables), map { "l_$_" } @columns);
1242
1243   my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
1244
1245   my @sort_full        = qw(partnumber description onhand soldtotal deliverydate);
1246   my @sort_no_revers   = qw(partsgroup bin priceupdate invnumber ordnumber quonumber name image drawing serialnumber);
1247
1248   foreach my $col (@sort_full) {
1249     $column_defs{$col}->{link} = join '&', $callback, "sort=$col", map { "$_=" . E($form->{$_}) } qw(revers lastsort);
1250   }
1251   map { $column_defs{$_}->{link} = "${callback}&sort=$_" } @sort_no_revers;
1252
1253   # add order to callback
1254   $form->{callback} = join '&', ($callback, map { "${_}=" . E($form->{$_}) } qw(sort revers));
1255
1256   my $report = SL::ReportGenerator->new(\%myconfig, $form);
1257
1258   my %attachment_basenames = (
1259     'part'     => $locale->text('part_list'),
1260     'service'  => $locale->text('service_list'),
1261     'assembly' => $locale->text('assembly_list'),
1262   );
1263
1264   $report->set_options('top_info_text'         => $locale->text('Options') . ': ' . join(', ', grep $_, @options),
1265                        'raw_bottom_info_text'  => $form->parse_html_template('ic/generate_report_bottom'),
1266                        'output_format'         => 'HTML',
1267                        'title'                 => $form->{title},
1268                        'attachment_basename'   => $attachment_basenames{$form->{searchitems}} . strftime('_%Y%m%d', localtime time),
1269   );
1270   $report->set_options_from_form();
1271   $locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
1272
1273   $report->set_columns(%column_defs);
1274   $report->set_column_order(@columns);
1275
1276   $report->set_export_options('generate_report', @hidden_variables, qw(sort revers));
1277
1278   $report->set_sort_indicator($form->{sort}, $form->{revers} ? 0 : 1);
1279
1280   CVar->add_custom_variables_to_report('module'         => 'IC',
1281                                        'trans_id_field' => 'id',
1282                                        'configs'        => $cvar_configs,
1283                                        'column_defs'    => \%column_defs,
1284                                        'data'           => $form->{parts});
1285
1286   CVar->add_custom_variables_to_report('module'         => 'IC',
1287                                        'sub_module'     => sub { $_[0]->{ioi} },
1288                                        'trans_id_field' => 'ioi_id',
1289                                        'configs'        => $cvar_configs,
1290                                        'column_defs'    => \%column_defs,
1291                                        'data'           => $form->{parts});
1292
1293   my @subtotal_columns = qw(sellprice listprice lastcost);
1294   my %subtotals = map { $_ => 0 } ('onhand', @subtotal_columns);
1295   my %totals    = map { $_ => 0 } @subtotal_columns;
1296   my $idx       = 0;
1297   my $same_item = @{ $form->{parts} } ? $form->{parts}[0]{ $form->{sort} } : undef;
1298
1299   my $defaults  = AM->get_defaults();
1300
1301   # postprocess parts
1302   foreach my $ref (@{ $form->{parts} }) {
1303
1304     # fresh row, for inserting later
1305     my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
1306
1307     $ref->{exchangerate} ||= 1;
1308     $ref->{price_factor} ||= 1;
1309     $ref->{sellprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1310     $ref->{listprice}     *= $ref->{exchangerate} / $ref->{price_factor};
1311     $ref->{lastcost}      *= $ref->{exchangerate} / $ref->{price_factor};
1312
1313     # use this for assemblies
1314     my $soldtotal = $ref->{soldtotal};
1315
1316     if ($ref->{assemblyitem}) {
1317       $row->{partnumber}{align}   = 'right';
1318       $row->{soldtotal}{data}     = 0;
1319       $soldtotal                  = 0 if ($form->{sold});
1320     }
1321
1322     my $edit_link               = build_std_url('action=edit', 'id=' . E($ref->{id}), 'callback');
1323     $row->{partnumber}->{link}  = $edit_link;
1324     $row->{description}->{link} = $edit_link;
1325
1326     foreach (qw(sellprice listprice lastcost)) {
1327       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{$_}, 2);
1328       $row->{"linetotal$_"}{data} = $form->format_amount(\%myconfig, $ref->{onhand} * $ref->{$_}, 2);
1329     }
1330     foreach ( @pricegroup_columns ) {
1331       $row->{$_}{data}            = $form->format_amount(\%myconfig, $ref->{"$_"}, 2);
1332     };
1333
1334
1335     map { $row->{$_}{data} = $form->format_amount(\%myconfig, $ref->{$_}); } qw(onhand rop weight soldtotal);
1336
1337     $row->{weight}->{data} .= ' ' . $defaults->{weightunit};
1338
1339     if (!$ref->{assemblyitem}) {
1340       foreach my $col (@subtotal_columns) {
1341         $totals{$col}    += $soldtotal * $ref->{$col};
1342         $subtotals{$col} += $soldtotal * $ref->{$col};
1343       }
1344
1345       $subtotals{soldtotal} += $soldtotal;
1346     }
1347
1348     # set module stuff
1349     if ($ref->{module} eq 'oe') {
1350       # für oe gibt es vier fälle, jeweils nach kunde oder lieferant unterschiedlich:
1351       #
1352       # | ist bestellt  | Vom Kunde bestellt |  -> edit_oe_ord_link
1353       # | Anfrage       | Angebot            |  -> edit_oe_quo_link
1354
1355       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');
1356       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');
1357
1358       $row->{ordnumber}{link} = $edit_oe_ord_link;
1359       $row->{quonumber}{link} = $edit_oe_quo_link if (!$ref->{ordnumber});
1360
1361     } else {
1362       $row->{invnumber}{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'type=invoice', 'id=' . E($ref->{trans_id}), 'callback');
1363     }
1364
1365     # set properties of images
1366     if ($ref->{image} && (lc $report->{options}->{output_format} eq 'html')) {
1367       $row->{image}{data}     = '';
1368       $row->{image}{raw_data} = '<a href="' . H($ref->{image}) . '"><img src="' . H($ref->{image}) . '" height="32" border="0"></a>';
1369     }
1370     map { $row->{$_}{link} = $ref->{$_} } qw(drawing microfiche);
1371
1372     $report->add_data($row);
1373
1374     my $next_ref = $form->{parts}[$idx + 1];
1375
1376     # insert subtotal rows
1377     if (($form->{l_subtotal} eq 'Y') &&
1378         (!$next_ref ||
1379          (!$next_ref->{assemblyitem} && ($same_item ne $next_ref->{ $form->{sort} })))) {
1380       my $row = { map { $_ => { 'class' => 'listsubtotal', } } @columns };
1381
1382       if (($form->{searchitems} ne 'assembly') || !$form->{bom}) {
1383         $row->{soldtotal}->{data} = $form->format_amount(\%myconfig, $subtotals{soldtotal});
1384       }
1385
1386       map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $subtotals{$_}, 2) } @subtotal_columns;
1387       map { $subtotals{$_} = 0 } ('soldtotal', @subtotal_columns);
1388
1389       $report->add_data($row);
1390
1391       $same_item = $next_ref->{ $form->{sort} };
1392     }
1393
1394     $idx++;
1395   }
1396
1397   if ($form->{"l_linetotal"} && !$form->{report_generator_csv_options_for_import}) {
1398     my $row = { map { $_ => { 'class' => 'listtotal', } } @columns };
1399
1400     map { $row->{"linetotal$_"}->{data} = $form->format_amount(\%myconfig, $totals{$_}, 2) } @subtotal_columns;
1401
1402     $report->add_separator();
1403     $report->add_data($row);
1404   }
1405
1406   $report->generate_with_headers();
1407
1408   $lxdebug->leave_sub();
1409 }    #end generate_report
1410
1411 sub parts_subtotal {
1412   $lxdebug->enter_sub();
1413
1414   $auth->assert('part_service_assembly_edit');
1415
1416   my (%column_data);
1417   my ($column_index, $subtotalonhand, $subtotalsellprice, $subtotallastcost, $subtotallistprice) = @_;
1418
1419   map { $column_data{$_} = "<td>&nbsp;</td>" } @{ $column_index };
1420   $$subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom});
1421
1422   $column_data{onhand} =
1423       "<th class=listsubtotal align=right>"
1424     . $form->format_amount(\%myconfig, $$subtotalonhand)
1425     . "</th>";
1426
1427   $column_data{linetotalsellprice} =
1428       "<th class=listsubtotal align=right>"
1429     . $form->format_amount(\%myconfig, $$subtotalsellprice, 2)
1430     . "</th>";
1431   $column_data{linetotallistprice} =
1432       "<th class=listsubtotal align=right>"
1433     . $form->format_amount(\%myconfig, $$subtotallistprice, 2)
1434     . "</th>";
1435   $column_data{linetotallastcost} =
1436       "<th class=listsubtotal align=right>"
1437     . $form->format_amount(\%myconfig, $$subtotallastcost, 2)
1438     . "</th>";
1439
1440   $$subtotalonhand    = 0;
1441   $$subtotalsellprice = 0;
1442   $$subtotallistprice = 0;
1443   $$subtotallastcost  = 0;
1444
1445   print "<tr class=listsubtotal>";
1446
1447   map { print "\n$column_data{$_}" } @{ $column_index };
1448
1449   print qq|
1450   </tr>
1451 |;
1452
1453   $lxdebug->leave_sub();
1454 }
1455
1456 sub edit {
1457   $lxdebug->enter_sub();
1458
1459   $auth->assert('part_service_assembly_edit');
1460
1461   # show history button
1462   $form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
1463   #/show hhistory button
1464   IC->get_part(\%myconfig, \%$form);
1465
1466   $form->{"original_partnumber"} = $form->{"partnumber"};
1467
1468   my $title      = 'Edit ' . ucfirst $form->{item};
1469   $form->{title} = $locale->text($title);
1470
1471   &link_part;
1472   &display_form;
1473
1474   $lxdebug->leave_sub();
1475 }
1476
1477 sub link_part {
1478   $lxdebug->enter_sub();
1479
1480   $auth->assert('part_service_assembly_edit');
1481
1482   IC->create_links("IC", \%myconfig, \%$form);
1483
1484   # currencies
1485   map({ $form->{selectcurrency} .= "<option>$_\n" }
1486       split(/:/, $form->{currencies}));
1487
1488   # parts and assemblies have the same links
1489   my $item = $form->{item};
1490   if ($form->{item} eq 'assembly') {
1491     $item = 'part';
1492   }
1493
1494   # build the popup menus
1495   $form->{taxaccounts} = "";
1496   foreach my $key (keys %{ $form->{IC_links} }) {
1497     foreach my $ref (@{ $form->{IC_links}{$key} }) {
1498
1499       # if this is a tax field
1500       if ($key =~ /IC_tax/) {
1501         if ($key =~ /\Q$item\E/) {
1502           $form->{taxaccounts} .= "$ref->{accno} ";
1503           $form->{"IC_tax_$ref->{accno}_description"} =
1504             "$ref->{accno}--$ref->{description}";
1505
1506           if ($form->{id}) {
1507             if ($form->{amount}{ $ref->{accno} }) {
1508               $form->{"IC_tax_$ref->{accno}"} = "checked";
1509             }
1510           } else {
1511             $form->{"IC_tax_$ref->{accno}"} = "checked";
1512           }
1513         }
1514       } else {
1515
1516         $form->{"select$key"} .=
1517           "<option $ref->{selected}>$ref->{accno}--$ref->{description}\n";
1518         if ($form->{amount}{$key} eq $ref->{accno}) {
1519           $form->{$key} = "$ref->{accno}--$ref->{description}";
1520         }
1521
1522       }
1523     }
1524   }
1525   chop $form->{taxaccounts};
1526
1527   if (($form->{item} eq "part") || ($form->{item} eq "assembly")) {
1528     $form->{selectIC_income}  = $form->{selectIC_sale};
1529     $form->{selectIC_expense} = $form->{selectIC_cogs};
1530     $form->{IC_income}        = $form->{IC_sale};
1531     $form->{IC_expense}       = $form->{IC_cogs};
1532   }
1533
1534   delete $form->{IC_links};
1535   delete $form->{amount};
1536
1537   $form->get_partsgroup(\%myconfig, { all => 1 });
1538
1539   $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}";
1540
1541   if (@{ $form->{all_partsgroup} }) {
1542     $form->{selectpartsgroup} = qq|<option>\n|;
1543     map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} };
1544   }
1545
1546   if ($form->{item} eq 'assembly') {
1547
1548     foreach my $i (1 .. $form->{assembly_rows}) {
1549       if ($form->{"partsgroup_id_$i"}) {
1550         $form->{"partsgroup_$i"} =
1551           qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|;
1552       }
1553     }
1554     $form->get_partsgroup(\%myconfig);
1555
1556     if (@{ $form->{all_partsgroup} }) {
1557       $form->{selectassemblypartsgroup} = qq|<option>\n|;
1558
1559       map {
1560         $form->{selectassemblypartsgroup} .=
1561           qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n|
1562       } @{ $form->{all_partsgroup} };
1563     }
1564   }
1565   $lxdebug->leave_sub();
1566 }
1567
1568 sub form_header {
1569   $lxdebug->enter_sub();
1570
1571   $auth->assert('part_service_assembly_edit');
1572
1573   $form->{pg_keys}          = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
1574   $form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
1575   $form->{notes_rows}       =  max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
1576
1577   map { $form->{"is_$_"}  = ($form->{item} eq $_) } qw(part service assembly);
1578   map { $form->{$_}       =~ s/"/&quot;/g;        } qw(unit);
1579
1580   $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
1581                    'partsgroup'    => 'all_partsgroup',
1582                    'vendors'       => 'ALL_VENDORS',);
1583
1584
1585   IC->retrieve_buchungsgruppen(\%myconfig, $form);
1586   @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
1587
1588   # use JavaScript Calendar or not (yes!)
1589   $form->{jsscript} = 1;
1590
1591   my $units = AM->retrieve_units(\%myconfig, $form);
1592   $form->{ALL_UNITS} = [ map +{ name => $_ }, sort { $units->{$a}{sortkey} <=> $units->{$b}{sortkey} } keys %$units ];
1593
1594   $form->{defaults} = AM->get_defaults();
1595
1596   $form->{fokus} = "ic.partnumber";
1597
1598   $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
1599
1600   CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}, show_disabled_message => 1)
1601     if (scalar @{ $form->{CUSTOM_VARIABLES} });
1602
1603   $form->header;
1604   #print $form->parse_html_template('ic/form_header', { ALL_PRICE_FACTORS => $form->{ALL_PRICE_FACTORS},
1605   #                                                     ALL_UNITS         => $form->{ALL_UNITS},
1606   #                                                     BUCHUNGSGRUPPEN   => $form->{BUCHUNGSGRUPPEN},
1607   #                                                     payment_terms     => $form->{payment_terms},
1608   #                                                     all_partsgroup    => $form->{all_partsgroup}});
1609   print $form->parse_html_template('ic/form_header');
1610   $lxdebug->leave_sub();
1611 }
1612
1613 sub form_footer {
1614   $lxdebug->enter_sub();
1615
1616   $auth->assert('part_service_assembly_edit');
1617
1618   print $form->parse_html_template('ic/form_footer');
1619
1620   $lxdebug->leave_sub();
1621 }
1622
1623 sub makemodel_row {
1624   $lxdebug->enter_sub();
1625   my ($numrows) = @_;
1626   #hli
1627   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;
1628   delete @{$form}{grep { m/^make_\d+/ || m/^model_\d+/ } keys %{ $form }};
1629   print $form->parse_html_template('ic/makemodel', { MM_DATA => [ @mm_data, {} ], mm_rows => scalar @mm_data + 1 });
1630
1631   $lxdebug->leave_sub();
1632 }
1633
1634 sub assembly_row {
1635   $lxdebug->enter_sub();
1636   my ($numrows) = @_;
1637   my (@column_index);
1638   my ($nochange, $callback, $previousform, $linetotal, $line_purchase_price, $href);
1639
1640   @column_index = qw(runningnumber qty unit bom partnumber description partsgroup lastcost total);
1641
1642   if ($form->{previousform}) {
1643     $nochange     = 1;
1644     @column_index = qw(qty unit bom partnumber description partsgroup total);
1645   } else {
1646
1647     # change callback
1648     $form->{old_callback} = $form->{callback};
1649     $callback             = $form->{callback};
1650     $form->{callback}     = "$form->{script}?action=display_form";
1651
1652     # delete action
1653     map { delete $form->{$_} } qw(action header);
1654
1655     # save form variables in a previousform variable
1656     my %form_to_save = map   { ($_ => m/^ (?: listprice | sellprice | lastcost ) $/x ? $form->format_amount(\%myconfig, $form->{$_}) : $form->{$_}) }
1657                        keys %{ $form };
1658     $previousform    = $::auth->save_form_in_session(form => \%form_to_save);
1659
1660     $form->{callback} = $callback;
1661     $form->{assemblytotal} = 0;
1662     $form->{assembly_purchase_price_total} = 0;
1663     $form->{weight}        = 0;
1664   }
1665
1666   my %header = (
1667    runningnumber => { text =>  $locale->text('No.'),              nowrap => 1, width => '5%'  },
1668    qty           => { text =>  $locale->text('Qty'),              nowrap => 1, width => '10%' },
1669    unit          => { text =>  $locale->text('Unit'),             nowrap => 1, width => '5%'  },
1670    partnumber    => { text =>  $locale->text('Part Number'),      nowrap => 1, width => '20%' },
1671    description   => { text =>  $locale->text('Part Description'), nowrap => 1, width => '50%' },
1672    lastcost      => { text =>  $locale->text('Purchase Prices'),  nowrap => 1, width => '50%' },
1673    total         => { text =>  $locale->text('Sale Prices'),      nowrap => 1,                },
1674    bom           => { text =>  $locale->text('BOM'),                                          },
1675    partsgroup    => { text =>  $locale->text('Group'),                                        },
1676   );
1677
1678   my @ROWS;
1679
1680   for my $i (1 .. $numrows) {
1681     my (%row, @row_hiddens);
1682
1683     $form->{"partnumber_$i"} =~ s/\"/&quot;/g;
1684
1685     $linetotal           = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1686     $line_purchase_price = $form->round_amount($form->{"lastcost_$i"} *  $form->{"qty_$i"} / ($form->{"price_factor_$i"} || 1), 4);
1687     $form->{assemblytotal}                  += $linetotal;
1688     $form->{assembly_purchase_price_total}  += $line_purchase_price;
1689     $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
1690     $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
1691     $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
1692     $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
1693     map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
1694
1695     # last row
1696     if (($i >= 1) && ($i == $numrows)) {
1697       if (!$form->{previousform}) {
1698         $row{partnumber}{data}  = qq|<input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">|;
1699         $row{qty}{data}         = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1700         $row{description}{data} = qq|<input name="description_$i" size=40 value="$form->{"description_$i"}">|;
1701         $row{partsgroup}{data}  = qq|<input name="partsgroup_$i" size=10 value="$form->{"partsgroup_$i"}">|;
1702       }
1703     # other rows
1704     } else {
1705       if ($form->{previousform}) {
1706         push @row_hiddens,          qw(qty bom);
1707         $row{partnumber}{data}    = $form->{"partnumber_$i"};
1708         $row{qty}{data}           = $form->{"qty_$i"};
1709         $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
1710         $row{qty}{align}          = 'right';
1711       } else {
1712         $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
1713         $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
1714         $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
1715         $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
1716                                        $form->{"bom_$i"} ? 'checked' : '';
1717       }
1718       push @row_hiddens,        qw(unit description partnumber partsgroup);
1719       $row{unit}{data}        = $form->{"unit_$i"};
1720       #Bei der Artikelbeschreibung und Warengruppe können Sonderzeichen verwendet
1721       #werden, die den HTML Code stören. Daher sollen diese im Template escaped werden
1722       #dies geschieht, wenn die Variable escape gesetzt ist
1723       $row{description}{data}   = $form->{"description_$i"};
1724       $row{description}{escape} = 1;
1725       $row{partsgroup}{data}    = $form->{"partsgroup_$i"};
1726       $row{partsgroup}{escape}  = 1;
1727       $row{bom}{align}          = 'center';
1728     }
1729
1730     $row{lastcost}{data}      = $line_purchase_price;
1731     $row{total}{data}         = $linetotal;
1732     $row{lastcost}{align}     = 'right';
1733     $row{total}{align}        = 'right';
1734     $row{deliverydate}{align} = 'right';
1735
1736     push @row_hiddens, qw(id sellprice lastcost weight price_factor_id price_factor);
1737     $row{hiddens} = [ map +{ name => "${_}_$i", value => $form->{"${_}_$i"} }, @row_hiddens ];
1738
1739     push @ROWS, \%row;
1740   }
1741
1742   print $form->parse_html_template('ic/assembly_row', { COLUMNS => \@column_index, ROWS => \@ROWS, HEADER => \%header });
1743
1744   $lxdebug->leave_sub();
1745 }
1746
1747 sub update {
1748   $lxdebug->enter_sub();
1749
1750   # parse pricegroups. and no, don't rely on check_form for this...
1751   map { $form->{"price_$_"} = $form->parse_amount(\%myconfig, $form->{"price_$_"}) } 1 .. $form->{price_rows};
1752
1753   # same for makemodel lastcosts
1754   # but parse_amount not necessary for assembly component lastcosts
1755   unless ($form->{item} eq "assembly") {
1756     map { $form->{"lastcost_$_"} = $form->parse_amount(\%myconfig, $form->{"lastcost_$_"}) } 1 .. $form->{"makemodel_rows"};
1757   };
1758
1759   if ($form->{item} eq "assembly") {
1760     my $i = $form->{assembly_rows};
1761
1762     # if last row is empty check the form otherwise retrieve item
1763     if (   ($form->{"partnumber_$i"} eq "")
1764         && ($form->{"description_$i"} eq "")
1765         && ($form->{"partsgroup_$i"}  eq "")) {
1766
1767       &check_form;
1768
1769     } else {
1770
1771       IC->assembly_item(\%myconfig, \%$form);
1772
1773       my $rows = scalar @{ $form->{item_list} };
1774
1775       if ($rows) {
1776         $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1777
1778         if ($rows > 1) {
1779           $form->{makemodel_rows}--;
1780           select_item(mode => 'IC');
1781           ::end_of_request();
1782         } else {
1783           map { $form->{item_list}[$i]{$_} =~ s/\"/&quot;/g }
1784             qw(partnumber description unit partsgroup);
1785           map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} }
1786             keys %{ $form->{item_list}[0] };
1787           $form->{"runningnumber_$i"} = $form->{assembly_rows};
1788           $form->{assembly_rows}++;
1789
1790           &check_form;
1791
1792         }
1793
1794       } else {
1795
1796         $form->{rowcount} = $i;
1797         $form->{assembly_rows}++;
1798
1799         &new_item;
1800
1801       }
1802     }
1803
1804   } elsif (($form->{item} eq 'part') || ($form->{item} eq 'service')) {
1805     &check_form;
1806   }
1807
1808   $lxdebug->leave_sub();
1809 }
1810
1811 sub save {
1812   $lxdebug->enter_sub();
1813
1814   $auth->assert('part_service_assembly_edit');
1815
1816   my ($parts_id, %newform, $amount, $callback);
1817
1818   # check if there is a part number - commented out, cause there is an automatic allocation of numbers
1819   # $form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Part Number missing!"));
1820
1821   # check if there is a description
1822   $form->isblank("description", $locale->text("Part Description missing!"));
1823
1824   $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!"))
1825     if $form->{obsolete} && $form->{onhand} * 1 && $form->{item} ne 'service';
1826
1827   if (!$form->{buchungsgruppen_id}) {
1828     $form->error($locale->text("Parts must have an entry type.") . " " .
1829      $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.")
1830     );
1831   }
1832
1833   $form->error($locale->text('Description must not be empty!')) unless $form->{description};
1834   $form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
1835
1836   # save part
1837   if (IC->save(\%myconfig, \%$form) == 3) {
1838     $form->error($locale->text('Partnumber not unique!'));
1839   }
1840   # saving the history
1841   if(!exists $form->{addition}) {
1842     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1843     $form->{addition} = "SAVED";
1844     $form->save_history;
1845   }
1846   # /saving the history
1847   $parts_id = $form->{id};
1848
1849   my $i;
1850   # load previous variables
1851   if ($form->{previousform}) {
1852
1853     # save the new form variables before splitting previousform
1854     map { $newform{$_} = $form->{$_} } keys %$form;
1855
1856     # don't trample on previous variables
1857     map { delete $form->{$_} } keys %newform;
1858
1859     my $ic_cvar_configs = CVar->get_configs(module => 'IC');
1860     my @ic_cvar_fields  = map { "cvar_$_->{name}" } @{ $ic_cvar_configs };
1861
1862     # restore original values
1863     $::auth->restore_form_from_session($newform{previousform}, form => $form);
1864     $form->{taxaccounts} = $newform{taxaccount2};
1865
1866     if ($form->{item} eq 'assembly') {
1867
1868       # undo number formatting
1869       map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
1870         qw(weight listprice sellprice rop);
1871
1872       $form->{assembly_rows}--;
1873       $i = $form->{assembly_rows};
1874       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1875
1876       $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};
1877       $form->{weight}    -= $form->{"weight_$i"} * $form->{"qty_$i"};
1878
1879       # change/add values for assembly item
1880       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice inventory_accno income_accno expense_accno price_factor_id);
1881       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1882
1883       # das ist __voll__ bekloppt, dass so auszurechnen jb 22.5.09
1884       #$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
1885       $form->{weight}    += $form->{"weight_$i"} * $form->{"qty_$i"};
1886
1887     } else {
1888
1889       # set values for last invoice/order item
1890       $i = $form->{rowcount};
1891       $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
1892
1893       map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice lastcost price_factor_id);
1894       map { $form->{"ic_${_}_$i"} = $newform{$_} } @ic_cvar_fields;
1895
1896       $form->{"longdescription_$i"} = $newform{notes};
1897
1898       $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
1899
1900       if ($form->{exchangerate} != 0) {
1901         $form->{"sellprice_$i"} /= $form->{exchangerate};
1902       }
1903
1904       map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
1905       chop $form->{"taxaccounts_$i"};
1906       foreach my $item (qw(description rate taxnumber)) {
1907         my $index = $form->{"taxaccounts_$i"} . "_$item";
1908         $form->{$index} = $newform{$index};
1909       }
1910
1911       # credit remaining calculation
1912       $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"};
1913
1914       map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"});
1915       map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded};
1916
1917       $form->{creditremaining} -= $amount;
1918
1919       # redo number formatting, because invoice parse them!
1920       map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(weight listprice sellprice lastcost rop);
1921     }
1922
1923     $form->{"id_$i"} = $parts_id;
1924
1925     # Get the actual price factor (not just the ID) for the marge calculation.
1926     $form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');
1927     foreach my $pfac (@{ $form->{ALL_PRICE_FACTORS} }) {
1928       next if ($pfac->{id} != $newform{price_factor_id});
1929       $form->{"marge_price_factor_$i"} = $pfac->{factor};
1930       last;
1931     }
1932     delete $form->{ALL_PRICE_FACTORS};
1933
1934     delete $form->{action};
1935
1936     # restore original callback
1937     $callback = $form->unescape($form->{callback});
1938     $form->{callback} = $form->unescape($form->{old_callback});
1939     delete $form->{old_callback};
1940
1941     $form->{makemodel_rows}--;
1942
1943     # put callback together
1944     foreach my $key (keys %$form) {
1945
1946       # do single escape for Apache 2.0
1947       my $value = $form->escape($form->{$key}, 1);
1948       $callback .= qq|&$key=$value|;
1949     }
1950     $form->{callback} = $callback;
1951   }
1952
1953   # redirect
1954   $form->redirect;
1955
1956   $lxdebug->leave_sub();
1957 }
1958
1959 sub save_as_new {
1960   $lxdebug->enter_sub();
1961
1962   $auth->assert('part_service_assembly_edit');
1963
1964   # saving the history
1965   if(!exists $form->{addition}) {
1966     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1967     $form->{addition} = "SAVED AS NEW";
1968     $form->save_history;
1969   }
1970   # /saving the history
1971   $form->{id} = 0;
1972   if ($form->{"original_partnumber"} &&
1973       ($form->{"partnumber"} eq $form->{"original_partnumber"})) {
1974     $form->{partnumber} = "";
1975   }
1976   &save;
1977   $lxdebug->leave_sub();
1978 }
1979
1980 sub delete {
1981   $lxdebug->enter_sub();
1982
1983   $auth->assert('part_service_assembly_edit');
1984
1985   # saving the history
1986   if(!exists $form->{addition}) {
1987     $form->{snumbers} = qq|partnumber_| . $form->{partnumber};
1988     $form->{addition} = "DELETED";
1989     $form->save_history;
1990   }
1991   # /saving the history
1992   my $rc = IC->delete(\%myconfig, \%$form);
1993
1994   # redirect
1995   $form->redirect($locale->text('Item deleted!')) if ($rc > 0);
1996   $form->error($locale->text('Cannot delete item!'));
1997
1998   $lxdebug->leave_sub();
1999 }
2000
2001 sub price_row {
2002   $lxdebug->enter_sub();
2003
2004   $auth->assert('part_service_assembly_edit');
2005
2006   my ($numrows) = @_;
2007
2008   my @PRICES = map +{
2009     pricegroup    => $form->{"pricegroup_$_"},
2010     pricegroup_id => $form->{"pricegroup_id_$_"},
2011     price         => $form->{"price_$_"},
2012   }, 1 .. $numrows;
2013
2014   print $form->parse_html_template('ic/price_row', { PRICES => \@PRICES });
2015
2016   $lxdebug->leave_sub();
2017 }
2018
2019 sub parts_language_selection {
2020   $lxdebug->enter_sub();
2021
2022   $auth->assert('part_service_assembly_edit');
2023
2024   my $languages = IC->retrieve_languages(\%myconfig, $form);
2025
2026   if ($form->{language_values} ne "") {
2027     foreach my $item (split(/---\+\+\+---/, $form->{language_values})) {
2028       my ($language_id, $translation, $longdescription) = split(/--\+\+--/, $item);
2029
2030       foreach my $language (@{ $languages }) {
2031         next unless ($language->{id} == $language_id);
2032
2033         $language->{translation}     = $translation;
2034         $language->{longdescription} = $longdescription;
2035
2036         $language->{translation_area}     = ($language->{translation_rows} = $form->numtextrows($language->{translation}, 40)) > 1;
2037         $language->{longdescription_rows} = max 4, $form->numtextrows($language->{longdescription}, 40);
2038
2039         last;
2040       }
2041     }
2042   }
2043
2044   my @header_sort = qw(name longdescription);
2045   my %header_title = ( "name" => $locale->text("Name"),
2046                        "longdescription" => $locale->text("Long Description"),
2047                        );
2048
2049   my @header =
2050     map(+{ "column_title" => $header_title{$_},
2051            "column" => $_,
2052          },
2053         @header_sort);
2054
2055   $form->{"title"} = $locale->text("Language Values");
2056   $form->header();
2057   print $form->parse_html_template("ic/parts_language_selection", { "HEADER"    => \@header,
2058                                                                     "LANGUAGES" => $languages, });
2059
2060   $lxdebug->leave_sub();
2061 }
2062
2063 sub ajax_autocomplete {
2064   $main::lxdebug->enter_sub();
2065
2066   my $form     = $main::form;
2067   my %myconfig = %main::myconfig;
2068
2069   $form->{column}          = 'description'     unless $form->{column} =~ /^partnumber|description$/;
2070   $form->{$form->{column}} = $form->{q}           || '';
2071   $form->{limit}           = ($form->{limit} * 1) || 10;
2072   $form->{searchitems}   ||= '';
2073
2074   my @results = IC->all_parts(\%myconfig, $form);
2075
2076   print $form->ajax_response_header(),
2077         $form->parse_html_template('ic/ajax_autocomplete');
2078
2079   $main::lxdebug->leave_sub();
2080 }
2081
2082 sub back_to_record {
2083   _check_io_auth();
2084
2085
2086   delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
2087
2088   $::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
2089   $::form->{rowcount}--;
2090   $::form->{action}   = 'display_form';
2091   $::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
2092   $::form->redirect;
2093 }
2094
2095 sub continue { call_sub($form->{"nextsub"}); }
2096
2097 sub dispatcher {
2098   my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
2099   $::form->error($::locale->text('No action defined.')) unless $action;
2100
2101   $::form->{dispatched_action} = $action;
2102   call_sub($action);
2103 }