projekt kivitendo

  # All warehouse / transfer default values

  map { $self->{$_} = SL::DB::Default->get->$_ } qw(transfer_default transfer_default_use_master_default_bin transfer_default_ignore_onhand

                                                    warehouse_id_ignore_onhand bin_id_ignore_onhand warehouse_id bin_id);

  # for the default warehouse and bin we get the list and

  # set a empty value with warehouse_id and bin_id = 0

  # set defaults to empty

    $self->{warehouse_id_ignore_onhand} ||= $self->{WAREHOUSES}->[$max -1]->{id};

    $self->{bin_id_ignore_onhand}       ||= $self->{WAREHOUSES}->[$max -1]->{BINS}->[0]->{id};

  # undef warehouse_id_ignore_onhand if the empty value is selected

  if ( ($::form->{warehouse_id_ignore_onhand} == 0) && ($::form->{bin_id_ignore_onhand} == 0) ) {

    undef $::form->{warehouse_id_ignore_onhand};

    undef $::form->{bin_id_ignore_onhand};

  }

  # All warehouse / transfer default values

  map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(transfer_default transfer_default_use_master_default_bin transfer_default_ignore_onhand

    transfer_default                        => { type => 'boolean', default => 'true' },

    transfer_default_use_master_default_bin => { type => 'boolean', default => 'false' },

    transfer_default_ignore_onhand          => { type => 'boolean', default => 'false' },

    warehouse_id_ignore_onhand              => { type => 'integer' },

    bin_id_ignore_onhand                    => { type => 'integer' },

 ],

    bin_obj => {

      class       => 'SL::DB::Bin',

      key_columns => { bin_id_ignore_onhand => 'id' },

    warehouse => {

      class       => 'SL::DB::Warehouse',

      key_columns => { warehouse_id => 'id' },

    },

    warehouse_obj => {

      class       => 'SL::DB::Warehouse',

      key_columns => { warehouse_id_ignore_onhand => 'id' },

    },

sub get_default_warehouse_id_ignore_onhand {

  my ($self) = @_;

  return ($self->{data}->{warehouse_id_ignore_onhand});

}

sub get_default_bin_id_ignore_onhand {

  my ($self) = @_;

  return ($self->{data}->{bin_id_ignore_onhand});

}

sub get_transfer_default {

  my ($self) = @_;

  return ($self->{data}->{transfer_default});

}

sub get_transfer_default_use_master_default_bin {

  my ($self) = @_;

  return ($self->{data}->{transfer_default_use_master_default_bin});

}

sub get_transfer_default_ignore_onhand {

  my ($self) = @_;

  return ($self->{data}->{transfer_default_ignore_onhand});

}

=item C<get_default_warehouse_id_ignore_onhand>

Returns the default warehouse_id for transfers without checking the

current stock quantity

=item C<get_default_bin_id_ignore_onhand>

Returns the default bin_id for transfers without checking the.

current stock quantity

=item C<get_transfer_default>

=item C<get_transfer_default_use_master_default_bin>

=item C<get_transfer_default_ignore_onhand>

Returns the default behavior for the transfer out default feature (true or false)

#

# Eingabe:  Teilenummer, Lagerplatz_Id (bin_id)

# Ausgabe:  Die maximale Anzahl der Teile in diesem Lagerplatz

#           Bzw. Fehler, falls Chargen oder bestbefore

#           bei eingelagerten Teilen definiert sind.

#

sub get_max_qty_parts_bin {

$main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(parts_id bin_id)); #die brauchen wir

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh();

  my $query = qq| SELECT SUM(qty), chargenumber, bestbefore  FROM inventory where parts_id = ?

                            AND bin_id = ? GROUP BY chargenumber, bestbefore|;

  my $sth_QTY      = prepare_execute_query($form, $dbh, $query, ,$params{parts_id}, $params{bin_id}); #info: aufruf an DBUtils.pm

  my $max_qty_parts = 0; #Initialisierung mit 0

  # falls derselbe artikel mehrmals eingelagert ist

  # chargennummer, muss entsprechend händisch agiert werden

  my $i = 0;

  my $error;

  while (my $ref = $sth_QTY->fetchrow_hashref()) {  # wir laufen über alle Haltbarkeiten und Chargen(s.a. SQL-Query oben)

    $max_qty_parts += $ref->{sum};

    $i++;

    if ($ref->{chargenumber} || $ref->{bestbefore}){

      $error=1;

    }

  }

  #if ($i < 1){

  #  $error = 2;

  #}

  $main::lxdebug->leave_sub();

  return ($max_qty_parts, $error);

}

  print $form->parse_html_template('do/form_footer',

    {transfer_default         => ($::instance_conf->get_transfer_default)});

  foreach my $action (qw(update ship_to print e_mail save transfer_out transfer_out_default

                         transfer_in transfer_in_default mark_closed save_as_new invoice delete)) {

sub transfer_out_default {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  transfer_in_out_default('direction' => 'out');

  $main::lxdebug->leave_sub();

}

sub transfer_in_default {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  transfer_in_out_default('direction' => 'in');

  $main::lxdebug->leave_sub();

}

# Falls das Standardlagerverfahren aktiv ist, wird

# geprüft, ob alle Standardlagerplätze für die Auslager-

# artikel vorhanden sind UND ob die Warenmenge ausreicht zum

# Auslagern. Falls nicht wird entsprechend eine Fehlermeldung

# generiert. Offen Chargennummer / bestbefore wird nicht berücksichtigt

sub transfer_in_out_default {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  my %params   = @_;

  my (%missing_default_bins, %qty_parts, @all_requests, %part_info_map, $default_warehouse_id, $default_bin_id);

  Common::check_params(\%params, qw(direction));

  # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll

  if ($::instance_conf->get_transfer_default_use_master_default_bin) {

    $default_warehouse_id = $::instance_conf->get_default_warehouse_id;

    $default_bin_id       = $::instance_conf->get_default_bin_id;

  }

  my @part_ids = map { $form->{"id_${_}"} } (1 .. $form->{rowcount});

  if (@part_ids) {

    my $units         = AM->retrieve_units(\%myconfig, $form);

    %part_info_map = IC->get_basic_part_info('id' => \@part_ids);

    foreach my $i (1 .. $form->{rowcount}) {

      next unless ($form->{"id_$i"});

      my $base_unit_factor = $units->{ $part_info_map{$form->{"id_$i"}}->{unit} }->{factor} || 1;

      my $qty =   $form->parse_amount(\%myconfig, $form->{"qty_$i"}) * $units->{$form->{"unit_$i"}}->{factor} / $base_unit_factor;

      $qty_parts{$form->{"id_$i"}} += $qty;

      $part_info_map{$form->{"id_$i"}}{bin_id}       ||= $default_bin_id;

      $part_info_map{$form->{"id_$i"}}{warehouse_id} ||= $default_warehouse_id;

      push @all_requests, {

                        'chargenumber' => '',  #?? die müsste entsprechend geholt werden

                        #'bestbefore' => undef, # TODO wird nicht berücksichtigt

                        'bin_id' => $part_info_map{$form->{"id_$i"}}{bin_id},

                        'qty' => $qty,

                        'parts_id' => $form->{"id_$i"},

                        'comment' => 'Default transfer DO',

                        'ok' => 1,

                        'unit' => $part_info_map{$form->{"id_$i"}}{unit},

                        'warehouse_id' => $part_info_map{$form->{"id_$i"}}{warehouse_id},

                        'oe_id' => $form->{id},

                        'project_id' => $form->{"project_id_$i"} ? $form->{"project_id_$i"} : $form->{globalproject_id}

                      };

    }

    # jetzt wird erst überprüft, ob die Stückzahl entsprechend stimmt.

    if ($params{direction} eq 'out') {  # wird nur für ausgehende Mengen benötigit

      foreach my $key (keys %qty_parts) {

        $missing_default_bins{$key}{missing_bin} = 1 unless ($part_info_map{$key}{bin_id});

        next unless ($part_info_map{$key}{bin_id}); # abbruch

        my ($max_qty, $error) = WH->get_max_qty_parts_bin(parts_id => $key, bin_id => $part_info_map{$key}{bin_id});

        if ($error == 1) {

          # wir können nicht entscheiden, welche charge oder mhd (bestbefore) ausgewählt sein soll

          # deshalb rückmeldung nach oben geben, manuell auszulagern

          # TODO Bei nur einem Treffer mit Charge oder bestbefore wäre das noch möglich

          $missing_default_bins{$key}{chargenumber} = 1;

        }

        if ($max_qty < $qty_parts{$key}){

          $missing_default_bins{$key}{missing_qty} = $max_qty - $qty_parts{$key};

        }

      }

    }

  } # if @parts_id

  # Abfrage für Fehlerbehandlung (nur bei direction == out)

  if (scalar (keys %missing_default_bins)) {

    my $fehlertext;

    foreach my $fehler (keys %missing_default_bins) {

      my $ware = WH->get_part_description(parts_id => $fehler);

      if ($missing_default_bins{$fehler}{missing_bin}){

        $fehlertext .= "Kein Standardlagerplatz definiert bei $ware <br>";

      }

      if ($missing_default_bins{$fehler}{missing_qty}) {  # missing_qty

        $fehlertext .= "Es fehlen " . $missing_default_bins{$fehler}{missing_qty}*-1 .

                       " von $ware auf dem Standard-Lagerplatz " . $part_info_map{$fehler}{bin} .   " zum Auslagern<br>";

      }

      if ($missing_default_bins{$fehler}{chargenumber}){

        $fehlertext .= "Die Ware hat eine Chargennummer oder eine Mindesthaltbarkeit definiert.

                        Hier kann man nicht automatisch entscheiden.

                        Bitte diesen Lieferschein manuell auslagern.

                        Bei: $ware";

      }

      # auslagern soll immer gehen, auch wenn nicht genügend auf lager ist.

      # der lagerplatz ist hier extra konfigurierbar, bspw. Lager-Korrektur mit

      # Lagerplatz Lagerplatz-Korrektur

      my $default_warehouse_id_ignore_onhand = $::instance_conf->get_default_warehouse_id_ignore_onhand;

      my $default_bin_id_ignore_onhand       = $::instance_conf->get_default_bin_id_ignore_onhand;

      if ($::instance_conf->get_transfer_default_ignore_onhand && $default_bin_id_ignore_onhand) {

        # entsprechende defaults holen

        # falls chargenumber, bestbefore oder anzahl nicht stimmt, auf automatischen

        # lagerplatz wegbuchen!

        foreach (@all_requests) {

          if ($_->{parts_id} eq $fehler){

          $_->{bin_id}        = $default_bin_id_ignore_onhand;

          $_->{warehouse_id}  = $default_warehouse_id_ignore_onhand;

          }

        }

      } else {

        #$main::lxdebug->message(0, 'Fehlertext: ' . $fehlertext);

        $form->show_generic_error($locale->text("Cannot transfer. <br> Reason:<br>#1", $fehlertext ), 'back_button' => 1);

      }

    }

  }

  # hier der eigentliche fallunterschied für in oder out

  my $prefix   = $params{direction} eq 'in' ? 'in' : 'out';

  # dieser array_ref ist für DO->save da:

  # einmal die all_requests in YAML verwandeln, damit delivery_order_items_stock

  # gefüllt werden kann.

  my $i = 1;

  foreach (@all_requests){

    $form->{"stock_${prefix}_$i"} = YAML::Dump([$_]);

    $i++;

  }

  save(no_redirect => 1); # Wir können auslagern, deshalb beleg speichern

                          # und in delivery_order_items_stock speichern

  DO->transfer_in_out('direction' => $prefix,

                      'requests'  => \@all_requests);

  SL::DB::DeliveryOrder->new(id => $form->{id})->load->update_attributes(delivered => 1);

  $form->{callback} = 'do.pl?action=edit&type=sales_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'out';

  $form->{callback} = 'do.pl?action=edit&type=purchase_delivery_order&id=' . $form->escape($form->{id}) if $params{direction} eq 'in';

  $form->redirect;

}

Größere neue Features:

- Lagerverwaltung sinnvoller mit Stammdaten verknüpft

  Freitextfeld-Lagerplatz in Stammdaten durch Lager und Lagerplatz ersetzt.

  Entsprechende Vorauswahl beim Einkaufslieferschein. Der Standardlagerplatz wird

  schon direkt vorausgewählt.

  Ferner wird der Standardlagerplatz unter Lager -> Einlagern entsprechend auch

  vorausgewählt.

  Den Standardlagerplatz kann man unter Mandantenkonfiguration voreinstellen.

  Der voreingestellte Standardlagerplatz ist dann die Vorauswahl für neu angelegte

  Waren.

  Sowohl Einkaufs- als auch Verkaufslieferschein haben einen neue Funktion,

  Ein- / Auslagern über Standardlagerplatz. Diese Funktion ist an- bzw.

  abschaltbar in der Mandatenkonfiguration (standardmässig an).

  Die Funktion lässt sich noch wie folgt konfigurieren:

  - Falls kein Standardlagerplatz in den Stammdaten hinterlegt ist, verwende den

    vorkonfigurierten Standardlagerplatz.

  - Falls der Bestand nicht ausreicht zum Auslagern oder eine Mindesthaltbarkeit, bzw.

    Chargennummer vergeben (welches ein Abbruchkriterium beim Auslagern ist), lager dennoch

    aus und verwende hierfür den vorkonfigurierte Fehlbestands-, bzw. Fehlbuchungslagerplatz.

  'Cannot transfer. <br> Reason:<br>#1' => 'Kann nicht auslagern. <br>Grund:<br>#1',

  'Default Bin with ignoring onhand' => 'Standard-Lagerplatz für Lagerbewegungen ohne Überprüfung auf verfügbare Menge ',

  'Default Transfer'            => 'Ein- / Auslagern über Standardlagerplätze',

  'Default Transfer Out always succeed. The current part onhand is ignored and the inventory can have negative stocks (not recommended).' => 'Auslagern über Standardlagerplatz funktioniert immer (verfügbare Menge wird nicht geprüft). Die Lagerbewegung wird auf den unten konfigurierten Lagerplatz gebucht (nicht empfohlen).',

  'Default Transfer Out with negative inventory' => 'Standard-Auslagern ohne Prüfung auf Bestand',

  'Default Transfer with Master Bin' => 'Standardlagerplatz für Standard-Auslagern verwenden, falls keiner für die Ware explizit definiert wurde',

  'Default Warehouse with ignoring on hand' => 'Standardlager für Auslagern ohne Prüfung auf Bestand',

  'If configured this bin will be preselected for all new parts. Also this bin will be used as the master default bin, if default transfer out with master bin is activated.' => 'Falls konfiguriert, wird dieses Lager mit Lagerplatz für neu angelegte Waren vorausgewählt.',

  'If the default transfer out always succeed use this bin for negative stock quantity.' => 'Standardlagerplatz für Auslagern ohne Prüfung auf Bestand',

  'Show Transfer via default'   => 'Ein- / Auslagern über Standardlagerplatz anzeigen',

  'This is the default bin for ignoring onhand' => 'Standardlagerplatz für Auslagern ohne Bestandsprüfung',

  'Transfer in via default'     => 'Einlagern über Standard-Lagerplatz',

  'Transfer out via default'    => 'Auslagern über Standard-Lagerplatz',

  'Use master default bin for Default Transfer, if no default bin for the part is configured' => 'Standardlagerplatz für Ein- / Auslagern über Standard-Lagerplatz, falls für die Ware kein expliziter Lagerplatz konfiguriert ist',

[%- USE JavaScript -%]

 <script type="text/javascript" src="js/common.js"></script>

 <script type="text/javascript" src="js/parts_language_selection.js"></script>

 <script type="text/javascript">

  <!--

      warehouses = new Array();

      [%- USE WAREHOUSES_it = Iterator(SELF.WAREHOUSES) %][%- FOREACH warehouse = WAREHOUSES_it %]

      warehouses[[% WAREHOUSES_it.count - 1 %]] = new Array();

      warehouses[[% WAREHOUSES_it.count - 1 %]]['id'] = [% warehouse.id %];

      warehouses[[% WAREHOUSES_it.count - 1 %]]['bins'] = new Array();

      [% USE BINS_it = Iterator(warehouse.BINS) %][% FOREACH bin = BINS_it %]

      warehouses[[% WAREHOUSES_it.count - 1 %]]['bins'][[% BINS_it.count - 1 %]] = new Array();

      warehouses[[% WAREHOUSES_it.count - 1 %]]['bins'][[% BINS_it.count - 1 %]]['description'] = "[% JavaScript.escape(bin.description) %]";

      warehouses[[% WAREHOUSES_it.count - 1 %]]['bins'][[% BINS_it.count - 1 %]]['id'] = [% bin.id %];

      [% END %]

      [% END %]

      function warehouse_selected(warehouse_id, bin_id, bin_id_name) {

        // bin_id_name is optional and only used in client_config.html

        var bin_id_name = bin_id_name || 'bin_id';

        var control = document.getElementById(bin_id_name);

        for (var i = control.options.length - 1; i >= 0; i--) {

          control.options[i] = null;

        }

        var warehouse_index = 0;

        for (i = 0; i < warehouses.length; i++)

          if (warehouses[i]['id'] == warehouse_id) {

            warehouse_index = i;

            break;

          }

        var warehouse = warehouses[warehouse_index];

        var bin_index = 0;

        for (i = 0; i < warehouse['bins'].length; i++)

          if (warehouse['bins'][i]['id'] == bin_id) {

            bin_index = i;

            break;

          }

        for (i = 0; i < warehouse['bins'].length; i++) {

          control.options[i] = new Option(warehouse['bins'][i]['description'], warehouse['bins'][i]['id']);

        }

        control.options[bin_index].selected = true;

      }

      $(function() {

        warehouse_selected([% SELF.warehouse_id %], [% SELF.bin_id %], 'bin_id');

        warehouse_selected([% SELF.warehouse_id_ignore_onhand %], [% SELF.bin_id_ignore_onhand %], 'bin_id_ignore_onhand');

      })

    -->

 </script>

   <td align="right">[% 'Default Transfer' | $T8 %]</td>

   <td>

     [% L.yes_no_tag('transfer_default', SELF.transfer_default) %]

   </td>

   <td>

     [% 'Show Transfer via default' | $T8 %]<br>

  </td>

  </tr>

  <tr>

   <td align="right">[% 'Default Transfer with Master Bin' | $T8 %]</td>

   <td>

     [% L.yes_no_tag('transfer_default_use_master_default_bin', SELF.transfer_default_use_master_default_bin) %]

   </td>

   <td>

     [% 'Use master default bin for Default Transfer, if no default bin for the part is configured' | $T8 %]<br>

  </td>

  </tr>

  <tr>

   <td align="right">[% 'Default Transfer Out with negative inventory' | $T8 %]</td>

   <td>

     [% L.yes_no_tag('transfer_default_ignore_onhand', SELF.transfer_default_ignore_onhand) %]

   </td>

   <td>

     [% 'Default Transfer Out always succeed. The current part onhand is ignored and the inventory can have negative stocks (not recommended).' | $T8 %]<br>

  </td>

  </tr>

 <tr> </tr>

<tr>

<th align="right" nowrap="true">[% 'Default Warehouse' | $T8 %]</th>

<td>

 <select name="warehouse_id" onchange="warehouse_selected(warehouses[this.selectedIndex]['id'], 0)">

  [%- FOREACH warehouse = SELF.WAREHOUSES %]

    <option value="[% HTML.escape(warehouse.id) %]"[% IF SELF.warehouse_id == warehouse.id %] selected[% END %]>[% warehouse.description %]</option>

  [%- END %]

 </select>

</td>

<td>

   [% 'This is the default bin for parts' | $T8 %]<br>

   [% 'If configured this bin will be preselected for all new parts. Also this bin will be used as the master default bin, if default transfer out with master bin is activated.' | $T8 %]<br>

</td>

</tr>

<tr>

<th align="right" nowrap="true">[% 'Default Bin' | $T8 %]</th>

<td><select id="bin_id" name="bin_id"></select></td>

</tr>

<tr>

<th align="right" nowrap="true">[% 'Default Warehouse with ignoring on hand' | $T8 %]</th>

<td>

 <select name="warehouse_id_ignore_onhand" onchange="warehouse_selected(warehouses[this.selectedIndex]['id'], 0, 'bin_id_ignore_onhand')">

  [%- FOREACH warehouse = SELF.WAREHOUSES %]

    <option value="[% HTML.escape(warehouse.id) %]"[% IF SELF.warehouse_id_ignore_onhand == warehouse.id %] selected[% END %]>[% warehouse.description %]</option>

  [%- END %]

 </select>

</td>

<td>

   [% 'This is the default bin for ignoring onhand' | $T8 %]<br>

   [% 'If the default transfer out always succeed use this bin for negative stock quantity.' | $T8 %]<br>

</td>

</tr>

<tr>

<th align="right" nowrap="true">[% 'Default Bin with ignoring onhand' | $T8 %]</th>

<td><select id="bin_id_ignore_onhand" name="bin_id_ignore_onhand"></select></td>

</tr>

<tr>

   [% IF transfer_default %]

   <input class="submit" type="submit" name="action_transfer_out_default" value="[% 'Transfer out via default' | $T8 %]">

   [%- END %]

   [% IF transfer_default %]

   <input class="submit" type="submit" name="action_transfer_in_default" value="[% 'Transfer in via default' | $T8 %]">

   [%- END %]