diff options
Diffstat (limited to 'src/FundLab.Web')
| -rw-r--r-- | src/FundLab.Web/App.fs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/FundLab.Web/App.fs b/src/FundLab.Web/App.fs index 7a0e56c..d18cff9 100644 --- a/src/FundLab.Web/App.fs +++ b/src/FundLab.Web/App.fs @@ -397,6 +397,9 @@ type RawBondQuote = code: string name: obj price: obj + cleanPrice: obj + accruedInterest: obj + date: obj maturityDate: obj } @@ -727,6 +730,9 @@ type BondQuoteView = code: string name: string option price: string option + cleanPrice: string option + accruedInterest: string option + quoteDate: string option maturityDate: string option } @@ -1081,6 +1087,9 @@ module Api = code = raw.code name = decodeOptionalText raw.name price = decodeOptionalText raw.price + cleanPrice = decodeOptionalText raw.cleanPrice + accruedInterest = decodeOptionalText raw.accruedInterest + quoteDate = decodeOptionalText raw.date maturityDate = decodeOptionalText raw.maturityDate } @@ -4759,6 +4768,9 @@ let private bondsPanel model dispatch = prop.children [ bondQuoteMetric "名称" quote.name bondQuoteMetric "价格" quote.price + bondQuoteMetric "净价" quote.cleanPrice + bondQuoteMetric "应计利息" quote.accruedInterest + bondQuoteMetric "行情日期" quote.quoteDate bondQuoteMetric "到期日" quote.maturityDate ] ] |