From 932466975c6d580ee5b1cc7b2b05f6c61ca48a0f Mon Sep 17 00:00:00 2001
From: KwakJooYoung <jykwak719@gmail.com>
Date: Fri, 26 Sep 2025 13:30:03 +0900
Subject: [PATCH] =?UTF-8?q?=EC=8B=A0=EA=B7=9C=20=EA=B5=AC=EC=84=B1?=
 =?UTF-8?q?=ED=92=88=20=EC=B6=94=EA=B0=80=20:=20L004-0089,=20L004-0090,=20?=
 =?UTF-8?q?P001-0171,=20L004-0091?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 State_Comparision_Ver_1.0.0/frm_Main.vb     | 17 ++++++++++-------
 State_Comparision_Ver_1.0.0/mysqlAddress.vb | 12 ++++++++----
 2 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/State_Comparision_Ver_1.0.0/frm_Main.vb b/State_Comparision_Ver_1.0.0/frm_Main.vb
index 56672be..47bff51 100644
--- a/State_Comparision_Ver_1.0.0/frm_Main.vb
+++ b/State_Comparision_Ver_1.0.0/frm_Main.vb
@@ -1388,7 +1388,7 @@ Public Class frm_Main
             Dim itemCode As String = Nothing
             Dim itemName As String = Nothing
 
-            For i = 0 To cCountData.Length - 1
+            For i = 0 To cCountList_max_index
                 itemCode = Nothing
                 itemName = Nothing
                 If cCountData(i) <> 0 Then
@@ -1569,12 +1569,15 @@ Public Class frm_Main
                        ,KeyringSallyCnt 
                        ,BeautykitHairbandCnt 
                        ,BeautykitMirrorSCnt 
-                       ,BeautykitMirrorLCnt 
+                       ,BeautykitMirrorLCnt
+                       ,BloomingMoistureGel150Cnt
+                       ,FirmingCollagenGel150Cnt
+                       ,TweedCaseCnt
+                       ,BloomingMoistureGel250Cnt
                    FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규구성품추가 : 포장 구성품 수량 조회 추가
 
         If DBQueryReader(DBCmd) Then
-            '신규구성품추가 : 추가된 품목에 따라 배열 크기 변경
-            For i = 0 To cCountList.beautykitMirrorL
+            For i = 0 To cCountList_max_index
                 cCountData(i) = Val(sqlDataQuery(i))
             Next
             Return True
@@ -1599,7 +1602,7 @@ Public Class frm_Main
     Private Function serialDivision() As Boolean
         Dim slashNum As Int16
 
-        For i = 0 To pSerialData.Length - 1
+        For i = 0 To pSerialList_max_index
             Dim restData As String = pSerialData(i)
             If restData <> "0" Then
                 slashNum = UBound(Split(restData, ","))
@@ -1913,7 +1916,7 @@ Public Class frm_Main
                        ,MAXIMUM_ALPHA_SN
                   FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규제품추가 : 추가하는 품목의 시리얼번호 조회 컬럼 추가
         If DBQueryReader(DBCmd) Then
-            For i = 0 To pSerialData.Length - 1
+            For i = 0 To pSerialList_max_index
                 pSerialData(i) = sqlDataQuery(i)
             Next
         Else
@@ -3455,7 +3458,7 @@ Public Class frm_Main
             ProdSelect(i) = Nothing
         Next
 
-        For i = 0 To pSerialData.Length - 1
+        For i = 0 To pSerialList_max_index
             pSerialData(i) = Nothing
         Next
 
diff --git a/State_Comparision_Ver_1.0.0/mysqlAddress.vb b/State_Comparision_Ver_1.0.0/mysqlAddress.vb
index 44cc553..8b70094 100644
--- a/State_Comparision_Ver_1.0.0/mysqlAddress.vb
+++ b/State_Comparision_Ver_1.0.0/mysqlAddress.vb
@@ -50,8 +50,8 @@
         MaximumAlpha
         '신규제품추가 : 추가하는 품목의 변수 추가
     End Enum
-    '신규제품추가 : 배열 크기 변경
-    Public pSerialData(pSerialList.MaximumAlpha) As String
+    Public pSerialList_max_index As Integer = [Enum].GetNames(GetType(pSerialList)).Length - 1
+    Public pSerialData(pSerialList_max_index) As String
 
     Public Enum cCountList
         Mask5Cnt
@@ -156,8 +156,12 @@
         beautykitHairband
         beautykitMirrorS
         beautykitMirrorL
+        bloomingMoistureGel150
+        firmingCollagenGel150
+        tweedCase
+        bloomingMoistureGel250
         '신규구성품추가 : 추가하는 품목의 변수 추가
     End Enum
-    '신규구성품추가 : 배열 크기 변경
-    Public cCountData(cCountList.beautykitMirrorL) As Integer
+    Public cCountList_max_index As Integer = [Enum].GetNames(GetType(cCountList)).Length - 1
+    Public cCountData(cCountList_max_index) As Integer
 End Module