projekt kivitendo

use SL::Presenter::EmailJournal;

use SL::Presenter::Tag qw(html_tag div_tag radio_button_tag);

use List::MoreUtils qw(any);

    class      => 'Order',

    class      => 'DeliveryOrder',

    class      => 'Reclamation',

    class      => 'Invoice',

    class      => 'Invoice',

    class      => 'PurchaseInvoice',

    class      => 'PurchaseInvoice',

    my $class = $RECORD_TYPES_INFO{$_}->{class};

    map { $_ => "SL::DB::$class" } @{ $RECORD_TYPES_INFO{$_}->{types} }

  } keys %RECORD_TYPES_INFO;

my %RECORD_TYPE_TO_MANAGER =

  map {

    my $class = $RECORD_TYPES_INFO{$_}->{class};

    map { $_ => "SL::DB::Manager::$class" } @{ $RECORD_TYPES_INFO{$_}->{types} }

my @ALL_RECORD_TYPES = map { @{ $RECORD_TYPES_INFO{$_}->{types} } } keys %RECORD_TYPES_INFO;

# has do be done at runtime for translation to work

sub get_record_types_with_info {

  # TODO: what record types can be created, which are only available in workflows?

  my @record_types_with_info = ();

  for my $record_class ('SL::DB::Order', 'SL::DB::DeliveryOrder', 'SL::DB::Reclamation') {

    my $valid_types = "${record_class}::TypeData"->valid_types();

    for my $type (@$valid_types) {

      my $type_data = SL::DB::Helper::TypeDataProxy->new($record_class, $type);

      push @record_types_with_info, {

        record_type    => $type,

        customervendor => $type_data->properties('customervendor'),

        text           => $type_data->text('type'),

      };

    }

  }

  push @record_types_with_info, (

    # invoice

    { record_type => 'invoice',                             customervendor => 'customer',  text => t8('Invoice') },

    { record_type => 'invoice_for_advance_payment',         customervendor => 'customer',  text => t8('Invoice for Advance Payment')},

    { record_type => 'invoice_for_advance_payment_storno',  customervendor => 'customer',  text => t8('Storno Invoice for Advance Payment')},

    { record_type => 'final_invoice',                       customervendor => 'customer',  text => t8('Final Invoice')},

    { record_type => 'invoice_storno',                      customervendor => 'customer',  text => t8('Storno Invoice')},

    { record_type => 'credit_note',                         customervendor => 'customer',  text => t8('Credit Note')},

    { record_type => 'credit_note_storno',                  customervendor => 'customer',  text => t8('Storno Credit Note')},

    { record_type => 'ar_transaction',                      customervendor => 'customer',  text => t8('AR Transaction')},

    # purchase invoice

    { record_type => 'purchase_invoice',      customervendor => 'vendor',  text => t8('Purchase Invoice')},

    { record_type => 'purchase_credit_note',  customervendor => 'vendor',  text => t8('Purchase Credit Note')},

    { record_type => 'ap_transaction',        customervendor => 'vendor',  text => t8('AP Transaction')},

  );

  return @record_types_with_info;

}

sub record_types_for_customer_vendor_type {

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

  return [ map { $_->{record_type} } grep { $_->{customervendor} eq $customer_vendor_type } $self->get_record_types_with_info ];

}

  my @record_types_with_info = $self->get_record_types_with_info();

  my $cv_type = $customer_vendor && $customer_vendor->is_vendor ? 'vendor' : 'customer';

  my $record_types = $self->record_types_for_customer_vendor_type($cv_type);

  my @records = $self->get_records_for_types(

    $record_types,

    customer_vendor_type => $cv_type,

    customer_vendor_id   => $customer_vendor && $customer_vendor->id,

    with_closed     => 0,

  );

    RECORDS => \@records,

sub get_records_for_types {

  my ($self, $record_types, %params) = @_;

  $record_types = [ $record_types ] unless ref $record_types eq 'ARRAY';

  my $cv_type     = $params{customer_vendor_type};

  my $cv_id       = $params{customer_vendor_id};

  my $with_closed = $params{with_closed};

  my @records = ();

  foreach my $record_type (@$record_types) {

    my $manager = $RECORD_TYPE_TO_MANAGER{$record_type};

    my $model = $RECORD_TYPE_TO_MODEL{$record_type};

    my %additional_where = ();

    if ($cv_type && $cv_id) {

      $additional_where{"${cv_type}_id"} = $cv_id;

    }

    unless ($with_closed) {

      if (any {$_ eq 'closed' } $model->meta->columns) {

        $additional_where{closed} = 0;

      } elsif (any {$_ eq 'paid' } $model->meta->columns) {

        $additional_where{amount} = { gt => \'paid' };

      }

    }

    my $records_of_type = $manager->get_all(

      where => [

        $manager->type_filter($record_type),

        %additional_where,

      ],

    );

    push @records, @$records_of_type;

  }

  return @records;

}

  my $record_type_id     = $::form->{"record_type_id"};

  die t8("No record is selected.") unless $record_type_id || $action eq 'create_new';

  die "no 'email_journal_id' was given"          unless $email_journal_id;

  die "no 'customer_vendor_selection' was given" unless $customer_vendor;

  die "no 'action_selection' was given"          unless $action;

  my ($record_type, $record_id) = split(/-/, $record_type_id);

sub action_update_record_list {

  my ($self) = @_;

  $::auth->assert('email_journal');

  my $customer_vendor_type = $::form->{customer_vendor_selection};

  my $customer_vendor_id = $::form->{"${customer_vendor_type}_id"};

  my $record_type = $::form->{"${customer_vendor_type}_record_type_selection"};

  my $with_closed = $::form->{with_closed};

  $record_type ||= $self->record_types_for_customer_vendor_type($customer_vendor_type);

  my @records = $self->get_records_for_types(

    $record_type,

    customer_vendor_type => $customer_vendor_type,

    customer_vendor_id   => $customer_vendor_id,

    with_closed          => $with_closed,

  );

  unless (@records) {

    $self->js->replaceWith('#record_list', div_tag(

      html_tag('h3', t8('No records found.')),

      id => 'record_list',

    ))->render();

    return;

  }

  my $new_div = div_tag(

    join('', map {

      div_tag(

        radio_button_tag('record_type_id',

        value => $_->record_type . "-" . $_->id, label => $_->displayable_name,

        class => "record_radio", label_class => "record_radio",

        ),

        id => "record_$_->{id}",

      )

    } @records),

    id => 'record_list',

  );

  $self->js->replaceWith('#record_list', $new_div)->render();

}