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