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 MorNigshotset
CTBox CTBox
ElesqLiftingToner
ElesqLiftingCeam
ElesqLiftingECream
ElesqLiftingAmp
ElesqAquaToner
ElesqAquaCeam
ElesqAquaECream
ElesqAquaAmp
End Enum End Enum
Public comDBCount(comDB.CTBox) As Integer ''DB 저장 Public comDBCount(comDB.ElesqAquaAmp) As Integer ''DB 저장
Public comInCount(comDB.CTBox) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comInCount(comDB.ElesqAquaAmp) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.CTBox) As Integer '' 로컬 저장 Public comComCount(comDB.ElesqAquaAmp) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -415,8 +425,22 @@
comInCount(comDB.Goldshopbag) = ckCount comInCount(comDB.Goldshopbag) = ckCount
Case comDB.MorNigshotset Case comDB.MorNigshotset
comInCount(comDB.MorNigshotset) = ckCount comInCount(comDB.MorNigshotset) = ckCount
Case comDB.CTBox Case comDB.ElesqLiftingToner
comInCount(comDB.CTBox) = ckCount 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 Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -536,6 +560,15 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "MorNigshotsetcnt" countCommand(prodInCount.Length + comDB.MorNigshotset) = "MorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "CTBoxcnt" 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 Case countSaveList.autopack
@ -642,7 +675,14 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "APMorNigshotsetcnt" countCommand(prodInCount.Length + comDB.MorNigshotset) = "APMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "APCTBoxcnt" 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 Case countSaveList.autoWeight
@ -751,6 +791,14 @@
countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "AWMorNigshotsetcnt" countCommand(prodInCount.Length + comDB.MorNigshotset) = "AWMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "AWCTBoxcnt" 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 Select
End Sub End Sub