package LedgerSMB::Report::Inventory::Search; =head1 NAME LedgerSMB::Report::Inventory::Search - Search for Goods and Services in LedgerSMB =head1 SYNPOSIS my $report = LedgerSMB::Report::Inventory::Search->new(%$request); $report->render(); =cut use Moose; use namespace::autoclean; extends 'LedgerSMB::Report'; with 'LedgerSMB::Report::Dates'; =head1 DESCRIPTION This is the main inventory item search for goods and services in LedgerSMB starting with version 1.4. Compared to LedgerSMB 1.3 this has no summary and details support and no searching for open vs closed invoices. The equivalent of a summary report is found in the inventory activities report instead. The open/closed detection was omitted for performance reasons, and a search for unused items may take a while on larger databases. =head1 CRITERIA PROPERTIES In addition to standard dates, the following criteria are supported: =over =item partnumber string Prefix search on partnumber. =cut has partnumber => (is => 'ro', isa => 'Str', required => 0); =item parttype string Restriction on part type. Possible values: =over =item * all =item * parts =item * services =item * overhead =item * assemblies =back =cut has parttype => (is => 'ro', isa => 'Str', required => 0); =item description string Full text search on description of part =cut has description => (is => 'ro', isa => 'Str', required => 0); =item partsgroup_id int Limit search to partsgroup specified =cut has partsgroup_id => (is => 'ro', isa => 'Int', required => 0); =item serialnumber text This is a serial number of the part, for a prefix search =cut has serialnumber => (is => 'ro', isa => 'Str', required => 0); =item make Prefix search for parts with a make (and model) specified =cut has make => (is => 'ro', isa => 'Str', required => 0); =item model Prefix search on the model of the part =cut has model => (is => 'ro', isa => 'Str', required => 0); =item drawing Prefix search for drawing field =cut has drawing => (is => 'ro', isa => 'Str', required => 0); =item microfiche Prefix search for microfiche field =cut has microfiche => (is => 'ro', isa => 'Str', required => 0); =item status An enumerated string, with the following significance =over =item active Show non-obsolete parts =item obsolete Show obsolete parts =item short Show parts below their re-order point (ROP) =item unused Show parts with no invoices or orders attached (previously orphaned) =back =cut has status => (is => 'ro', isa => 'Str', required => 0); =item sales_invoices bool If true, show parts attached to sales invoices in the specified period =cut has sales_invoices => (is => 'ro', isa => 'Bool', required => 0); =item purchase_invoices bool If true, show parts attached to purchase/vendor invoices in the specified period. =cut has purchase_invoices => (is => 'ro', isa => 'Bool', required => 0); =item sales_orders If true, search parts in sales orders in the specified period. =cut has sales_orders => (is => 'ro', isa => 'Bool', required => 0); =item purchase_orders If true, search purchase orders in the specified period. =cut has purchase_orders => (is => 'ro', isa => 'Bool', required => 0); =item quotations If true, search quotations in the specified period =cut has quotations => (is => 'ro', isa => 'Bool', required => 0); =item rfqs If true, search Requests for Quotations for the specified period =cut has rfqs => (is => 'ro', isa => 'Bool', required => 0); =back =head1 INTERNALS =head2 columns =cut sub columns { my ($self) = @_; return [ {col_id => 'id', type => 'href', href_base => 'ic.pl?__action=edit&id=', name => $self->Text('ID'),}, {col_id => 'partnumber', type => 'href', href_base => 'ic.pl?__action=edit&id=', name => $self->Text('Part Number'),}, {col_id => 'description', type => 'text', name => $self->Text('Description'),}, {col_id => 'onhand', type => 'text', name => $self->Text('On Hand'),}, {col_id => 'unit', type => 'text', name => $self->Text('Unit'),}, {col_id => 'rop', type => 'text', name => $self->Text('ROP'),}, {col_id => 'bin', type => 'text', name => $self->Text('Bin'),}, {col_id => 'weight', type => 'text', name => $self->Text('Weight'),}, {col_id => 'listprice', type => 'text', money => 1, name => $self->Text('List Price'),}, {col_id => 'sellprice', type => 'text', money => 1, name => $self->Text('Sell Price'),}, {col_id => 'lastcost', type => 'text', money => 1, name => $self->Text('Last Cost'),}, {col_id => 'avgcost', type => 'text', money => 1, name => $self->Text('Avg. Cost'),}, {col_id => 'markup', type => 'text', name => $self->Text('Markup'),}, {col_id => 'priceupdate', type => 'text', name => $self->Text('Price Updated'),}, {col_id => 'make', type => 'text', name => $self->Text('Make'),}, {col_id => 'model', type => 'text', name => $self->Text('Model'),}, {col_id => 'image', type => 'href', name => $self->Text('Image'),}, {col_id => 'drawing', type => 'href', name => $self->Text('Drawing'),}, {col_id => 'microfiche', type => 'text', name => $self->Text('Microfiche'),}, {col_id => 'notes', type => 'text', name => $self->Text('Notes'),}, {col_id => 'partsgroup', type => 'text', name => $self->Text('Partsgroup'),}, {col_id => 'invnumber', type => 'href', name => $self->Text('Invoice'),}, {col_id => 'ordnumber', type => 'href', name => $self->Text('Order'),}, {col_id => 'quonumber', type => 'href', name => $self->Text('Quotation'),}, {col_id => 'curr', type => 'text', name => $self->Text('Currency'),}, {col_id => 'qty', type => 'text', name => $self->Text('Qty'),}, {col_id => 'linetotal', type => 'text', money => 1, name => $self->Text('Total'),}, {col_id => 'serialnumber', type => 'text', name => $self->Text('Serial Number'),}, ]; } =head2 name Goods and Services =cut sub name { my ($self) = @_; return $self->Text('Goods and Services'); } =head1 METHODS =head2 run_report =cut sub run_report { my ($self) = @_; my @rows = $self->call_dbmethod(funcname => 'goods__search'); for my $r (@rows){ $r->{row_id} = $r->{id}; for my $field (qw(image drawing microfiche)){ $r->{"href_suffix_$field"} = $r->{field}; } } return $self->rows(\@rows); } =head1 LICENSE AND COPYRIGHT Copyright (C) 2012 The LedgerSMB Core Team This file is licensed under the GNU General Public License version 2, or at your option any later version. A copy of the license should have been included with your software. =cut __PACKAGE__->meta->make_immutable; 1;