summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-10-11 16:40:30 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-10-11 16:40:30 +0000
commit7b4fc0c06e81e6d160e90d3592f15d4f6fdd3cd2 (patch)
treedb7559ab9e9ec2e0be3c2426a5b94406a9e3eb0d /LedgerSMB
parent48bbb0e18370ac33036de139e281c1624f453ef4 (diff)
Filtering out unapproved ar/ap/gl transactions from trial balance.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2366 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/RP.pm43
1 files changed, 39 insertions, 4 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm
index 1a236ea8..22af9bb1 100644
--- a/LedgerSMB/RP.pm
+++ b/LedgerSMB/RP.pm
@@ -1078,8 +1078,13 @@ sub get_accounts {
FROM acc_trans ac
JOIN chart c ON (c.id = ac.chart_id)
JOIN gifi g ON (c.gifi_accno = g.accno)
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
$dpt_join
WHERE $where $ywhere $dpt_where $category
+ AND gl.approved AND ac.approved
$project
GROUP BY g.accno, g.description, c.category
@@ -1361,9 +1366,14 @@ sub trial_balance {
JOIN chart c ON (ac.chart_id = c.id)
JOIN gifi g ON (c.gifi_accno = g.accno)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE ac.transdate < '$form->{fromdate}'
$dpt_where $project
AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
GROUP BY g.accno, c.category, g.description,
c.contra|;
@@ -1377,9 +1387,14 @@ sub trial_balance {
FROM acc_trans ac
JOIN chart c ON (ac.chart_id = c.id)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE ac.transdate < '$form->{fromdate}'
$dpt_where $project
AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
GROUP BY c.accno, c.category, c.description,
c.contra|;
@@ -1458,8 +1473,13 @@ sub trial_balance {
JOIN chart c ON (c.id = ac.chart_id)
JOIN gifi g ON (c.gifi_accno = g.accno)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE $where $dpt_where $project
- AND ($approved OR ac.approved)
+ AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
GROUP BY g.accno, g.description, c.category, c.contra
ORDER BY accno|;
@@ -1472,8 +1492,13 @@ sub trial_balance {
FROM acc_trans ac
JOIN chart c ON (c.id = ac.chart_id)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE $where $dpt_where $project
- AND ($approved OR ac.approved)
+ AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
GROUP BY c.accno, c.description, c.category, c.contra
ORDER BY accno|;
@@ -1487,14 +1512,24 @@ sub trial_balance {
SELECT (SELECT SUM(ac.amount) * -1 FROM acc_trans ac
JOIN chart c ON (c.id = ac.chart_id)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE $where $dpt_where $project AND ac.amount < 0
- AND ($approved OR ac.approved)
+ AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
AND c.accno = ?) AS debit,
(SELECT SUM(ac.amount) FROM acc_trans ac
JOIN chart c ON (c.id = ac.chart_id)
$dpt_join
+ JOIN (SELECT id, approved FROM gl UNION
+ SELECT id, approved FROM ar UNION
+ SELECT id, approved FROM ap) gl
+ ON (ac.trans_id = gl.id)
WHERE $where $dpt_where $project AND ac.amount > 0
- AND ($approved OR ac.approved)
+ AND ($approved OR ac.approved)
+ AND ($approved OR gl.approved)
AND c.accno = ?) AS credit |;
if ( $form->{accounttype} eq 'gifi' ) {