use SL::GenericTranslations;
use SL::Helper::UserPreferences::PositionsScrollbar;
use SL::Helper::UserPreferences::PartPickerSearch;
+use SL::Helper::UserPreferences::TimeRecording;
+use SL::Helper::UserPreferences::UpdatePositions;
use strict;
# get the taxkeys of the account
$form->{ACCOUNT_TAXKEYS} = [];
- foreach my $taxkey ( @{ $chart_obj->taxkeys } ) {
+ foreach my $taxkey ( sort { $b->startdate <=> $a->startdate } @{ $chart_obj->taxkeys } ) {
push @{ $form->{ACCOUNT_TAXKEYS} }, { id => $taxkey->id,
chart_id => $taxkey->chart_id,
tax_id => $taxkey->tax_id,
SL::Helper::UserPreferences::PartPickerSearch->new()->get_sales_search_customer_partnumber();
}
+sub positions_show_update_button {
+ SL::Helper::UserPreferences::UpdatePositions->new()->get_show_update_button();
+}
+
+sub time_recording_use_duration {
+ SL::Helper::UserPreferences::TimeRecording->new()->get_use_duration();
+}
+
sub save_preferences {
$main::lxdebug->enter_sub();
my ($self, $form) = @_;
- my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
+ my $employee = SL::DB::Manager::Employee->current;
$employee->update_attributes(name => $form->{name});
my $user = SL::DB::Manager::AuthUser->find_by(login => $::myconfig{login});
if (exists $form->{sales_search_customer_partnumber}) {
SL::Helper::UserPreferences::PartPickerSearch->new()->store_sales_search_customer_partnumber($form->{sales_search_customer_partnumber})
}
+ if (exists $form->{positions_show_update_button}) {
+ SL::Helper::UserPreferences::UpdatePositions->new()->store_show_update_button($form->{positions_show_update_button})
+ }
+ if (exists $form->{time_recording_use_duration}) {
+ SL::Helper::UserPreferences::TimeRecording->new()->store_use_duration($form->{time_recording_use_duration})
+ }
$main::lxdebug->leave_sub();
$chart_categories .= 'E' if $form->{expense};
$chart_categories .= 'C' if $form->{costs};
- my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, conv_i($form->{chart_id}), conv_i($form->{chart_id}), conv_i($form->{skonto_sales_chart_id}), conv_i($form->{skonto_purchase_chart_id}), $chart_categories);
+ my @values = ($form->{taxkey}, $form->{taxdescription}, $form->{rate}, conv_i($form->{chart_id}), conv_i($form->{skonto_sales_chart_id}), conv_i($form->{skonto_purchase_chart_id}), $chart_categories);
if ($form->{id} ne "") {
$query = qq|UPDATE tax SET
taxkey = ?,
taxdescription = ?,
rate = ?,
chart_id = ?,
- taxnumber = (SELECT accno FROM chart WHERE id = ? ),
skonto_sales_chart_id = ?,
skonto_purchase_chart_id = ?,
chart_categories = ?
taxdescription,
rate,
chart_id,
- taxnumber,
skonto_sales_chart_id,
skonto_purchase_chart_id,
chart_categories,
id
)
- VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ?, ?, ?, ?)|;
+ VALUES (?, ?, ?, ?, ?, ?, ?, ?)|;
}
push(@values, $form->{id});
do_query($form, $dbh, $query, @values);
my ($self, $myconfig, $form) = @_;
+ croak('Need at least one new bin') unless $form->{number_of_new_bins} > 0;
+
SL::DB->client->with_transaction(sub {
my $dbh = SL::DB->client->dbh;