Module mysqlAddress Private mainOrderDB As String = "jomtOrderDB.jomtOrderTbl" Private testOrderDB As String = "jomtOrderTestDB.jomtOrderTbl" Private mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl" Private testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl" Private mainProdDB As String = "jomtTesterDB.jomtProductTbl" Private testProdDB As String = "jomtTesterServerDB.jomtProductTbl" Private mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl" Private testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl" Private mainPlistDB As String = "jomtTesterDB.jomtProdList" Private testPlistDB As String = "jomtTesterServerDB.jomtProdList" Private mainClistDB As String = "jomtTesterDB.jomtComponentTbl" Private testClistDB As String = "jomtTesterServerDB.jomtComponentTbl" Private Const MainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl" Private Const TestNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl" Private mainPKCodeDB As String = "jomtTesterDB.jomtPKCodeTbl" Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl" Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl" Public applyOrderDB As String = mainOrderDB Public applySalesDB As String = mainSalesDB Public applyProdDB As String = mainProdDB Public applyCartDB As String = mainCartDB Public applyPlistDB As String = mainPlistDB Public applyClistDB As String = mainClistDB Public applyPKCodeDB As String = mainPKCodeDB Public applyNonTDDB As String = MainNonTDDB Public ApplyModelInfoDB As String = mainModelInfoDB Public Enum pSerialList DivSet ProFace ProEye ProBody LuxFace LuxEye LuxBody MAXIMUM AlphaSet AlphaFace AlphaEye AlphaBody Alto Effect EffectV3 MaximumAlpha Optimum '신규제품추가 : 추가하는 품목의 변수 추가 End Enum Public pSerialList_max_index As Integer = [Enum].GetNames(GetType(pSerialList)).Length - 1 Public pSerialData(pSerialList_max_index) As String Public Enum cCountList Mask5Cnt Mask10Cnt HairBandCnt GelCnt MiniGelCnt AmpleCnt CreamCnt UmbrellaCnt FenCnt ChargerCnt CableCnt TonerCnt Case_PRO_Black Case_PRO_Beige Case_PRO_Red Case_PRO_Pink Case_MAX_Black Case_MAX_Apr Case_MAX_Mint Case_MAX_Beige SoothingGelCnt Carton0_Cnt Carton1_Cnt Carton2_Cnt Carton3_Cnt Carton4_Cnt Carton5_Cnt Carton6_Cnt Shopbag_Cnt CosShopbag_Cnt DustBagCnt maxPurple proSnakeBlack kollagen kollagenSet kollagen_P kollagenSet_P cleansingWater tonerPad MaxSaffianoBK hologram1 hologram3 hologram5 MaxSaffianoPp Case_MAX_Yellow Kollagen_Pe1 Kollagen_Pe3 Kollagen_Pe5 ATCircleCase APSquareCase MaxPeach MassageSoothing Case_Max_SMint MeshPouch FirmingAmp HyaluronicAmp nightshotcnt morningshotcnt casemaxwoodicnt Elicolltonercnt Elicollampcnt Elicollcreamcnt Elihyaltonercnt Elihyalampcnt Elihyalcreamcnt dayshotcnt Beautyshotbagcnt Gummycnt Stickjellycnt Newyearbagcnt Emsbeltcnt beltbagcnt Dayshot2cnt Elixircnt 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 cCountList_max_index As Integer = [Enum].GetNames(GetType(cCountList)).Length - 1 Public cCountData(cCountList_max_index) As Integer End Module