Merge remote branch 'origin/master'

[kivitendo-erp.git] / bin / mozilla / ic.pl
diff --git a/bin/mozilla/ic.pl b/bin/mozilla/ic.pl

index 2dc3366..f01b5af 100644 (file)
--- a/bin/mozilla/ic.pl
+++ b/bin/mozilla/ic.pl
@@ -38,6 +38,7 @@ use List::MoreUtils qw(any);
  use SL::AM;
  use SL::CVar;
  use SL::IC;
+use SL::Helper::Flash;
  use SL::ReportGenerator;
  
  #use SL::PE;
@@ -288,7 +289,6 @@ sub update_prices {
  #  $form->header;
  #
  #  print qq|
-#<body>
  #  <form method=post action=ic.pl>
  #    <table width=100%>
  #     <tr>
@@ -388,8 +388,6 @@ sub update_prices {
  #    . $locale->text('TOP100') . qq|">
  #
  #</form>
-#</body>
-#</html>
  #|;
  #  $lxdebug->leave_sub();
  #}    #end list()
@@ -725,8 +723,6 @@ sub addtop100 {
    my $colspan = $#column_index + 1;
  
    print qq|
-<body>
-
  <table width=100%>
    <tr>
      <th class=listtop colspan=$colspan>$form->{title}</th>
@@ -981,9 +977,6 @@ sub addtop100 {
      . $locale->text('choice') . qq|">
  
    </form>
-
-</body>
-</html>
  |;
  
    $lxdebug->leave_sub();
@@ -1245,8 +1238,14 @@ sub generate_report {
    map { $column_defs{$_}->{visible} ||= $form->{"l_$_"} ? 1 : 0 } @columns;
    map { $column_defs{$_}->{align}   = 'right' } qw(onhand sellprice listprice lastcost linetotalsellprice linetotallastcost linetotallistprice rop weight soldtotal), @pricegroup_columns;
  
-  my @hidden_variables = (qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups), @itemstatus_keys, @callback_keys,
-                              map({ "cvar_$_->{name}" } @searchable_custom_variables), map { "l_$_" } @columns);
+  my @hidden_variables = (
+    qw(l_subtotal l_linetotal searchitems itemstatus bom l_pricegroups),
+    @itemstatus_keys,
+    @callback_keys,
+    map({ "cvar_$_->{name}" } @searchable_custom_variables),
+    map({'cvar_'. $_->{name} .'_qtyop'} grep({$_->{type} eq 'number'} @searchable_custom_variables)),
+    map({ "l_$_" } @columns),
+  );
  
    my $callback         = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
  
@@ -1593,6 +1592,10 @@ sub form_header {
    IC->retrieve_buchungsgruppen(\%myconfig, $form);
    @{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
  
+  if (($form->{partnumber} ne '') && !SL::TransNumber->new(number => $form->{partnumber}, type => $form->{item}, id => $form->{id})->is_unique) {
+    flash('info', $::locale->text('This partnumber is not unique. You should change it.'));
+  }
+
    # use JavaScript Calendar or not (yes!)
    $form->{jsscript} = 1;
  
@@ -1601,7 +1604,7 @@ sub form_header {
  
    $form->{defaults} = AM->get_defaults();
  
-  $form->{fokus} = "ic.partnumber";
+  $::request->{layout}->focus("#partnumber");
  
    $form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'IC', 'trans_id' => $form->{id});
  
@@ -1697,7 +1700,7 @@ sub assembly_row {
      $form->{"qty_$i"}    = $form->format_amount(\%myconfig, $form->{"qty_$i"});
      $linetotal           = $form->format_amount(\%myconfig, $linetotal, 2);
      $line_purchase_price = $form->format_amount(\%myconfig, $line_purchase_price, 2);
-    $href                = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&rowcount=$i&previousform=$previousform|;
+    $href                = build_std_url("action=edit", qq|id=$form->{"id_$i"}|, "rowcount=$numrows", "currow=$i", "previousform=$previousform");
      map { $row{$_}{data} = "" } qw(qty unit partnumber description bom partsgroup runningnumber);
  
      # last row
@@ -1717,7 +1720,8 @@ sub assembly_row {
          $row{bom}{data}           = $form->{"bom_$i"} ? "x" : "&nbsp;";
          $row{qty}{align}          = 'right';
        } else {
-        $row{partnumber}{data}    = qq|<a href=$href>$form->{"partnumber_$i"}</a>|;
+        $row{partnumber}{data}    = qq|$form->{"partnumber_$i"}|;
+        $row{partnumber}{link}     = $href;
          $row{qty}{data}           = qq|<input name="qty_$i" size=5 value="$form->{"qty_$i"}">|;
          $row{runningnumber}{data} = qq|<input name="runningnumber_$i" size=3 value="$i">|;
          $row{bom}{data}   = sprintf qq|<input name="bom_$i" type=checkbox class=checkbox value=1 %s>|,
@@ -1878,7 +1882,11 @@ sub save {
          qw(weight listprice sellprice rop);
  
        $form->{assembly_rows}--;
-      $i = $form->{assembly_rows};
+      if ($newform{currow}) {
+        $i = $newform{currow};
+      } else {
+        $i = $form->{assembly_rows};
+      }
        $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
  
        $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"};