Compare commits

..

No commits in common. "ac748723fca5758ec64c481e56577d246545670a" and "040f8081972af009b41e42566c2a9303a7332816" have entirely different histories.

2 changed files with 17 additions and 38 deletions

File diff suppressed because one or more lines are too long

View File

@ -161,15 +161,10 @@
Dayshot2 Dayshot2
Elixir Elixir
Elixirpremium Elixirpremium
Emsbeltcontrollset
FabricBag
Goldshopbag
End Enum End Enum
Public comDBCount(comDB.Goldshopbag) As Integer ''DB 저장 Public comDBCount(comDB.Elixirpremium) As Integer ''DB 저장
Public comInCount(comDB.Goldshopbag) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comInCount(comDB.Elixirpremium) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.Goldshopbag) As Integer '' 로컬 저장 Public comComCount(comDB.Elixirpremium) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -405,12 +400,6 @@
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)
@ -525,9 +514,6 @@
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
@ -629,10 +615,6 @@
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
@ -736,9 +718,6 @@
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