From a43df78bcdd419a28459176539b7a5f9d61d868c Mon Sep 17 00:00:00 2001 From: jiwonRepair Date: Mon, 18 Aug 2025 16:07:58 +0900 Subject: [PATCH] feat: Doena Lifting Collagen Toner, Ampoule, Cream --- .../countForm.Designer.vb | 128 +++++++++++++++++- SalesPacking_MES_API_Project/countForm.vb | 4 + SalesPacking_MES_API_Project/mainForm.vb | 30 ++-- SalesPacking_MES_API_Project/mySQLAddress.vb | 25 +++- 4 files changed, 168 insertions(+), 19 deletions(-) diff --git a/SalesPacking_MES_API_Project/countForm.Designer.vb b/SalesPacking_MES_API_Project/countForm.Designer.vb index e3b8a89..2245aad 100644 --- a/SalesPacking_MES_API_Project/countForm.Designer.vb +++ b/SalesPacking_MES_API_Project/countForm.Designer.vb @@ -201,6 +201,15 @@ Partial Class countForm Me.lbLuxFace = New System.Windows.Forms.Label() Me.gbEtc = New System.Windows.Forms.GroupBox() Me.gbProd = New System.Windows.Forms.GroupBox() + Me.pndoenaliftingcream = New System.Windows.Forms.Panel() + Me.txbdoenaliftingcream = New System.Windows.Forms.TextBox() + Me.lbdoenaliftingcream = New System.Windows.Forms.Label() + Me.pndoenaliftingamp = New System.Windows.Forms.Panel() + Me.txbdoenaliftingamp = New System.Windows.Forms.TextBox() + Me.lbdoenaliftingamp = New System.Windows.Forms.Label() + Me.pndoenaliftingtoner = New System.Windows.Forms.Panel() + Me.txbdoenaliftingtoner = New System.Windows.Forms.TextBox() + Me.lbdoenaliftingtoner = New System.Windows.Forms.Label() Me.pnkeyring = New System.Windows.Forms.Panel() Me.txbkeyring = New System.Windows.Forms.TextBox() Me.lbkeyring = New System.Windows.Forms.Label() @@ -420,6 +429,9 @@ Partial Class countForm Me.pnLuxFace.SuspendLayout() Me.gbEtc.SuspendLayout() Me.gbProd.SuspendLayout() + Me.pndoenaliftingcream.SuspendLayout() + Me.pndoenaliftingamp.SuspendLayout() + Me.pndoenaliftingtoner.SuspendLayout() Me.pnkeyring.SuspendLayout() Me.pnelixir.SuspendLayout() Me.pndayshot2.SuspendLayout() @@ -2412,6 +2424,9 @@ Partial Class countForm ' 'gbProd ' + Me.gbProd.Controls.Add(Me.pndoenaliftingcream) + Me.gbProd.Controls.Add(Me.pndoenaliftingamp) + Me.gbProd.Controls.Add(Me.pndoenaliftingtoner) Me.gbProd.Controls.Add(Me.pnkeyring) Me.gbProd.Controls.Add(Me.pnelixir) Me.gbProd.Controls.Add(Me.pndayshot2) @@ -2472,6 +2487,102 @@ Partial Class countForm Me.gbProd.TabStop = False Me.gbProd.Text = "구성품" ' + 'pndoenaliftingcream + ' + Me.pndoenaliftingcream.Controls.Add(Me.txbdoenaliftingcream) + Me.pndoenaliftingcream.Controls.Add(Me.lbdoenaliftingcream) + Me.pndoenaliftingcream.Location = New System.Drawing.Point(7, 672) + Me.pndoenaliftingcream.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pndoenaliftingcream.Name = "pndoenaliftingcream" + Me.pndoenaliftingcream.Size = New System.Drawing.Size(233, 42) + Me.pndoenaliftingcream.TabIndex = 35 + ' + 'txbdoenaliftingcream + ' + Me.txbdoenaliftingcream.BackColor = System.Drawing.SystemColors.Window + Me.txbdoenaliftingcream.Location = New System.Drawing.Point(138, 0) + Me.txbdoenaliftingcream.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbdoenaliftingcream.MaxLength = 10 + Me.txbdoenaliftingcream.Name = "txbdoenaliftingcream" + Me.txbdoenaliftingcream.ReadOnly = True + Me.txbdoenaliftingcream.Size = New System.Drawing.Size(87, 38) + Me.txbdoenaliftingcream.TabIndex = 1 + Me.txbdoenaliftingcream.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbdoenaliftingcream + ' + Me.lbdoenaliftingcream.AutoSize = True + Me.lbdoenaliftingcream.Location = New System.Drawing.Point(3, 2) + Me.lbdoenaliftingcream.Name = "lbdoenaliftingcream" + Me.lbdoenaliftingcream.Size = New System.Drawing.Size(159, 37) + Me.lbdoenaliftingcream.TabIndex = 0 + Me.lbdoenaliftingcream.Text = "DL콜라겐크림" + Me.lbdoenaliftingcream.UseCompatibleTextRendering = True + ' + 'pndoenaliftingamp + ' + Me.pndoenaliftingamp.Controls.Add(Me.txbdoenaliftingamp) + Me.pndoenaliftingamp.Controls.Add(Me.lbdoenaliftingamp) + Me.pndoenaliftingamp.Location = New System.Drawing.Point(712, 626) + Me.pndoenaliftingamp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pndoenaliftingamp.Name = "pndoenaliftingamp" + Me.pndoenaliftingamp.Size = New System.Drawing.Size(233, 42) + Me.pndoenaliftingamp.TabIndex = 34 + ' + 'txbdoenaliftingamp + ' + Me.txbdoenaliftingamp.BackColor = System.Drawing.SystemColors.Window + Me.txbdoenaliftingamp.Location = New System.Drawing.Point(138, 0) + Me.txbdoenaliftingamp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbdoenaliftingamp.MaxLength = 10 + Me.txbdoenaliftingamp.Name = "txbdoenaliftingamp" + Me.txbdoenaliftingamp.ReadOnly = True + Me.txbdoenaliftingamp.Size = New System.Drawing.Size(87, 38) + Me.txbdoenaliftingamp.TabIndex = 1 + Me.txbdoenaliftingamp.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbdoenaliftingamp + ' + Me.lbdoenaliftingamp.AutoSize = True + Me.lbdoenaliftingamp.Location = New System.Drawing.Point(3, 2) + Me.lbdoenaliftingamp.Name = "lbdoenaliftingamp" + Me.lbdoenaliftingamp.Size = New System.Drawing.Size(159, 37) + Me.lbdoenaliftingamp.TabIndex = 0 + Me.lbdoenaliftingamp.Text = "DL콜라겐앰플" + Me.lbdoenaliftingamp.UseCompatibleTextRendering = True + ' + 'pndoenaliftingtoner + ' + Me.pndoenaliftingtoner.Controls.Add(Me.txbdoenaliftingtoner) + Me.pndoenaliftingtoner.Controls.Add(Me.lbdoenaliftingtoner) + Me.pndoenaliftingtoner.Location = New System.Drawing.Point(474, 626) + Me.pndoenaliftingtoner.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pndoenaliftingtoner.Name = "pndoenaliftingtoner" + Me.pndoenaliftingtoner.Size = New System.Drawing.Size(233, 42) + Me.pndoenaliftingtoner.TabIndex = 33 + ' + 'txbdoenaliftingtoner + ' + Me.txbdoenaliftingtoner.BackColor = System.Drawing.SystemColors.Window + Me.txbdoenaliftingtoner.Location = New System.Drawing.Point(138, 0) + Me.txbdoenaliftingtoner.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbdoenaliftingtoner.MaxLength = 10 + Me.txbdoenaliftingtoner.Name = "txbdoenaliftingtoner" + Me.txbdoenaliftingtoner.ReadOnly = True + Me.txbdoenaliftingtoner.Size = New System.Drawing.Size(87, 38) + Me.txbdoenaliftingtoner.TabIndex = 1 + Me.txbdoenaliftingtoner.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbdoenaliftingtoner + ' + Me.lbdoenaliftingtoner.AutoSize = True + Me.lbdoenaliftingtoner.Location = New System.Drawing.Point(3, 2) + Me.lbdoenaliftingtoner.Name = "lbdoenaliftingtoner" + Me.lbdoenaliftingtoner.Size = New System.Drawing.Size(159, 37) + Me.lbdoenaliftingtoner.TabIndex = 0 + Me.lbdoenaliftingtoner.Text = "DL콜라겐토너" + Me.lbdoenaliftingtoner.UseCompatibleTextRendering = True + ' 'pnkeyring ' Me.pnkeyring.Controls.Add(Me.txbkeyring) @@ -4034,7 +4145,7 @@ Partial Class countForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1950, 835) + Me.ClientSize = New System.Drawing.Size(1941, 844) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.gbBox) Me.Controls.Add(Me.gbEtc) @@ -4172,6 +4283,12 @@ Partial Class countForm Me.pnLuxFace.PerformLayout() Me.gbEtc.ResumeLayout(False) Me.gbProd.ResumeLayout(False) + Me.pndoenaliftingcream.ResumeLayout(False) + Me.pndoenaliftingcream.PerformLayout() + Me.pndoenaliftingamp.ResumeLayout(False) + Me.pndoenaliftingamp.PerformLayout() + Me.pndoenaliftingtoner.ResumeLayout(False) + Me.pndoenaliftingtoner.PerformLayout() Me.pnkeyring.ResumeLayout(False) Me.pnkeyring.PerformLayout() Me.pnelixir.ResumeLayout(False) @@ -4604,4 +4721,13 @@ Partial Class countForm Friend WithEvents pnProSFace As Panel Friend WithEvents txbProSFace As TextBox Friend WithEvents lbProSFace As Label + Friend WithEvents pndoenaliftingtoner As Panel + Friend WithEvents txbdoenaliftingtoner As TextBox + Friend WithEvents lbdoenaliftingtoner As Label + Friend WithEvents pndoenaliftingamp As Panel + Friend WithEvents txbdoenaliftingamp As TextBox + Friend WithEvents lbdoenaliftingamp As Label + Friend WithEvents pndoenaliftingcream As Panel + Friend WithEvents txbdoenaliftingcream As TextBox + Friend WithEvents lbdoenaliftingcream As Label End Class diff --git a/SalesPacking_MES_API_Project/countForm.vb b/SalesPacking_MES_API_Project/countForm.vb index d3e1994..7281115 100644 --- a/SalesPacking_MES_API_Project/countForm.vb +++ b/SalesPacking_MES_API_Project/countForm.vb @@ -106,6 +106,10 @@ Public Class countForm txbelixir.Text = comComCount(comDB.Elixir) txbbox8.Text = comComCount(comDB.car8) txbkeyring.Text = comComCount(comDB.keyring) + txbdoenaliftingtoner.Text = comComCount(comDB.DoenaLiftingToner) + txbdoenaliftingamp.Text = comComCount(comDB.DoenaLiftingAmp) + txbdoenaliftingcream.Text = comComCount(comDB.DoenaLiftingCream) + End Sub diff --git a/SalesPacking_MES_API_Project/mainForm.vb b/SalesPacking_MES_API_Project/mainForm.vb index 30b9bbc..0a47a84 100644 --- a/SalesPacking_MES_API_Project/mainForm.vb +++ b/SalesPacking_MES_API_Project/mainForm.vb @@ -7,7 +7,7 @@ Imports Newtonsoft.Json.Linq Public Class mainForm Public projectName As String = "DUALSONIC SalesPacking MES Program Ver." - Public projectVer As String = "1.0.9" + Public projectVer As String = "1.0.10" Private apiItemOutURL As String = "item-outflows/page" @@ -369,7 +369,7 @@ Public Class mainForm End If Next - For i = 0 To comDB.keyring + For i = 0 To comDB.DoenaLiftingCream If UBound(Split(textCount, ",")) > 0 Then comComCount(i) = Mid(textCount, 1, InStr(textCount, ",") - 1) textCount = Mid(textCount, InStr(textCount, ",") + 1, textCount.Length) @@ -1601,10 +1601,10 @@ Public Class mainForm Private Function comCountSet() As Boolean - DBCmd = "SELECT 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,Case_MAX_Purple,Case_PRO_SnakeBlakc,KollagenCnt,KollagenSetCnt,Kollagen_PCnt,KollagenSet_PCnt,CleansingWaterCnt,TonerPadCnt,Case_MAX_SafBK_Cnt,Hologram_1Cnt,Hologram_3Cnt,Hologram_5Cnt,Case_MAX_SafPp_Cnt,Case_MAX_Yellow,Kollagen_Pe1Cnt,Kollagen_Pe3Cnt,Kollagen_Pe5Cnt,ATCircleCaseCnt,APSquareCaseCnt,Case_MAX_Peach,MasSoothingCnt,Case_MAX_SMintCnt,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, Carton8_Cnt, KeyringCnt FROM " & applySalesDB & " WHERE PackingCode = '" & playCode & "'" + DBCmd = "SELECT 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,Case_MAX_Purple,Case_PRO_SnakeBlakc,KollagenCnt,KollagenSetCnt,Kollagen_PCnt,KollagenSet_PCnt,CleansingWaterCnt,TonerPadCnt,Case_MAX_SafBK_Cnt,Hologram_1Cnt,Hologram_3Cnt,Hologram_5Cnt,Case_MAX_SafPp_Cnt,Case_MAX_Yellow,Kollagen_Pe1Cnt,Kollagen_Pe3Cnt,Kollagen_Pe5Cnt,ATCircleCaseCnt,APSquareCaseCnt,Case_MAX_Peach,MasSoothingCnt,Case_MAX_SMintCnt,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, Carton8_Cnt, KeyringCnt, DoenaLiftingTonercnt, DoenaLiftingAmpcnt, DoenaLiftingCreamcnt FROM " & applySalesDB & " WHERE PackingCode = '" & playCode & "'" If DBQueryReader(DBCmd) Then - If sqlDataQuery.Length - 1 = comDB.keyring Then - For i = 0 To comDB.keyring + If sqlDataQuery.Length - 1 = comDB.DoenaLiftingCream Then + For i = 0 To comDB.DoenaLiftingCream If sqlDataQuery(i) <> 0 Then tgtFullCount += sqlDataQuery(i) For arr = 0 To prodArray.GetLength(1) - 1 @@ -2747,7 +2747,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) & "',EffectV3_Cnt = '" & prodInCount(prodDB.effectV3) & "',Carton8_Cnt = '" & comInCount(comDB.car8) & "',KeyringCnt = '" & comInCount(comDB.keyring) & "',MAXIMUM_ALPHA_Cnt = '" & comInCount(prodDB.maximumAlpha) & "',Pro_S_Set_Cnt = '" & comInCount(prodDB.proSset) & "',Pro_S_Face_Cnt = '" & comInCount(prodDB.proSface) & "',Pro_S_Eye_Cnt = '" & comInCount(prodDB.proSeye) & "',Pro_S_Body_Cnt = '" & comInCount(prodDB.proSbody) & "' 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) & "',Carton8_Cnt = '" & comInCount(comDB.car8) & "',KeyringCnt = '" & comInCount(comDB.keyring) & "',MAXIMUM_ALPHA_Cnt = '" & comInCount(prodDB.maximumAlpha) & "',Pro_S_Set_Cnt = '" & comInCount(prodDB.proSset) & "',Pro_S_Face_Cnt = '" & comInCount(prodDB.proSface) & "',Pro_S_Eye_Cnt = '" & comInCount(prodDB.proSeye) & "',Pro_S_Body_Cnt = '" & comInCount(prodDB.proSbody) & "' WHERE PackingCode = '" & "',DoenaLiftingTonercnt = '" & comInCount(comDB.DoenaLiftingToner) & "',DoenaLiftingAmpcnt = '" & comInCount(comDB.DoenaLiftingAmp) & "',DoenaLiftingCreamcnt = '" & comInCount(comDB.DoenaLiftingCream) & packingCode & "'" If DBCommand(DBCmd) = False Then errorOut("등록오류") @@ -3032,7 +3032,7 @@ Public Class mainForm prodDBCount(i) += prodInCount(i) Next - For i = 0 To comDB.keyring + For i = 0 To comDB.DoenaLiftingCream comDBCount(i) += comInCount(i) Next End Sub @@ -3061,14 +3061,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,EffectV3Cnt,MAXIMUMALPHACnt,ProSSetCnt,ProSFaceCnt,ProSEyeCnt,ProSBodyCnt,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, Carton8Cnt, KeyringCnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT PackingCount,ProSetCnt,LuxSetCnt,ProFaceCnt,LuxFaceCnt,ProEyeCnt,LuxEyeCnt,ProBodyCnt,LuxBodyCnt,MAXIMUMCnt,AlphaSetCnt,AlphaFaceCnt,AlphaEyeCnt,AlphaBodyCnt,AltoCnt,EffectCnt,EffectV3Cnt,MAXIMUMALPHACnt,ProSSetCnt,ProSFaceCnt,ProSEyeCnt,ProSBodyCnt,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, Carton8Cnt, KeyringCnt, DoenaLiftingTonercnt, DoenaLiftingAmpcnt, DoenaLiftingCreamcnt 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,APEffectV3Cnt,APMAXIMUMALPHACnt,APProSSetCnt,APProSFaceCnt,APProSEyeCnt,APProSBodyCnt,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, APCarton8Cnt, APKeyringCnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT AutoPackCnt,APProSetCnt,APLuxSetCnt,APProFaceCnt,APLuxFaceCnt,APProEyeCnt,APLuxEyeCnt,APProBodyCnt,APLuxBodyCnt,APMAXIMUMCnt,APAlphaSetCnt,APAlphaFaceCnt,APAlphaEyeCnt,APAlphaBodyCnt,APAltoCnt,APEffectcnt,APEffectV3Cnt,APMAXIMUMALPHACnt,APProSSetCnt,APProSFaceCnt,APProSEyeCnt,APProSBodyCnt,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, APCarton8Cnt, APKeyringCnt, APDoenaLiftingTonercnt, APDoenaLiftingAmpcnt, APDoenaLiftingCreamcnt 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,AWEffectV3Cnt,AWMAXIMUMALPHACnt,AWProSSetCnt,AWProSFaceCnt,AWProSEyeCnt,AWProSBodyCnt,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, AWCarton8Cnt, AWKeyringCnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" + DBCmd = "SELECT AutoWeightCnt,AWProSetCnt,AWLuxSetCnt,AWProFaceCnt,AWLuxFaceCnt,AWProEyeCnt,AWLuxEyeCnt,AWProBodyCnt,AWLuxBodyCnt,AWMAXIMUMCnt,AWAlphaSetCnt,AWAlphaFaceCnt,AWAlphaEyeCnt,AWAlphaBodyCnt,AWAltoCnt,AWEffectcnt,AWEffectV3Cnt,AWMAXIMUMALPHACnt,AWProSSetCnt,AWProSFaceCnt,AWProSEyeCnt,AWProSBodyCnt,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, AWCarton8Cnt, AWKeyringCnt, AWDoenaLiftingTonercnt, AWDoenaLiftingAmpcnt, AWDoenaLiftingCreamcnt FROM " & applyCountDB & " WHERE DATETIME = '" & nowToday & "'" countCommandFunc(countSaveList.autoWeight) End If End If @@ -3149,7 +3149,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,EffectV3_Cnt,EffectV3_Serial,MAXIMUM_ALPHA_Cnt,MAXIMUM_ALPHA_SN,Pro_S_Set_Cnt,Pro_S_Set_Serial,Pro_S_Face_Cnt,Pro_S_Face_Serial,Pro_S_Eye_Cnt,Pro_S_Eye_Serial,Pro_S_Body_Cnt,Pro_S_Body_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키트,신년쇼핑백,구미_젤리(10BAG),스틱_젤리,신년_쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소,모닝샷_나이트샷,CT택배박스,Elesq_Lifting_Control_Toner,Elesq Lifting Control Ceam,Elesq Lifting Control Eye Cream,Elesq Lifting Control Capsule Ampoule,Elesq Aqua Balancing Toner,Elesq Aqua Balancing Ceam,Elesq Aqua Balancing Eye Serum,Elesq Aqua Balancing Capsule Ampoule,카톤박스_8호,가죽키링" + 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,MAXIMUM_ALPHA_Cnt,MAXIMUM_ALPHA_SN,Pro_S_Set_Cnt,Pro_S_Set_Serial,Pro_S_Face_Cnt,Pro_S_Face_Serial,Pro_S_Eye_Cnt,Pro_S_Eye_Serial,Pro_S_Body_Cnt,Pro_S_Body_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키트,신년쇼핑백,구미_젤리(10BAG),스틱_젤리,신년_쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소,모닝샷_나이트샷,CT택배박스,Elesq_Lifting_Control_Toner,Elesq Lifting Control Ceam,Elesq Lifting Control Eye Cream,Elesq Lifting Control Capsule Ampoule,Elesq Aqua Balancing Toner,Elesq Aqua Balancing Ceam,Elesq Aqua Balancing Eye Serum,Elesq Aqua Balancing Capsule Ampoule,카톤박스_8호,가죽키링,Doena Lifting Collagen Toner,Doena Lifting Collagen Ampoule,Doena Lifting Collagen Cream" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveLogNamePack dirUse(filePath) @@ -3200,7 +3200,7 @@ Public Class mainForm Next - For i = 0 To comDB.keyring + For i = 0 To comDB.DoenaLiftingCream saveData = saveLocalData(saveData, comInCount(i)) Next @@ -3222,7 +3222,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,EffectV3,MAXIMUM_ALPHA,PRO_S_SET,PRO_S_FACE,PRO_S_EYE,PRO_S_BODY,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(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키트,신년쇼핑백,구미_젤리(10BAG),스틱_젤리,신년_쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소,모닝샷_나이트샷,CT택배박스,Elesq_Lifting_Control_Toner,Elesq_Lifting_Control_Ceam,Elesq_Lifting_Control_Eye_Cream,Elesq_Lifting_Control_Capsule_Ampoule,Elesq_Aqua_Balancing_Toner,Elesq_Aqua_Balancing_Ceam,Elesq_Aqua_Balancing_Eye_Serum,Elesq_Aqua_Balancing_Capsule_Ampoule,카톤박스_8호,가죽키링" + 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,MAXIMUM_ALPHA,PRO_S_SET,PRO_S_FACE,PRO_S_EYE,PRO_S_BODY,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(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키트,신년쇼핑백,구미_젤리(10BAG),스틱_젤리,신년_쇼핑백,EMS벨트,핏업벨트 쇼핑백,데이샷(14개입) 6, 엘릭시르 마스크 10, 엘릭시르 프리미엄 1세트,EMS벨트 controll 세트, 듀얼소닉 쇼핑백(부직포) 대, 골드 쇼퍼백 소,모닝샷_나이트샷,CT택배박스,Elesq_Lifting_Control_Toner,Elesq_Lifting_Control_Ceam,Elesq_Lifting_Control_Eye_Cream,Elesq_Lifting_Control_Capsule_Ampoule,Elesq_Aqua_Balancing_Toner,Elesq_Aqua_Balancing_Ceam,Elesq_Aqua_Balancing_Eye_Serum,Elesq_Aqua_Balancing_Capsule_Ampoule,카톤박스_8호,가죽키링,Doena Lifting Collagen Toner,Doena Lifting Collagen Ampoule,Doena Lifting Collagen Cream" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveCountName dirUse(filePath) @@ -3276,7 +3276,7 @@ Public Class mainForm strData = saveLocalData(strData, prodComCount(i)) Next - For i = 0 To comDB.keyring + For i = 0 To comDB.DoenaLiftingCream comComCount(i) += comInCount(i) strData = saveLocalData(strData, comComCount(i)) Next @@ -3316,7 +3316,7 @@ Public Class mainForm prodInSerial(i) = Nothing Next - For i = 0 To comDB.keyring + For i = 0 To comDB.DoenaLiftingCream comInCount(i) = "0" Next End Sub diff --git a/SalesPacking_MES_API_Project/mySQLAddress.vb b/SalesPacking_MES_API_Project/mySQLAddress.vb index ac50d6a..1d7ac46 100644 --- a/SalesPacking_MES_API_Project/mySQLAddress.vb +++ b/SalesPacking_MES_API_Project/mySQLAddress.vb @@ -187,10 +187,14 @@ keyring + DoenaLiftingToner + DoenaLiftingAmp + DoenaLiftingCream + End Enum - Public comDBCount(comDB.keyring) As Integer ''DB 저장 - Public comInCount(comDB.keyring) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 - Public comComCount(comDB.keyring) As Integer '' 로컬 저장 + Public comDBCount(comDB.DoenaLiftingCream) As Integer ''DB 저장 + Public comInCount(comDB.DoenaLiftingCream) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 + Public comComCount(comDB.DoenaLiftingCream) As Integer '' 로컬 저장 Public countCommand(prodInCount.Length + comInCount.Length - 1) As String @@ -478,6 +482,12 @@ comInCount(comDB.car8) = ckCount Case comDB.keyring comInCount(comDB.keyring) = ckCount + Case comDB.DoenaLiftingToner + comInCount(comDB.DoenaLiftingToner) = ckCount + Case comDB.DoenaLiftingAmp + comInCount(comDB.DoenaLiftingAmp) = ckCount + Case comDB.DoenaLiftingCream + comInCount(comDB.DoenaLiftingCream) = ckCount Case Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) @@ -613,6 +623,9 @@ 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" Case countSaveList.autopack @@ -735,6 +748,9 @@ 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" Case countSaveList.autoWeight @@ -859,6 +875,9 @@ 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" End Select End Sub