add error cache2

2026-04-20 21:39:53 +08:00
parent 14682d3504
commit 6f2bb324e4
4 changed files with 6 additions and 3 deletions
--- a/src/sheet/M1.cls
+++ b/src/sheet/M1.cls
@@ -155,7 +155,7 @@ Private Sub Validate(ws As Worksheet, ByVal rowNum As Long, ByVal lastDataRow As
    ' Check if M2 uses this M1 kukan code
    Dim m2Cache As Object: Set m2Cache = GetM2Cache()
    If Not m2Cache.Exists(cValue) Then
-        ws.Cells(rowNum, errorCol).Value = "The section details are not registered for the corresponding section"
+        ws.Cells(rowNum, errorCol).Value = GetErrorMsg("W001", cValue)
        ws.Range("C" & rowNum).Interior.Color = RGB(255, 128, 0)
        Exit Sub
    End If