Compare commits

...

2 Commits

2 changed files with 67 additions and 19 deletions

File diff suppressed because one or more lines are too long

View File

@ -168,10 +168,20 @@
MorNigshotset
CTBox
ElesqLiftingToner
ElesqLiftingCeam
ElesqLiftingECream
ElesqLiftingAmp
ElesqAquaToner
ElesqAquaCeam
ElesqAquaECream
ElesqAquaAmp
End Enum
Public comDBCount(comDB.CTBox) As Integer ''DB 저장
Public comInCount(comDB.CTBox) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.CTBox) As Integer '' 로컬 저장
Public comDBCount(comDB.ElesqAquaAmp) As Integer ''DB 저장
Public comInCount(comDB.ElesqAquaAmp) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.ElesqAquaAmp) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -415,8 +425,22 @@
comInCount(comDB.Goldshopbag) = ckCount
Case comDB.MorNigshotset
comInCount(comDB.MorNigshotset) = ckCount
Case comDB.CTBox
comInCount(comDB.CTBox) = ckCount
Case comDB.ElesqLiftingToner
comInCount(comDB.ElesqLiftingToner) = ckCount
Case comDB.ElesqLiftingCeam
comInCount(comDB.ElesqLiftingCeam) = ckCount
Case comDB.ElesqLiftingECream
comInCount(comDB.ElesqLiftingECream) = ckCount
Case comDB.ElesqLiftingAmp
comInCount(comDB.ElesqLiftingAmp) = ckCount
Case comDB.ElesqAquaToner
comInCount(comDB.ElesqAquaToner) = ckCount
Case comDB.ElesqAquaCeam
comInCount(comDB.ElesqAquaCeam) = ckCount
Case comDB.ElesqAquaECream
comInCount(comDB.ElesqAquaECream) = ckCount
Case comDB.ElesqAquaAmp
comInCount(comDB.ElesqAquaAmp) = ckCount
Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -536,6 +560,15 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "MorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "CTBoxcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "ElesqLiftingTonercnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "ElesqLiftingCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "ElesqLiftingECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "ElesqLiftingAmpcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "ElesqAquaTonercnt"
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "ElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
Case countSaveList.autopack
@ -642,7 +675,14 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "APMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "APCTBoxcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "APElesqLiftingTonercnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "APElesqLiftingCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "APElesqLiftingECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "APElesqLiftingAmpcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "APElesqAquaTonercnt"
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "APElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
Case countSaveList.autoWeight
@ -751,6 +791,14 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "AWMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "AWCTBoxcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "AWlesqLiftingTonercnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "AWElesqLiftingCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "AWElesqLiftingECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "AWElesqLiftingAmpcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "AWElesqAquaTonercnt"
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "AWElesqAquaCeamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
End Select
End Sub