Add multi-source bond quote probe fields and daily fallback (3d-20)

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
                             ]
                         ]