Fix propagation of unit to new building blocks (Issue #183) 🐛.

nfdi4plants · Mar 9, 2022 · 5e45ac8 · 5e45ac8
1 parent 2b2413f
commit 5e45ac8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Client/OfficeInterop/OfficeInterop.fs b/src/Client/OfficeInterop/OfficeInterop.fs
@@ -644,6 +644,9 @@ let addAnnotationBlock (newBB:InsertBuildingBlock) =
                             let formats = createValueMatrix 1 (rowCount-1) format
                             formatChangedMsg <- (InteropLogging.Msg.create InteropLogging.Info $"Added specified unit: {format}")::formatChangedMsg
                             columnBody.numberFormat <- formats
+                        else
+                            let format = createValueMatrix 1 (rowCount-1) "General"
+                            columnBody.numberFormat <- format
                         // hide freshly created column if it is a reference column
                         if colName <> mainColName then
                             columnBody.columnHidden <- true