Attachment 56437 Details for Bug 13324 – Bug 13324: The fund values should be based on tax included values

[patch] Bug 13324: The fund values should be based on tax included values

Bug-13324-The-fund-values-should-be-based-on-tax-i.patch (text/plain), 3.59 KB, created by Koha Team University Lyon 3 on 2016-10-13 15:48:13 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Koha Team University Lyon 3

Created: 2016-10-13 15:48:13 UTC

Size: 3.59 KB

patch

obsolete

>From 064af5c93dc747b2ba99813b6a2953e89216cc21 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Tue, 18 Nov 2014 17:07:45 +0100
>Subject: [PATCH] Bug 13324: The fund values should be based on tax included
> values
>
>Now we have a column in DB to easily retrieve the tax included values.
>So the sum must be done this the _tax_included DB field and not on the
>"old" field.
>The old field can be tax excluded or tax included depending the supplier
>configuration.
>
>Test plan:
>Verify that the values in the acqui home and budgets page are the tax
>included values.
>
>Signed-off-by: Laurence Rault <laurence.rault@biblibre.com>
>
>Signed-off-by: Francois Charbonnier <francois.charbonnier@inlibro.com>
>
>Signed-off-by: Sonia Bouis <sonia.bouis@univ-lyon3.fr>
>Signed-off-by: Sonia Bouis <koha@univ-lyon3.fr>
>---
> C4/Budgets.pm | 20 +++++++++++---------
> 1 file changed, 11 insertions(+), 9 deletions(-)
>
>diff --git a/C4/Budgets.pm b/C4/Budgets.pm
>index d0c4400..b7b1233 100644
>--- a/C4/Budgets.pm
>+++ b/C4/Budgets.pm
>@@ -212,7 +212,7 @@ sub GetBudgetsPlanCell {
>         # get the actual amount
>         $sth = $dbh->prepare( qq|
> 
>-            SELECT SUM(ecost) AS actual FROM aqorders
>+            SELECT SUM(ecost_tax_included) AS actual FROM aqorders
>                 WHERE    budget_id = ? AND
>                 entrydate like "$cell->{'authvalue'}%"  |
>         );
>@@ -221,7 +221,7 @@ sub GetBudgetsPlanCell {
>         # get the actual amount
>         $sth = $dbh->prepare( qq|
> 
>-            SELECT SUM(ecost) FROM aqorders
>+            SELECT SUM(ecost_tax_included) FROM aqorders
>                 LEFT JOIN aqorders_items
>                 ON (aqorders.ordernumber = aqorders_items.ordernumber)
>                 LEFT JOIN items
>@@ -233,7 +233,7 @@ sub GetBudgetsPlanCell {
>         # get the actual amount
>         $sth = $dbh->prepare(  qq|
> 
>-            SELECT SUM( ecost *  quantity) AS actual
>+            SELECT SUM( ecost_tax_included *  quantity) AS actual
>                 FROM aqorders JOIN biblioitems
>                 ON (biblioitems.biblionumber = aqorders.biblionumber )
>                 WHERE aqorders.budget_id = ? and itemtype  = ? |
>@@ -246,7 +246,7 @@ sub GetBudgetsPlanCell {
>         # get the actual amount
>         $sth = $dbh->prepare( qq|
> 
>-        SELECT  SUM(ecost * quantity) AS actual
>+        SELECT  SUM(ecost_tax_included * quantity) AS actual
>             FROM aqorders
>             JOIN aqbudgets ON (aqbudgets.budget_id = aqorders.budget_id )
>             WHERE  aqorders.budget_id = ? AND
>@@ -325,10 +325,12 @@ sub ModBudgetPlan {
> 
> # -------------------------------------------------------------------
> sub GetBudgetSpent {
>-	my ($budget_id) = @_;
>-	my $dbh = C4::Context->dbh;
>-	my $sth = $dbh->prepare(qq|
>-        SELECT SUM( COALESCE(unitprice, ecost) * quantity ) AS sum FROM aqorders
>+    my ($budget_id) = @_;
>+    my $dbh = C4::Context->dbh;
>+    # unitprice_tax_included should always been set here
>+    # we should not need to retrieve ecost_tax_included
>+    my $sth = $dbh->prepare(qq|
>+        SELECT SUM( COALESCE(unitprice_tax_included, ecost_tax_included) * quantity ) AS sum FROM aqorders
>             WHERE budget_id = ? AND
>             quantityreceived > 0 AND
>             datecancellationprinted IS NULL
>@@ -354,7 +356,7 @@ sub GetBudgetOrdered {
> 	my ($budget_id) = @_;
> 	my $dbh = C4::Context->dbh;
> 	my $sth = $dbh->prepare(qq|
>-        SELECT SUM(ecost *  quantity) AS sum FROM aqorders
>+        SELECT SUM(ecost_tax_included *  quantity) AS sum FROM aqorders
>             WHERE budget_id = ? AND
>             quantityreceived = 0 AND
>             datecancellationprinted IS NULL
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 13324: 33795 | 47497 | 48873 | 56437 | 56893