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

tagged separators 

to indicate a table i markdown
This commit is contained in:
Wolf 2017-01-21 17:15:50 +01:00 committed by GitHub
parent fad71038d3
commit 5c435d8f24
1 changed files with 48 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
Handler/SupplierActions.hs
View File

@ -43,26 +43,66 @@ getSupplierDigestR sId = do
<table> <table>
<thead> <thead>
<tr> <tr>
<th>_{MsgArtNr} <th>
<th>_{MsgName} <span .transp>|
<th>_{MsgVolume} _{MsgArtNr}
<th>_{MsgCrateCount} <span .transp>|
<th>_{MsgPricePerCrate} <th>
<th>_{MsgTotalValue} _{MsgName}
<span .transp>|
<th>
_{MsgVolume}
<span .transp>|
<th>
_{MsgCrateCount}
<span .transp>|
<th>
_{MsgPricePerCrate}
<span .transp>|
<th>
_{MsgTotalValue}
<span .transp>|
<tr>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
<th>
<span .transp>---:
$forall dig <- digests $forall dig <- digests
$if bdCrates dig /= 0 $if bdCrates dig /= 0
<tr> <tr>
<td>#{fromMaybe "" $ beverageArtNr $ bdBev dig} <td>
<span .transp>|
#{fromMaybe "" $ beverageArtNr $ bdBev dig}
<span .transp>|
<td>#{beverageIdent $ bdBev dig} <td>#{beverageIdent $ bdBev dig}
<span .transp>|
<td>#{formatIntVolume $ beverageMl $ bdBev dig} <td>#{formatIntVolume $ beverageMl $ bdBev dig}
<span .transp>|
<td>#{T.pack $ show $ bdCrates dig} <td>#{T.pack $ show $ bdCrates dig}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master}
<span .transp>|
<tr> <tr>
<td colspan="3">_{MsgTotalCrates} <td colspan="3">
<span .transp>|
_{MsgTotalCrates}
<span .transp>|
<td>#{T.pack $ show $ sum $ map bdCrates digests} <td>#{T.pack $ show $ sum $ map bdCrates digests}
<span .transp>|
<td>_{MsgBuyValue} <td>_{MsgBuyValue}
<span .transp>|
<td style="text-align: right;">#{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master} <td style="text-align: right;">#{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master}
<span .transp>|
|] |]
tableLayout w tableLayout w
Nothing -> do Nothing -> do