feat: ClassHash等のネスト構造を展開するFlattenRecordを追加

XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas

@@ -323,6 +323,25 @@ Function getRecordsData(tableId As String) As Collection
     End If
 End Function
 
+'******************************************************************************
+'レコードDictionary内のネストした*Hash（ClassHash、NumHash、DateHash、DescriptionHash、CheckHashなど）を
+'展開し、1階層のDictionaryにフラット化する
+Function FlattenRecord(record As Dictionary) As Dictionary
+    Dim flat As New Dictionary
+    Dim key As Variant
+    For Each key In record.Keys
+        If TypeName(record(key)) = "Dictionary" Then
+            Dim innerKey As Variant
+            For Each innerKey In record(key).Keys
+                flat.Add innerKey, record(key)(innerKey)
+            Next innerKey
+        Else
+            flat.Add key, record(key)
+        End If
+    Next key
+    Set FlattenRecord = flat
+End Function
+
 '******************************************************************************
 'REST API呼出処理
 '　method　GetかPOSTか