update C1

src/module/Global_Cache.bas

@@ -308,3 +308,99 @@ End Sub
 Public Sub ClearO2Cache()
     Set o2Cache = Nothing
 End Sub
+
+' ============================================================
+' tokubetuList
+' ============================================================
+Public tokubetuList As Object
+
+Public Sub GetTokubetu()
+    On Error GoTo RefreshError
+    Set tokubetuList = LoadLookup("Enum", keyCol:=1, valueCols:=Array(1), startRow:=3)
+    On Error GoTo 0
+
+    If tokubetuList Is Nothing Or tokubetuList.Count = 0 Then
+        Err.Raise 1003, "GetTokubetu", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "GetTokubetu", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
+Public Sub ClearTokubetu()
+    Set tokubetuList = Nothing
+End Sub
+
+' ============================================================
+' todokeList
+' ============================================================
+Public todokeList As Object
+
+Public Sub GetTodokeList()
+    On Error GoTo RefreshError
+    Set todokeList = LoadLookup("Enum", keyCol:=6, valueCols:=Array(7), startRow:=3)
+    On Error GoTo 0
+
+    If todokeList Is Nothing Or todokeList.Count = 0 Then
+        Err.Raise 1003, "GetTodokeList", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "GetTodokeList", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
+Public Sub ClearTodokeList()
+    Set todokeList = Nothing
+End Sub
+
+' ============================================================
+' oufukuList
+' ============================================================
+Public oufukuList As Object
+
+Public Sub GetOufukuList()
+    On Error GoTo RefreshError
+    Set oufukuList = LoadLookup("Enum", keyCol:=9, valueCols:=Array(10), startRow:=3)
+    On Error GoTo 0
+
+    If oufukuList Is Nothing Or oufukuList.Count = 0 Then
+        Err.Raise 1003, "GetOufukuList", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "GetOufukuList", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
+Public Sub ClearOufukuList()
+    Set oufukuList = Nothing
+End Sub
+
+' ============================================================
+' koutaiList
+' ============================================================
+Public koutaiList As Object
+
+Public Sub GetKoutaiList()
+    On Error GoTo RefreshError
+    Set koutaiList = LoadLookup("Enum", keyCol:=12, valueCols:=Array(13), startRow:=3)
+    On Error GoTo 0
+
+    If koutaiList Is Nothing Or koutaiList.Count = 0 Then
+        Err.Raise 1003, "GetKoutaiList", "Enum reference data is empty"
+    End If
+
+    Exit Sub
+
+RefreshError:
+    Err.Raise 1001, "GetKoutaiList", "Failed to load Enum lookup cache: " & Err.Description
+End Sub
+
+Public Sub ClearKoutaiList()
+    Set koutaiList = Nothing
+End Sub

src/module/Module_Common.bas

@@ -242,3 +242,13 @@ End Sub
 Function MakeSelect(ByVal code As String, ByVal value As String) As String
     MakeSelect = Trim(code) & ":" & Trim(value)
 End Function
+
+' Get left part of MakeSelect format (e.g., "1:JR" -> "1")
+Function GetCode(ByVal text As String) As String
+    Dim pos As Long: pos = InStr(text, ":")
+    If pos > 0 Then
+        GetCode = Left(text, pos - 1)
+    Else
+        GetCode = text
+    End If
+End Function