X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FRecordLinks.pm;h=8d6adc7354414b75491f1de1b0a1a53213aef522;hb=b2e1809f6b6d8852ab0086dcc61ae9540c18b83f;hp=a76144333bf454fe20ad6e38ef3a24f3dfbc124c;hpb=d0172f91bb58d5aac0748d673f29b0565631447e;p=kivitendo-erp.git diff --git a/SL/Controller/RecordLinks.pm b/SL/Controller/RecordLinks.pm index a76144333..8d6adc735 100644 --- a/SL/Controller/RecordLinks.pm +++ b/SL/Controller/RecordLinks.pm @@ -4,13 +4,36 @@ use strict; use parent qw(SL::Controller::Base); +use List::Util qw(first); + +use SL::DB::Helper::Mappings; use SL::DB::Order; use SL::DB::DeliveryOrder; use SL::DB::Invoice; use SL::DB::PurchaseInvoice; +use SL::DB::RecordLink; +use SL::JSON; use SL::Locale::String; -__PACKAGE__->run_before('check_object_params', only => [ qw(ajax_list ajax_delete) ]); +use Rose::Object::MakeMethods::Generic +( + scalar => [ qw(object object_model object_id link_type link_direction link_type_desc) ], +); + +__PACKAGE__->run_before('check_object_params', only => [ qw(ajax_list ajax_delete ajax_add_select_type ajax_add_filter ajax_add_list ajax_add_do) ]); +__PACKAGE__->run_before('check_link_params', only => [ qw( ajax_add_list ajax_add_do) ]); + +my @link_types = ( + { title => t8('Sales quotation'), type => 'sales_quotation', model => 'Order', number => 'quonumber', }, + { title => t8('Sales Order'), type => 'sales_order', model => 'Order', number => 'ordnumber', }, + { title => t8('Sales delivery order'), type => 'sales_delivery_order', model => 'DeliveryOrder', number => 'donumber', }, + { title => t8('Sales Invoice'), type => 'invoice', model => 'Invoice', number => 'invnumber', }, + { title => t8('Request for Quotation'), type => 'request_quotation', model => 'Order', number => 'quonumber', }, + { title => t8('Purchase Order'), type => 'purchase_order', model => 'Order', number => 'ordnumber', }, + { title => t8('Purchase delivery order'), type => 'purchase_delivery_order', model => 'DeliveryOrder', number => 'donumber', }, + { title => t8('Purchase Invoice'), type => 'purchase_invoice', model => 'PurchaseInvoice', number => 'invnumber', }, +); + # # actions @@ -20,15 +43,14 @@ sub action_ajax_list { my ($self) = @_; eval { - my $model = 'SL::DB::' . $::form->{object_model}; - my $object = $model->new(id => $::form->{object_id})->load || die $::locale->text("Record not found"); - my $linked_records = $object->linked_records(direction => 'both'); + my $linked_records = $self->object->linked_records(direction => 'both'); + push @{ $linked_records }, $self->object->sepa_export_items if $self->object->can('sepa_export_items'); my $output = SL::Presenter->get->grouped_record_list( $linked_records, with_columns => [ qw(record_link_direction) ], edit_record_links => 1, - object_model => $::form->{object_model}, - object_id => $::form->{object_id}, + object_model => $self->object_model, + object_id => $self->object_id, ); $self->render(\$output, { layout => 0, process => 0 }); @@ -41,16 +63,13 @@ sub action_ajax_list { sub action_ajax_delete { my ($self) = @_; - my $prefix = $::form->{form_prefix} || 'record_links'; - foreach my $str (@{ $::form->{"${prefix}_delete"} || [] }) { + foreach my $str (@{ $::form->{record_links_delete} || [] }) { my ($from_table, $from_id, $to_table, $to_id) = split m/__/, $str, 4; $from_id *= 1; $to_id *= 1; next if !$from_table || !$from_id || !$to_table || !$to_id; - # $::lxdebug->message(0, "INSERT INTO record_links (from_table, from_id, to_table, to_id) VALUES ('${from_table}', ${from_id}, '${to_table}', ${to_id});"); - SL::DB::Manager::RecordLink->delete_all(where => [ from_table => $from_table, from_id => $from_id, @@ -62,6 +81,87 @@ sub action_ajax_delete { $self->action_ajax_list; } +sub action_ajax_add_filter { + my ($self) = @_; + + my $presenter = $self->presenter; + + my @link_type_select = map { [ $_->{type}, $_->{title} ] } @link_types; + my @projects = map { [ $_->id, $presenter->project($_, display => 'inline', style => 'both', no_link => 1) ] } @{ SL::DB::Manager::Project->get_all_sorted }; + my $is_sales = $self->object->can('customer_id') && $self->object->customer_id; + + $self->render( + 'record_links/add_filter', + { layout => 0 }, + is_sales => $is_sales, + DEFAULT_LINK_TYPE => $is_sales ? 'sales_quotation' : 'request_quotation', + LINK_TYPES => \@link_type_select, + PROJECTS => \@projects, + ); +} + +sub action_ajax_add_list { + my ($self) = @_; + + my $manager = 'SL::DB::Manager::' . $self->link_type_desc->{model}; + my $vc = $self->link_type =~ m/sales_|^invoice$/ ? 'customer' : 'vendor'; + + my @where = $manager->type_filter($self->link_type); + push @where, ("${vc}.${vc}number" => { ilike => '%' . $::form->{vc_number} . '%' }) if $::form->{vc_number}; + push @where, ("${vc}.name" => { ilike => '%' . $::form->{vc_name} . '%' }) if $::form->{vc_name}; + push @where, (transaction_description => { ilike => '%' . $::form->{transaction_description} . '%' }) if $::form->{transaction_description}; + push @where, (globalproject_id => $::form->{globalproject_id}) if $::form->{globalproject_id}; + + my $objects = $manager->get_all_sorted(where => \@where, with_objects => [ $vc, 'globalproject' ]); + my $output = $self->render( + 'record_links/add_list', + { output => 0 }, + OBJECTS => $objects, + vc => $vc, + number_column => $self->link_type_desc->{number}, + ); + + my %result = ( count => scalar(@{ $objects }), html => $output ); + + $self->render(\to_json(\%result), { type => 'json', process => 0 }); +} + +sub action_ajax_add_do { + my ($self, %params) = @_; + + my $object_side = $self->link_direction eq 'from' ? 'from' : 'to'; + my $link_side = $object_side eq 'from' ? 'to' : 'from'; + my $link_table = SL::DB::Helper::Mappings::get_table_for_package($self->link_type_desc->{model}); + + foreach my $link_id (@{ $::form->{link_id} || [] }) { + # Check for existing reverse connections in order to avoid loops. + my @props = ( + "${link_side}_table" => $self->object->meta->table, + "${link_side}_id" => $self->object_id, + "${object_side}_table" => $link_table, + "${object_side}_id" => $link_id, + ); + + my $existing = SL::DB::Manager::RecordLink->get_all(where => \@props, limit => 1)->[0]; + next if $existing; + + # Check for existing connections in order to avoid duplicates. + @props = ( + "${object_side}_table" => $self->object->meta->table, + "${object_side}_id" => $self->object_id, + "${link_side}_table" => $link_table, + "${link_side}_id" => $link_id, + ); + + $existing = SL::DB::Manager::RecordLink->get_all(where => \@props, limit => 1)->[0]; + + SL::DB::RecordLink->new(@props)->save if !$existing; + } + + $self->action_ajax_list; +} + + # # filters # @@ -69,7 +169,27 @@ sub action_ajax_delete { sub check_object_params { my ($self) = @_; - return $::form->{object_id} && ($::form->{object_model} =~ m/^(?:Order|DeliveryOrder|Invoice|PurchaseInvoice)$/); + my %models = map { ($_->{model} => 1 ) } @link_types; + + $self->object_id( $::form->{object_id}); + $self->object_model($::form->{object_model}); + + die "Invalid object_model or object_id" if !$self->object_id || !$models{$self->object_model}; + + my $model = 'SL::DB::' . $self->object_model; + $self->object($model->new(id => $self->object_id)->load || die "Record not found"); + + return 1; +} + +sub check_link_params { + my ($self) = @_; + + $self->link_type( $::form->{link_type}); + $self->link_type_desc((first { $_->{type} eq $::form->{link_type} } @link_types) || die "Invalid link_type"); + $self->link_direction($::form->{link_direction} =~ m/^(?:from|to)$/ ? $::form->{link_direction} : die "Invalid link_direction"); + + return 1; } 1;