From a29d8f3698bbddaae7413163859689a9bd8c6b3b Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Thu, 26 Oct 2023 10:30:27 +0000
Subject: [PATCH 1/4] chore(firm): add more useful supervisor counts

---
 .../utils/table_column/de-de-formal.msg       |   3 +
 messages/uniworx/utils/table_column/en-eu.msg |   3 +
 src/Handler/Firm.hs                           | 110 +++++++++++++-----
 src/Utils/Icon.hs                             |   4 +-
 4 files changed, 87 insertions(+), 33 deletions(-)

diff --git a/messages/uniworx/utils/table_column/de-de-formal.msg b/messages/uniworx/utils/table_column/de-de-formal.msg
index 62be3b1c8..f2beb2c56 100644
--- a/messages/uniworx/utils/table_column/de-de-formal.msg
+++ b/messages/uniworx/utils/table_column/de-de-formal.msg
@@ -82,6 +82,9 @@ TableCompanyNo: Firmennummer
 TableCompanyNos: Firmennummern
 TableCompanyNrUsers: Firmenangehörige
 TableCompanyNrSupers: Ansprechpartner
+TableCompanyNrEmpSupervised: Firmenangehörige mit Ansprechpartner
+TableCompanyNrEmpRerouted: Firmenangehörige mit Umleitung
+TableCompanyNrEmpRerPost: Firmenangehörige mit postalischer Umleitung
 TableCompanyNrSupersActive: Mitarbeiter mit Ansprechpartner
 TableCompanyNrSupersDefault: Standard Ansprechpartner
 TableCompanyNrForeignSupers: Firmenfremde Ansprechpartner
diff --git a/messages/uniworx/utils/table_column/en-eu.msg b/messages/uniworx/utils/table_column/en-eu.msg
index a5063da7c..1fc9066c0 100644
--- a/messages/uniworx/utils/table_column/en-eu.msg
+++ b/messages/uniworx/utils/table_column/en-eu.msg
@@ -82,6 +82,9 @@ TableCompanyNo: Company number
 TableCompanyNos: Company numbers
 TableCompanyNrUsers: Associates
 TableCompanyNrSupers: Supervisors
+TableCompanyNrEmpSupervised: Supervsied employees 
+TableCompanyNrEmpRerouted: Employees having reroute
+TableCompanyNrEmpRerPost: Employees having postal reroute
 TableCompanyNrSupersActive: Associates having supervisors
 TableCompanyNrSupersDefault: Default supervisors
 TableCompanyNrForeignSupers: External Supervisors
diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs
index 7ce1cc857..f92144c2d 100644
--- a/src/Handler/Firm.hs
+++ b/src/Handler/Firm.hs
@@ -60,7 +60,7 @@ postFirmR fsh = do
       E.groupBy (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany)
       E.orderBy [E.asc $ usr E.^. UserId, E.asc $ usr E.^. UserDisplayName, E.asc $ usr E.^. UserSurname, E.asc $ scmpy E.?. UserCompanyCompany]
       let countRows' :: E.SqlExpr (E.Value Int64) = E.countRows
-      return    (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany, countRows')
+      return    (usr E.^. UserId, usr E.^. UserDisplayName, usr E.^. UserSurname, scmpy E.?. UserCompanyCompany, countRows', usr E.^. UserPrefersPostal)
 
   siteLayoutMsg (SomeMessage fsh) $ do
     setTitle $ citext2Html fsh
@@ -72,8 +72,9 @@ postFirmR fsh = do
 
       <h3>#{length cactSuper} Active Supervisors for Employees
       <ul>
-        $forall (E.Value _, E.Value dn, E.Value sn, E.Value mbCsh, E.Value nr) <- cactSuper
-          <li>#{nr} Employees supervised by ^{nameWidget dn sn}
+        $forall (E.Value _, E.Value dn, E.Value sn, E.Value mbCsh, E.Value nr, E.Value prefPost) <- cactSuper
+          <li>#{nr} Employees supervised by ^{nameWidget dn sn} #
+            #{icon (bool IconAt IconLetter prefPost)} #
             $maybe csh <- mbCsh
               $if csh /= fshId
                 from foreign company #{unCompanyKey csh}
@@ -111,7 +112,7 @@ type AllCompanyTableExpr = E.SqlExpr (Entity Company)
 queryCompany :: AllCompanyTableExpr -> E.SqlExpr (Entity Company)
 queryCompany = id
 
-type AllCompanyTableData = DBRow (Entity Company, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64)
+type AllCompanyTableData = DBRow (Entity Company, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64, E.Value Word64)
 resultAllCompanyEntity          :: Lens' AllCompanyTableData (Entity Company)
 resultAllCompanyEntity          = _dbrOutput . _1
 
@@ -124,17 +125,26 @@ resultAllCompanyUsers           = _dbrOutput . _2 . _unValue
 resultAllCompanySupervisors     :: Lens' AllCompanyTableData Word64
 resultAllCompanySupervisors     = _dbrOutput . _3 . _unValue
 
+resultAllCompanyEmployeeSupervised :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmployeeSupervised = _dbrOutput . _4 . _unValue
+
+resultAllCompanyEmployeeRerouted :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmployeeRerouted = _dbrOutput . _5 . _unValue
+
+resultAllCompanyEmpRerPost      :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmpRerPost      = _dbrOutput . _6 . _unValue
+
 resultAllCompanyForeignSupers   :: Lens' AllCompanyTableData Word64
-resultAllCompanyForeignSupers   = _dbrOutput . _4 . _unValue
+resultAllCompanyForeignSupers   = _dbrOutput . _7 . _unValue
 
 resultAllCompanyDefaultReroutes :: Lens' AllCompanyTableData Word64
-resultAllCompanyDefaultReroutes = _dbrOutput . _5 . _unValue
+resultAllCompanyDefaultReroutes = _dbrOutput . _8 . _unValue
 
 resultAllCompanyActiveReroutes  :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes  = _dbrOutput . _6 . _unValue
+resultAllCompanyActiveReroutes  = _dbrOutput . _9 . _unValue
 
 resultAllCompanyActiveReroutes' :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes' = _dbrOutput . _7 . _unValue
+resultAllCompanyActiveReroutes' = _dbrOutput . _10 . _unValue
 
 fromUserCompany :: Maybe (E.SqlExpr (Entity UserCompany) -> E.SqlExpr (E.Value Bool)) -> E.SqlExpr (Entity Company) -> E.SqlQuery ()
 fromUserCompany mbFltr cmpy = do
@@ -157,6 +167,35 @@ firmCountSupervisors  = E.subSelectCount . fromUserCompany (Just (E.^. UserCompa
 firmCountDefaultReroutes :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
 firmCountDefaultReroutes = E.subSelectCount . fromUserCompany (Just (\uc -> uc E.^. UserCompanySupervisor E.&&. uc E.^. UserCompanySupervisorReroute))
 
+firmCountEmployeeSupervised :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeSupervised = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      usrSuper <- E.from $ E.table @UserSupervisor
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+
+firmCountEmployeeRerouted :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      usrSuper <- E.from $ E.table @UserSupervisor
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+        E.&&.    usrSuper E.^. UserSupervisorRerouteNotifications
+
+firmCountEmployeeRerPost :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
+firmCountEmployeeRerPost = E.subSelectCount . fromUserCompany $ Just fltr
+  where 
+    fltr usrc = E.exists $ do
+      (usrSuper :& usr) <-
+        E.from $ E.table @UserSupervisor
+        `E.innerJoin` E.table @User
+        `E.on` (\(usrSuper :& usr) -> usrSuper E.^. UserSupervisorSupervisor E.==. usr E.^. UserId)
+      E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
+        E.&&.    usrSuper E.^. UserSupervisorRerouteNotifications
+        E.&&.              usr E.^. UserPrefersPostal
+        E.&&.    E.isJust (usr E.^. UserPostAddress)
+
+
 -- firmCountForeignSupervisors :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
 -- firmCountForeignSupervisors cmpy = E.coalesceDefault
 --   [E.subSelect $ do
@@ -199,13 +238,16 @@ mkFirmAllTable isAdmin uid = do
             usrCmpy <- E.from $ E.table @UserCompany
             E.where_ $ usrCmpy E.^. UserCompanyCompany E.==. cmpy E.^. CompanyId
                 E.&&.  usrCmpy E.^. UserCompanyUser    E.==. E.val uid
-          return  ( cmpy
-                  , cmpy & firmCountUsers
-                  , cmpy & firmCountSupervisors
-                  , cmpy & firmCountForeignSupervisors
-                  , cmpy & firmCountDefaultReroutes
-                  , cmpy & firmCountActiveReroutes
-                  , cmpy & firmCountActiveReroutes'
+          return  ( cmpy                                        --  1
+                  , cmpy & firmCountUsers                       --  2
+                  , cmpy & firmCountSupervisors                 --  3
+                  , cmpy & firmCountEmployeeSupervised          --  4
+                  , cmpy & firmCountEmployeeRerouted            --  5
+                  , cmpy & firmCountEmployeeRerPost             --  6
+                  , cmpy & firmCountForeignSupervisors          --  7
+                  , cmpy & firmCountDefaultReroutes             --  8
+                  , cmpy & firmCountActiveReroutes              --  9
+                  , cmpy & firmCountActiveReroutes'             -- 10
                   )
         dbtRowKey = (E.^. CompanyId)
         dbtProj = dbtProjId
@@ -220,23 +262,29 @@ mkFirmAllTable isAdmin uid = do
               in  anchorCell (FirmR fsh) $ toWgt fsh
           , sortable (Just "avsnr")         (i18nCell MsgTableCompanyNo)               $ \(view resultAllCompany -> firm) ->
               anchorCell (FirmR $ companyShorthand firm) $ toWgt $ companyAvsId firm
-          , sortable (Just "users")         (i18nCell MsgTableCompanyNrUsers)          $ \(view resultAllCompanyUsers           -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \(view resultAllCompanySupervisors     -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "foreigners")    (i18nCell MsgTableCompanyNrForeignSupers)  $ \(view resultAllCompanyForeignSupers   -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-act")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes  -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-all")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes' -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "users")         (i18nCell MsgTableCompanyNrUsers)          $ \(view resultAllCompanyUsers               -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \(view resultAllCompanySupervisors         -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-supervised")(i18nCell MsgTableCompanyNrEmpSupervised)  $ \(view resultAllCompanyEmployeeSupervised  -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-rerouted")  (i18nCell MsgTableCompanyNrEmpRerouted)    $ \(view resultAllCompanyEmployeeRerouted    -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-rer-post")  (i18nCell MsgTableCompanyNrEmpRerPost)     $ \(view resultAllCompanyEmpRerPost          -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes     -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "foreigners")    (i18nCell MsgTableCompanyNrForeignSupers)  $ \(view resultAllCompanyForeignSupers       -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-act")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes      -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "reroute-all")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes'     -> nr) -> wgtCell $ word2widget nr
           ]
         dbtSorting = mconcat
-          [ singletonMap "name"         $ SortColumn (E.^. CompanyName)
-          , singletonMap "short"        $ SortColumn (E.^. CompanyShorthand)
-          , singletonMap "avsnr"        $ SortColumn (E.^. CompanyAvsId)
-          , singletonMap "users"        $ SortColumn firmCountUsers
-          , singletonMap "supervisors"  $ SortColumn firmCountSupervisors
-          , singletonMap "reroute-def"  $ SortColumn firmCountDefaultReroutes
-          , singletonMap "foreigners"   $ SortColumn firmCountForeignSupervisors
-          , singletonMap "reroute-act"  $ SortColumn firmCountActiveReroutes
-          , singletonMap "reroute-all"  $ SortColumn firmCountActiveReroutes'
+          [ singletonMap "name"           $ SortColumn (E.^. CompanyName)
+          , singletonMap "short"          $ SortColumn (E.^. CompanyShorthand)
+          , singletonMap "avsnr"          $ SortColumn (E.^. CompanyAvsId)
+          , singletonMap "users"          $ SortColumn firmCountUsers
+          , singletonMap "supervisors"    $ SortColumn firmCountSupervisors
+          , singletonMap "emp-supervised" $ SortColumn firmCountEmployeeSupervised
+          , singletonMap "emp-rerouted"   $ SortColumn firmCountEmployeeRerouted
+          , singletonMap "emp-rer-post"   $ SortColumn firmCountEmployeeRerPost
+          , singletonMap "reroute-def"    $ SortColumn firmCountDefaultReroutes
+          , singletonMap "foreigners"     $ SortColumn firmCountForeignSupervisors
+          , singletonMap "reroute-act"    $ SortColumn firmCountActiveReroutes
+          , singletonMap "reroute-all"    $ SortColumn firmCountActiveReroutes'
           ]
         dbtFilter = mconcat
           [ single $ fltrCompanyNameNr queryCompany
@@ -255,7 +303,7 @@ mkFirmAllTable isAdmin uid = do
           [ fltrCompanyNameNrUI mPrev
           , prismAForm (singletonFilter "is-supervisor") mPrev $ aopt textField (fslI MsgTableSupervisor)
           ]
-        dbtStyle =  def -- { dbsFilterLayout = defaultDBSFilterLayout }
+        dbtStyle =  def { dbsFilterLayout = defaultDBSFilterLayout }
         acts :: Map FirmAllAction (AForm Handler FirmAllActionData)
         acts = mconcat
           [ singletonMap FirmAllActNotify           $ pure FirmAllActNotifyData
diff --git a/src/Utils/Icon.hs b/src/Utils/Icon.hs
index a3602faec..645e89e73 100644
--- a/src/Utils/Icon.hs
+++ b/src/Utils/Icon.hs
@@ -153,7 +153,7 @@ iconText = \case
     IconSFTHint                 -> "life-ring"          -- for SheetFileType only
     IconSFTSolution             -> "exclamation-circle" -- for SheetFileType only
     IconSFTMarking              -> "check-circle"       -- for SheetFileType only
-    IconEmail                   -> "envelope" -- envelope is no longer unamibuous
+    IconEmail                   -> "envelope" -- envelope is no longer unamibuous, use IconAt or IconLetter if email and postal need to be distinguished
     IconRegisterTemplate        -> "file-alt"
     IconNoCorrectors            -> "user-slash"
     IconRemoveUser              -> "user-slash"
@@ -199,7 +199,7 @@ iconText = \case
     IconCertificate             -> "badge-check"
     IconPrintCenter             -> "mail-bulk" -- From fontawesome v6 onwards: "envelope-bulk"
     IconLetter                  -> "mail-bulk" -- Problem "envelope" already used for email as well
-    IconAt                      -> "at"
+    IconAt                      -> "at"        -- alternative for IconEmail to distinguish from IconLetter
     IconSupervisor              -> "head-side" -- must be notably different to user
     -- IconWaitingForUser          -> "user-cog"  -- Waiting on a user to do something
     IconExpired                 -> "hourglass-end"

From 954a23936a35ea6c32247d7e191312e63888c12d Mon Sep 17 00:00:00 2001
From: Steffen Jost <s.jost@fraport.de>
Date: Thu, 26 Oct 2023 12:44:01 +0200
Subject: [PATCH 2/4] fix(build): minor

---
 src/Handler/Firm.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs
index f92144c2d..f49fd755f 100644
--- a/src/Handler/Firm.hs
+++ b/src/Handler/Firm.hs
@@ -168,14 +168,15 @@ firmCountDefaultReroutes :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Wor
 firmCountDefaultReroutes = E.subSelectCount . fromUserCompany (Just (\uc -> uc E.^. UserCompanySupervisor E.&&. uc E.^. UserCompanySupervisorReroute))
 
 firmCountEmployeeSupervised :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
-firmCountEmployeeSupervised = E.subSelectCount . fromUserCompany $ Just fltr
-  where 
+firmCountEmployeeSupervised = E.subSelectCount . fromUserCompany (Just fltr)
+  where
+    fltr :: E.SqlExpr (Entity UserCompany) -> E.SqlExpr (E.Value Bool)
     fltr usrc = E.exists $ do
       usrSuper <- E.from $ E.table @UserSupervisor
       E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
 
 firmCountEmployeeRerouted :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
-firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany $ Just fltr
+firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany (Just fltr)
   where 
     fltr usrc = E.exists $ do
       usrSuper <- E.from $ E.table @UserSupervisor
@@ -183,7 +184,7 @@ firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany $ Just fltr
         E.&&.    usrSuper E.^. UserSupervisorRerouteNotifications
 
 firmCountEmployeeRerPost :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
-firmCountEmployeeRerPost = E.subSelectCount . fromUserCompany $ Just fltr
+firmCountEmployeeRerPost = E.subSelectCount . fromUserCompany (Just fltr)
   where 
     fltr usrc = E.exists $ do
       (usrSuper :& usr) <-

From aae19268406e715425348e89a732d21380ec706f Mon Sep 17 00:00:00 2001
From: Steffen Jost <s.jost@fraport.de>
Date: Thu, 26 Oct 2023 17:55:20 +0200
Subject: [PATCH 3/4] chore(firm): add explanation to firm page and clean
 navigation

---
 .../utils/navigation/menu/de-de-formal.msg    |  2 +
 .../uniworx/utils/navigation/menu/en-eu.msg   |  2 +
 src/Foundation/Navigation.hs                  | 20 +++++++--
 src/Handler/Firm.hs                           | 21 ++++-----
 templates/i18n/firm-all/de-de-formal.hamlet   | 42 ++++++++++++++++++
 templates/i18n/firm-all/en-eu.hamlet          | 43 +++++++++++++++++++
 6 files changed, 116 insertions(+), 14 deletions(-)
 create mode 100644 templates/i18n/firm-all/de-de-formal.hamlet
 create mode 100644 templates/i18n/firm-all/en-eu.hamlet

diff --git a/messages/uniworx/utils/navigation/menu/de-de-formal.msg b/messages/uniworx/utils/navigation/menu/de-de-formal.msg
index 9e1c55f5a..373cfc0e6 100644
--- a/messages/uniworx/utils/navigation/menu/de-de-formal.msg
+++ b/messages/uniworx/utils/navigation/menu/de-de-formal.msg
@@ -134,6 +134,8 @@ MenuLmsLearners: Export Benutzer E‑Learning
 MenuLmsReport: Ergebnisse E‑Learning
 
 MenuFirms: Firmen
+MenuFirmUsers: Angehörige
+MenuFirmSupervisors: Ansprechpartner
 
 MenuSap: SAP Schnittstelle
 
diff --git a/messages/uniworx/utils/navigation/menu/en-eu.msg b/messages/uniworx/utils/navigation/menu/en-eu.msg
index 6145f0d81..c46f047da 100644
--- a/messages/uniworx/utils/navigation/menu/en-eu.msg
+++ b/messages/uniworx/utils/navigation/menu/en-eu.msg
@@ -135,6 +135,8 @@ MenuLmsLearners: E‑learning Users
 MenuLmsReport: E‑learning Results
 
 MenuFirms: Companies
+MenuFirmUsers: Associates
+MenuFirmSupervisors: Supervisors
 
 MenuSap: SAP Interface 
 
diff --git a/src/Foundation/Navigation.hs b/src/Foundation/Navigation.hs
index 4c405b25f..e53e6b3ae 100644
--- a/src/Foundation/Navigation.hs
+++ b/src/Foundation/Navigation.hs
@@ -123,10 +123,10 @@ breadcrumb ProblemFbutNoR       = i18nCrumb MsgProblemsRWithoutFHeading   $ Just
 breadcrumb ProblemAvsSynchR     = i18nCrumb MsgProblemsAvsSynchHeading    $ Just AdminProblemsR
 breadcrumb ProblemAvsErrorR     = i18nCrumb MsgProblemsAvsErrorHeading    $ Just ProblemAvsSynchR
 
-breadcrumb FirmAllR         = i18nCrumb MsgMenuFirms            Nothing
-breadcrumb FirmR{}          = i18nCrumb MsgMenuFirms          $ Just FirmAllR
-breadcrumb FirmUsersR{}     = i18nCrumb MsgMenuFirms          $ Just FirmAllR
-breadcrumb FirmSupersR{}    = i18nCrumb MsgMenuFirms          $ Just FirmAllR
+breadcrumb FirmAllR         = i18nCrumb MsgMenuFirms              Nothing
+breadcrumb FirmR{}          = i18nCrumb MsgMenuAdminHeading     $ Just   FirmAllR  -- TODO: change heading or remove
+breadcrumb FirmUsersR{}     = i18nCrumb MsgMenuFirmUsers        $ Just   FirmAllR
+breadcrumb (FirmSupersR fsh)= i18nCrumb MsgMenuFirmSupervisors  $ Just $ FirmUsersR fsh
 
 breadcrumb PrintCenterR     = i18nCrumb MsgMenuApc              Nothing
 breadcrumb PrintSendR       = i18nCrumb MsgMenuPrintSend      $ Just PrintCenterR
@@ -2425,6 +2425,18 @@ pageActions (FirmR fsh) = return
     , navChildren = []
     }
   ]
+pageActions (FirmUsersR fsh) = return
+  [ NavPageActionPrimary
+    { navLink = defNavLink MsgTableCompanyNrSupers $ FirmSupersR fsh
+    , navChildren = []
+    }  
+  ]
+pageActions (FirmSupersR fsh) = return
+  [ NavPageActionPrimary
+    { navLink = defNavLink MsgTableCompanyNrUsers  $ FirmUsersR fsh
+    , navChildren = []
+    }
+  ]
 pageActions PrintCenterR = do
   openDays <- useRunDB $ Ex.select $ do
     pj <- Ex.from $ Ex.table @PrintJob
diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs
index f49fd755f..62e4a3079 100644
--- a/src/Handler/Firm.hs
+++ b/src/Handler/Firm.hs
@@ -65,6 +65,9 @@ postFirmR fsh = do
   siteLayoutMsg (SomeMessage fsh) $ do
     setTitle $ citext2Html fsh
     [whamlet|
+      <h2>PROVISORISCHE DEBUG SEITE 
+      <p>Diese Seite wird in der finalen Version nicht mehr enthalten sein.
+
       <h3>#{length csuper} Company Default Supervisors (non-foreign only)
       <ul>
         $forall u <- csuper
@@ -177,7 +180,7 @@ firmCountEmployeeSupervised = E.subSelectCount . fromUserCompany (Just fltr)
 
 firmCountEmployeeRerouted :: E.SqlExpr (Entity Company) -> E.SqlExpr (E.Value Word64)
 firmCountEmployeeRerouted = E.subSelectCount . fromUserCompany (Just fltr)
-  where 
+  where   
     fltr usrc = E.exists $ do
       usrSuper <- E.from $ E.table @UserSupervisor
       E.where_ $ usrSuper E.^. UserSupervisorUser E.==. usrc E.^. UserCompanyUser
@@ -257,18 +260,19 @@ mkFirmAllTable isAdmin uid = do
           [ if not isAdmin then mempty else -- guardOnM idAdmin $
             dbSelect (applying _2) id (return . view (resultAllCompanyEntity . _entityKey))
           , sortable (Just "name")          (i18nCell MsgTableCompany)                 $ \(view resultAllCompany -> firm) ->
-              anchorCell (FirmR $ companyShorthand firm) . toWgt $ companyName firm
+              anchorCell (FirmUsersR $ companyShorthand firm) . toWgt $ companyName firm
           , sortable (Just "short")         (i18nCell MsgTableCompanyShort)            $ \(view resultAllCompany -> firm) ->
               let fsh = companyShorthand firm
-              in  anchorCell (FirmR fsh) $ toWgt fsh
+              in  anchorCell (FirmUsersR fsh) $ toWgt fsh
           , sortable (Just "avsnr")         (i18nCell MsgTableCompanyNo)               $ \(view resultAllCompany -> firm) ->
               anchorCell (FirmR $ companyShorthand firm) $ toWgt $ companyAvsId firm
           , sortable (Just "users")         (i18nCell MsgTableCompanyNrUsers)          $ \(view resultAllCompanyUsers               -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \(view resultAllCompanySupervisors         -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "supervisors")   (i18nCell MsgTableCompanyNrSupersDefault)  $ \row -> 
+              anchorCell (FirmSupersR $ row ^. resultAllCompany . _companyShorthand) $ word2widget $ row ^. resultAllCompanySupervisors
+          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes     -> nr) -> wgtCell $ word2widget nr
           , sortable (Just "emp-supervised")(i18nCell MsgTableCompanyNrEmpSupervised)  $ \(view resultAllCompanyEmployeeSupervised  -> nr) -> wgtCell $ word2widget nr
           , sortable (Just "emp-rerouted")  (i18nCell MsgTableCompanyNrEmpRerouted)    $ \(view resultAllCompanyEmployeeRerouted    -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "emp-rer-post")  (i18nCell MsgTableCompanyNrEmpRerPost)     $ \(view resultAllCompanyEmpRerPost          -> nr) -> wgtCell $ word2widget nr
-          , sortable (Just "reroute-def")   (i18nCell MsgTableCompanyNrRerouteDefault) $ \(view resultAllCompanyDefaultReroutes     -> nr) -> wgtCell $ word2widget nr
+          , sortable (Just "emp-rer-post")  (i18nCell MsgTableCompanyNrEmpRerPost)     $ \(view resultAllCompanyEmpRerPost          -> nr) -> wgtCell $ word2widget nr          
           , sortable (Just "foreigners")    (i18nCell MsgTableCompanyNrForeignSupers)  $ \(view resultAllCompanyForeignSupers       -> nr) -> wgtCell $ word2widget nr
           , sortable (Just "reroute-act")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes      -> nr) -> wgtCell $ word2widget nr
           , sortable (Just "reroute-all")   (i18nCell MsgTableCompanyNrRerouteActive)  $ \(view resultAllCompanyActiveReroutes'     -> nr) -> wgtCell $ word2widget nr
@@ -352,10 +356,7 @@ postFirmAllR = do
     (FirmAllActResetSupervisionData, fids) -> addMessage Info $ text2Html $ "Reset "  <> tshow (length fids) <> " companies. TODO"
   siteLayoutMsg MsgMenuFirms $ do
     setTitleI MsgMenuFirms
-    --     $(widgetFile "firm-all")
-    [whamlet|!!!STUB!!!TO DO!!!
-        ^{firmTable}
-    |]
+    $(i18nWidgetFile "firm-all")
 
 
 -----------------------
diff --git a/templates/i18n/firm-all/de-de-formal.hamlet b/templates/i18n/firm-all/de-de-formal.hamlet
new file mode 100644
index 000000000..e4e59fc3e
--- /dev/null
+++ b/templates/i18n/firm-all/de-de-formal.hamlet
@@ -0,0 +1,42 @@
+$newline never
+
+$# SPDX-FileCopyrightText: 2023 Steffen Jost <s.jost@fraport.de>
+$#
+$# SPDX-License-Identifier: AGPL-3.0-or-later
+
+<section>
+
+
+  <p>
+    Die Daten der Firmen wurden aus dem Ausweisverwaltungssystem (AVS) der Fraport AG
+    importiert und werden regelmäßig aktualisiert, 
+    wenn Fahrlizenzinhaber oder deren Verwalter über das AVS einer Firma zugeordnet wurden.
+  <p>
+    ^{firmTable}
+
+  <h3> Hinweis zur Entwicklungsversion
+  <p>
+    Die Spalten zeigen derzeit folgende Informationen
+      <ol>
+        <li> Firmenname
+        <li> Firmenkürzel
+        <li> AVS Firmennummer
+        <li> Anzahl der derzeit zugeordneten Firmenangehörigen. Eine Personen kann mehreren Firmen gleichzeitig angehören.
+        <li> Anzahl der Standard Ansprechpartner, welche einer neu in FRADrive eingetragnen Person dieser Firma derzeit zugeordnet werden. Eine Person kann beliebig viele Ansprechpartner haben. Wirkt sich nicht auf vorhandene Firmenangehörige aus.
+        <li> Anzahl der Standard Ansprechpartner der Firma mit Benachrichtigungsumleitung. Hat eine Person mehrere Ansprechpartner mit Umleitung, so wird ein Brief oder Email an alle Ansprechpartner verschickt. #
+             Ein Person kann auch ihr eigener Ansprechpartner sein, um eine Benachrichtigung sowohl an die Person selbst als auch an einen Ansprechpartner zu senden. #
+             Wirkt sich nicht auf vorhandene Firmenangehörige aus, sondern nur auf neu in FRADrive hinzukommende Firmenangehörige.
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens ein Ansprechpartner eingetragen ist. Ansprechpartner müssen nicht notwendigerweise der gleichen Firma angehören!
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens eine Benachrichtigungsumleitung an einen Ansprechpartner eingetragen ist. Ansprechpartner müssen nicht notwendigerweise der gleichen Firma angehören!
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens eine Benachrichtigungsumleitung an einen Ansprechpartner eingetragen ist, welcher den Versand per Briefpost bevorzugt. #
+             Ob ein Ansprechpartner Email oder Briefpost wünscht ist eine individuelle Einstellung des Ansprechpartners und gilt für alle Benachrichtigungen an diesen Ansprechpartner.
+        <li> Anzahl der firmenfremden Ansprechpartner, welche mindestens einen Firmenangehörigen betreuen. Bei manchen Firmen ist es normal, dass die Ansprechpartner einer anderen Firma angehören, aber oft ist nur ein Fehler durch Firmenwechsel.
+        <li> Anzahl der Ansprechpartner mit derzeit aktiver Benachrichtigungsumleitung, egal ob Brief oder Email.
+        <li> Gesamtzahl der Brief und Emails, welche bei Benachrichtigung aller Firmenangehörigen derzeit verschickt würden. 
+          <p>
+            Dies ist also die Gesamtzahl aller derzeit aktiven Benachrichtigungsumleitungen. 
+          <p>
+            <em>
+              Beispiel: Für eine Firma mit 2 Angehörigen, für die ein Mitarbeiter 1 Ansprechpartner mit aktiver Umleitung und einen Mitarbeiter mit 3 Ansprechpartnern mit aktiver Umleitung hätte, #
+              würde hier die Zahl 4 stehen, da bei einer Benachrichtigung an beide Mitarbeiter insgesamt 4 Briefe oder Emails versendet würden.
+
diff --git a/templates/i18n/firm-all/en-eu.hamlet b/templates/i18n/firm-all/en-eu.hamlet
new file mode 100644
index 000000000..d1a659458
--- /dev/null
+++ b/templates/i18n/firm-all/en-eu.hamlet
@@ -0,0 +1,43 @@
+$newline never
+
+$# SPDX-FileCopyrightText: 2023 Steffen Jost <s.jost@fraport.de>
+$#
+$# SPDX-License-Identifier: AGPL-3.0-or-later
+
+<section>
+
+
+  <p>
+    Data of all companies that were taken from the id card management system (AVS) of Fraport AG.
+    A company is importet and regularly update if a driving licence holder or their supervisor
+    are associated with that company through the AVS.
+
+  <p>
+    ^{firmTable}
+
+  <h3>Development Version Notes (TODO: translated paragraph)
+  <p>
+    Die Spalten zeigen derzeit folgende Informationen
+      <ol>
+        <li> Firmenname
+        <li> Firmenkürzel
+        <li> AVS Firmennummer
+        <li> Anzahl der derzeit zugeordneten Firmenangehörigen. Eine Personen kann mehreren Firmen gleichzeitig angehören.
+        <li> Anzahl der Standard Ansprechpartner, welche einer neu in FRADrive eingetragnen Person dieser Firma derzeit zugeordnet werden. Eine Person kann beliebig viele Ansprechpartner haben. Wirkt sich nicht auf vorhandene Firmenangehörige aus.
+        <li> Anzahl der Standard Ansprechpartner der Firma mit Benachrichtigungsumleitung. Hat eine Person mehrere Ansprechpartner mit Umleitung, so wird ein Brief oder Email an alle Ansprechpartner verschickt. #
+             Ein Person kann auch ihr eigener Ansprechpartner sein, um eine Benachrichtigung sowohl an die Person selbst als auch an einen Ansprechpartner zu senden. #
+             Wirkt sich nicht auf vorhandene Firmenangehörige aus, sondern nur auf neu in FRADrive hinzukommende Firmenangehörige.
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens ein Ansprechpartner eingetragen ist. Ansprechpartner müssen nicht notwendigerweise der gleichen Firma angehören!
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens eine Benachrichtigungsumleitung an einen Ansprechpartner eingetragen ist. Ansprechpartner müssen nicht notwendigerweise der gleichen Firma angehören!
+        <li> Anzahl Firmenangehörige, für die derzeit mindestens eine Benachrichtigungsumleitung an einen Ansprechpartner eingetragen ist, welcher den Versand per Briefpost bevorzugt. #
+             Ob ein Ansprechpartner Email oder Briefpost wünscht ist eine individuelle Einstellung des Ansprechpartners und gilt für alle Benachrichtigungen an diesen Ansprechpartner.
+        <li> Anzahl der firmenfremden Ansprechpartner, welche mindestens einen Firmenangehörigen betreuen. Bei manchen Firmen ist es normal, dass die Ansprechpartner einer anderen Firma angehören, aber oft ist nur ein Fehler durch Firmenwechsel.
+        <li> Anzahl der Ansprechpartner mit derzeit aktiver Benachrichtigungsumleitung, egal ob Brief oder Email.
+        <li> Gesamtzahl der Brief und Emails, welche bei Benachrichtigung aller Firmenangehörigen derzeit verschickt würden. 
+          <p>
+            Dies ist also die Gesamtzahl aller derzeit aktiven Benachrichtigungsumleitungen. 
+          <p>
+            <em>
+              Beispiel: Für eine Firma mit 2 Angehörigen, für die ein Mitarbeiter 1 Ansprechpartner mit aktiver Umleitung und einen Mitarbeiter mit 3 Ansprechpartnern mit aktiver Umleitung hätte, #
+              würde hier die Zahl 4 stehen, da bei einer Benachrichtigung an beide Mitarbeiter insgesamt 4 Briefe oder Emails versendet würden.
+

From 0f3bf98235a305f8e0400f04073e200b337c5fce Mon Sep 17 00:00:00 2001
From: Steffen Jost <s.jost@fraport.de>
Date: Thu, 26 Oct 2023 19:13:01 +0200
Subject: [PATCH 4/4] chore(firm): firm users page shows company address

---
 .../uniworx/categories/firm/de-de-formal.msg  |  3 +-
 messages/uniworx/categories/firm/en-eu.msg    |  2 +
 src/Handler/Firm.hs                           | 75 +++++++++++++------
 test/Database/Fill.hs                         |  6 +-
 4 files changed, 60 insertions(+), 26 deletions(-)

diff --git a/messages/uniworx/categories/firm/de-de-formal.msg b/messages/uniworx/categories/firm/de-de-formal.msg
index 07bc13737..3758bc790 100644
--- a/messages/uniworx/categories/firm/de-de-formal.msg
+++ b/messages/uniworx/categories/firm/de-de-formal.msg
@@ -4,4 +4,5 @@
 
 FirmAllActNotify: Mitteilung versenden
 FirmAllActResetSupervision: Ansprechpartner für alle Firmenangehörigen zurücksetzen
-
+FirmUserActNotify: Mitteilung versenden
+FirmUserActMkSuper: Zum Firmenansprechparnter ernennen
diff --git a/messages/uniworx/categories/firm/en-eu.msg b/messages/uniworx/categories/firm/en-eu.msg
index dcfeea99c..34ede15a2 100644
--- a/messages/uniworx/categories/firm/en-eu.msg
+++ b/messages/uniworx/categories/firm/en-eu.msg
@@ -4,3 +4,5 @@
 
 FirmAllActNotify: Send message
 FirmAllActResetSupervision: Reset supervisors for all company associates
+FirmUserActNotify: Send message
+FirmUserActMkSuper: Mark as company supervisor
\ No newline at end of file
diff --git a/src/Handler/Firm.hs b/src/Handler/Firm.hs
index 62e4a3079..48b7ac59e 100644
--- a/src/Handler/Firm.hs
+++ b/src/Handler/Firm.hs
@@ -119,35 +119,35 @@ type AllCompanyTableData = DBRow (Entity Company, E.Value Word64, E.Value Word64
 resultAllCompanyEntity          :: Lens' AllCompanyTableData (Entity Company)
 resultAllCompanyEntity          = _dbrOutput . _1
 
-resultAllCompany                :: Lens' AllCompanyTableData Company
-resultAllCompany                = resultAllCompanyEntity . _entityVal
+resultAllCompany                  :: Lens' AllCompanyTableData Company
+resultAllCompany                  = resultAllCompanyEntity . _entityVal
 
-resultAllCompanyUsers           :: Lens' AllCompanyTableData Word64
-resultAllCompanyUsers           = _dbrOutput . _2 . _unValue
+resultAllCompanyUsers             :: Lens' AllCompanyTableData Word64
+resultAllCompanyUsers             = _dbrOutput . _2 . _unValue
 
-resultAllCompanySupervisors     :: Lens' AllCompanyTableData Word64
-resultAllCompanySupervisors     = _dbrOutput . _3 . _unValue
+resultAllCompanySupervisors       :: Lens' AllCompanyTableData Word64
+resultAllCompanySupervisors       = _dbrOutput . _3 . _unValue
 
 resultAllCompanyEmployeeSupervised :: Lens' AllCompanyTableData Word64
 resultAllCompanyEmployeeSupervised = _dbrOutput . _4 . _unValue
 
-resultAllCompanyEmployeeRerouted :: Lens' AllCompanyTableData Word64
-resultAllCompanyEmployeeRerouted = _dbrOutput . _5 . _unValue
+resultAllCompanyEmployeeRerouted  :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmployeeRerouted  = _dbrOutput . _5 . _unValue
 
-resultAllCompanyEmpRerPost      :: Lens' AllCompanyTableData Word64
-resultAllCompanyEmpRerPost      = _dbrOutput . _6 . _unValue
+resultAllCompanyEmpRerPost        :: Lens' AllCompanyTableData Word64
+resultAllCompanyEmpRerPost        = _dbrOutput . _6 . _unValue
 
-resultAllCompanyForeignSupers   :: Lens' AllCompanyTableData Word64
-resultAllCompanyForeignSupers   = _dbrOutput . _7 . _unValue
+resultAllCompanyForeignSupers     :: Lens' AllCompanyTableData Word64
+resultAllCompanyForeignSupers     = _dbrOutput . _7 . _unValue
 
-resultAllCompanyDefaultReroutes :: Lens' AllCompanyTableData Word64
-resultAllCompanyDefaultReroutes = _dbrOutput . _8 . _unValue
+resultAllCompanyDefaultReroutes   :: Lens' AllCompanyTableData Word64
+resultAllCompanyDefaultReroutes   = _dbrOutput . _8 . _unValue
 
-resultAllCompanyActiveReroutes  :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes  = _dbrOutput . _9 . _unValue
+resultAllCompanyActiveReroutes    :: Lens' AllCompanyTableData Word64
+resultAllCompanyActiveReroutes    = _dbrOutput . _9 . _unValue
 
-resultAllCompanyActiveReroutes' :: Lens' AllCompanyTableData Word64
-resultAllCompanyActiveReroutes' = _dbrOutput . _10 . _unValue
+resultAllCompanyActiveReroutes'   :: Lens' AllCompanyTableData Word64
+resultAllCompanyActiveReroutes'   = _dbrOutput . _10 . _unValue
 
 fromUserCompany :: Maybe (E.SqlExpr (Entity UserCompany) -> E.SqlExpr (E.Value Bool)) -> E.SqlExpr (Entity Company) -> E.SqlQuery ()
 fromUserCompany mbFltr cmpy = do
@@ -362,13 +362,44 @@ postFirmAllR = do
 -----------------------
 -- Firm Users Table
 
+data FirmUserAction = FirmUserActNotify 
+                    | FirmUserActMkSuper
+  deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)
+  deriving anyclass (Universe, Finite)
+
+nullaryPathPiece ''FirmUserAction $ camelToPathPiece' 3
+embedRenderMessage ''UniWorX ''FirmUserAction id
+
+data FirmUserActionData = FirmUserActNotifyData
+                        | FirmUserActMkSuperData
+  deriving (Eq, Ord, Enum, Bounded, Read, Show, Generic)
+
+
+
 getFirmUsersR, postFirmUsersR :: CompanyShorthand -> Handler Html
 getFirmUsersR  = postFirmUsersR
 postFirmUsersR fsh = do
-  let _fshId = CompanyKey fsh
-  siteLayout (citext2widget fsh) $ do
-    setTitle $ citext2Html fsh
-    [whamlet|!!!STUB!!!TO DO!!!|]
+  let fshId = CompanyKey fsh
+  Company{..} <- runDB $ get404 fshId
+  siteLayout (citext2widget companyName) $ do
+    setTitle $ citext2Html companyShorthand
+    [whamlet|
+      <p>
+        #{companyPostAddress}
+      <p>
+        Für neue Firmangehörige ist Benachrichtigungs-Voreinstellung:
+          $if companyPrefersPostal
+            #{icon IconLetter} Briefversand
+          $else 
+            #{icon IconAt} Email
+      <p>
+        AVS Nummer #{companyAvsId}
+
+      <h1>
+        !!!STUB!!!TO DO!!!
+      <p>
+        Table showing all company associated users
+    |]
 
 
 -----------------------------
diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index 7161397c7..2343751ff 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -624,9 +624,9 @@ fillDb = do
             I am aware that violations in the form plagiarism or collaboration with third parties will lead to expulsion from the course.
         |]
     }
-  fraportAg <- insert' $ Company "Fraport AG"                                          "Fraport"    1    False Nothing 
-  fraGround <- insert' $ Company "Fraport Ground Handling Professionals GmbH"          "FraGround"  2    False Nothing -- TODO: better testcases
-  nice      <- insert' $ Company "N*ICE Aircraft Services & Support GmbH"              "N*ICE"      33   False Nothing
+  fraportAg <- insert' $ Company "Fraport AG"                                          "Fraport"    1    True  $ Just $ markdownToStoredMarkup ("Frankfurt Airport Services Worldwide\n60547 Frankfurt am Main"::Text)
+  fraGround <- insert' $ Company "Fraport Ground Handling Professionals GmbH"          "FraGround"  2    True  $ Just $ markdownToStoredMarkup ("Sauerbierstraße 772 \nBürokomplex 80/C/1\n112233 Nieder-Tupfing-Hohen-Kreisingen\nTöpferbezirk"::Text)
+  nice      <- insert' $ Company "N*ICE Aircraft Services & Support GmbH"              "N*ICE"      33   False $ Just $ markdownToStoredMarkup ("69 Nevermore Blvd.\nHarlaemn\nNew York\nUSA"::Text)
   ffacil    <- insert' $ Company "Fraport Facility Services GmbH"                      "GCS"        44   False Nothing
   bpol      <- insert' $ Company "Bundespolizeidirektion Flughafen Frankfurt am Main"  "BPol"       5555 False Nothing 
   void . insert' $ UserCompany jost    fraportAg    True   True