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

[..hidden..]

Revision: 3128
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3128&view=rev
Author:   einhverfr
Date:     2011-03-18 21:55:43 +0000 (Fri, 18 Mar 2011)

Log Message:
-----------
committing bugfixes for trial balance rounding issues

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

Modified: trunk/LedgerSMB/RP.pm
===================================================================
--- trunk/LedgerSMB/RP.pm	2011-03-12 00:38:19 UTC (rev 3127)
+++ trunk/LedgerSMB/RP.pm	2011-03-18 21:55:43 UTC (rev 3128)
@@ -1304,6 +1304,7 @@
 
 sub trial_balance {
     my ( $self, $myconfig, $form ) = @_;
+    my $p;
     my $year_end = $form->{ignore_yearend};
     my $dbh = $form->{dbh};
     my $approved = 'FALSE';
@@ -1480,7 +1481,7 @@
                                     ELSE 0 END) * -1 AS debit,
                                 SUM(CASE WHEN ac.transdate >=
                                               coalesce($datefrom, ac.transdate)
-                                         THEN ac.amount
+                                         THEN ac.amount::$amount_cast
                                          ELSE 0
                                     END) as amount
                                 FROM acc_trans ac


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