+ map { $self->{$_} = SL::DB::Default->get->$_ } qw(warehouse_id bin_id);
+ $::form->get_lists('warehouses' => { 'key' => 'WAREHOUSES',
+ 'bins' => 'BINS', });
+ $self->{WAREHOUSES} = $::form->{WAREHOUSES};
+ # leerer lagerplatz mit id 0
+ my $no_default_bin_entry = { 'id' => '0', description => '--', 'BINS' => [ { id => '0', description => ''} ] };
+ push @ { $self->{WAREHOUSES} }, $no_default_bin_entry;
+
+ if (my $max = scalar @{ $self->{WAREHOUSES} }) {
+ $self->{warehouse_id} ||= $self->{WAREHOUSES}->[$max -1]->{id};
+ $self->{bin_id} ||= $self->{WAREHOUSES}->[$max -1]->{BINS}->[0]->{id};
+ }