신규 구성품 추가 : L004-0089, L004-0090, P001-0171, L004-0091

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
@@ -1570,11 +1570,14 @@ Public Class frm_Main
                        ,BeautykitHairbandCnt 
                        ,BeautykitMirrorSCnt 
                        ,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
 

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