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 maximumAlpha '신규제품추가 : 추가하는 품목의 변수 추가 End Enum Public prodDB_max_index As Integer = [Enum].GetNames(GetType(prodDB)).Length - 1 Public prodDBCount(prodDB_max_index) As Integer '' DB 저장 Public prodInCount(prodDB_max_index) As Integer '' 패킹 저장 10 Public prodComCount(prodDB_max_index) As Integer '' 로컬 저장 Public prodInSerial(prodDB_max_index) As String '' LogData 저장 Public prodPackCommand(prodDB_max_index) 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 car8 keyring DoenaLiftingToner DoenaLiftingAmp DoenaLiftingCream FirmingCollagenGel keyringSally beautykitHairband beautykitMirrorS beautykitMirrorL bloomingMoistureGel150 firmingCollagenGel150 tweedCase bloomingMoistureGel250 '신규구성품추가 : 추가하는 품목의 변수 추가 End Enum Public comDB_max_index As Integer = [Enum].GetNames(GetType(comDB)).Length - 1 Public comDBCount(comDB_max_index) As Integer ''DB 저장 Public comInCount(comDB_max_index) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comComCount(comDB_max_index) 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 If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then prodInCount(prodCode) += ckCount If prodInSerial(prodCode) = Nothing Then prodInSerial(prodCode) = serial Else prodInSerial(prodCode) = prodInSerial(prodCode) & "/" & serial End If Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True End If Else If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then comInCount(prodCode) += ckCount Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True End If 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(prodDB.maximumAlpha) = "MAXIMUMALPHACnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 일반동작 컬럼명 추가 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.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.maxPurple) = "CaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "CasePROSnakeBlack" 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.car8) = "Carton8Cnt" countCommand(prodInCount.Length + comDB.keyring) = "KeyringCnt" countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "DoenaLiftingTonercnt" countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "DoenaLiftingAmpcnt" countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "DoenaLiftingCreamcnt" countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "FirmingCollagenGelcnt" countCommand(prodInCount.Length + comDB.keyringSally) = "KeyringSallyCnt" countCommand(prodInCount.Length + comDB.beautykitHairband) = "BeautykitHairbandCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "BeautykitMirrorSCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "BeautykitMirrorLCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "BloomingMoistureGel150Cnt" countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "FirmingCollagenGel150Cnt" countCommand(prodInCount.Length + comDB.tweedCase) = "TweedCaseCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "BloomingMoistureGel250Cnt" '신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 일반동작 컬럼명 추가 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(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(포장) 컬럼명 추가 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.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.maxPurple) = "APCaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "APCasePROSnakeBlack" 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.car8) = "APCarton8Cnt" countCommand(prodInCount.Length + comDB.keyring) = "APKeyringCnt" countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "APDoenaLiftingTonercnt" countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "APDoenaLiftingAmpcnt" countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "APDoenaLiftingCreamcnt" countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "APFirmingCollagenGelcnt" countCommand(prodInCount.Length + comDB.keyringSally) = "APKeyringSallyCnt" countCommand(prodInCount.Length + comDB.beautykitHairband) = "APBeautykitHairbandCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "APBeautykitMirrorSCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "APBeautykitMirrorLCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "APBloomingMoistureGel150Cnt" countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "APFirmingCollagenGel150Cnt" countCommand(prodInCount.Length + comDB.tweedCase) = "APTweedCaseCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "APBloomingMoistureGel250Cnt" '신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(포장) 컬럼명 추가 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(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(무게측정) 컬럼명 추가 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.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.maxPurple) = "AWCaseMAXPurple" countCommand(prodInCount.Length + comDB.proSnakeBlack) = "AWCasePROSnakeBlack" 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.car8) = "AWCarton8Cnt" countCommand(prodInCount.Length + comDB.keyring) = "AWKeyringCnt" countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "AWDoenaLiftingTonercnt" countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "AWDoenaLiftingAmpcnt" countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "AWDoenaLiftingCreamcnt" countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "AWFirmingCollagenGelcnt" countCommand(prodInCount.Length + comDB.keyringSally) = "AWKeyringSallyCnt" countCommand(prodInCount.Length + comDB.beautykitHairband) = "AWBeautykitHairbandCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "AWBeautykitMirrorSCnt" countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "AWBeautykitMirrorLCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "AWBloomingMoistureGel150Cnt" countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "AWFirmingCollagenGel150Cnt" countCommand(prodInCount.Length + comDB.tweedCase) = "AWTweedCaseCnt" countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "AWBloomingMoistureGel250Cnt" '신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(무게측정) 컬럼명 추가 End Select End Sub Public Sub countDBCommand() prodPackCommand(prodDB.proset) = "Main_Product_SN" prodPackCommand(prodDB.luxset) = "Main_Product_SN" prodPackCommand(prodDB.proface) = "Pro_Face_Serial" prodPackCommand(prodDB.luxface) = "Lux_Face_Serial" prodPackCommand(prodDB.proeye) = "Pro_Eye_Serial" prodPackCommand(prodDB.luxeye) = "Lux_Eye_Serial" prodPackCommand(prodDB.probody) = "Pro_Body_Serial" prodPackCommand(prodDB.luxbody) = "Lux_Body_Serial" 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" prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN" End Sub End Module