feat(web): 基金创建/读取界面与仓库内浏览器 QA

[变更性质]
- 本提交完成 3c-1 切片：Web 端基金建档（创建/重读）表单接入既有幂等 API，并提供仓库内可复现的端到端 QA 入口与生命周期回归。

[新增功能]
- 前端新增 03 / CREATE 面板：名称与初始现金（decimal 字符串）输入、创建/重新读取按钮、服务端返回的基金档案行（份额诚实显示 0、来源标注真实建档/合成标记）；移动端单列布局。
- 创建请求携带 32 位十六进制 Idempotency-Key；网络失败重试复用同一 key，输入变更或成功后换新 key；token 变更清空档案并按序列号拒绝过期响应。

[实现方案]
- 金额全程 decimal 字符串，不经 JS float；update 层 fundSeq 守卫 FundCreate/FundRead 完成消息；BoundaryTests 新增 FundBoundaryTests 9 项（幂等键长度/复用、token 失效、stale 读取拒绝等）。
- qa/run.sh 一次性拉起非默认端口 Postgres/API/Vite（桩行情，_synthetic 标记），清理仅限本次创建的容器（ID+名称归属校验）；临时目录 mktemp 隔离；qa/lifecycle-test.sh 验证拒绝路径不破坏既有资源。

[影响范围]
- Web 测试增至 17 项，全套 56 项通过；浏览器 QA 30/30 通过；README 更新阶段描述。本提交不包含 docs/overnight-progress.md 的现有修改。

1 files changed, 266 insertions, 2 deletions

diff --git a/src/FundLab.Web/App.fs b/src/FundLab.Web/App.fs
index 0ee4d56..43c438f 100644
--- a/src/FundLab.Web/App.fs
+++ b/src/FundLab.Web/App.fs
@@ -99,6 +99,34 @@ type RawNavResponse =
         observations: RawObservation array
     }
 
+type CreateFundPayload =
+    {
+        idempotencyKey: string
+        name: string
+        initialCash: string
+        initialUnitNav: string
+        isSynthetic: bool
+    }
+
+type FundSummary =
+    {
+        id: string
+        name: string
+        currency: string
+        initialCash: string
+        initialUnitNav: string
+        isSynthetic: bool
+        availableCash: string
+        status: string
+    }
+
+type CreateAttempt =
+    {
+        idempotencyKey: string
+        name: string
+        cash: string
+    }
+
 module Api =
     [<Import("searchInstruments", "./src/api.js")>]
     let searchInstruments (token: string) (query: string) : JS.Promise<RawSearchResponse> = jsNative
@@ -109,6 +137,12 @@ module Api =
     [<Import("refreshNav", "./src/api.js")>]
     let refreshNav (token: string) (code: string) : JS.Promise<RawNavResponse> = jsNative
 
+    [<Import("createFund", "./src/api.js")>]
+    let createFund (token: string) (payload: CreateFundPayload) : JS.Promise<FundSummary> = jsNative
+
+    [<Import("getFund", "./src/api.js")>]
+    let getFund (token: string) (fundId: string) : JS.Promise<FundSummary> = jsNative
+
     let decodeOptionalText (raw: obj) : string option =
         if isNull raw then
             None
@@ -151,6 +185,12 @@ type Model =
         observations: NavObservation list
         searchInFlight: bool
         navInFlight: bool
+        fundName: string
+        fundCash: string
+        fundSeq: int
+        fundInFlight: bool
+        createdFund: FundSummary option
+        lastCreateAttempt: CreateAttempt option
         error: string option
     }
 
@@ -165,6 +205,26 @@ type Msg =
     | RefreshNavRequested
     | NavCompleted of requestId: int * observations: NavObservation list
     | NavFailed of requestId: int * message: string
+    | FundNameChanged of string
+    | FundCashChanged of string
+    | FundCreateRequested
+    | FundCreateCompleted of requestId: int * fund: FundSummary
+    | FundCreateFailed of requestId: int * message: string
+    | FundReadRequested
+    | FundReadCompleted of requestId: int * fund: FundSummary
+    | FundReadFailed of requestId: int * message: string
+
+let defaultInitialUnitNav = "1.00000000"
+
+let private cashPattern =
+    Text.RegularExpressions.Regex("^[0-9]{1,18}(\.[0-9]{1,2})?$", Text.RegularExpressions.RegexOptions.Compiled)
+
+let isValidCashText (text: string) = cashPattern.IsMatch text
+
+let resolveCreateKey (lastAttempt: CreateAttempt option) (name: string) (cash: string) =
+    match lastAttempt with
+    | Some attempt when attempt.name = name && attempt.cash = cash -> attempt.idempotencyKey
+    | _ -> Guid.NewGuid().ToString("N")
 
 let init () =
     {
@@ -177,6 +237,12 @@ let init () =
         observations = []
         searchInFlight = false
         navInFlight = false
+        fundName = ""
+        fundCash = ""
+        fundSeq = 0
+        fundInFlight = false
+        createdFund = None
+        lastCreateAttempt = None
         error = None
     }
 
@@ -207,6 +273,20 @@ let private refreshCommand token code requestId =
         (fun raw -> NavCompleted(requestId, Api.decodeNav raw))
         (fun error -> NavFailed(requestId, errorText error))
 
+let private createFundCommand token payload requestId =
+    Cmd.OfPromise.either
+        (fun () -> Api.createFund token payload)
+        ()
+        (fun fund -> FundCreateCompleted(requestId, fund))
+        (fun error -> FundCreateFailed(requestId, errorText error))
+
+let private readFundCommand token fundId requestId =
+    Cmd.OfPromise.either
+        (fun () -> Api.getFund token fundId)
+        ()
+        (fun fund -> FundReadCompleted(requestId, fund))
+        (fun error -> FundReadFailed(requestId, errorText error))
+
 let update message model =
     match message with
     | TokenChanged token ->
@@ -220,6 +300,12 @@ let update message model =
                 observations = []
                 searchInFlight = false
                 navInFlight = false
+                fundName = ""
+                fundCash = ""
+                fundSeq = model.fundSeq + 1
+                fundInFlight = false
+                createdFund = None
+                lastCreateAttempt = None
                 error = None
         },
         Cmd.none
@@ -322,6 +408,86 @@ let update message model =
             { model with navInFlight = false; error = Some message }, Cmd.none
         else
             model, Cmd.none
+    | FundNameChanged value ->
+        { model with fundName = value; error = None; lastCreateAttempt = None }, Cmd.none
+    | FundCashChanged value ->
+        { model with fundCash = value; error = None; lastCreateAttempt = None }, Cmd.none
+    | FundCreateRequested ->
+        let name = model.fundName.Trim()
+        let cash = model.fundCash.Trim()
+
+        if String.IsNullOrWhiteSpace model.token then
+            { model with error = Some "请输入 API token" }, Cmd.none
+        elif name = "" then
+            { model with error = Some "请输入基金名称" }, Cmd.none
+        elif not (isValidCashText cash) then
+            { model with error = Some "初始现金必须是合法金额，例如 10000.00" }, Cmd.none
+        elif model.fundInFlight then
+            model, Cmd.none
+        else
+            let requestId = model.fundSeq + 1
+            let idempotencyKey = resolveCreateKey model.lastCreateAttempt name cash
+
+            {
+                model with
+                    fundName = name
+                    fundCash = cash
+                    fundSeq = requestId
+                    fundInFlight = true
+                    lastCreateAttempt = Some { idempotencyKey = idempotencyKey; name = name; cash = cash }
+                    error = None
+            },
+            createFundCommand
+                model.token
+                {
+                    idempotencyKey = idempotencyKey
+                    name = name
+                    initialCash = cash
+                    initialUnitNav = defaultInitialUnitNav
+                    isSynthetic = false
+                }
+                requestId
+    | FundCreateCompleted (requestId, fund) ->
+        if requestId = model.fundSeq then
+            {
+                model with
+                    createdFund = Some fund
+                    fundInFlight = false
+                    lastCreateAttempt = None
+                    error = None
+            },
+            Cmd.none
+        else
+            model, Cmd.none
+    | FundCreateFailed (requestId, message) ->
+        if requestId = model.fundSeq then
+            { model with fundInFlight = false; error = Some message }, Cmd.none
+        else
+            model, Cmd.none
+    | FundReadRequested ->
+        match model.createdFund with
+        | Some fund when not (String.IsNullOrWhiteSpace model.token) ->
+            if model.fundInFlight then
+                model, Cmd.none
+            else
+                let requestId = model.fundSeq + 1
+
+                { model with fundSeq = requestId; fundInFlight = true; error = None },
+                readFundCommand model.token fund.id requestId
+        | Some _ ->
+            { model with error = Some "请输入 API token" }, Cmd.none
+        | None ->
+            { model with error = Some "请先创建一个基金" }, Cmd.none
+    | FundReadCompleted (requestId, fund) ->
+        if requestId = model.fundSeq then
+            { model with createdFund = Some fund; fundInFlight = false; error = None }, Cmd.none
+        else
+            model, Cmd.none
+    | FundReadFailed (requestId, message) ->
+        if requestId = model.fundSeq then
+            { model with fundInFlight = false; error = Some message }, Cmd.none
+        else
+            model, Cmd.none
 
 let private navText (text: string) =
     match Decimal.TryParse(text, NumberStyles.Float, CultureInfo.InvariantCulture) with
@@ -556,6 +722,103 @@ let private navPanel model dispatch =
         ]
     ]
 
+let private fundSummaryRow (label: string) (value: string) =
+    Html.div [
+        prop.className "fund-detail-row"
+        prop.children [
+            Html.span [ prop.className "fund-detail-label"; prop.text label ]
+            Html.span [ prop.className "fund-detail-value"; prop.text value ]
+        ]
+    ]
+
+let private fundPanel model dispatch =
+    Html.section [
+        prop.className "panel fund-panel"
+        prop.children [
+            Html.div [
+                prop.className "section-heading"
+                prop.children [
+                    Html.div [
+                        Html.p [ prop.className "eyebrow"; prop.text "03 / CREATE" ]
+                        Html.h2 "创建一笔真实基金"
+                    ]
+                    Html.span [ prop.className "section-note"; prop.text "PostgreSQL · idempotent" ]
+                ]
+            ]
+            Html.div [
+                prop.className "fund-form-row"
+                prop.children [
+                    Html.label [
+                        prop.className "field-label"
+                        prop.children [
+                            Html.span "基金名称"
+                            Html.input [
+                                prop.className "text-input fund-name-input"
+                                prop.placeholder "例如 稳健一号"
+                                prop.value model.fundName
+                                prop.onChange (fun value -> dispatch (FundNameChanged value))
+                            ]
+                        ]
+                    ]
+                    Html.label [
+                        prop.className "field-label"
+                        prop.children [
+                            Html.span "初始现金（元）"
+                            Html.input [
+                                prop.className "text-input fund-cash-input"
+                                prop.placeholder "例如 10000.00"
+                                prop.value model.fundCash
+                                prop.onChange (fun value -> dispatch (FundCashChanged value))
+                            ]
+                        ]
+                    ]
+                    Html.button [
+                        prop.className "primary-action fund-create-action"
+                        prop.disabled model.fundInFlight
+                        prop.onClick (fun _ -> dispatch FundCreateRequested)
+                        prop.text ((if model.fundInFlight then "创建中..." else "创建基金"): string)
+                    ]
+                ]
+            ]
+            Html.p [
+                prop.className "hint"
+                prop.text "初始单位净值固定为 1.00000000；金额以 decimal 字符串提交，不经过浮点运算。"
+            ]
+            match model.createdFund with
+            | Some fund ->
+                Html.div [
+                    prop.className "fund-summary"
+                    prop.children [
+                        fundSummaryRow "基金ID" fund.id
+                        fundSummaryRow "名称" fund.name
+                        fundSummaryRow "币种" fund.currency
+                        fundSummaryRow "初始现金" fund.initialCash
+                        fundSummaryRow "可用现金" fund.availableCash
+                        fundSummaryRow "初始单位净值" fund.initialUnitNav
+                        fundSummaryRow "份额" "0（新基金尚未买入持仓）"
+                        fundSummaryRow "状态" fund.status
+                        fundSummaryRow "数据来源" (if fund.isSynthetic then "合成（测试标记）" else "真实建档")
+                        Html.div [
+                            prop.className "panel-actions"
+                            prop.children [
+                                Html.button [
+                                    prop.className "secondary-action fund-read-action"
+                                    prop.disabled model.fundInFlight
+                                    prop.onClick (fun _ -> dispatch FundReadRequested)
+                                    prop.text ((if model.fundInFlight then "读取中..." else "重新读取"): string)
+                                ]
+                            ]
+                        ]
+                    ]
+                ]
+            | None ->
+                Html.p [
+                    prop.className "hint"
+                    prop.text "创建成功后，这里会展示服务端返回的基金档案，可通过重新读取复核持久化结果。"
+                ]
+        ]
+    ]
+
 let view model dispatch =
     Html.main [
         prop.className "app-shell"
@@ -570,7 +833,7 @@ let view model dispatch =
                             Html.span "FUND LAB"
                         ]
                     ]
-                    Html.span [ prop.className "topbar-status"; prop.text "MARKET DATA / 3B" ]
+                    Html.span [ prop.className "topbar-status"; prop.text "LEDGER / 3C-1" ]
                 ]
             ]
             Html.div [
@@ -610,7 +873,8 @@ let view model dispatch =
             | None -> Html.none
             searchPanel model dispatch
             navPanel model dispatch
-            Html.footer [ prop.className "footer-note"; prop.text "SOURCE · AKShare   /   STORAGE · PostgreSQL   /   MODE · READ-ONLY" ]
+            fundPanel model dispatch
+            Html.footer [ prop.className "footer-note"; prop.text "SOURCE · AKShare   /   STORAGE · PostgreSQL   /   LEDGER · CREATE & READ" ]
         ]
     ]