From 49adc39c2db27d150ef87be5863a83e1377f7eb9 Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Fri, 7 Aug 2015 00:36:10 +0200
Subject: [PATCH] added tax-calculation to update

---
 Handler/Update.hs | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/Handler/Update.hs b/Handler/Update.hs
index 07239bb..c4619a7 100644
--- a/Handler/Update.hs
+++ b/Handler/Update.hs
@@ -7,6 +7,7 @@ import qualified Eve.Api.Char.WalletTransactions as WT
 import qualified Eve.Api.Types as T
 import qualified Eve.Api.Char.Standings as ST
 import qualified Eve.Api.Char.Skills as SK
+import Database.Persist.Sql
 
 accountingId :: Int64
 accountingId = 16622
@@ -56,8 +57,21 @@ getUpdateR = loginOrDo (\(uid,user) -> do
                                                            update uid [UserWalletTimeout =. time']
                                                            insertMany_ (migrateTransaction uid <$> trans')
                        _ -> return ()
-                 --let sql = "update"
-                 --runDB $ rawExecute sql [uid]
+                   let sql = "update transaction t \
+                           set \
+                             fee = 100*(quantity*(price_cents/100)*(0.0100-0.0005*ch.br)/exp(0.1000*COALESCE((select faction_standing from faction_standings where faction_id=c.\"factionID\" and \"user\"=t.\"user\"),0)+0.0400*COALESCE((select corp_standing from corp_standings where corp_id=c.\"corporationID\" and \"user\"=t.\"user\"),0))), \
+                             tax = 100*(CASE WHEN t.trans_is_sell THEN quantity*(price_cents/100)*(0.015-(0.0015*ch.acc)) ELSE 0 END) \
+                           from \
+                             \"staStations\" s \
+                             join \"crpNPCCorporations\" c on (s.\"corporationID\" = c.\"corporationID\"),\
+                             \"user\" ch \
+                           where \
+                             t.station_id = s.\"stationID\" and \
+                             t.\"user\" = ch.id and \
+                             t.fee IS NULL and t.tax IS NULL and \
+                             t.no_tax = false and \
+                             t.user=?"
+                   runDB $ rawExecute sql [toPersistValue uid]
                redirect WalletR
              )