diff --git a/Handler/SupplierActions.hs b/Handler/SupplierActions.hs index de78dcd..49f3e7a 100644 --- a/Handler/SupplierActions.hs +++ b/Handler/SupplierActions.hs @@ -40,29 +40,74 @@ getSupplierDigestR sId = do
_{MsgCustomerId}: #{supplierCustomerId sup} +
_{MsgArtNr} - | _{MsgName} - | _{MsgVolume} - | _{MsgCrateCount} - | _{MsgPricePerCrate} - | _{MsgTotalValue} + | + | + _{MsgArtNr} + | + | + _{MsgName} + | + | + _{MsgVolume} + | + | + _{MsgCrateCount} + | + | + _{MsgPricePerCrate} + | + |
+ _{MsgTotalValue}
+ |
+
+ ---:
+ |
+ ---:
+ |
+ ---:
+ |
+ ---:
+ |
+ ---:
+
$forall dig <- digests
$if bdCrates dig /= 0
| #{fromMaybe "" $ beverageArtNr $ bdBev dig}
+ |
+ |
+ #{fromMaybe "" $ beverageArtNr $ bdBev dig}
+ |
| #{beverageIdent $ bdBev dig}
+ |
| #{formatIntVolume $ beverageMl $ bdBev dig}
+ |
| #{T.pack $ show $ bdCrates dig}
+ |
| #{formatIntCurrency $ fromMaybe 0 $ beveragePricePerCrate $ bdBev dig} #{appCurrency $ appSettings master}
+ |
| #{formatIntCurrency $ bdTotal dig} #{appCurrency $ appSettings master}
+ |
| _{MsgTotalCrates}
+ |
+
+ |
+ |_
+ {MsgTotalCrates}
+
+ |
+ |
| #{T.pack $ show $ sum $ map bdCrates digests}
+ |
| _{MsgBuyValue}
+ |
| #{formatIntCurrency $ sum $ map bdTotal digests} #{appCurrency $ appSettings master}
+ |
|]
tableLayout w
Nothing -> do
diff --git a/static/css/main.css b/static/css/main.css
index b94e928..b81167f 100644
--- a/static/css/main.css
+++ b/static/css/main.css
@@ -11,7 +11,9 @@
text-align: center;
border-radius: 6px;
}
-
+.transp {
+ color: transparent !important;
+}
.text {
text-align: left;
}
| |
---|