Account management
Connected account workflow
https://fve.meiermade.com/components/page-examples/account-management?destination=treasury-accounts
Treasury
Workspace
Meier Made
Accounts
Meier Made cash management
| Select all | Account | Type | Commodity | Balance | Total balance (USD) · Current | Actions |
|---|---|---|---|---|---|---|
| Assets | TypeAsset | CommodityUSD | Balance$0.00 | Total balance (USD) · Current$184,230.19 | ||
| Liabilities | TypeLiability | CommodityUSD | Balance$0.00 | Total balance (USD) · Current−$42,118.44 | ||
| Equity | TypeEquity | CommodityUSD | Balance−$93,136.75 | Total balance (USD) · Current−$101,336.75 | ||
| Revenue | TypeRevenue | CommodityUSD | Balance−$138,425.00 | Total balance (USD) · Current−$138,425.00 | ||
| Expenses | TypeExpense | CommodityUSD | Balance$97,650.00 | Total balance (USD) · Current$97,650.00 | ||
| Placeholder | TypePlaceholder | CommodityUSD | Balance$0.00 | Total balance (USD) · Current$0.00 |
open System
open FSharp.ViewEngine
open Acme.Components.Primitives
open Acme.Components.Application
open type Html
open type Svg
open type Datastar
type ShellDestination =
| LedgerHome
| LedgerAccounts
| LedgerAccount of int
| LedgerTransaction of int
| LedgerCreateAccount
| LedgerReports
| LedgerSettings
| TreasuryHome
| TreasuryPeriod of string
| TreasuryTransactions
| TreasuryPayees
| TreasuryAccounts
let private shellDestinationKey = function
| LedgerHome -> "ledger-home"
| LedgerAccounts -> "ledger-accounts"
| LedgerAccount id -> $"ledger-account-{id}"
| LedgerTransaction id -> $"ledger-transaction-{id}"
| LedgerCreateAccount -> "ledger-create-account"
| LedgerReports -> "ledger-reports"
| LedgerSettings -> "ledger-settings"
| TreasuryHome -> "treasury-home"
| TreasuryPeriod region -> $"treasury-period-{region.ToLowerInvariant()}"
| TreasuryTransactions -> "treasury-transactions"
| TreasuryPayees -> "treasury-payees"
| TreasuryAccounts -> "treasury-accounts"
let shellDestinationUrl destination =
$"/components/page-examples/account-management?destination={shellDestinationKey destination}"
let ledgerShellExample resolve navigation content =
AppShell.create "ledger-app-shell" navigation content
|> AppShell.withTheme (
ComponentsTheme.sky
|> ComponentsTheme.withRadius Radius.Large
|> ComponentsTheme.withDensity Density.Compact
|> ComponentsTheme.withControlSize ControlSize.Small)
|> AppShell.withBoundary AppShellBoundary.Container
|> AppShell.withMobileBottomNavigation "ledger-bottom-navigation" "Ledger quick navigation" [
BottomNavigationItem.create LedgerHome "Dashboard"
BottomNavigationItem.create LedgerAccounts "Accounts"
BottomNavigationItem.create LedgerReports "Reports"
BottomNavigationItem.create LedgerSettings "Settings" ]
|> AppShell.asPreview "Ledger application preview"
|> AppShell.render resolve
let treasuryShellExample resolve navigation content =
AppShell.create "treasury-app-shell" navigation content
|> AppShell.withTheme (
ComponentsTheme.emerald
|> ComponentsTheme.withRadius Radius.Medium
|> ComponentsTheme.withDensity Density.Compact
|> ComponentsTheme.withControlSize ControlSize.Small)
|> AppShell.withBoundary AppShellBoundary.Container
|> AppShell.withMobileBottomNavigation "treasury-bottom-navigation" "Treasury quick navigation" [
BottomNavigationItem.create TreasuryHome "Overview"
BottomNavigationItem.create TreasuryTransactions "Transactions"
BottomNavigationItem.create TreasuryPayees "Payees"
BottomNavigationItem.create TreasuryAccounts "Accounts" ]
|> AppShell.asPreview "Treasury application preview"
|> AppShell.render resolve