SF.net SVN: ledger-smb:[2508] branches/1.2/LedgerSMB/IS.pm

[..hidden..]

Revision: 2508
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2508&view=rev
Author:   einhverfr
Date:     2009-03-18 05:13:59 +0000 (Wed, 18 Mar 2009)

Log Message:
-----------
COGS fix for returned items

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IS.pm

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2009-03-17 21:49:24 UTC (rev 2507)
+++ branches/1.2/LedgerSMB/IS.pm	2009-03-18 05:13:59 UTC (rev 2508)
@@ -1670,7 +1670,7 @@
 
                 $qty = ($qty < $totalqty) ? $totalqty : $qty;
 
-                my $linetotal = $qty*$ref->{sellprice};
+                my $inetotal = $qty*$ref->{sellprice} * -1;
                 push @{ $form->{acc_trans}{lineitems} },
                   {
                     chart_id   => $ref->{expense_accno_id},


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