通勤認定エクセルツール対応12 Z4からO3に変更

src/sh/tuk/module/Common_Selector.bas

@@ -38,13 +38,13 @@ End Function
 
 ' Create Todoke (G) dropdown
 Public Function BuildTodokeList()
-    Dim z4Cache As Object: Set z4Cache = GetCache("Z4")
+    Dim o3Cache As Object: Set o3Cache = GetCache(CACHE_O3)
 
     Dim dropdownList As String
     Dim key As Variant
-    For Each key In z4Cache.Keys
+    For Each key In o3Cache.Keys
         Dim displayText As String
-        displayText = MakeSelect(key, z4Cache(key)(0))
+        displayText = MakeSelect(key, o3Cache(key)(0))
         If dropdownList = "" Then
             dropdownList = displayText
         Else