c3d2/yammat
c3d2
/
yammat
38
0
Fork 1
Code Issues Pull Requests Releases Activity

fixed bug in supplier digest where crates could become negative

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

9
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,7 +87,12 @@ genBevDigest bev =
BevDigest amount (amount * (fromMaybe 0 $ beveragePricePerCrate $ entityVal bev)) (entityVal bev)
where
amount =
((beverageMaxAmount (entityVal bev) - beverageAmount (entityVal bev)) `div` ( fromMaybe 1 $ beveragePerCrate (entityVal bev)))
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