projekt kivitendo

  'SL::Controller::TopQuickSearch::SalesDeliveryOrder',

  'SL::Controller::TopQuickSearch::PurchaseDeliveryOrder',

package SL::Controller::TopQuickSearch::DeliveryOrder;

use strict;

use parent qw(Rose::Object);

use SL::Locale::String qw(t8);

use SL::DB::DeliveryOrder;

use SL::Controller::Helper::GetModels;

use SL::Controller::Base;

use Rose::Object::MakeMethods::Generic (

  'scalar --get_set_init' => [ qw(models) ],

);

# nope. this is only for subclassing

sub auth { 'NOT ALLOWED' }

sub name { die 'must be overwritten' }

sub description_config { die 'must be overwritten' }

sub description_field { die 'must be overwritten' }

sub type { die 'must be overwritten' }

sub cv { die 'must be overwritten' }

sub query_autocomplete {

  my ($self) = @_;

  my $objects = $self->models->get;

  [

    map {

     value       => $_->digest,

     label       => $_->digest,

     id          => $_->id,

    }, @$objects

  ];

}

sub select_autocomplete {

  $_[0]->redirect_to_object($::form->{id});

}

sub do_search {

  my ($self) = @_;

  my $objects = $self->models->get;

  return !@$objects     ? ()

       : @$objects == 1 ? $self->redirect_to_object($objects->[0]->id)

       :                  $self->redirect_to_search($::form->{term});

}

sub redirect_to_search {

  SL::Controller::Base->new->url_for(

    controller   => 'do.pl',

    action       => 'orders',

    type         => $_[0]->type,

    vc           => $_[0]->vc,

    all          => $_[1],

    open         => 1,

    closed       => 1,

    delivered    => 1,

    notdelivered => 1,

    sortdir      => 0,

    (map {; "l_$_" => 'Y' } qw(donumber transdate cusordnumber reqdate name employee transaction_description)),

  );

}

sub redirect_to_object {

  SL::Controller::Base->new->url_for(

    controller => 'do.pl',

    action     => 'edit',

    type       => $_[0]->type,

    vc         => $_[0]->vc,

    id         => $_[1],

  );

}

sub init_models {

  my ($self) = @_;

  SL::Controller::Helper::GetModels->new(

    controller => $self,

    model      => 'DeliveryOrder',

    source     => {

      filter => {

        type => $self->type,

        'all:substr:multi::ilike' => $::form->{term},

      },

    },

    sorted     => {

      _default   => {

        by  => 'transdate',

        dir => 0,

      },

      transdate => t8('Date'),

    },

    paginated  => {

      per_page => 10,

    },

    with_objects => [ qw(customer vendor orderitems) ]

  )

}

1;

package SL::Controller::TopQuickSearch::PurchaseDeliveryOrder;

use strict;

use parent qw(SL::Controller::TopQuickSearch::DeliveryOrder);

use SL::Locale::String qw(t8);

sub auth { 'purchase_delivery_order_edit' }

sub name { 'purchase_delivery_order' }

sub description_config { t8('Purchase Delivery Orders') }

sub description_field { t8('Purchase Delivery Orders') }

sub type { 'purchase_delivery_order' }

sub vc { 'vendor' }

1;

package SL::Controller::TopQuickSearch::SalesDeliveryOrder;

use strict;

use parent qw(SL::Controller::TopQuickSearch::DeliveryOrder);

use SL::Locale::String qw(t8);

sub auth { 'sales_delivery_order_edit' }

sub name { 'sales_delivery_order' }

sub description_config { t8('Sales Delivery Orders') }

sub description_field { t8('Sales Delivery Orders') }

sub type { 'sales_delivery_order' }

sub vc { 'customer' }

1;

sub digest {

  my ($self) = @_;

  sprintf "%s %s (%s)",

    $self->donumber,

    $self->customervendor->name,

    $self->date->to_kivitendo;

}

use SL::DB::Helper::Filtered;

__PACKAGE__->add_filter_specs(

  type => sub {

    my ($key, $value, $prefix) = @_;

    return __PACKAGE__->type_filter($value, $prefix);

  },

  all => sub {

    my ($key, $value, $prefix) = @_;

    return or => [ map { $prefix . $_ => $value } qw(donumber customer.name vendor.name transaction_description orderitems.serialnumber) ]

  }

);

use Text::ParseWords;

  if ($form->{all}) {

    my @tokens = parse_line('\s+', 0, $form->{all});

    # ordnumber quonumber customer.name vendor.name transaction_description

    push @where, <<SQL for @tokens;

      (   (dord.donumber                ILIKE ?)

       OR (ct.name                      ILIKE ?)

       OR (dord.transaction_description ILIKE ?))

SQL

    push @values, (like($_))x3 for @tokens;

  }

                                          insertdatefrom insertdateto business_id all);

  push @options, $locale->text('Quick Search') . " : $form->{all}" if $form->{all};