From 167e2ba5d97eb7aff5e3599c093b63903f77cfbd Mon Sep 17 00:00:00 2001
From: Kenichiro NOGI <systemadmin@next-hd.co.jp>
Date: Fri, 11 Sep 2026 13:27:26 +0900
Subject: [PATCH] =?UTF-8?q?feat:=20ClassHash=E7=AD=89=E3=81=AE=E3=83=8D?=
 =?UTF-8?q?=E3=82=B9=E3=83=88=E6=A7=8B=E9=80=A0=E3=82=92=E5=B1=95=E9=96=8B?=
 =?UTF-8?q?=E3=81=99=E3=82=8BFlattenRecord=E3=82=92=E8=BF=BD=E5=8A=A0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../vba-files/Module/Module1.bas              | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
index b8cc5f92..db77d563 100644
--- a/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
+++ b/XVBA/新版着工要因閲覧シート/vba-files/Module/Module1.bas
@@ -323,6 +323,25 @@ Function getRecordsData(tableId As String) As Collection
     End If
 End Function
 
+'******************************************************************************
+'���R�[�hDictionary���̃l�X�g����*Hash�iClassHash�ANumHash�ADateHash�ADescriptionHash�ACheckHash�Ȃǁj��
+'�W�J���A1�K�w��Dictionary�Ƀt���b�g������
+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�ďo����
 '�@method�@Get��POST��