projekt kivitendo

# open the periodic invoices config dialog

#

# If there are values in the form (i.e. dialog was opened before),

# then use this values. Create new ones, else.

sub action_show_periodic_invoices_config_dialog {

my ($self) = @_;

my $config = make_periodic_invoices_config_from_yaml(delete $::form->{config});

$config ||= SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $::form->{id}) if $::form->{id};

$config ||= SL::DB::PeriodicInvoicesConfig->new(periodicity => 'm',

order_value_periodicity => 'p', # = same as periodicity

start_date_as_date => $::form->{transdate_as_date} || $::form->current_date,

extend_automatically_by => 12,

active => 1,

email_subject => GenericTranslations->get(

language_id => $::form->{language_id},

translation_type =>"preset_text_periodic_invoices_email_subject"),

email_body => GenericTranslations->get(

language_id => $::form->{language_id},

translation_type =>"preset_text_periodic_invoices_email_body"),

);

$config->periodicity('m') if none { $_ eq $config->periodicity } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES;

$config->order_value_periodicity('p') if none { $_ eq $config->order_value_periodicity } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES);

$::form->get_lists(printers => "ALL_PRINTERS",

charts => { key => 'ALL_CHARTS',

transdate => 'current_date' });

$::form->{AR} = [ grep { $_->{link} =~ m/(?:^|:)AR(?::|$)/ } @{ $::form->{ALL_CHARTS} } ];

if ($::form->{customer_id}) {

$::form->{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all_sorted(where => [ cp_cv_id => $::form->{customer_id} ]);

my $customer_object = SL::DB::Manager::Customer->find_by(id => $::form->{customer_id});

$::form->{postal_invoice} = $customer_object->postal_invoice;

$::form->{email_recipient_invoice_address} = $::form->{postal_invoice} ? '' : $customer_object->invoice_mail;

$config->send_email(0) if $::form->{postal_invoice};

}

$self->render('oe/edit_periodic_invoices_config', { layout => 0 },

popup_dialog => 1,

popup_js_close_function => 'kivi.Order.close_periodic_invoices_config_dialog()',

popup_js_assign_function => 'kivi.Order.assign_periodic_invoices_config()',

config => $config,

%$::form);

}

# assign the values of the periodic invoices config dialog

# as yaml in the hidden tag and set the status.

sub action_assign_periodic_invoices_config {

my ($self) = @_;

$::form->isblank('start_date_as_date', $::locale->text('The start date is missing.'));

my $config = { active => $::form->{active} ? 1 : 0,

terminated => $::form->{terminated} ? 1 : 0,

direct_debit => $::form->{direct_debit} ? 1 : 0,

periodicity => (any { $_ eq $::form->{periodicity} } @SL::DB::PeriodicInvoicesConfig::PERIODICITIES) ? $::form->{periodicity} : 'm',

order_value_periodicity => (any { $_ eq $::form->{order_value_periodicity} } ('p', @SL::DB::PeriodicInvoicesConfig::ORDER_VALUE_PERIODICITIES)) ? $::form->{order_value_periodicity} : 'p',

start_date_as_date => $::form->{start_date_as_date},

end_date_as_date => $::form->{end_date_as_date},

first_billing_date_as_date => $::form->{first_billing_date_as_date},

print => $::form->{print} ? 1 : 0,

printer_id => $::form->{print} ? $::form->{printer_id} * 1 : undef,

copies => $::form->{copies} * 1 ? $::form->{copies} : 1,

extend_automatically_by => $::form->{extend_automatically_by} * 1 || undef,

ar_chart_id => $::form->{ar_chart_id} * 1,

send_email => $::form->{send_email} ? 1 : 0,

email_recipient_contact_id => $::form->{email_recipient_contact_id} * 1 || undef,

email_recipient_address => $::form->{email_recipient_address},

email_sender => $::form->{email_sender},

email_subject => $::form->{email_subject},

email_body => $::form->{email_body},

};

my $periodic_invoices_config = SL::YAML::Dump($config);

my $status = $self->get_periodic_invoices_status($config);

$self->js

->remove('#order_periodic_invoices_config')

->insertAfter(hidden_tag('order.periodic_invoices_config', $periodic_invoices_config), '#periodic_invoices_status')

->run('kivi.Order.close_periodic_invoices_config_dialog')

->html('#periodic_invoices_status', $status)

->flash('info', t8('The periodic invoices config has been assigned.'))

->render($self);

}

sub action_get_has_active_periodic_invoices {

my ($self) = @_;

my $config = make_periodic_invoices_config_from_yaml(delete $::form->{config});

$config ||= SL::DB::Manager::PeriodicInvoicesConfig->find_by(oe_id => $::form->{id}) if $::form->{id};

my $has_active_periodic_invoices =

$self->type eq sales_order_type()

&& $config

&& $config->active

&& (!$config->end_date || ($config->end_date > DateTime->today_local))

&& $config->get_previous_billed_period_start_date;

$_[0]->render(\ !!$has_active_periodic_invoices, { type => 'text' });

}

my $form_periodic_invoices_config = delete $::form->{order}->{periodic_invoices_config};

if (my $periodic_invoices_config_attrs = $form_periodic_invoices_config ? SL::YAML::Load($form_periodic_invoices_config) : undef) {

my $periodic_invoices_config = $order->periodic_invoices_config || $order->periodic_invoices_config(SL::DB::PeriodicInvoicesConfig->new);

$periodic_invoices_config->assign_attributes(%$periodic_invoices_config_attrs);

}

$self->{periodic_invoices_status} = $self->get_periodic_invoices_status($self->order->periodic_invoices_config);

edit_periodic_invoices_config calculate_qty kivi.Validator follow_up show_history);

checks => [ 'kivi.Order.check_save_active_periodic_invoices', ['kivi.validate_form','#order_form'] ],

checks => [ 'kivi.Order.check_save_active_periodic_invoices' ],

checks => [ 'kivi.Order.check_save_active_periodic_invoices' ],

checks => [ 'kivi.Order.check_save_active_periodic_invoices' ],

sub make_periodic_invoices_config_from_yaml {

my ($yaml_config) = @_;

return if !$yaml_config;

my $attr = SL::YAML::Load($yaml_config);

return if 'HASH' ne ref $attr;

return SL::DB::PeriodicInvoicesConfig->new(%$attr);

}

sub get_periodic_invoices_status {

my ($self, $config) = @_;

return if $self->type ne sales_order_type();

return t8('not configured') if !$config;

my $active = ('HASH' eq ref $config) ? $config->{active}

: ('SL::DB::PeriodicInvoicesConfig' eq ref $config) ? $config->active

: die "Cannot get status of periodic invoices config";

return $active ? t8('active') : t8('inactive');

}