SF.net SVN: ledger-smb: [511] trunk/LedgerSMB/RP.pm

[..hidden..]

Revision: 511
          http://svn.sourceforge.net/ledger-smb/?rev=511&view=rev
Author:   einhverfr
Date:     2006-11-10 16:27:06 -0800 (Fri, 10 Nov 2006)

Log Message:
-----------
Fixed trial balance db errors

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

Modified: trunk/LedgerSMB/RP.pm
===================================================================
--- trunk/LedgerSMB/RP.pm	2006-11-11 00:07:23 UTC (rev 510)
+++ trunk/LedgerSMB/RP.pm	2006-11-11 00:27:06 UTC (rev 511)
@@ -1297,7 +1297,7 @@
 		               $dpt_join
 		          WHERE $where $dpt_where $project AND ac.amount < 0
 		                 AND c.accno = ?) AS debit,
-		       (SELECT SUM(ac.amount FROM acc_trans ac
+		       (SELECT SUM(ac.amount) FROM acc_trans ac
 		          JOIN chart c ON (c.id = ac.chart_id)
 		               $dpt_join
 		         WHERE $where $dpt_where $project AND ac.amount > 0
@@ -1360,7 +1360,8 @@
 			} else {
 	
 				# get DR/CR
-				$drcr->execute($ref->{accno}, $ref->{accno});
+				$drcr->execute($ref->{accno}, $ref->{accno})
+					|| $form->dberror($query);
 	
 				($debit, $credit) = (0,0);
 				while (($debit, $credit) 


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