Module mySQLAddress Private Const mainOrderDB As String = "jomtOrderDB.jomtOrderTbl" Private Const testOrderDB As String = "jomtOrderTestDB.jomtOrderTbl" Private Const mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl" Private Const testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl" Private Const mainCountDB As String = "jomtTesterDB.jomtPackingCount" Private Const testCountDB As String = "jomtTesterServerDB.jomtPackingCount" Private Const mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl" Private Const testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl" Private Const mainProdDB As String = "jomtTesterDB.jomtProductTbl" Private Const testProdDB As String = "jomtTesterServerDB.jomtProductTbl" Private Const mainDivDB As String = "jomtTesterDB.jomtDeviceTbl" Private Const testDivDB As String = "jomtTesterServerDB.jomtDeviceTbl" Private Const mainPlistDB As String = "jomtTesterDB.jomtProdList" Private Const testPlistDB As String = "jomtTesterServerDB.jomtProdList" Private Const mainClistDB As String = "jomtTesterDB.jomtComponentTbl" Private Const testClistDB As String = "jomtTesterServerDB.jomtComponentTbl" Private Const mainPackEvent As String = "jomtTesterDB.jomtPackEvent" Private Const testPackEvent As String = "jomtTesterServerDB.jomtPackEvent" Private Const mainPKCodeDB As String = "jomtTesterDB.jomtPKCodeTbl" Private Const testHistoryDB As String = "jomtTesterServerDB.jomtPackHistoryTbl" Private Const testPackDB As String = "jomtTesterServerDB.jomtSalesPackingTbl_New" Private Const MainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl" Private Const TestNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl" Public applyOrderDB As String = mainOrderDB Public applySalesDB As String = mainSalesDB Public applyCountDB As String = mainCountDB Public applyCartDB As String = mainCartDB Public applyProdDB As String = mainProdDB Public applyDivDB As String = mainDivDB Public applyPlistDB As String = mainPlistDB Public applyClistDB As String = mainClistDB Public applyPackEvent As String = mainPackEvent Public applyPKCodeDB As String = mainPKCodeDB Public applyNonTDDB As String = MainNonTDDB Public applyPackDB As String = testPackDB Public applyHistoryDB As String = testHistoryDB Public Enum countSaveList normal autopack autoWeight End Enum Public Enum dbCode prodDBcode comDBcode End Enum Public Enum prodDB packingCount proset luxset proface luxface proeye luxeye probody luxbody maximum alphaSet alphaFace alphaEye alphaBody alto effect effectv3 End Enum Public prodDBCount(prodDB.effectv3) As Integer '' DB 저장 Public prodInCount(prodDB.effectv3) As Integer '' 패킹 저장 10 Public prodComCount(prodDB.effectv3) As Integer '' 로컬 저장 Public prodInSerial(prodDB.effectv3) As String '' LogData 저장 Public prodPackCommand(prodDB.effectv3) As String '' Public Enum comDB mask5 mask10 hairband gel minigel ample cream umb fen charger cable toner problack probeige prored propink maxblack maxapr maxmint maxbeige soothing car0 car1 car2 car3 car4 car5 car6 bag cosbag dustbag maxPurple proSnakeBlack kollagen kollagenset kollagen_P kollagenset_P cleansingWater tonerPad maxSaffianoBK hologram1 hologram3 hologram5 caseSaffianoPp maxYellow Kollagen_Pe1 Kollagen_Pe3 Kollagen_Pe5 ATCircleCase APSquareCase maxPeach massageSoothing maxSMint meshpouch firmingAmp hyaluronicAmp nightshot morningshot casemaxwoodi Elicolltoner Elicollamp Elicollcream Elihyaltoner Elihyalamp Elihyalcream Dayshot Beautyshopbag Gummy Stickjelly Newyearbag Emsbelt Beltbag Dayshot2 Elixir Elixirpremium Emsbeltcontrollset FabricBag Goldshopbag MorNigshotset CTBox ElesqLiftingToner ElesqLiftingCeam ElesqLiftingECream ElesqLiftingAmp ElesqAquaToner ElesqAquaCeam ElesqAquaECream ElesqAquaAmp Box_8_BeautyRoutine End Enum 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 Public Function packingCountset(dbType As Int16, prodCode As Int16, ckCount As Int16, serial As String) If dbType = dbCode.prodDBcode Then Select Case prodCode Case prodDB.proset prodInCount(prodDB.proset) = ckCount prodInSerial(prodDB.proset) = serial Case prodDB.luxset prodInCount(prodDB.luxset) = ckCount prodInSerial(prodDB.luxset) = serial Case prodDB.proface prodInCount(prodDB.proface) = ckCount prodInSerial(prodDB.proface) = serial Case prodDB.luxface prodInCount(prodDB.luxface) = ckCount prodInSerial(prodDB.luxface) = serial Case prodDB.proeye prodInCount(prodDB.proeye) = ckCount prodInSerial(prodDB.proeye) = serial Case prodDB.luxeye prodInCount(prodDB.luxeye) = ckCount prodInSerial(prodDB.luxeye) = serial Case prodDB.probody prodInCount(prodDB.probody) = ckCount prodInSerial(prodDB.probody) = serial Case prodDB.luxbody prodInCount(prodDB.luxbody) = ckCount prodInSerial(prodDB.luxbody) = serial Case prodDB.maximum prodInCount(prodDB.maximum) = ckCount prodInSerial(prodDB.maximum) = serial Case prodDB.alphaSet prodInCount(prodDB.alphaSet) = ckCount prodInSerial(prodDB.alphaSet) = serial Case prodDB.alphaFace prodInCount(prodDB.alphaFace) = ckCount prodInSerial(prodDB.alphaFace) = serial Case prodDB.alphaEye prodInCount(prodDB.alphaEye) = ckCount prodInSerial(prodDB.alphaEye) = serial Case prodDB.alphaBody prodInCount(prodDB.alphaBody) = ckCount prodInSerial(prodDB.alphaBody) = serial Case prodDB.alto prodInCount(prodDB.alto) = ckCount prodInSerial(prodDB.alto) = serial Case prodDB.effect prodInCount(prodDB.effect) = ckCount prodInSerial(prodDB.effect) = serial Case prodDB.effectv3 prodInCount(prodDB.effectv3) = ckCount prodInSerial(prodDB.effectv3) = serial Case Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True End Select Else Select Case prodCode Case comDB.mask5 comInCount(comDB.mask5) = ckCount Case comDB.mask10 comInCount(comDB.mask10) = ckCount Case comDB.hairband comInCount(comDB.hairband) = ckCount Case comDB.gel comInCount(comDB.gel) = ckCount Case comDB.minigel comInCount(comDB.minigel) = ckCount Case comDB.ample comInCount(comDB.ample) = ckCount Case comDB.cream comInCount(comDB.cream) = ckCount Case comDB.umb comInCount(comDB.umb) = ckCount Case comDB.fen comInCount(comDB.fen) = ckCount Case comDB.charger comInCount(comDB.charger) = ckCount Case comDB.cable comInCount(comDB.cable) = ckCount Case comDB.toner comInCount(comDB.toner) = ckCount Case comDB.problack comInCount(comDB.problack) = ckCount Case comDB.probeige comInCount(comDB.probeige) = ckCount Case comDB.prored comInCount(comDB.prored) = ckCount Case comDB.propink comInCount(comDB.propink) = ckCount Case comDB.maxblack comInCount(comDB.maxblack) = ckCount Case comDB.maxapr comInCount(comDB.maxapr) = ckCount Case comDB.maxmint comInCount(comDB.maxmint) = ckCount Case comDB.maxbeige comInCount(comDB.maxbeige) = ckCount Case comDB.maxPurple comInCount(comDB.maxPurple) = ckCount Case comDB.soothing comInCount(comDB.soothing) = ckCount Case comDB.car0 comInCount(comDB.car0) = ckCount Case comDB.car1 comInCount(comDB.car1) = ckCount Case comDB.car2 comInCount(comDB.car2) = ckCount Case comDB.car3 comInCount(comDB.car3) = ckCount Case comDB.car4 comInCount(comDB.car4) = ckCount Case comDB.car5 comInCount(comDB.car5) = ckCount Case comDB.car6 comInCount(comDB.car6) = ckCount Case comDB.bag comInCount(comDB.bag) = ckCount Case comDB.cosbag comInCount(comDB.cosbag) = ckCount Case comDB.dustbag comInCount(comDB.dustbag) = ckCount Case comDB.proSnakeBlack comInCount(comDB.proSnakeBlack) = ckCount Case comDB.kollagen comInCount(comDB.kollagen) = ckCount Case comDB.kollagenset comInCount(comDB.kollagenset) = ckCount Case comDB.kollagen_P comInCount(comDB.kollagen_P) = ckCount Case comDB.kollagenset_P comInCount(comDB.kollagenset_P) = ckCount Case comDB.cleansingWater comInCount(comDB.cleansingWater) = ckCount Case comDB.tonerPad comInCount(comDB.tonerPad) = ckCount Case comDB.maxSaffianoBK comInCount(comDB.maxSaffianoBK) = ckCount Case comDB.hologram1 comInCount(comDB.hologram1) = ckCount Case comDB.hologram3 comInCount(comDB.hologram3) = ckCount Case comDB.hologram5 comInCount(comDB.hologram5) = ckCount Case comDB.caseSaffianoPp comInCount(comDB.caseSaffianoPp) = ckCount Case comDB.maxYellow comInCount(comDB.maxYellow) = ckCount Case comDB.Kollagen_Pe1 comInCount(comDB.Kollagen_Pe1) = ckCount Case comDB.Kollagen_Pe3 comInCount(comDB.Kollagen_Pe3) = ckCount Case comDB.Kollagen_Pe5 comInCount(comDB.Kollagen_Pe5) = ckCount Case comDB.ATCircleCase comInCount(comDB.ATCircleCase) = ckCount Case comDB.APSquareCase comInCount(comDB.APSquareCase) = ckCount Case comDB.maxPeach comInCount(comDB.maxPeach) = ckCount Case comDB.massageSoothing comInCount(comDB.massageSoothing) = ckCount Case comDB.maxSMint comInCount(comDB.maxSMint) = ckCount Case comDB.meshpouch comInCount(comDB.meshpouch) = ckCount Case comDB.firmingAmp comInCount(comDB.firmingAmp) = ckCount Case comDB.hyaluronicAmp comInCount(comDB.hyaluronicAmp) = ckCount Case comDB.nightshot comInCount(comDB.nightshot) = ckCount Case comDB.morningshot comInCount(comDB.morningshot) = ckCount Case comDB.casemaxwoodi comInCount(comDB.casemaxwoodi) = ckCount Case comDB.Elicolltoner comInCount(comDB.Elicolltoner) = ckCount Case comDB.Elicollamp comInCount(comDB.Elicollamp) = ckCount Case comDB.Elicollcream comInCount(comDB.Elicollcream) = ckCount Case comDB.Elihyaltoner comInCount(comDB.Elihyaltoner) = ckCount Case comDB.Elihyalamp comInCount(comDB.Elihyalamp) = ckCount Case comDB.Elihyalcream comInCount(comDB.Elihyalcream) = ckCount Case comDB.Dayshot comInCount(comDB.Dayshot) = ckCount Case comDB.Beautyshopbag comInCount(comDB.Beautyshopbag) = ckCount Case comDB.Gummy comInCount(comDB.Gummy) = ckCount Case comDB.Stickjelly comInCount(comDB.Stickjelly) = ckCount Case comDB.Newyearbag comInCount(comDB.Newyearbag) = ckCount Case comDB.Emsbelt comInCount(comDB.Emsbelt) = ckCount Case comDB.Beltbag comInCount(comDB.Beltbag) = ckCount Case comDB.Dayshot2 comInCount(comDB.Dayshot2) = ckCount Case comDB.Elixir comInCount(comDB.Elixir) = ckCount Case comDB.Elixirpremium 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 comDB.MorNigshotset comInCount(comDB.MorNigshotset) = 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 comDB.Box_8_BeautyRoutine comInCount(comDB.Box_8_BeautyRoutine) = ckCount Case Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True End Select End If Return False End Function Public Sub countCommandFunc(saveType As Int16) Select Case saveType Case countSaveList.normal countCommand(prodDB.packingCount) = "PackingCount" countCommand(prodDB.proset) = "ProSetCnt" countCommand(prodDB.luxset) = "LuxSetCnt" countCommand(prodDB.proface) = "ProFaceCnt" countCommand(prodDB.luxface) = "LuxFaceCnt" countCommand(prodDB.proeye) = "ProEyeCnt" countCommand(prodDB.luxeye) = "LuxEyeCnt" countCommand(prodDB.probody) = "ProBodyCnt" countCommand(prodDB.luxbody) = "LuxBodyCnt" countCommand(prodDB.maximum) = "MAXIMUMCnt" countCommand(prodDB.alphaSet) = "AlphaSetCnt" countCommand(prodDB.alphaFace) = "AlphaFaceCnt" countCommand(prodDB.alphaEye) = "AlphaEyeCnt" countCommand(prodDB.alphaBody) = "AlphaBodyCnt" countCommand(prodDB.alto) = "AltoCnt" countCommand(prodDB.effect) = "EffectCnt" countCommand(prodDB.effectv3) = "EffectV3Cnt" countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt" countCommand(prodInCount.Length + comDB.hairband) = "HairBandCnt" countCommand(prodInCount.Length + comDB.gel) = "GelCnt" countCommand(prodInCount.Length + comDB.minigel) = "MiniGel" countCommand(prodInCount.Length + comDB.ample) = "AmpleCnt" countCommand(prodInCount.Length + comDB.cream) = "CreamCnt" countCommand(prodInCount.Length + comDB.umb) = "UmbrellaCnt" countCommand(prodInCount.Length + comDB.fen) = "FenCnt" countCommand(prodInCount.Length + comDB.charger) = "ChargerCnt" countCommand(prodInCount.Length + comDB.cable) = "CableCnt" countCommand(prodInCount.Length + comDB.toner) = "TonerCnt" countCommand(prodInCount.Length + comDB.problack) = "CasePROBlack" countCommand(prodInCount.Length + comDB.probeige) = "CasePROBeige" countCommand(prodInCount.Length + comDB.prored) = "CasePRORed" countCommand(prodInCount.Length + comDB.propink) = "CasePROPink" countCommand(prodInCount.Length + comDB.maxblack) = "CaseMAXBlack" countCommand(prodInCount.Length + comDB.maxapr) = "CaseMAXApr" countCommand(prodInCount.Length + comDB.maxmint) = "CaseMAXMint" countCommand(prodInCount.Length + comDB.maxbeige) = "CaseMAXBeige" countCommand(prodInCount.Length + comDB.maxPurple) = "CaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "CasePROSnakeBlack" countCommand(prodInCount.Length + comDB.soothing) = "SoothingGelCnt" countCommand(prodInCount.Length + comDB.car0) = "Carton0Cnt" countCommand(prodInCount.Length + comDB.car1) = "Carton1Cnt" countCommand(prodInCount.Length + comDB.car2) = "Carton2Cnt" countCommand(prodInCount.Length + comDB.car3) = "Carton3Cnt" countCommand(prodInCount.Length + comDB.car4) = "Carton4Cnt" countCommand(prodInCount.Length + comDB.car5) = "Carton5Cnt" countCommand(prodInCount.Length + comDB.car6) = "Carton6Cnt" countCommand(prodInCount.Length + comDB.bag) = "BagCnt" countCommand(prodInCount.Length + comDB.cosbag) = "CosBagCnt" countCommand(prodInCount.Length + comDB.dustbag) = "DustBagCnt" countCommand(prodInCount.Length + comDB.kollagen) = "KollagenCnt" countCommand(prodInCount.Length + comDB.kollagenset) = "KollagenSetCnt" countCommand(prodInCount.Length + comDB.kollagen_P) = "Kollagen_PCnt" countCommand(prodInCount.Length + comDB.kollagenset_P) = "KollagenSet_PCnt" countCommand(prodInCount.Length + comDB.cleansingWater) = "CleansingWaterCnt" countCommand(prodInCount.Length + comDB.tonerPad) = "TonerPadCnt" countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "CaseMaxSafBK" countCommand(prodInCount.Length + comDB.hologram1) = "Hologram_1Cnt" countCommand(prodInCount.Length + comDB.hologram3) = "Hologram_3Cnt" countCommand(prodInCount.Length + comDB.hologram5) = "Hologram_5Cnt" countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "CaseMaxSafPp" countCommand(prodInCount.Length + comDB.maxYellow) = "CaseMaxYellow" countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "Kollagen_Pe1Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "Kollagen_Pe3Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "Kollagen_Pe5Cnt" countCommand(prodInCount.Length + comDB.ATCircleCase) = "ATCircleCaseCnt" countCommand(prodInCount.Length + comDB.APSquareCase) = "APSquareCaseCnt" countCommand(prodInCount.Length + comDB.maxPeach) = "CaseMAXPeach" countCommand(prodInCount.Length + comDB.massageSoothing) = "MasSoothingCnt" countCommand(prodInCount.Length + comDB.maxSMint) = "CaseMAXSMint" countCommand(prodInCount.Length + comDB.meshpouch) = "MeshPouchCnt" countCommand(prodInCount.Length + comDB.firmingAmp) = "FirmingAmpCnt" countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "HyaluronicAmpCnt" countCommand(prodInCount.Length + comDB.nightshot) = "nightshotcnt" countCommand(prodInCount.Length + comDB.morningshot) = "morningshotcnt" countCommand(prodInCount.Length + comDB.casemaxwoodi) = "casemaxwoodicnt" countCommand(prodInCount.Length + comDB.Elicolltoner) = "Elicolltonercnt" countCommand(prodInCount.Length + comDB.Elicollamp) = "Elicollampcnt" countCommand(prodInCount.Length + comDB.Elicollcream) = "Elicollcreamcnt" countCommand(prodInCount.Length + comDB.Elihyaltoner) = "Elihyaltonercnt" countCommand(prodInCount.Length + comDB.Elihyalamp) = "Elihyalampcnt" countCommand(prodInCount.Length + comDB.Elihyalcream) = "Elihyalcreamcnt" countCommand(prodInCount.Length + comDB.Dayshot) = "Dayshotcnt" countCommand(prodInCount.Length + comDB.Beautyshopbag) = "Beautyshopbagcnt" countCommand(prodInCount.Length + comDB.Gummy) = "Gummycnt" countCommand(prodInCount.Length + comDB.Stickjelly) = "Stickjellycnt" countCommand(prodInCount.Length + comDB.Newyearbag) = "Newyearbagcnt" countCommand(prodInCount.Length + comDB.Emsbelt) = "Emsbeltcnt" countCommand(prodInCount.Length + comDB.Beltbag) = "Beltbagcnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "Dayshot2cnt" 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" 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" countCommand(prodInCount.Length + comDB.Box_8_BeautyRoutine) = "Box_8_BeautyRoutinecnt" Case countSaveList.autopack countCommand(prodDB.packingCount) = "AutoPackCnt" countCommand(prodDB.proset) = "APProSetCnt" countCommand(prodDB.luxset) = "APLuxSetCnt" countCommand(prodDB.proface) = "APProFaceCnt" countCommand(prodDB.luxface) = "APLuxFaceCnt" countCommand(prodDB.proeye) = "APProEyeCnt" countCommand(prodDB.luxeye) = "APLuxEyeCnt" countCommand(prodDB.probody) = "APProBodyCnt" countCommand(prodDB.luxbody) = "APLuxBodyCnt" countCommand(prodDB.maximum) = "APMAXIMUMCnt" countCommand(prodDB.alphaSet) = "APAlphaSetCnt" countCommand(prodDB.alphaFace) = "APAlphaFaceCnt" countCommand(prodDB.alphaEye) = "APAlphaEyeCnt" countCommand(prodDB.alphaBody) = "APAlphaBodyCnt" countCommand(prodDB.alto) = "APAltoCnt" countCommand(prodDB.effect) = "APEffectCnt" countCommand(prodDB.effectv3) = "APEffectV3Cnt" countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt" countCommand(prodInCount.Length + comDB.hairband) = "APHairBandCnt" countCommand(prodInCount.Length + comDB.gel) = "APGelCnt" countCommand(prodInCount.Length + comDB.minigel) = "APMiniGel" countCommand(prodInCount.Length + comDB.ample) = "APAmpleCnt" countCommand(prodInCount.Length + comDB.cream) = "APCreamCnt" countCommand(prodInCount.Length + comDB.umb) = "APUmbrellaCnt" countCommand(prodInCount.Length + comDB.fen) = "APFenCnt" countCommand(prodInCount.Length + comDB.charger) = "APChargerCnt" countCommand(prodInCount.Length + comDB.cable) = "APCableCnt" countCommand(prodInCount.Length + comDB.toner) = "APTonerCnt" countCommand(prodInCount.Length + comDB.problack) = "APCasePROBlack" countCommand(prodInCount.Length + comDB.probeige) = "APCasePROBeige" countCommand(prodInCount.Length + comDB.prored) = "APCasePRORed" countCommand(prodInCount.Length + comDB.propink) = "APCasePROPink" countCommand(prodInCount.Length + comDB.maxblack) = "APCaseMAXBlack" countCommand(prodInCount.Length + comDB.maxapr) = "APCaseMAXApr" countCommand(prodInCount.Length + comDB.maxmint) = "APCaseMAXMint" countCommand(prodInCount.Length + comDB.maxbeige) = "APCaseMAXBeige" countCommand(prodInCount.Length + comDB.maxPurple) = "APCaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "APCasePROSnakeBlack" countCommand(prodInCount.Length + comDB.soothing) = "APSoothingGelCnt" countCommand(prodInCount.Length + comDB.car0) = "APCarton0Cnt" countCommand(prodInCount.Length + comDB.car1) = "APCarton1Cnt" countCommand(prodInCount.Length + comDB.car2) = "APCarton2Cnt" countCommand(prodInCount.Length + comDB.car3) = "APCarton3Cnt" countCommand(prodInCount.Length + comDB.car4) = "APCarton4Cnt" countCommand(prodInCount.Length + comDB.car5) = "APCarton5Cnt" countCommand(prodInCount.Length + comDB.car6) = "APCarton6Cnt" countCommand(prodInCount.Length + comDB.bag) = "APBagCnt" countCommand(prodInCount.Length + comDB.cosbag) = "APCosBagCnt" countCommand(prodInCount.Length + comDB.dustbag) = "APDustBagCnt" countCommand(prodInCount.Length + comDB.kollagen) = "APKollagenCnt" countCommand(prodInCount.Length + comDB.kollagenset) = "APKollagenSetCnt" countCommand(prodInCount.Length + comDB.kollagen_P) = "APKollagen_PCnt" countCommand(prodInCount.Length + comDB.kollagenset_P) = "APKollagenSet_PCnt" countCommand(prodInCount.Length + comDB.cleansingWater) = "APCleansingWaterCnt" countCommand(prodInCount.Length + comDB.tonerPad) = "APTonerPadCnt" countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "APCaseMaxSafBK" countCommand(prodInCount.Length + comDB.hologram1) = "APHologram_1Cnt" countCommand(prodInCount.Length + comDB.hologram3) = "APHologram_3Cnt" countCommand(prodInCount.Length + comDB.hologram5) = "APHologram_5Cnt" countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "APCaseMaxSafPp" countCommand(prodInCount.Length + comDB.maxYellow) = "APCaseMaxYellow" countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "APKollagen_Pe1Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "APKollagen_Pe3Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "APKollagen_Pe5Cnt" countCommand(prodInCount.Length + comDB.ATCircleCase) = "APATCircleCaseCnt" countCommand(prodInCount.Length + comDB.APSquareCase) = "APAPSquareCaseCnt" countCommand(prodInCount.Length + comDB.maxPeach) = "APCaseMAXPeach" countCommand(prodInCount.Length + comDB.massageSoothing) = "APMasSoothingCnt" countCommand(prodInCount.Length + comDB.maxSMint) = "APCaseMAXSMint" countCommand(prodInCount.Length + comDB.meshpouch) = "APMeshPouchCnt" countCommand(prodInCount.Length + comDB.firmingAmp) = "APFirmingAmpCnt" countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "APHyaluronicAmpCnt" countCommand(prodInCount.Length + comDB.nightshot) = "APnightshotcnt" countCommand(prodInCount.Length + comDB.morningshot) = "APmorningshotcnt" countCommand(prodInCount.Length + comDB.casemaxwoodi) = "APcasemaxwoodicnt" countCommand(prodInCount.Length + comDB.Elicolltoner) = "APElicolltonercnt" countCommand(prodInCount.Length + comDB.Elicollamp) = "APElicollampcnt" countCommand(prodInCount.Length + comDB.Elicollcream) = "APElicollcreamcnt" countCommand(prodInCount.Length + comDB.Elihyaltoner) = "APElihyaltonercnt" countCommand(prodInCount.Length + comDB.Elihyalamp) = "APElihyalampcnt" countCommand(prodInCount.Length + comDB.Elihyalcream) = "APElihyalcreamcnt" countCommand(prodInCount.Length + comDB.Dayshot) = "APDayshotcnt" countCommand(prodInCount.Length + comDB.Beautyshopbag) = "APBeautyshopbagcnt" countCommand(prodInCount.Length + comDB.Gummy) = "APGummycnt" countCommand(prodInCount.Length + comDB.Stickjelly) = "APStickjellycnt" countCommand(prodInCount.Length + comDB.Newyearbag) = "APNewyearbagcnt" countCommand(prodInCount.Length + comDB.Emsbelt) = "APEmsbeltcnt" countCommand(prodInCount.Length + comDB.Beltbag) = "APBeltbagcnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "APDayshot2cnt" 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" 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" countCommand(prodInCount.Length + comDB.Box_8_BeautyRoutine) = "APBox_8_BeautyRoutinecnt" Case countSaveList.autoWeight countCommand(prodDB.packingCount) = "AutoWeightCnt" countCommand(prodDB.proset) = "AWProSetCnt" countCommand(prodDB.luxset) = "AWLuxSetCnt" countCommand(prodDB.proface) = "AWProFaceCnt" countCommand(prodDB.luxface) = "AWLuxFaceCnt" countCommand(prodDB.proeye) = "AWProEyeCnt" countCommand(prodDB.luxeye) = "AWLuxEyeCnt" countCommand(prodDB.probody) = "AWProBodyCnt" countCommand(prodDB.luxbody) = "AWLuxBodyCnt" countCommand(prodDB.maximum) = "AWMAXIMUMCnt" countCommand(prodDB.alphaSet) = "AWAlphaSetCnt" countCommand(prodDB.alphaFace) = "AWAlphaFaceCnt" countCommand(prodDB.alphaEye) = "AWAlphaEyeCnt" countCommand(prodDB.alphaBody) = "AWAlphaBodyCnt" countCommand(prodDB.alto) = "AWAltoCnt" countCommand(prodDB.effect) = "AWEffectCnt" countCommand(prodDB.effectv3) = "AWEffectV3Cnt" countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt" countCommand(prodInCount.Length + comDB.hairband) = "AWHairBandCnt" countCommand(prodInCount.Length + comDB.gel) = "AWGelCnt" countCommand(prodInCount.Length + comDB.minigel) = "AWMiniGel" countCommand(prodInCount.Length + comDB.ample) = "AWAmpleCnt" countCommand(prodInCount.Length + comDB.cream) = "AWCreamCnt" countCommand(prodInCount.Length + comDB.umb) = "AWUmbrellaCnt" countCommand(prodInCount.Length + comDB.fen) = "AWFenCnt" countCommand(prodInCount.Length + comDB.charger) = "AWChargerCnt" countCommand(prodInCount.Length + comDB.cable) = "AWCableCnt" countCommand(prodInCount.Length + comDB.toner) = "AWTonerCnt" countCommand(prodInCount.Length + comDB.problack) = "AWCasePROBlack" countCommand(prodInCount.Length + comDB.probeige) = "AWCasePROBeige" countCommand(prodInCount.Length + comDB.prored) = "AWCasePRORed" countCommand(prodInCount.Length + comDB.propink) = "AWCasePROPink" countCommand(prodInCount.Length + comDB.maxblack) = "AWCaseMAXBlack" countCommand(prodInCount.Length + comDB.maxapr) = "AWCaseMAXApr" countCommand(prodInCount.Length + comDB.maxmint) = "AWCaseMAXMint" countCommand(prodInCount.Length + comDB.maxbeige) = "AWCaseMAXBeige" countCommand(prodInCount.Length + comDB.maxPurple) = "AWCaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "AWCasePROSnakeBlack" countCommand(prodInCount.Length + comDB.soothing) = "AWSoothingGelCnt" countCommand(prodInCount.Length + comDB.car0) = "AWCarton0Cnt" countCommand(prodInCount.Length + comDB.car1) = "AWCarton1Cnt" countCommand(prodInCount.Length + comDB.car2) = "AWCarton2Cnt" countCommand(prodInCount.Length + comDB.car3) = "AWCarton3Cnt" countCommand(prodInCount.Length + comDB.car4) = "AWCarton4Cnt" countCommand(prodInCount.Length + comDB.car5) = "AWCarton5Cnt" countCommand(prodInCount.Length + comDB.car6) = "AWCarton6Cnt" countCommand(prodInCount.Length + comDB.bag) = "AWBagCnt" countCommand(prodInCount.Length + comDB.cosbag) = "AWCosBagCnt" countCommand(prodInCount.Length + comDB.dustbag) = "AWDustBagCnt" countCommand(prodInCount.Length + comDB.kollagen) = "AWKollagenCnt" countCommand(prodInCount.Length + comDB.kollagenset) = "AWKollagenSetCnt" countCommand(prodInCount.Length + comDB.kollagen_P) = "AWKollagen_PCnt" countCommand(prodInCount.Length + comDB.kollagenset_P) = "AWKollagenSet_PCnt" countCommand(prodInCount.Length + comDB.cleansingWater) = "AWCleansingWaterCnt" countCommand(prodInCount.Length + comDB.tonerPad) = "AWTonerPadCnt" countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "AWCaseMaxSafBK" countCommand(prodInCount.Length + comDB.hologram1) = "AWHologram_1Cnt" countCommand(prodInCount.Length + comDB.hologram3) = "AWHologram_3Cnt" countCommand(prodInCount.Length + comDB.hologram5) = "AWHologram_5Cnt" countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "AWCaseMaxSafPp" countCommand(prodInCount.Length + comDB.maxYellow) = "AWCaseMaxYellow" countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "AWKollagen_Pe1Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "AWKollagen_Pe3Cnt" countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "AWKollagen_Pe5Cnt" countCommand(prodInCount.Length + comDB.ATCircleCase) = "AWATCircleCaseCnt" countCommand(prodInCount.Length + comDB.APSquareCase) = "AWAPSquareCaseCnt" countCommand(prodInCount.Length + comDB.maxPeach) = "AWCaseMAXPeach" countCommand(prodInCount.Length + comDB.massageSoothing) = "AWMasSoothingCnt" countCommand(prodInCount.Length + comDB.maxSMint) = "AWCaseMAXSMint" countCommand(prodInCount.Length + comDB.meshpouch) = "AWMeshPouchCnt" countCommand(prodInCount.Length + comDB.firmingAmp) = "AWFirmingAmpCnt" countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "AWHyaluronicAmpCnt" countCommand(prodInCount.Length + comDB.nightshot) = "AWnightshotcnt" countCommand(prodInCount.Length + comDB.morningshot) = "AWmorningshotcnt" countCommand(prodInCount.Length + comDB.casemaxwoodi) = "AWcasemaxwoodicnt" countCommand(prodInCount.Length + comDB.Elicolltoner) = "AWElicolltonercnt" countCommand(prodInCount.Length + comDB.Elicollamp) = "AWElicollampcnt" countCommand(prodInCount.Length + comDB.Elicollcream) = "AWElicollcreamcnt" countCommand(prodInCount.Length + comDB.Elihyaltoner) = "AWElihyaltonercnt" countCommand(prodInCount.Length + comDB.Elihyalamp) = "AWElihyalampcnt" countCommand(prodInCount.Length + comDB.Elihyalcream) = "AWElihyalcreamcnt" countCommand(prodInCount.Length + comDB.Dayshot) = "AWDayshotcnt" countCommand(prodInCount.Length + comDB.Beautyshopbag) = "AWBeautyshopbagcnt" countCommand(prodInCount.Length + comDB.Gummy) = "AWGummycnt" countCommand(prodInCount.Length + comDB.Stickjelly) = "AWStickjellycnt" countCommand(prodInCount.Length + comDB.Newyearbag) = "AWNewyearbagcnt" countCommand(prodInCount.Length + comDB.Emsbelt) = "AWEmsbeltcnt" countCommand(prodInCount.Length + comDB.Beltbag) = "AWBeltbagcnt" countCommand(prodInCount.Length + comDB.Dayshot2) = "AWDayshot2cnt" 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" 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" countCommand(prodInCount.Length + comDB.Box_8_BeautyRoutine) = "AWBox_8_BeautyRoutinecnt" End Select End Sub Public Sub countDBCommand() prodPackCommand(prodDB.proset) = "ProSetSerial" prodPackCommand(prodDB.luxset) = "LuxSetSerial" prodPackCommand(prodDB.proface) = "ProFaceSerial" prodPackCommand(prodDB.luxface) = "LuxFaceSerial" prodPackCommand(prodDB.proeye) = "ProEyeSerial" prodPackCommand(prodDB.luxeye) = "LuxEyeSerial" prodPackCommand(prodDB.probody) = "ProBodySerial" prodPackCommand(prodDB.luxbody) = "LuxBodySerial" prodPackCommand(prodDB.maximum) = "MAXIMUM_SN" prodPackCommand(prodDB.alphaSet) = "Alpha_Set_Serial" prodPackCommand(prodDB.alphaFace) = "Alpha_Face_Serial" prodPackCommand(prodDB.alphaEye) = "Alpha_Eye_Serial" prodPackCommand(prodDB.alphaBody) = "Alpha_Body_Serial" prodPackCommand(prodDB.alto) = "Alto_Serial" prodPackCommand(prodDB.effect) = "Effect_Serial" prodPackCommand(prodDB.effectv3) = "EffectV3_Serial" End Sub End Module