SF.net SVN: ledger-smb:[3189] trunk/LedgerSMB/IC.pm

[..hidden..]

Revision: 3189
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3189&view=rev
Author:   einhverfr
Date:     2011-05-29 23:18:36 +0000 (Sun, 29 May 2011)

Log Message:
-----------
Committing Erik's requirements report patch

Modified Paths:
--------------
    trunk/LedgerSMB/IC.pm

Modified: trunk/LedgerSMB/IC.pm
===================================================================
--- trunk/LedgerSMB/IC.pm	2011-05-29 16:41:53 UTC (rev 3188)
+++ trunk/LedgerSMB/IC.pm	2011-05-29 23:18:36 UTC (rev 3189)
@@ -1713,6 +1713,7 @@
     $sth->finish;
 
     my %ofld = ( customer => 'so', vendor => 'po' );
+    my %oe_class = ( customer => 1, vendor => 2 );
 
     for (qw(customer vendor)) {
         $query = qq|
@@ -1724,7 +1725,7 @@
 			    JOIN oe a ON (a.id = i.trans_id)
 			   WHERE $where AND p.inventory_accno_id > 0
 			         AND p.assembly = '0' AND a.closed = '0'
-			         AND a.${_}_id > 0
+			         AND oe_class_id = $oe_class{$_}
 			GROUP BY p.id, p.partnumber, p.description, p.onhand,
 			         month|;
         $sth = $dbh->prepare($query);


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