projekt kivitendo

  my ($self, $form, $dbh) = @_; 

  my (@errors, @transfers);

  # do nothing, if transfer default is not requeseted at all

  if (!$::instance_conf->get_transfer_default) {

    $::lxdebug->leave_sub;

    return \@errors;

  }

  require SL::WH;

    my ($err, $wh_id, $bin_id) = _determine_wh_and_bin($dbh, $::instance_conf,

                                                       $form->{"id_$i"},

                                                       $form->{"qty_$i"},

                                                       $form->{"unit_$i"});

    if (!@{ $err } && $wh_id && $bin_id) {

    push @errors, @{ $err };

  if (!@errors) {

    WH->transfer(@transfers);

  }

  return \@errors;

  my ($dbh, $conf, $part_id, $qty, $unit) = @_;

  my @errors;

  # ignore service if they are not configured to be transfered

  # test negative qty

  if ($qty < 0) {

    push @errors, $::locale->text("Cannot transfer negative quantities.");

    return (\@errors);

  }

  # get/test default bin

  my ($default_wh_id, $default_bin_id);

  if ($conf->get_transfer_default_use_master_default_bin) {

    $default_wh_id  = $conf->get_warehouse_id if $conf->get_warehouse_id;

    $default_bin_id = $conf->get_bin_id       if $conf->get_bin_id;

  }

  my $wh_id  = $part->warehouse_id || $default_wh_id;

  my $bin_id = $part->bin_id       || $default_bin_id;

  # check qty and bin

  if ($bin_id) {

    my ($max_qty, $error) = WH->get_max_qty_parts_bin(dbh      => $dbh,

                                                      parts_id => $part->id,

                                                      bin_id   => $bin_id);

    if ($error == 1) {

      push @errors, $::locale->text("Part \"#1\" has chargenumber or best before date set. So it cannot be transfered automaticaly.",

                                    $part->description);

    }

    my $form_unit_obj = SL::DB::Unit->new(name => $unit)->load;

    my $part_unit_qty = $form_unit_obj->convert_to($qty, $part->unit_obj);

    my $diff_qty      = $max_qty - $part_unit_qty;

    if (!@errors && $diff_qty < 0) {

      push @errors, $::locale->text("For part \"#1\" there are missing #2 #3 in the default warehouse/bin \"#4/#5\"",

                                    $part->description, 

                                    $::form->format_amount(\%::myconfig, -1*$diff_qty),

                                    $part->unit_obj->name,

                                    SL::DB::Warehouse->new(id => $wh_id)->load->description,

                                    SL::DB::Bin->new(      id => $bin_id)->load->description);

    }

  } else {

    push @errors, $::locale->text("For part \"#1\" there is no default warehouse and bin defined.",

                                  $part->description);

  }

  # transfer to special "ignore onhand" bin if requested and default bin does not work

  if (@errors && $conf->get_transfer_default_ignore_onhand && $conf->get_bin_id_ignore_onhand) {

    if ($wh_id && $bin_id) {

      @errors = ();

    } else {

      push @errors, $::locale->text("For part \"#1\" there is no default warehouse and bin for ignoring onhand defined.",

                                    $part->description);

    }

  return (\@errors, $wh_id, $bin_id);