projekt kivitendo

    push @{ $entry->{errors} }, $::locale->text('Error: Invalid bin');

    return 0;

  }

  # Map description to ID if given.

  if (!$object->bin_id && $entry->{raw_data}->{bin}) {

    my $bin = $self->bins_by->{_wh_id_and_description_ident()}->{ _wh_id_and_description_maker($object->warehouse_id, $entry->{raw_data}->{bin}) };

    CVar->get_non_editable_ic_cvars(form               => $form,

                                    dbh                => $dbh,

                                    sub_module         => 'invoice',

                                    may_converted_from => ['delivery_order_items', 'orderitems', 'invoice']);

      CVar->get_non_editable_ic_cvars(form               => $form,

                                      dbh                => $dbh,

                                      sub_module         => 'orderitems',

                                      may_converted_from => ['orderitems', 'invoice']);

      CVar->get_non_editable_ic_cvars(form               => $form,

                                      dbh                => $dbh,

                                      sub_module         => 'orderitems',

                                      may_converted_from => ['orderitems', 'invoice']);

  print $::form->parse_html_template('io/select_item', { PREVIOUS_FORM => $previous_form,

                                                         MODE          => $mode,

                                                         ITEM_LIST     => \@item_list,

                                                         IS_PURCHASE   => $mode eq 'IS' });

  $main::lxdebug->leave_sub();