nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixed bug in supplier digest where crates could become negative

Browse source
This commit is contained in:
nek0 2015-10-11 21:20:18 +02:00
parent 303c2716f1
commit 8375041ad7
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Handler/SupplierActions.hs
View file

@ -48,7 +48,7 @@ getSupplierDigestR sId = do
<th>_{MsgPricePerCrate}
<th>_{MsgTotalValue}
$forall dig <- digests
$if bdCrates dig > 0
$if bdCrates dig /= 0
<tr>
<td>#{fromMaybe "" $ beverageArtNr $ bdBev dig}
<td>#{beverageIdent $ bdBev dig}
@ -87,8 +87,13 @@ genBevDigest bev =
BevDigest amount (amount * (fromMaybe 0 $ beveragePricePerCrate $ entityVal bev)) (entityVal bev)
where
amount =
if ((beverageMaxAmount (entityVal bev) - beverageAmount (entityVal bev)) `div` (fromMaybe 1 $ beveragePerCrate (entityVal bev))) < 0
then
0
else
((beverageMaxAmount (entityVal bev) - beverageAmount (entityVal bev)) `div` (fromMaybe 1 $ beveragePerCrate (entityVal bev)))
getDeleteSupplierR :: SupplierId -> Handler Html
getDeleteSupplierR sId = do
mSup <- runDB $ get sId