Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ca099d9f

Von Jan Büren vor mehr als 11 Jahren hinzugefügt

  • ID ca099d9f9803d203545d3a4887937fc90a36cdb5
  • Vorgänger 5a923b79
  • Nachfolger 66f8a845

Standardlager und Standardlagerplatz über Mandantenkonfiguration einstellbar

Unterschiede anzeigen:

SL/Controller/ClientConfig.pm
43 43 

  		




  44
  44
  
    
  map { $self->{$_} = SL::DB::Default->get->$_ } qw(sales_order_show_delete purchase_order_show_delete sales_delivery_order_show_delete purchase_delivery_order_show_delete);


  		




  45
  45
  
    

  		




  
  46
  
    
  map { $self->{$_} = SL::DB::Default->get->$_ } qw(warehouse_id bin_id);


  		




  
  47
  
    
  $::form->get_lists('warehouses' => { 'key'    => 'WAREHOUSES',


  		




  
  48
  
    
                                       'bins'   => 'BINS', });


  		




  
  49
  
    
  $self->{WAREHOUSES} = $::form->{WAREHOUSES};


  		




  
  50
  
    
  # leerer lagerplatz mit id 0


  		




  
  51
  
    
  my $no_default_bin_entry = { 'id' => '0', description => '--', 'BINS' => [ { id => '0', description => ''} ] };


  		




  
  52
  
    
  push @ { $self->{WAREHOUSES} }, $no_default_bin_entry;


  		




  
  53
  
    

  		




  
  54
  
    
  if (my $max = scalar @{ $self->{WAREHOUSES} }) {


  		




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


  		




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


  		




  
  57
  
    
  }


  		




  46
  58
  
    
  $self->render('client_config/form', title => $::locale->text('Client Configuration'));


  		




  47
  59
  
    
}


  		




  48
  60
  
    

  		




  ......




  64
  76
  
    

  		




  65
  77
  
    
  map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(sales_order_show_delete purchase_order_show_delete sales_delivery_order_show_delete purchase_delivery_order_show_delete);


  		




  66
  78
  
    

  		




  
  79
  
    
  # undef warehouse_id if the empty value is selected


  		




  
  80
  
    
  if ( ($::form->{warehouse_id} == 0) && ($::form->{bin_id} == 0) ) {


  		




  
  81
  
    
    undef $::form->{warehouse_id};


  		




  
  82
  
    
    undef $::form->{bin_id};


  		




  
  83
  
    
  }


  		




  
  84
  
    
  map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(warehouse_id bin_id);


  		




  
  85
  
    

  		




  67
  86
  
    
  flash_later('info', $::locale->text('Client Configuration saved!'));


  		




  68
  87
  
    

  		




  69
  88
  
    
  $self->redirect_to(action => 'edit');


  		












Auch abrufbar als:  Unified diff