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');

}