feat: 신규 구성품(EMS벨트 controllerset, 부직포 쇼핑백, 골드 쇼퍼백) 추가 #7

Merged
kje97 merged 1 commits from feat/신규_구성품추가 into master 2025-06-19 10:35:13 +09:00
2 changed files with 38 additions and 17 deletions

File diff suppressed because one or more lines are too long

View File

@ -161,10 +161,15 @@
Dayshot2 Dayshot2
Elixir Elixir
Elixirpremium Elixirpremium
Emsbeltcontrollset
FabricBag
Goldshopbag
End Enum End Enum
Public comDBCount(comDB.Elixirpremium) As Integer ''DB 저장 Public comDBCount(comDB.Goldshopbag) As Integer ''DB 저장
Public comInCount(comDB.Elixirpremium) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comInCount(comDB.Goldshopbag) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.Elixirpremium) As Integer '' 로컬 저장 Public comComCount(comDB.Goldshopbag) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -400,6 +405,12 @@
comInCount(comDB.Elixir) = ckCount comInCount(comDB.Elixir) = ckCount
Case comDB.Elixirpremium Case comDB.Elixirpremium
comInCount(comDB.Elixirpremium) = ckCount 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 Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -514,6 +525,9 @@
countCommand(prodInCount.Length + comDB.Dayshot2) = "Dayshot2cnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "Dayshot2cnt"
countCommand(prodInCount.Length + comDB.Elixir) = "Elixircnt" countCommand(prodInCount.Length + comDB.Elixir) = "Elixircnt"
countCommand(prodInCount.Length + comDB.Elixirpremium) = "Elixirpremiumcnt" 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 Case countSaveList.autopack
@ -615,6 +629,10 @@
countCommand(prodInCount.Length + comDB.Dayshot2) = "APDayshot2cnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "APDayshot2cnt"
countCommand(prodInCount.Length + comDB.Elixir) = "APElixircnt" countCommand(prodInCount.Length + comDB.Elixir) = "APElixircnt"
countCommand(prodInCount.Length + comDB.Elixirpremium) = "APElixirpremiumcnt" 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 Case countSaveList.autoWeight
@ -718,6 +736,9 @@
countCommand(prodInCount.Length + comDB.Dayshot2) = "AWDayshot2cnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "AWDayshot2cnt"
countCommand(prodInCount.Length + comDB.Elixir) = "AWElixircnt" countCommand(prodInCount.Length + comDB.Elixir) = "AWElixircnt"
countCommand(prodInCount.Length + comDB.Elixirpremium) = "AWElixirpremiumcnt" 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 End Select
End Sub End Sub