use SL::DB::Currency;
use SL::DB::Default;
use SL::DB::Language;
+use SL::DB::Part;
use SL::DB::Unit;
use SL::Helper::Flash;
use SL::Locale::String qw(t8);
__PACKAGE__->run_before('check_auth');
use Rose::Object::MakeMethods::Generic (
- 'scalar --get_set_init' => [ qw(defaults all_warehouses all_weightunits all_languages all_currencies all_templates posting_options payment_options accounting_options inventory_options profit_options accounts) ],
+ 'scalar --get_set_init' => [ qw(defaults all_warehouses all_weightunits all_languages all_currencies all_templates h_unit_name
+ posting_options payment_options accounting_options inventory_options profit_options accounts balance_startdate_method_options) ],
);
sub action_edit {
undef $defaults->{$_} if !$defaults->{$_};
}
+ $defaults->{$_} = $::form->parse_amount(\%::myconfig, $defaults->{$_}) for qw(customer_hourly_rate);
+
$self->defaults->assign_attributes(%{ $defaults });
my %errors_idx;
# initializers
#
-sub init_defaults { SL::DB::Default->get }
-sub init_all_warehouses { SL::DB::Manager::Warehouse->get_all_sorted }
-sub init_all_languages { SL::DB::Manager::Language->get_all_sorted }
-sub init_all_currencies { SL::DB::Manager::Currency->get_all_sorted }
-sub init_all_weightunits { my $unit = SL::DB::Manager::Unit->find_by(name => 'g'); $unit ? $unit->convertible_units : [] }
-sub init_all_templates { +{ SL::Template->available_templates } }
+sub init_defaults { SL::DB::Default->get }
+sub init_all_warehouses { SL::DB::Manager::Warehouse->get_all_sorted }
+sub init_all_languages { SL::DB::Manager::Language->get_all_sorted }
+sub init_all_currencies { SL::DB::Manager::Currency->get_all_sorted }
+sub init_all_weightunits { my $unit = SL::DB::Manager::Unit->find_by(name => 'kg'); $unit ? $unit->convertible_units : [] }
+sub init_all_templates { +{ SL::Template->available_templates } }
+sub init_h_unit_name { first { SL::DB::Manager::Unit->find_by(name => $_) } qw(Std h Stunde) };
sub init_posting_options {
[ { title => t8("never"), value => 0 },
{ title => t8("income"), value => "income" }, ]
}
+sub init_balance_startdate_method_options {
+ [ { title => t8("After closed period"), value => "closed_to" },
+ { title => t8("Start of year"), value => "start_of_year" },
+ { title => t8("All transactions"), value => "all_transactions" },
+ { title => t8("Last opening balance or all transactions"), value => "last_ob_or_all_transactions" },
+ { title => t8("Last opening balance or start of year"), value => "last_ob_or_start_of_year" }, ]
+}
+
sub init_accounts {
my %accounts;
sub edit_form {
my ($self) = @_;
+ $::request->layout->use_javascript("${_}.js") for qw(autocomplete_part);
+
$self->render('client_config/form', title => t8('Client Configuration'),
make_chart_title => sub { $_[0]->accno . '--' . $_[0]->description },
make_templates_value => sub { 'templates/' . $_[0] },