SF.net SVN: ledger-smb:[5007] trunk/LedgerSMB/DBObject/Report

[..hidden..]

Revision: 5007
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5007&view=rev
Author:   einhverfr
Date:     2012-07-16 15:17:00 +0000 (Mon, 16 Jul 2012)
Log Message:
-----------
Adding inventory adjustment report object

Added Paths:
-----------
    trunk/LedgerSMB/DBObject/Report/Inventory/
    trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm

Added: trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm
===================================================================
--- trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm	                        (rev 0)
+++ trunk/LedgerSMB/DBObject/Report/Inventory/Search_Adj.pm	2012-07-16 15:17:00 UTC (rev 5007)
@@ -0,0 +1,148 @@
+=head1 NAME
+
+LedgerSMB::DBObject::Report::Inventory::Search_Adj - LedgerSMB report of 
+inventory adjustments
+
+=head1 SYNPOSIS
+
+ my $rpt = LedgerSMB::DBObject::Report::Inventory::Search_Adj->new(%$request);
+ $rpt->run_report;
+ $rpt->render($request);
+
+=cut
+
+package LedgerSMB::DBObject::Report::Inventory::Search_Adj;
+use Moose;
+extends 'LedgerSMB::DBObject::Report';
+use LedgerSMB::App_State;
+my $locale = $LedgerSMB::App_State::Locale;
+
+=head1 DESCRIPTION
+
+This is the report that searches for and displays inventory adjustments based
+on set criteria.
+
+=head1 CRITERIA PROPERTIES
+
+=over
+
+=item from_date 
+
+Standard start date
+
+=item to_date
+
+Standard to date
+
+=cut
+
+has 'from_date' => (is => 'ro', coerce => 1, isa => 'LedgerSMB::Moose::Date');
+has 'to_date' => (is => 'ro', coerce => 1, isa => 'LedgerSMB::Moose::Date');
+
+=item partnumber 
+
+Part number.  This is a full text search, in order to allow for space-separated
+alternatives
+
+=cut
+
+has partnumber => (is => 'ro', isa => 'Maybe[Str]');
+
+=item source 
+
+Matches the beginning of the source string on the report source string
+
+=cut
+
+has source => (is => 'ro', isa => 'Maybe[Str]');
+
+=back
+
+=head1 REPORT-RELATED CONSTANT FUNCTIONS
+
+=over
+
+=item name
+
+=cut
+
+sub name { return $locale->text('Inventory Adjustments') };
+
+=item header_lines
+
+=cut
+
+sub header_lines {
+    return [{name => 'from_date'
+             text => $locale->text('Start Date') },
+            {name => 'to_date',
+             text => $locale->text('End Date') },
+            {name => 'partnumber',
+             text => $locale->text('Including partnumber'},
+            {name => 'source',
+             text => $locale->text('Source starting with'}.
+           ];
+}
+
+=item columns
+
+=cut
+
+sub columns {
+    return [{col_id => 'transdate',
+               type => 'href',
+          href_base => 'inv_reports.pl?action=adj_detail&id=',
+               name => $locale->text('Date')},
+            {col_id => 'source',
+               type => 'href',
+          href_base => 'inv_reports.pl?action=adj_detail&id=',
+               name => $locale->text('Reference')},
+            {col_id => 'ar_invnumber',
+               type => 'href',
+          href_base => 'is.pl?action=edit&id='},
+            {col_id => 'ap_invnumber',
+               type => 'href',
+          href_base => 'ir.pl?action=edit&id='},
+      ];
+}
+
+=head1 METHODS
+
+=over
+
+=item run_report
+
+=cut
+
+sub run_report {
+    my ($self) = @_;
+    my @rows = $self->execute_method({funcname => 'inventory_adj__search'});
+    for my $row (@rows) {
+        $row->{ar_invnumber_suffix} = $row->{ar_invoice_id};
+        $row->{ap_invnumber_suffix} = $row->{ap_invoice_id};
+        $row->{row_id} = $row->{id};
+    }
+    $self->rows(..hidden..);
+}
+
+=back
+
+=head1 SEE ALSO
+
+=over
+
+=item LedgerSMB::DBObject::Report;
+
+=item LedgerSMB::DBObject::Report::Inventory::Adj_Details;
+
+=back
+
+=head1 COPYRIGHT
+
+COPYRIGHT (C) 2012 The LedgerSMB Core Team.  This file may be re-used under the
+terms of the LedgerSMB General Public License version 2 or at your option any
+later version.  Please see enclosed LICENSE file for details.
+
+=cut
+
+1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.