feat: 신규 구성품(부직포 쇼핑백, 골드 쇼퍼백) 추가

- 부직포 쇼핑백: FabricBagcnt
- 골드 쇼퍼백: Goldshopbagcnt

SalesPacking_MES_API_Project/mySQLAddress.vb

@@ -162,10 +162,13 @@
         Elixir
         Elixirpremium
         Emsbeltcontrollset
+        FabricBag
+        Goldshopbag
+
     End Enum
-    Public comDBCount(comDB.Emsbeltcontrollset) As Integer   ''DB 저장
+    Public comDBCount(comDB.Goldshopbag) As Integer   ''DB 저장
-    Public comInCount(comDB.Emsbeltcontrollset) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
+    Public comInCount(comDB.Goldshopbag) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
-    Public comComCount(comDB.Emsbeltcontrollset) As Integer  '' 로컬 저장
+    Public comComCount(comDB.Goldshopbag) As Integer  '' 로컬 저장
 
     Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
 
@@ -403,6 +406,10 @@
                     comInCount(comDB.Elixirpremium) = ckCount
                 Case comDB.Emsbeltcontrollset
                     comInCount(comDB.Emsbeltcontrollset) = ckCount
+                Case comDB.FabricBag
+                    comInCount(comDB.FabricBag) = ckCount
+                Case comDB.Goldshopbag
+                    comInCount(comDB.Goldshopbag) = ckCount
 
                 Case Else
                     MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@@ -518,6 +525,8 @@
                 countCommand(prodInCount.Length + comDB.Elixir) = "Elixircnt"
                 countCommand(prodInCount.Length + comDB.Elixirpremium) = "Elixirpremiumcnt"
                 countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "Emsbeltcontrollsetcnt"
+                countCommand(prodInCount.Length + comDB.FabricBag) = "FabricBagcnt"
+                countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt"
 
             Case countSaveList.autopack
 
@@ -620,6 +629,8 @@
                 countCommand(prodInCount.Length + comDB.Elixir) = "APElixircnt"
                 countCommand(prodInCount.Length + comDB.Elixirpremium) = "APElixirpremiumcnt"
                 countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "APEmsbeltcontrollsetcnt"
+                countCommand(prodInCount.Length + comDB.FabricBag) = "APFabricBagcnt"
+                countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt"
 
             Case countSaveList.autoWeight
 
@@ -724,6 +735,8 @@
                 countCommand(prodInCount.Length + comDB.Elixir) = "AWElixircnt"
                 countCommand(prodInCount.Length + comDB.Elixirpremium) = "AWElixirpremiumcnt"
                 countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "AWEmsbeltcontrollsetcnt"
+                countCommand(prodInCount.Length + comDB.FabricBag) = "AWFabricBagcnt"
+                countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt"
 
 
         End Select