dredgy/DredgePos
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added print group overrides

Browse Source
This commit is contained in:
Josh
2022-01-08 17:53:23 +10:00
parent 198d609e62
commit f656c5ab40
11 changed files with 133 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
OrderScreen.module.fs
View File

@@ -75,12 +75,13 @@ let renderPageGroup (pageGroup: order_screen_page_group) (pageHTML: string) =
]
loadTemplateWithVars "orderScreen/page_group" vars
let categoryPosButton (category: sales_category) = PosButton (language.getAndReplace "print_with" [category.name]) "categoryOverrideButton" ""
let printGroupPosButton (printGroup: print_group) =
PosButton (language.getAndReplace "print_with" [printGroup.name]) "printGroupOverrideButton toggle" $"""data-value="{printGroup.id}" """
let generateSalesCategoryOverrideButtons () =
Entity.getAllInVenue<sales_category>
|> Array.map categoryPosButton
|> Array.append ([|PosButton (language.getAndReplace "print_with" ["default"]) "categoryOverrideButton" ""|])
Entity.getAllInVenue<print_group>
|> Array.map printGroupPosButton
|> Array.append ([|PosButton (language.getAndReplace "print_with" ["default"]) "printGroupOverrideButton toggle default active" """data-value="0" """|])
|> String.concat "\n"