From f4164f94d92234d244a3d07aef7dda299add3a78 Mon Sep 17 00:00:00 2001 From: kje97 Date: Fri, 18 Jul 2025 16:56:40 +0900 Subject: [PATCH] =?UTF-8?q?feat:=20=EA=B8=B0=EA=B8=B0=20=EC=A0=9C=ED=92=88?= =?UTF-8?q?=20=EC=B6=94=EA=B0=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SalesPacking_MES_API_Project/mainForm.vb | 71 +++++++++++--------- SalesPacking_MES_API_Project/mySQLAddress.vb | 19 ++++-- 2 files changed, 53 insertions(+), 37 deletions(-) diff --git a/SalesPacking_MES_API_Project/mainForm.vb b/SalesPacking_MES_API_Project/mainForm.vb index c365bef..9bb4901 100644 --- a/SalesPacking_MES_API_Project/mainForm.vb +++ b/SalesPacking_MES_API_Project/mainForm.vb @@ -80,7 +80,7 @@ Public Class mainForm prodset_V1 prodface_V2 prodeye - prodbody + prodbody_V3 End Enum Private Enum modelList @@ -358,7 +358,7 @@ Public Class mainForm textCount = Mid(textCount, InStr(textCount, ",") + 1, textCount.Length) If UBound(Split(textCount, ",")) = countCommand.Length - 1 Then - For i = 0 To prodDB.effect + For i = 0 To prodDB.effectv3 If UBound(Split(textCount, ",")) > 0 Then prodComCount(i) = Mid(textCount, 1, InStr(textCount, ",") - 1) textCount = Mid(textCount, InStr(textCount, ",") + 1, textCount.Length) @@ -1632,16 +1632,16 @@ Public Class mainForm End Function Private Function packingSerial() As Boolean - Dim prodSerial(prodDB.effect - prodDB.luxset) As String + Dim prodSerial(prodDB.effectv3 - prodDB.luxset) As String Const modelNum As Int16 = 1 Const typeNum As Int16 = 2 Const colorNum As Int16 = 11 Const countNum As Int16 = 1 - DBCmd = "SELECT Main_Product_SN,Pro_Face_Serial,Lux_Face_Serial,Pro_Eye_Serial,Lux_Eye_Serial,Pro_Body_Serial,Lux_Body_Serial,MAXIMUM_SN,Alpha_Set_Serial,Alpha_Face_Serial,Alpha_Eye_Serial,Alpha_Body_Serial,Alto_Serial,Effect_Serial FROM " & applySalesDB & " WHERE PackingCode = '" & playCode & "'" + DBCmd = "SELECT Main_Product_SN,Pro_Face_Serial,Lux_Face_Serial,Pro_Eye_Serial,Lux_Eye_Serial,Pro_Body_Serial,Lux_Body_Serial,MAXIMUM_SN,Alpha_Set_Serial,Alpha_Face_Serial,Alpha_Eye_Serial,Alpha_Body_Serial,Alto_Serial,Effect_Serial,EffectV3_Serial FROM " & applySalesDB & " WHERE PackingCode = '" & playCode & "'" If DBQueryReader(DBCmd) Then - For i = prodDB.luxset To prodDB.effect + For i = prodDB.luxset To prodDB.effectv3 prodSerial(i - prodDB.luxset) = sqlDataQuery(i - prodDB.luxset) Next Else @@ -1848,7 +1848,7 @@ Public Class mainForm commandStr = prodPackCommand(prodDB.proface) Case typeList.prodeye commandStr = prodPackCommand(prodDB.proeye) - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = prodPackCommand(prodDB.probody) Case Else errorOut("등록오류") @@ -1866,7 +1866,7 @@ Public Class mainForm commandStr = prodPackCommand(prodDB.luxface) Case typeList.prodeye commandStr = prodPackCommand(prodDB.luxeye) - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = prodPackCommand(prodDB.luxbody) Case Else errorOut("등록오류") @@ -1898,7 +1898,7 @@ Public Class mainForm commandStr = prodPackCommand(prodDB.alphaFace) Case typeList.prodeye commandStr = prodPackCommand(prodDB.alphaEye) - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = prodPackCommand(prodDB.alphaBody) Case Else errorOut("등록오류") @@ -1924,6 +1924,8 @@ Public Class mainForm Select Case typeNum Case typeList.prodset_V1 commandStr = prodPackCommand(prodDB.effect) + Case typeList.prodbody_V3 + commandStr = prodPackCommand(prodDB.effectv3) Case Else errorOut("등록오류") errorGen("존재하지 않는 타입 번호입니다.") @@ -1951,7 +1953,7 @@ Public Class mainForm commandStr = "Pro_Face_Serial" Case typeList.prodeye commandStr = "Pro_Eye_Serial" - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = "Pro_Body_Serial" Case Else errorOut("등록오류") @@ -1969,7 +1971,7 @@ Public Class mainForm commandStr = "Lux_Face_Serial" Case typeList.prodeye commandStr = "Lux_Eye_Serial" - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = "Lux_Body_Serial" Case Else errorOut("등록오류") @@ -2001,7 +2003,7 @@ Public Class mainForm commandStr = "Alpha_Face_Serial" Case typeList.prodeye commandStr = "Alpha_Eye_Serial" - Case typeList.prodbody + Case typeList.prodbody_V3 commandStr = "Alpha_Body_Serial" Case Else errorOut("등록오류") @@ -2027,6 +2029,8 @@ Public Class mainForm Select Case typeNum Case typeList.prodset_V1 commandStr = "Effect_Serial" + Case typeList.prodset_V1 + commandStr = "EffectV3_Serial" Case Else errorOut("등록오류") errorGen("존재하지 않는 타입 번호입니다.") @@ -2240,7 +2244,7 @@ Public Class mainForm Case typeList.prodeye faceCShot = 0 eyeCshot = 60000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceCShot = 30000 eyeCshot = 0 Case Else @@ -2257,7 +2261,7 @@ Public Class mainForm Case typeList.prodeye faceCShot = 0 eyeCshot = 30000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceCShot = 20000 eyeCshot = 0 Case Else @@ -2286,7 +2290,7 @@ Public Class mainForm Case typeList.prodeye faceCShot = 0 eyeCshot = 200000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceCShot = 30000 eyeCshot = 0 Case Else @@ -2419,7 +2423,7 @@ Public Class mainForm Case typeList.prodeye faceShot = 0 eyeShot = 60000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceShot = 30000 eyeShot = 0 Case Else @@ -2436,7 +2440,7 @@ Public Class mainForm Case typeList.prodeye faceShot = 0 eyeShot = 30000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceShot = 20000 eyeShot = 0 Case Else @@ -2465,7 +2469,7 @@ Public Class mainForm Case typeList.prodeye faceShot = 0 eyeShot = 200000 - Case typeList.prodbody + Case typeList.prodbody_V3 faceShot = 30000 eyeShot = 0 Case Else @@ -2487,6 +2491,9 @@ Public Class mainForm Case typeList.prodset_V1 faceShot = 0 eyeShot = 0 + Case typeList.prodbody_V3 + faceShot = 0 + eyeShot = 0 Case Else Return -1 @@ -2652,7 +2659,7 @@ Public Class mainForm End Function Private Function packingDBSaveOld(packingCode As String) As Boolean - DBCmd = "UPDATE " & applySalesDB & " SET Set_Cnt = '" & prodInCount(prodDB.proset) + prodInCount(prodDB.luxset) & "',Mask5Cnt = '" & comInCount(comDB.mask5) & "',Mask10Cnt = '" & comInCount(comDB.mask10) & "',HairBandCnt = '" & comInCount(comDB.hairband) & "',GelCnt = '" & comInCount(comDB.gel) & "',MiniGelCnt = '" & comInCount(comDB.minigel) & "',AmpleCnt = '" & comInCount(comDB.ample) & "',CreamCnt = '" & comInCount(comDB.cream) & "',UmbrellaCnt = '" & comInCount(comDB.umb) & "',FenCnt = '" & comInCount(comDB.fen) & "',ChargerCnt = '" & comInCount(comDB.charger) & "',CableCnt = '" & comInCount(comDB.cable) & "',TonerCnt = '" & comInCount(comDB.toner) & "',Case_PRO_Black = '" & comInCount(comDB.problack) & "',Case_PRO_Beige = '" & comInCount(comDB.probeige) & "',Case_PRO_Red = '" & comInCount(comDB.prored) & "',Case_PRO_Pink = '" & comInCount(comDB.propink) & "',Case_MAX_Black = '" & comInCount(comDB.maxblack) & "',Case_MAX_Apr = '" & comInCount(comDB.maxapr) & "',Case_MAX_Mint = '" & comInCount(comDB.maxmint) & "',Case_MAX_Beige = '" & comInCount(comDB.maxbeige) & "',Case_MAX_Purple = '" & comInCount(comDB.maxPurple) & "',Case_PRO_SnakeBlakc = '" & comInCount(comDB.proSnakeBlack) & "',DustBagCnt = '" & comInCount(comDB.dustbag) & "',SoothingGelCnt = '" & comInCount(comDB.soothing) & "',Carton0_Cnt = '" & comInCount(comDB.car0) & "',Carton1_Cnt = '" & comInCount(comDB.car1) & "',Carton2_Cnt = '" & comInCount(comDB.car2) & "',Carton3_Cnt = '" & comInCount(comDB.car3) & "',Carton4_Cnt = '" & comInCount(comDB.car4) & "',Carton5_Cnt = '" & comInCount(comDB.car5) & "',Carton6_Cnt = '" & comInCount(comDB.car6) & "',Shopbag_Cnt = '" & comInCount(comDB.bag) & "',CosShopbag_Cnt = '" & comInCount(comDB.cosbag) & "',KollagenCnt = '" & comInCount(comDB.kollagen) & "',KollagenSetCnt = '" & comInCount(comDB.kollagenset) & "',Kollagen_PCnt = '" & comInCount(comDB.kollagen_P) & "',KollagenSet_PCnt = '" & comInCount(comDB.kollagenset_P) & "',CleansingWaterCnt = '" & comInCount(comDB.cleansingWater) & "',TonerPadCnt = '" & comInCount(comDB.tonerPad) & "',Case_MAX_SafBK_Cnt = '" & comInCount(comDB.maxSaffianoBK) & "',Hologram_1Cnt = '" & comInCount(comDB.hologram1) & "',Hologram_3Cnt = '" & comInCount(comDB.hologram3) & "',Hologram_5Cnt = '" & comInCount(comDB.hologram5) & "',Case_MAX_SafPp_Cnt = '" & comInCount(comDB.caseSaffianoPp) & "',Case_MAX_Yellow = '" & comInCount(comDB.maxYellow) & "',Kollagen_Pe1Cnt = '" & comInCount(comDB.Kollagen_Pe1) & "',Kollagen_Pe3Cnt = '" & comInCount(comDB.Kollagen_Pe3) & "',Kollagen_Pe5Cnt = '" & comInCount(comDB.Kollagen_Pe5) & "',ATCircleCaseCnt = '" & comInCount(comDB.ATCircleCase) & "',APSquareCaseCnt = '" & comInCount(comDB.APSquareCase) & "',Case_MAX_Peach = '" & comInCount(comDB.maxPeach) & "',MasSoothingCnt = '" & comInCount(comDB.massageSoothing) & "',Case_MAX_SMintCnt = '" & comInCount(comDB.maxSMint) & "',MeshPouchCnt = '" & comInCount(comDB.meshpouch) & "',FirmingAmpCnt = '" & comInCount(comDB.firmingAmp) & "',HyaluronicAmpCnt = '" & comInCount(comDB.hyaluronicAmp) & "',nightshotcnt = '" & comInCount(comDB.nightshot) & "',morningshotcnt = '" & comInCount(comDB.morningshot) & "',casemaxwoodicnt = '" & comInCount(comDB.casemaxwoodi) & "',Elicolltonercnt = '" & comInCount(comDB.Elicolltoner) & "',Elicollampcnt = '" & comInCount(comDB.Elicollamp) & "',Elicollcreamcnt = '" & comInCount(comDB.Elicollcream) & "',Elihyaltonercnt = '" & comInCount(comDB.Elihyaltoner) & "',Elihyalampcnt = '" & comInCount(comDB.Elihyalamp) & "',Elihyalcreamcnt = '" & comInCount(comDB.Elihyalcream) & "',Dayshotcnt = '" & comInCount(comDB.Dayshot) & "',Beautyshopbagcnt = '" & comInCount(comDB.Beautyshopbag) & "',Gummycnt = '" & comInCount(comDB.Gummy) & "',stickjellycnt = '" & comInCount(comDB.Stickjelly) & "',Newyearbagcnt = '" & comInCount(comDB.Newyearbag) & "',Emsbeltcnt = '" & comInCount(comDB.Emsbelt) & "',Beltbagcnt = '" & comInCount(comDB.Beltbag) & "',Dayshot2cnt = '" & comInCount(comDB.Dayshot2) & "',Elixircnt = '" & comInCount(comDB.Elixir) & "',Elixirpremiumcnt = '" & comInCount(comDB.Elixirpremium) & "',Emsbeltcontrollsetcnt = '" & comInCount(comDB.Emsbeltcontrollset) & "',FabricBagcnt = '" & comInCount(comDB.FabricBag) & "',Goldshopbagcnt = '" & comInCount(comDB.Goldshopbag) & "',MorNigshotsetcnt = '" & comInCount(comDB.MorNigshotset) & "',CTBoxcnt = '" & comInCount(comDB.CTBox) & "',ElesqLiftingTonercnt = '" & comInCount(comDB.ElesqLiftingToner) & "',ElesqLiftingCeamcnt = '" & comInCount(comDB.ElesqLiftingCeam) & "',ElesqLiftingECreamcnt = '" & comInCount(comDB.ElesqLiftingECream) & "',ElesqLiftingAmpcnt = '" & comInCount(comDB.ElesqLiftingAmp) & "',ElesqAquaTonercnt = '" & comInCount(comDB.ElesqAquaToner) & "',ElesqAquaCeamcnt = '" & comInCount(comDB.ElesqAquaCeam) & "',ElesqAquaECreamcnt = '" & comInCount(comDB.ElesqAquaECream) & "',ElesqAquaAmpcnt = '" & comInCount(comDB.ElesqAquaAmp) & "',Pro_CT_FaceCnt = '" & prodInCount(prodDB.proface) & "',Pro_CT_EYE_Cnt = '" & prodInCount(prodDB.proeye) & "',Pro_CT_BodyCnt = '" & prodInCount(prodDB.probody) & "',Lux_CT_FaceCnt = '" & prodInCount(prodDB.luxface) & "',Lux_CT_EYE_Cnt = '" & prodInCount(prodDB.luxeye) & "',Lux_CT_BodyCnt = '" & prodInCount(prodDB.luxbody) & "',MAXIMUM_Cnt = '" & prodInCount(prodDB.maximum) & "',Alpha_Set_Cnt = '" & prodInCount(prodDB.alphaSet) & "',Alpha_Face_Cnt = '" & prodInCount(prodDB.alphaFace) & "',Alpha_Eye_Cnt = '" & prodInCount(prodDB.alphaEye) & "',Alpha_Body_Cnt = '" & prodInCount(prodDB.alphaBody) & "',Alto_Cnt = '" & prodInCount(prodDB.alto) & "',Effect_Cnt = '" & prodInCount(prodDB.effect) & "' WHERE PackingCode = '" & packingCode & "'" + DBCmd = "UPDATE " & applySalesDB & " SET Set_Cnt = '" & prodInCount(prodDB.proset) + prodInCount(prodDB.luxset) & "',Mask5Cnt = '" & comInCount(comDB.mask5) & "',Mask10Cnt = '" & comInCount(comDB.mask10) & "',HairBandCnt = '" & comInCount(comDB.hairband) & "',GelCnt = '" & comInCount(comDB.gel) & "',MiniGelCnt = '" & comInCount(comDB.minigel) & "',AmpleCnt = '" & comInCount(comDB.ample) & "',CreamCnt = '" & comInCount(comDB.cream) & "',UmbrellaCnt = '" & comInCount(comDB.umb) & "',FenCnt = '" & comInCount(comDB.fen) & "',ChargerCnt = '" & comInCount(comDB.charger) & "',CableCnt = '" & comInCount(comDB.cable) & "',TonerCnt = '" & comInCount(comDB.toner) & "',Case_PRO_Black = '" & comInCount(comDB.problack) & "',Case_PRO_Beige = '" & comInCount(comDB.probeige) & "',Case_PRO_Red = '" & comInCount(comDB.prored) & "',Case_PRO_Pink = '" & comInCount(comDB.propink) & "',Case_MAX_Black = '" & comInCount(comDB.maxblack) & "',Case_MAX_Apr = '" & comInCount(comDB.maxapr) & "',Case_MAX_Mint = '" & comInCount(comDB.maxmint) & "',Case_MAX_Beige = '" & comInCount(comDB.maxbeige) & "',Case_MAX_Purple = '" & comInCount(comDB.maxPurple) & "',Case_PRO_SnakeBlakc = '" & comInCount(comDB.proSnakeBlack) & "',DustBagCnt = '" & comInCount(comDB.dustbag) & "',SoothingGelCnt = '" & comInCount(comDB.soothing) & "',Carton0_Cnt = '" & comInCount(comDB.car0) & "',Carton1_Cnt = '" & comInCount(comDB.car1) & "',Carton2_Cnt = '" & comInCount(comDB.car2) & "',Carton3_Cnt = '" & comInCount(comDB.car3) & "',Carton4_Cnt = '" & comInCount(comDB.car4) & "',Carton5_Cnt = '" & comInCount(comDB.car5) & "',Carton6_Cnt = '" & comInCount(comDB.car6) & "',Shopbag_Cnt = '" & comInCount(comDB.bag) & "',CosShopbag_Cnt = '" & comInCount(comDB.cosbag) & "',KollagenCnt = '" & comInCount(comDB.kollagen) & "',KollagenSetCnt = '" & comInCount(comDB.kollagenset) & "',Kollagen_PCnt = '" & comInCount(comDB.kollagen_P) & "',KollagenSet_PCnt = '" & comInCount(comDB.kollagenset_P) & "',CleansingWaterCnt = '" & comInCount(comDB.cleansingWater) & "',TonerPadCnt = '" & comInCount(comDB.tonerPad) & "',Case_MAX_SafBK_Cnt = '" & comInCount(comDB.maxSaffianoBK) & "',Hologram_1Cnt = '" & comInCount(comDB.hologram1) & "',Hologram_3Cnt = '" & comInCount(comDB.hologram3) & "',Hologram_5Cnt = '" & comInCount(comDB.hologram5) & "',Case_MAX_SafPp_Cnt = '" & comInCount(comDB.caseSaffianoPp) & "',Case_MAX_Yellow = '" & comInCount(comDB.maxYellow) & "',Kollagen_Pe1Cnt = '" & comInCount(comDB.Kollagen_Pe1) & "',Kollagen_Pe3Cnt = '" & comInCount(comDB.Kollagen_Pe3) & "',Kollagen_Pe5Cnt = '" & comInCount(comDB.Kollagen_Pe5) & "',ATCircleCaseCnt = '" & comInCount(comDB.ATCircleCase) & "',APSquareCaseCnt = '" & comInCount(comDB.APSquareCase) & "',Case_MAX_Peach = '" & comInCount(comDB.maxPeach) & "',MasSoothingCnt = '" & comInCount(comDB.massageSoothing) & "',Case_MAX_SMintCnt = '" & comInCount(comDB.maxSMint) & "',MeshPouchCnt = '" & comInCount(comDB.meshpouch) & "',FirmingAmpCnt = '" & comInCount(comDB.firmingAmp) & "',HyaluronicAmpCnt = '" & comInCount(comDB.hyaluronicAmp) & "',nightshotcnt = '" & comInCount(comDB.nightshot) & "',morningshotcnt = '" & comInCount(comDB.morningshot) & "',casemaxwoodicnt = '" & comInCount(comDB.casemaxwoodi) & "',Elicolltonercnt = '" & comInCount(comDB.Elicolltoner) & "',Elicollampcnt = '" & comInCount(comDB.Elicollamp) & "',Elicollcreamcnt = '" & comInCount(comDB.Elicollcream) & "',Elihyaltonercnt = '" & comInCount(comDB.Elihyaltoner) & "',Elihyalampcnt = '" & comInCount(comDB.Elihyalamp) & "',Elihyalcreamcnt = '" & comInCount(comDB.Elihyalcream) & "',Dayshotcnt = '" & comInCount(comDB.Dayshot) & "',Beautyshopbagcnt = '" & comInCount(comDB.Beautyshopbag) & "',Gummycnt = '" & comInCount(comDB.Gummy) & "',stickjellycnt = '" & comInCount(comDB.Stickjelly) & "',Newyearbagcnt = '" & comInCount(comDB.Newyearbag) & "',Emsbeltcnt = '" & comInCount(comDB.Emsbelt) & "',Beltbagcnt = '" & comInCount(comDB.Beltbag) & "',Dayshot2cnt = '" & comInCount(comDB.Dayshot2) & "',Elixircnt = '" & comInCount(comDB.Elixir) & "',Elixirpremiumcnt = '" & comInCount(comDB.Elixirpremium) & "',Emsbeltcontrollsetcnt = '" & comInCount(comDB.Emsbeltcontrollset) & "',FabricBagcnt = '" & comInCount(comDB.FabricBag) & "',Goldshopbagcnt = '" & comInCount(comDB.Goldshopbag) & "',MorNigshotsetcnt = '" & comInCount(comDB.MorNigshotset) & "',CTBoxcnt = '" & comInCount(comDB.CTBox) & "',ElesqLiftingTonercnt = '" & comInCount(comDB.ElesqLiftingToner) & "',ElesqLiftingCeamcnt = '" & comInCount(comDB.ElesqLiftingCeam) & "',ElesqLiftingECreamcnt = '" & comInCount(comDB.ElesqLiftingECream) & "',ElesqLiftingAmpcnt = '" & comInCount(comDB.ElesqLiftingAmp) & "',ElesqAquaTonercnt = '" & comInCount(comDB.ElesqAquaToner) & "',ElesqAquaCeamcnt = '" & comInCount(comDB.ElesqAquaCeam) & "',ElesqAquaECreamcnt = '" & comInCount(comDB.ElesqAquaECream) & "',ElesqAquaAmpcnt = '" & comInCount(comDB.ElesqAquaAmp) & "',Pro_CT_FaceCnt = '" & prodInCount(prodDB.proface) & "',Pro_CT_EYE_Cnt = '" & prodInCount(prodDB.proeye) & "',Pro_CT_BodyCnt = '" & prodInCount(prodDB.probody) & "',Lux_CT_FaceCnt = '" & prodInCount(prodDB.luxface) & "',Lux_CT_EYE_Cnt = '" & prodInCount(prodDB.luxeye) & "',Lux_CT_BodyCnt = '" & prodInCount(prodDB.luxbody) & "',MAXIMUM_Cnt = '" & prodInCount(prodDB.maximum) & "',Alpha_Set_Cnt = '" & prodInCount(prodDB.alphaSet) & "',Alpha_Face_Cnt = '" & prodInCount(prodDB.alphaFace) & "',Alpha_Eye_Cnt = '" & prodInCount(prodDB.alphaEye) & "',Alpha_Body_Cnt = '" & prodInCount(prodDB.alphaBody) & "',Alto_Cnt = '" & prodInCount(prodDB.alto) & "',Effect_Cnt = '" & prodInCount(prodDB.effect) & "',EffectV3_Cnt = '" & prodInCount(prodDB.effectv3) & "' WHERE PackingCode = '" & packingCode & "'" If DBCommand(DBCmd) = False Then errorOut("등록오류") @@ -2712,7 +2719,7 @@ Public Class mainForm Next End If - DBCmd = "UPDATE " & applySalesDB & " SET `Data` = NOW(), Main_Product_SN = '" & setSerial & "',Main_FACE_SN = '" & faceSerial & "',Main_EYE_SN = '" & eyeSerial & "',Pro_Face_Serial = '" & prodInSerial(prodDB.proface) & "',Pro_Eye_Serial = '" & prodInSerial(prodDB.proeye) & "',Pro_Body_Serial = '" & prodInSerial(prodDB.probody) & "',Lux_Face_Serial = '" & prodInSerial(prodDB.luxface) & "',Lux_Eye_Serial = '" & prodInSerial(prodDB.luxeye) & "',Lux_Body_Serial = '" & prodInSerial(prodDB.luxbody) & "',MAXIMUM_SN = '" & prodInSerial(prodDB.maximum) & "',Alpha_Set_Serial = '" & prodInSerial(prodDB.alphaSet) & "',Alpha_Face_Serial = '" & prodInSerial(prodDB.alphaFace) & "',Alpha_Eye_Serial = '" & prodInSerial(prodDB.alphaEye) & "',Alpha_Body_Serial = '" & prodInSerial(prodDB.alphaBody) & "',Alto_Serial = '" & prodInSerial(prodDB.alto) & "',Effect_Serial = '" & prodInSerial(prodDB.effect) & "' WHERE PackingCode = '" & packingCode & "'" + DBCmd = "UPDATE " & applySalesDB & " SET `Data` = NOW(), Main_Product_SN = '" & setSerial & "',Main_FACE_SN = '" & faceSerial & "',Main_EYE_SN = '" & eyeSerial & "',Pro_Face_Serial = '" & prodInSerial(prodDB.proface) & "',Pro_Eye_Serial = '" & prodInSerial(prodDB.proeye) & "',Pro_Body_Serial = '" & prodInSerial(prodDB.probody) & "',Lux_Face_Serial = '" & prodInSerial(prodDB.luxface) & "',Lux_Eye_Serial = '" & prodInSerial(prodDB.luxeye) & "',Lux_Body_Serial = '" & prodInSerial(prodDB.luxbody) & "',MAXIMUM_SN = '" & prodInSerial(prodDB.maximum) & "',Alpha_Set_Serial = '" & prodInSerial(prodDB.alphaSet) & "',Alpha_Face_Serial = '" & prodInSerial(prodDB.alphaFace) & "',Alpha_Eye_Serial = '" & prodInSerial(prodDB.alphaEye) & "',Alpha_Body_Serial = '" & prodInSerial(prodDB.alphaBody) & "',Alto_Serial = '" & prodInSerial(prodDB.alto) & "',Effect_Serial = '" & prodInSerial(prodDB.effect) & "',EffectV3_Serial = '" & prodInSerial(prodDB.effectv3) & "' WHERE PackingCode = '" & packingCode & "'" If DBCommand(DBCmd) Then Return False @@ -2784,7 +2791,7 @@ Public Class mainForm Try Dim commandDB As String = "UPDATE " & applySalesDB & " SET " - For i = prodDB.proset To prodDB.effect + For i = prodDB.proset To prodDB.effectv3 If prodInSerial(i) = "" Then prodInSerial(i) = "null" @@ -2792,7 +2799,7 @@ Public Class mainForm prodInSerial(i) = "'" & prodInSerial(i) & "'" End If - If i <> prodDB.effect Then + If i <> prodDB.effectv3 Then commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) & ", " Else commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) @@ -2847,7 +2854,7 @@ Public Class mainForm Dim prodCount As Integer = 0 For i = 1 To countCommand.Length - 1 - If i <= prodDB.effect Then + If i <= prodDB.effectv3 Then prodCount = countSet(i, saveType, True) @@ -2933,7 +2940,7 @@ Public Class mainForm 'End Function Private Sub saveDBCount() - For i = 0 To prodDB.effect + For i = 0 To prodDB.effectv3 prodDBCount(i) += prodInCount(i) Next @@ -2966,14 +2973,14 @@ Public Class mainForm End If If rdbMode1.Checked = True Then - DBCmd = "SELECT PackingCount,ProSetCnt,LuxSetCnt,ProFaceCnt,LuxFaceCnt,ProEyeCnt,LuxEyeCnt,ProBodyCnt,LuxBodyCnt,MAXIMUMCnt,AlphaSetCnt,AlphaFaceCnt,AlphaEyeCnt,AlphaBodyCnt,AltoCnt,EffectCnt,Mask5Cnt,Mask10Cnt,HairBandCnt,GelCnt,MiniGel,AmpleCnt,CreamCnt,UmbrellaCnt,FenCnt,ChargerCnt,CableCnt,TonerCnt,CasePROBlack,CasePROBeige,CasePRORed,CasePROPink,CaseMAXBlack,CaseMAXApr,CaseMAXMint,CaseMAXBeige,SoothingGelCnt,Carton0Cnt,Carton1Cnt,Carton2Cnt,Carton3Cnt,Carton4Cnt,Carton5Cnt,Carton6Cnt,BagCnt,CosBagCnt,DustBagCnt,CaseMAXPurple,CasePROSnakeBlack,KollagenCnt,KollagenSetCnt,Kollagen_PCnt,KollagenSet_PCnt,CleansingWaterCnt,TonerPadCnt,CaseMaxSafBK,Hologram_1Cnt,Hologram_3Cnt,Hologram_5Cnt,CaseMaxSafPp,CaseMaxYellow,Kollagen_Pe1Cnt,Kollagen_Pe3Cnt,Kollagen_Pe5Cnt,ATCircleCaseCnt,APSquareCaseCnt,CaseMAXPeach,MasSoothingCnt,CaseMAXSMint,MeshPouchCnt,FirmingAmpCnt,HyaluronicAmpCnt,nightshotcnt,morningshotcnt,casemaxwoodicnt,Elicolltonercnt,Elicollampcnt,Elicollcreamcnt,Elihyaltonercnt,Elihyalampcnt,Elihyalcreamcnt,Dayshotcnt,Beautyshopbagcnt,Gummycnt,Stickjellycnt,Newyearbagcnt,Emsbeltcnt,Beltbagcnt,Dayshot2cnt,Elixircnt,Elixirpremiumcnt,Emsbeltcontrollsetcnt, FabricBagcnt, Goldshopbagcnt, MorNigshotsetcnt, CTBoxcnt, ElesqLiftingTonercnt, ElesqLiftingCeamcnt, ElesqLiftingECreamcnt, ElesqLiftingAmpcnt, ElesqAquaTonercnt, ElesqAquaCeamcnt, ElesqAquaECreamcnt, ElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT PackingCount,ProSetCnt,LuxSetCnt,ProFaceCnt,LuxFaceCnt,ProEyeCnt,LuxEyeCnt,ProBodyCnt,LuxBodyCnt,MAXIMUMCnt,AlphaSetCnt,AlphaFaceCnt,AlphaEyeCnt,AlphaBodyCnt,AltoCnt,EffectCnt,EffectV3Cnt,Mask5Cnt,Mask10Cnt,HairBandCnt,GelCnt,MiniGel,AmpleCnt,CreamCnt,UmbrellaCnt,FenCnt,ChargerCnt,CableCnt,TonerCnt,CasePROBlack,CasePROBeige,CasePRORed,CasePROPink,CaseMAXBlack,CaseMAXApr,CaseMAXMint,CaseMAXBeige,SoothingGelCnt,Carton0Cnt,Carton1Cnt,Carton2Cnt,Carton3Cnt,Carton4Cnt,Carton5Cnt,Carton6Cnt,BagCnt,CosBagCnt,DustBagCnt,CaseMAXPurple,CasePROSnakeBlack,KollagenCnt,KollagenSetCnt,Kollagen_PCnt,KollagenSet_PCnt,CleansingWaterCnt,TonerPadCnt,CaseMaxSafBK,Hologram_1Cnt,Hologram_3Cnt,Hologram_5Cnt,CaseMaxSafPp,CaseMaxYellow,Kollagen_Pe1Cnt,Kollagen_Pe3Cnt,Kollagen_Pe5Cnt,ATCircleCaseCnt,APSquareCaseCnt,CaseMAXPeach,MasSoothingCnt,CaseMAXSMint,MeshPouchCnt,FirmingAmpCnt,HyaluronicAmpCnt,nightshotcnt,morningshotcnt,casemaxwoodicnt,Elicolltonercnt,Elicollampcnt,Elicollcreamcnt,Elihyaltonercnt,Elihyalampcnt,Elihyalcreamcnt,Dayshotcnt,Beautyshopbagcnt,Gummycnt,Stickjellycnt,Newyearbagcnt,Emsbeltcnt,Beltbagcnt,Dayshot2cnt,Elixircnt,Elixirpremiumcnt,Emsbeltcontrollsetcnt, FabricBagcnt, Goldshopbagcnt, MorNigshotsetcnt, CTBoxcnt, ElesqLiftingTonercnt, ElesqLiftingCeamcnt, ElesqLiftingECreamcnt, ElesqLiftingAmpcnt, ElesqAquaTonercnt, ElesqAquaCeamcnt, ElesqAquaECreamcnt, ElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" countCommandFunc(countSaveList.normal) Else If rdbAuto1.Checked = True Then - DBCmd = "SELECT AutoPackCnt,APProSetCnt,APLuxSetCnt,APProFaceCnt,APLuxFaceCnt,APProEyeCnt,APLuxEyeCnt,APProBodyCnt,APLuxBodyCnt,APMAXIMUMCnt,APAlphaSetCnt,APAlphaFaceCnt,APAlphaEyeCnt,APAlphaBodyCnt,APAltoCnt,APEffectcnt,APMask5Cnt,APMask10Cnt,APHairBandCnt,APGelCnt,APMiniGel,APAmpleCnt,APCreamCnt,APUmbrellaCnt,APFenCnt,APChargerCnt,APCableCnt,APTonerCnt,APCasePROBlack,APCasePROBeige,APCasePRORed,APCasePROPink,APCaseMAXBlack,APCaseMAXApr,APCaseMAXMint,APCaseMAXBeige,APSoothingGelCnt,APCarton0Cnt,APCarton1Cnt,APCarton2Cnt,APCarton3Cnt,APCarton4Cnt,APCarton5Cnt,APCarton6Cnt,APBagCnt,APCosBagCnt,APDustBagCnt,APCaseMAXPurple,APCasePROSnakeBlack,APKollagenCnt,APKollagenSetCnt,APKollagen_PCnt,APKollagenSet_PCnt,APCleansingWaterCnt,APTonerPadCnt,APCaseMaxSafBK,APHologram_1Cnt,APHologram_3Cnt,APHologram_5Cnt,APCaseMaxSafPp,APCaseMaxYellow,APKollagen_Pe1Cnt,APKollagen_Pe3Cnt,APKollagen_Pe5Cnt,APATCircleCaseCnt,APAPSquareCaseCnt,APCaseMAXPeach,APMasSoothingCnt,APCaseMAXSMint,APMeshPouchCnt,APFirmingAmpCnt,APHyaluronicAmpCnt,APnightshotcnt,APmorningshotcnt,APcasemaxwoodicnt,APElicolltonercnt,APElicollampcnt,APElicollcreamcnt,APElihyaltonercnt,APElihyalampcnt,APElihyalcreamcnt,APDayshotcnt,APBeautyshopbagcnt,APGummycnt,APStickjellycnt,APNewyearbagcnt,APEmsbeltcnt,APBeltbagcnt,APDayshot2cnt,APElixircnt,APElixirpremiumcnt, APEmsbeltcontrollsetcnt, APFabricBagcnt, APGoldshopbagcnt, APMorNigshotsetcnt, APCTBoxcnt, APElesqLiftingTonercnt, APElesqLiftingCeamcnt, APElesqLiftingECreamcnt, APElesqLiftingAmpcnt, APElesqAquaTonercnt, APElesqAquaCeamcnt, APElesqAquaECreamcnt, APElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT AutoPackCnt,APProSetCnt,APLuxSetCnt,APProFaceCnt,APLuxFaceCnt,APProEyeCnt,APLuxEyeCnt,APProBodyCnt,APLuxBodyCnt,APMAXIMUMCnt,APAlphaSetCnt,APAlphaFaceCnt,APAlphaEyeCnt,APAlphaBodyCnt,APAltoCnt,APEffectcnt,APEffectV3Cnt,APMask5Cnt,APMask10Cnt,APHairBandCnt,APGelCnt,APMiniGel,APAmpleCnt,APCreamCnt,APUmbrellaCnt,APFenCnt,APChargerCnt,APCableCnt,APTonerCnt,APCasePROBlack,APCasePROBeige,APCasePRORed,APCasePROPink,APCaseMAXBlack,APCaseMAXApr,APCaseMAXMint,APCaseMAXBeige,APSoothingGelCnt,APCarton0Cnt,APCarton1Cnt,APCarton2Cnt,APCarton3Cnt,APCarton4Cnt,APCarton5Cnt,APCarton6Cnt,APBagCnt,APCosBagCnt,APDustBagCnt,APCaseMAXPurple,APCasePROSnakeBlack,APKollagenCnt,APKollagenSetCnt,APKollagen_PCnt,APKollagenSet_PCnt,APCleansingWaterCnt,APTonerPadCnt,APCaseMaxSafBK,APHologram_1Cnt,APHologram_3Cnt,APHologram_5Cnt,APCaseMaxSafPp,APCaseMaxYellow,APKollagen_Pe1Cnt,APKollagen_Pe3Cnt,APKollagen_Pe5Cnt,APATCircleCaseCnt,APAPSquareCaseCnt,APCaseMAXPeach,APMasSoothingCnt,APCaseMAXSMint,APMeshPouchCnt,APFirmingAmpCnt,APHyaluronicAmpCnt,APnightshotcnt,APmorningshotcnt,APcasemaxwoodicnt,APElicolltonercnt,APElicollampcnt,APElicollcreamcnt,APElihyaltonercnt,APElihyalampcnt,APElihyalcreamcnt,APDayshotcnt,APBeautyshopbagcnt,APGummycnt,APStickjellycnt,APNewyearbagcnt,APEmsbeltcnt,APBeltbagcnt,APDayshot2cnt,APElixircnt,APElixirpremiumcnt, APEmsbeltcontrollsetcnt, APFabricBagcnt, APGoldshopbagcnt, APMorNigshotsetcnt, APCTBoxcnt, APElesqLiftingTonercnt, APElesqLiftingCeamcnt, APElesqLiftingECreamcnt, APElesqLiftingAmpcnt, APElesqAquaTonercnt, APElesqAquaCeamcnt, APElesqAquaECreamcnt, APElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" countCommandFunc(countSaveList.autopack) Else - DBCmd = "SELECT AutoWeightCnt,AWProSetCnt,AWLuxSetCnt,AWProFaceCnt,AWLuxFaceCnt,AWProEyeCnt,AWLuxEyeCnt,AWProBodyCnt,AWLuxBodyCnt,AWMAXIMUMCnt,AWAlphaSetCnt,AWAlphaFaceCnt,AWAlphaEyeCnt,AWAlphaBodyCnt,AWAltoCnt,AWEffectcnt,AWMask5Cnt,AWMask10Cnt,AWHairBandCnt,AWGelCnt,AWMiniGel,AWAmpleCnt,AWCreamCnt,AWUmbrellaCnt,AWFenCnt,AWChargerCnt,AWCableCnt,AWTonerCnt,AWCasePROBlack,AWCasePROBeige,AWCasePRORed,AWCasePROPink,AWCaseMAXBlack,AWCaseMAXApr,AWCaseMAXMint,AWCaseMAXBeige,AWSoothingGelCnt,AWCarton0Cnt,AWCarton1Cnt,AWCarton2Cnt,AWCarton3Cnt,AWCarton4Cnt,AWCarton5Cnt,AWCarton6Cnt,AWBagCnt,AWCosBagCnt,AWDustBagCnt,AWCaseMAXPurple,AWCasePROSnakeBlack,AWKollagenCnt,AWKollagenSetCnt,AWKollagen_PCnt,AWKollagenSet_PCnt,AWCleansingWaterCnt,AWTonerPadCnt,AWCaseMaxSafBK,AWHologram_1Cnt,AWHologram_3Cnt,AWHologram_5Cnt,AWCaseMaxSafPp,AWCaseMaxYellow,AWKollagen_Pe1Cnt,AWKollagen_Pe3Cnt,AWKollagen_Pe5Cnt,AWATCircleCaseCnt,AWAPSquareCaseCnt,AWCaseMAXPeach,AWMasSoothingCnt,AWCaseMAXSMint,AWMeshPouchCnt,AWFirmingAmpCnt,AWHyaluronicAmpCnt,AWnightshotcnt,AWmorningshotcnt,AWcasemaxwoodicnt,AWElicolltonercnt,AWElicollampcnt,AWElicollcreamcnt,AWElihyaltonercnt,AWElihyalampcnt,AWElihyalcreamcnt,AWDayshotcnt,AWBeautyshopbagcnt,AWGummycnt,AWStickjellycnt,AWNewyearbagcnt,AWEmsbeltcnt,AWBeltbagcnt,AWDayshot2cnt,AWElixircnt,AWElixirpremiumcnt, AWEmsbeltcontrollsetcnt, AWFabricBagcnt, AWGoldshopbagcnt, AWMorNigshotsetcnt, AWCTBoxcnt,AWElesqLiftingTonercnt, AWElesqLiftingCeamcnt, AWElesqLiftingECreamcnt, AWElesqLiftingAmpcnt, AWElesqAquaTonercnt, AWElesqAquaCeamcnt, AWElesqAquaECreamcnt, AWElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT AutoWeightCnt,AWProSetCnt,AWLuxSetCnt,AWProFaceCnt,AWLuxFaceCnt,AWProEyeCnt,AWLuxEyeCnt,AWProBodyCnt,AWLuxBodyCnt,AWMAXIMUMCnt,AWAlphaSetCnt,AWAlphaFaceCnt,AWAlphaEyeCnt,AWAlphaBodyCnt,AWAltoCnt,AWEffectcnt,AWEffectV3Cnt,AWMask5Cnt,AWMask10Cnt,AWHairBandCnt,AWGelCnt,AWMiniGel,AWAmpleCnt,AWCreamCnt,AWUmbrellaCnt,AWFenCnt,AWChargerCnt,AWCableCnt,AWTonerCnt,AWCasePROBlack,AWCasePROBeige,AWCasePRORed,AWCasePROPink,AWCaseMAXBlack,AWCaseMAXApr,AWCaseMAXMint,AWCaseMAXBeige,AWSoothingGelCnt,AWCarton0Cnt,AWCarton1Cnt,AWCarton2Cnt,AWCarton3Cnt,AWCarton4Cnt,AWCarton5Cnt,AWCarton6Cnt,AWBagCnt,AWCosBagCnt,AWDustBagCnt,AWCaseMAXPurple,AWCasePROSnakeBlack,AWKollagenCnt,AWKollagenSetCnt,AWKollagen_PCnt,AWKollagenSet_PCnt,AWCleansingWaterCnt,AWTonerPadCnt,AWCaseMaxSafBK,AWHologram_1Cnt,AWHologram_3Cnt,AWHologram_5Cnt,AWCaseMaxSafPp,AWCaseMaxYellow,AWKollagen_Pe1Cnt,AWKollagen_Pe3Cnt,AWKollagen_Pe5Cnt,AWATCircleCaseCnt,AWAPSquareCaseCnt,AWCaseMAXPeach,AWMasSoothingCnt,AWCaseMAXSMint,AWMeshPouchCnt,AWFirmingAmpCnt,AWHyaluronicAmpCnt,AWnightshotcnt,AWmorningshotcnt,AWcasemaxwoodicnt,AWElicolltonercnt,AWElicollampcnt,AWElicollcreamcnt,AWElihyaltonercnt,AWElihyalampcnt,AWElihyalcreamcnt,AWDayshotcnt,AWBeautyshopbagcnt,AWGummycnt,AWStickjellycnt,AWNewyearbagcnt,AWEmsbeltcnt,AWBeltbagcnt,AWDayshot2cnt,AWElixircnt,AWElixirpremiumcnt, AWEmsbeltcontrollsetcnt, AWFabricBagcnt, AWGoldshopbagcnt, AWMorNigshotsetcnt, AWCTBoxcnt,AWElesqLiftingTonercnt, AWElesqLiftingCeamcnt, AWElesqLiftingECreamcnt, AWElesqLiftingAmpcnt, AWElesqAquaTonercnt, AWElesqAquaCeamcnt, AWElesqAquaECreamcnt, AWElesqAquaAmpcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" countCommandFunc(countSaveList.autoWeight) End If End If @@ -2981,7 +2988,7 @@ Public Class mainForm If DBQueryReader(DBCmd) Then For i = 0 To countCommand.Length - 1 - If i <= prodDB.effect Then + If i <= prodDB.effectv3 Then prodDBCount(i) = sqlDataQuery(i) Else enumCount = i - prodDBCount.Length @@ -3054,7 +3061,7 @@ Public Class mainForm Dim filePath, fileName, strData As String Dim saveDate As String = DateAndTime.Year(Now) & "-" & DateAndTime.Month(Now) & "-" & DateAndTime.Day(Now) Dim saveTime As String = DateAndTime.Hour(Now) & ":" & DateAndTime.Minute(Now) & ":" & DateAndTime.Second(Now) - Dim startForm As String = "PackingTime,PackingCode,Packing_Count,PRO_SET,PRO_SET_Serial,LUX_SET,LUX_SET_Serial,PRO_FACE,PRO_FACE_Serial,LUX_FACE,LUX_FACE_Serial,PRO_EYE,PRO_EYE_Serial,LUX_EYE,LUX_EYE_Serial,PRO_BODY,PRO_BODY_Serial,LUX_BODY,LUX_BODY_Serial,MAXIMUM,MAXIMUM_Serial,ALPHA_SET_Cnt,ALPHA_SET_Serial,ALPHA_FACE_Cnt,ALPHA_FACE_Serial,ALPHA_EYE_Cnt,ALPHA_EYE_Serial,ALPHA_Body_Cnt,ALPHA_Body_Serial,ALTO_Cnt,ALTO_Serial,Effect_Cnt,Effect_Serial,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,충전_케이블,토너,가죽케이스(P_Black),가죽케이스(P_Beige),가죽케이스(P_Red),가죽케이스(P_Pink),가죽케이스(M_Black),가죽케이스(M_Apr),가죽케이스(M_Mint),가죽케이스(M_Beige),수딩젤,카톤박스_0호,카톤박스_1호,카톤박스_2호,카톤박스_3호,카톤박스_4호,카톤박스_5호,카톤박스_6호,쇼핑백,코스메틱_쇼핑백,더스트백,가죽케이스(M_Purple),가죽케이스(P_SnakeBlack),콜라겐단품,콜라겐세트,콜라겐_퍼플_단품,콜라겐_퍼플_세트,클렌징워터,토너패드,MAX_사피아노블랙,홀로그램_1매,홀로그램_3매,홀로그램_5매,MAX_사피아노퍼플,가죽케이스(M_Yellow),콜라겐_젤(Pe_1),콜라겐_젤(Pe_3),콜라겐_젤(Pe_5),AT_Circle_Case,AP_Square_Case,가죽케이스(M_Peach),마사지수딩젤,MAX_샤인민트,MeshPouch,Firming_Ampoule,Hyaluronic_Ampoule,모닝샷,나이트샷,우디,신년쇼핑백,데이샷14키트,신년쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소 " + Dim startForm As String = "PackingTime,PackingCode,Packing_Count,PRO_SET,PRO_SET_Serial,LUX_SET,LUX_SET_Serial,PRO_FACE,PRO_FACE_Serial,LUX_FACE,LUX_FACE_Serial,PRO_EYE,PRO_EYE_Serial,LUX_EYE,LUX_EYE_Serial,PRO_BODY,PRO_BODY_Serial,LUX_BODY,LUX_BODY_Serial,MAXIMUM,MAXIMUM_Serial,ALPHA_SET_Cnt,ALPHA_SET_Serial,ALPHA_FACE_Cnt,ALPHA_FACE_Serial,ALPHA_EYE_Cnt,ALPHA_EYE_Serial,ALPHA_Body_Cnt,ALPHA_Body_Serial,ALTO_Cnt,ALTO_Serial,Effect_Cnt,Effect_Serial,EffectV3_Cnt,EffectV3_Serial,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,충전_케이블,토너,가죽케이스(P_Black),가죽케이스(P_Beige),가죽케이스(P_Red),가죽케이스(P_Pink),가죽케이스(M_Black),가죽케이스(M_Apr),가죽케이스(M_Mint),가죽케이스(M_Beige),수딩젤,카톤박스_0호,카톤박스_1호,카톤박스_2호,카톤박스_3호,카톤박스_4호,카톤박스_5호,카톤박스_6호,쇼핑백,코스메틱_쇼핑백,더스트백,가죽케이스(M_Purple),가죽케이스(P_SnakeBlack),콜라겐단품,콜라겐세트,콜라겐_퍼플_단품,콜라겐_퍼플_세트,클렌징워터,토너패드,MAX_사피아노블랙,홀로그램_1매,홀로그램_3매,홀로그램_5매,MAX_사피아노퍼플,가죽케이스(M_Yellow),콜라겐_젤(Pe_1),콜라겐_젤(Pe_3),콜라겐_젤(Pe_5),AT_Circle_Case,AP_Square_Case,가죽케이스(M_Peach),마사지수딩젤,MAX_샤인민트,MeshPouch,Firming_Ampoule,Hyaluronic_Ampoule,모닝샷,나이트샷,우디,신년쇼핑백,데이샷14키트,신년쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소 " filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveLogNamePack dirUse(filePath) @@ -3095,7 +3102,7 @@ Public Class mainForm Try Dim saveData As String = Nothing - For i = 0 To prodDB.effect + For i = 0 To prodDB.effectv3 saveData = saveLocalData(saveData, prodInCount(i)) @@ -3127,7 +3134,7 @@ Public Class mainForm Dim saveMonth As String = Format(Now, "MM") Dim saveDay As String = Format(Now, "dd") Dim saveDate As String = saveYear & "-" & saveMonth & "-" & saveDay - Dim startForm As String = "TestDate,Packing_Count,PRO_SET,LUX_SET,PRO_FACE,LUX_FACE,PRO_EYE,LUX_EYE,PRO_BODY,LUX_BODY,MAXIMUM,ALPHA_SET,ALPHA_FACE,ALPHA_EYE,ALPHA_BODY,ALTO,Effect,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(PRO_Black),가죽케이스(PRO_Beige),가죽케이스(PRO_Red),가죽케이스(PRO_Pink),가죽케이스(MAX_Black),가죽케이스(MAX_Apr),가죽케이스(MAX_Mint),가죽케이스(MAX_Beige),수딩젤,카톤박스_0호,카톤박스_1호,카톤박스_2호,카톤박스_3호,카톤박스_4호,카톤박스_5호,카톤박스_6호,쇼핑백,코스메틱_쇼핑백,더스트백,가죽케이스(MAX_Purple),가죽케이스(PRO_SnakeBlack),콜라겐단품,콜라겐세트,콜라겐_퍼플_단품,콜라겐_퍼플_세트,클렌징워터,토너패드,MAX_사피아노블랙,홀로그램_1매,홀로그램_3매,홀로그램_5매,MAX_사피아노퍼플,가죽케이스(M_Yellow),콜라겐_젤(Pe_1),콜라겐_젤(Pe_3),콜라겐_젤(Pe_5),AT_Circle_Case,AP_Square_Case,가죽케이스(M_Peach),마사지수딩젤,MAX_샤인민트,MeshPouch,Firming_Ampoule,Hyaluronic_Ampoule,나이트샷,모닝샷,우디,데이샷14키트,신년쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소" + Dim startForm As String = "TestDate,Packing_Count,PRO_SET,LUX_SET,PRO_FACE,LUX_FACE,PRO_EYE,LUX_EYE,PRO_BODY,LUX_BODY,MAXIMUM,ALPHA_SET,ALPHA_FACE,ALPHA_EYE,ALPHA_BODY,ALTO,Effect,EffectV3,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(PRO_Black),가죽케이스(PRO_Beige),가죽케이스(PRO_Red),가죽케이스(PRO_Pink),가죽케이스(MAX_Black),가죽케이스(MAX_Apr),가죽케이스(MAX_Mint),가죽케이스(MAX_Beige),수딩젤,카톤박스_0호,카톤박스_1호,카톤박스_2호,카톤박스_3호,카톤박스_4호,카톤박스_5호,카톤박스_6호,쇼핑백,코스메틱_쇼핑백,더스트백,가죽케이스(MAX_Purple),가죽케이스(PRO_SnakeBlack),콜라겐단품,콜라겐세트,콜라겐_퍼플_단품,콜라겐_퍼플_세트,클렌징워터,토너패드,MAX_사피아노블랙,홀로그램_1매,홀로그램_3매,홀로그램_5매,MAX_사피아노퍼플,가죽케이스(M_Yellow),콜라겐_젤(Pe_1),콜라겐_젤(Pe_3),콜라겐_젤(Pe_5),AT_Circle_Case,AP_Square_Case,가죽케이스(M_Peach),마사지수딩젤,MAX_샤인민트,MeshPouch,Firming_Ampoule,Hyaluronic_Ampoule,나이트샷,모닝샷,우디,데이샷14키트,신년쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveCountName dirUse(filePath) @@ -3176,7 +3183,7 @@ Public Class mainForm Private Function saveLocalCount() As String Try Dim strData As String = Nothing - For i = 0 To prodDB.effect + For i = 0 To prodDB.effectv3 prodComCount(i) += prodInCount(i) strData = saveLocalData(strData, prodComCount(i)) Next @@ -3217,7 +3224,7 @@ Public Class mainForm End Function Private Sub clearNowCount() - For i = 0 To prodDB.effect + For i = 0 To prodDB.effectv3 prodInCount(i) = "0" prodInSerial(i) = Nothing Next diff --git a/SalesPacking_MES_API_Project/mySQLAddress.vb b/SalesPacking_MES_API_Project/mySQLAddress.vb index 8e91064..f268e3c 100644 --- a/SalesPacking_MES_API_Project/mySQLAddress.vb +++ b/SalesPacking_MES_API_Project/mySQLAddress.vb @@ -77,12 +77,13 @@ alphaBody alto effect + effectv3 End Enum - Public prodDBCount(prodDB.effect) As Integer '' DB 저장 - Public prodInCount(prodDB.effect) As Integer '' 패킹 저장 10 - Public prodComCount(prodDB.effect) As Integer '' 로컬 저장 - Public prodInSerial(prodDB.effect) As String '' LogData 저장 - Public prodPackCommand(prodDB.effect) As String '' + 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 @@ -237,6 +238,10 @@ 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 @@ -473,6 +478,7 @@ 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" @@ -588,6 +594,7 @@ countCommand(prodDB.alphaBody) = "APAlphaBodyCnt" countCommand(prodDB.alto) = "APAltoCnt" countCommand(prodDB.effect) = "APEffectCnt" + countCommand(prodDB.effect) = "APEffectV3Cnt" countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt" @@ -704,6 +711,7 @@ countCommand(prodDB.alto) = "AWAltoCnt" countCommand(prodDB.effect) = "AWEffectCnt" + countCommand(prodDB.effectv3) = "AWEffectV3Cnt" countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt" @@ -821,5 +829,6 @@ prodPackCommand(prodDB.alto) = "Alto_Serial" prodPackCommand(prodDB.effect) = "Effect_Serial" + prodPackCommand(prodDB.effectv3) = "EffectV3_Serial" End Sub End Module