$self->{payments_changeable} = SL::DB::Default->get->payments_changeable;
+ map { $self->{$_} = SL::DB::Default->get->$_ } qw(is_show_mark_as_paid ir_show_mark_as_paid ar_show_mark_as_paid ap_show_mark_as_paid);
+
map { $self->{$_} = SL::DB::Default->get->$_ } qw(accounting_method inventory_system profit_determination);
$self->{show_bestbefore} = SL::DB::Default->get->show_bestbefore;
SL::DB::Default->get->update_attributes('payments_changeable' => $::form->{payments_changeable});
+ map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(is_show_mark_as_paid ir_show_mark_as_paid ar_show_mark_as_paid ap_show_mark_as_paid);
+
map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(accounting_method inventory_system profit_determination);
SL::DB::Default->get->update_attributes('show_bestbefore' => $::form->{show_bestbefore});