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