projekt kivitendo

  'SL::Controller::TopQuickSearch::SalesQuotation',

  'SL::Controller::TopQuickSearch::SalesOrder',

  'SL::Controller::TopQuickSearch::RequestForQuotation',

  'SL::Controller::TopQuickSearch::PurchaseOrder',

package SL::Controller::TopQuickSearch::OERecord;

use strict;

use parent qw(Rose::Object);

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

use SL::DB::Order;

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 { ... }

sub description_config { ... }

sub description_field { ... }

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 => 'oe.pl',

    action     => 'orders',

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

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

    all        => $_[1],

    open       => 1,

    closed     => 1,

    sortdir    => 0,

    (map {; "l_$_" => 'Y' } $_[0]->number, qw(transdate cusordnumber reqdate name employee netamount)),

  );

}

sub redirect_to_object {

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

    controller => 'oe.pl',

    action     => 'edit',

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

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

    id         => $_[1],

  );

}

sub type {

  ...

}

sub cv {

  ...

}

sub quotation {

  $_[0]->type !~ /order/

}

sub number {

  $_[0]->quotation ? 'quonumber' : 'ordnumber'

}

sub init_models {

  my ($self) = @_;

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

    controller => $self,

    model      => 'Order',

    source     => {

      filter => {

        type => $self->type,

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

      },

    },

    sorted     => {

      _default   => {

        by  => 'transdate',

        dir => 0,

      },

      transdate => t8('Transdate'),

    },

    paginated  => {

      per_page => 10,

    },

    with_objects => [ qw(customer vendor) ]

  )

}

1;

package SL::Controller::TopQuickSearch::PurchaseOrder;

use strict;

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

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

sub auth { 'purchase_order_edit' }

sub name { 'purchase_order' }

sub description_config { t8('Purchase Orders') }

sub description_field { t8('Purchase Orders') }

sub type { 'purchase_order' }

sub vc { 'vendor' }

1;

package SL::Controller::TopQuickSearch::RequestForQuotation;

use strict;

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

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

sub auth { 'request_quotation_edit' }

sub name { 'request_quotation' }

sub description_config { t8('Request Quotations') }

sub description_field { t8('Request Quotations') }

sub type { 'request_quotation' }

sub vc { 'vendor' }

1;

package SL::Controller::TopQuickSearch::SalesOrder;

use strict;

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

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

sub auth { 'sales_order_edit' }

sub name { 'sales_order' }

sub description_config { t8('Sales Orders') }

sub description_field { t8('Sales Orders') }

sub type { 'sales_order' }

sub vc { 'customer' }

1;

package SL::Controller::TopQuickSearch::SalesQuotation;

use strict;

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

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

sub auth { 'sales_quotation_edit' }

sub name { 'sales_quotation' }

sub description_config { t8('Sales Quotations') }

sub description_field { t8('Sales Quotations') }

sub type { 'sales_quotation' }

sub vc { 'customer' }

1;

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(ordnumber quonumber customer.name vendor.name transaction_description) ]

  }

);

sub digest {

  my ($self) = @_;

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

    $self->number,

    $self->customervendor->name,

    $self->amount_as_number,

    $self->date->to_kivitendo;

}