From 76c8d99964bc23fe73c63e99629bd80c27c61144 Mon Sep 17 00:00:00 2001 From: jiwonRepair Date: Mon, 11 Aug 2025 18:08:06 +0900 Subject: [PATCH] feat: pro S --- .../countForm.Designer.vb | 90 ++++++++++++++++++- SalesPacking_MES_API_Project/countForm.vb | 2 + SalesPacking_MES_API_Project/mainForm.vb | 84 ++++++++++++----- SalesPacking_MES_API_Project/mySQLAddress.vb | 30 +++++-- 4 files changed, 179 insertions(+), 27 deletions(-) diff --git a/SalesPacking_MES_API_Project/countForm.Designer.vb b/SalesPacking_MES_API_Project/countForm.Designer.vb index 78c365f..d6ad26b 100644 --- a/SalesPacking_MES_API_Project/countForm.Designer.vb +++ b/SalesPacking_MES_API_Project/countForm.Designer.vb @@ -144,6 +144,9 @@ Partial Class countForm Me.txbProFace = New System.Windows.Forms.TextBox() Me.lbProFace = New System.Windows.Forms.Label() Me.gbCDual = New System.Windows.Forms.GroupBox() + Me.pnMaximumAlpha = New System.Windows.Forms.Panel() + Me.txbMaximumAlpha = New System.Windows.Forms.TextBox() + Me.lbMaximumAlpha = New System.Windows.Forms.Label() Me.pneffectV3 = New System.Windows.Forms.Panel() Me.txbeffectV3 = New System.Windows.Forms.TextBox() Me.lbeffectV3 = New System.Windows.Forms.Label() @@ -335,6 +338,9 @@ Partial Class countForm Me.pnMask5 = New System.Windows.Forms.Panel() Me.txbMask5 = New System.Windows.Forms.TextBox() Me.lbMask5 = New System.Windows.Forms.Label() + Me.pnProS = New System.Windows.Forms.Panel() + Me.txbProS = New System.Windows.Forms.TextBox() + Me.lbProS = New System.Windows.Forms.Label() Me.gbCount.SuspendLayout() Me.gbCase.SuspendLayout() Me.gbAlto.SuspendLayout() @@ -381,6 +387,7 @@ Partial Class countForm Me.pnProSet.SuspendLayout() Me.pnProFace.SuspendLayout() Me.gbCDual.SuspendLayout() + Me.pnMaximumAlpha.SuspendLayout() Me.pneffectV3.SuspendLayout() Me.pneffect.SuspendLayout() Me.pnAlto.SuspendLayout() @@ -448,6 +455,7 @@ Partial Class countForm Me.pnHair.SuspendLayout() Me.pnMask10.SuspendLayout() Me.pnMask5.SuspendLayout() + Me.pnProS.SuspendLayout() Me.SuspendLayout() ' 'Label1 @@ -1759,6 +1767,8 @@ Partial Class countForm ' 'gbCDual ' + Me.gbCDual.Controls.Add(Me.pnProS) + Me.gbCDual.Controls.Add(Me.pnMaximumAlpha) Me.gbCDual.Controls.Add(Me.pneffectV3) Me.gbCDual.Controls.Add(Me.pneffect) Me.gbCDual.Controls.Add(Me.pnAlto) @@ -1777,6 +1787,39 @@ Partial Class countForm Me.gbCDual.TabStop = False Me.gbCDual.Text = "DUALSONIC" ' + 'pnMaximumAlpha + ' + Me.pnMaximumAlpha.Controls.Add(Me.txbMaximumAlpha) + Me.pnMaximumAlpha.Controls.Add(Me.lbMaximumAlpha) + Me.pnMaximumAlpha.Location = New System.Drawing.Point(195, 520) + Me.pnMaximumAlpha.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnMaximumAlpha.Name = "pnMaximumAlpha" + Me.pnMaximumAlpha.Size = New System.Drawing.Size(189, 50) + Me.pnMaximumAlpha.TabIndex = 10 + ' + 'txbMaximumAlpha + ' + Me.txbMaximumAlpha.BackColor = System.Drawing.SystemColors.Window + Me.txbMaximumAlpha.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.txbMaximumAlpha.Location = New System.Drawing.Point(85, 6) + Me.txbMaximumAlpha.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbMaximumAlpha.MaxLength = 10 + Me.txbMaximumAlpha.Name = "txbMaximumAlpha" + Me.txbMaximumAlpha.ReadOnly = True + Me.txbMaximumAlpha.Size = New System.Drawing.Size(87, 38) + Me.txbMaximumAlpha.TabIndex = 1 + Me.txbMaximumAlpha.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbMaximumAlpha + ' + Me.lbMaximumAlpha.AutoSize = True + Me.lbMaximumAlpha.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbMaximumAlpha.Location = New System.Drawing.Point(4, 9) + Me.lbMaximumAlpha.Name = "lbMaximumAlpha" + Me.lbMaximumAlpha.Size = New System.Drawing.Size(85, 32) + Me.lbMaximumAlpha.TabIndex = 0 + Me.lbMaximumAlpha.Text = "MAXA" + ' 'pneffectV3 ' Me.pneffectV3.Controls.Add(Me.txbeffectV3) @@ -2019,7 +2062,7 @@ Partial Class countForm 'PictureBox1 ' Me.PictureBox1.Image = Global.SalesPacking_MES_API_Project.My.Resources.Resources.logo - Me.PictureBox1.Location = New System.Drawing.Point(13, 594) + Me.PictureBox1.Location = New System.Drawing.Point(13, 684) Me.PictureBox1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(366, 91) @@ -2302,7 +2345,7 @@ Partial Class countForm Me.lbkeyring.AutoSize = True Me.lbkeyring.Location = New System.Drawing.Point(3, 2) Me.lbkeyring.Name = "lbkeyring" - Me.lbkeyring.Size = New System.Drawing.Size(70, 46) + Me.lbkeyring.Size = New System.Drawing.Size(56, 37) Me.lbkeyring.TabIndex = 0 Me.lbkeyring.Text = "키링" Me.lbkeyring.UseCompatibleTextRendering = True @@ -3833,6 +3876,39 @@ Partial Class countForm Me.lbMask5.TabIndex = 0 Me.lbMask5.Text = "아쿠아 마스크" ' + 'pnProS + ' + Me.pnProS.Controls.Add(Me.txbProS) + Me.pnProS.Controls.Add(Me.lbProS) + Me.pnProS.Location = New System.Drawing.Point(195, 573) + Me.pnProS.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnProS.Name = "pnProS" + Me.pnProS.Size = New System.Drawing.Size(189, 50) + Me.pnProS.TabIndex = 11 + ' + 'txbProS + ' + Me.txbProS.BackColor = System.Drawing.SystemColors.Window + Me.txbProS.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.txbProS.Location = New System.Drawing.Point(85, 6) + Me.txbProS.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbProS.MaxLength = 10 + Me.txbProS.Name = "txbProS" + Me.txbProS.ReadOnly = True + Me.txbProS.Size = New System.Drawing.Size(87, 38) + Me.txbProS.TabIndex = 1 + Me.txbProS.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbProS + ' + Me.lbProS.AutoSize = True + Me.lbProS.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.lbProS.Location = New System.Drawing.Point(4, 9) + Me.lbProS.Name = "lbProS" + Me.lbProS.Size = New System.Drawing.Size(96, 40) + Me.lbProS.TabIndex = 0 + Me.lbProS.Text = "PROS" + ' 'countForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!) @@ -3935,6 +4011,8 @@ Partial Class countForm Me.pnProFace.ResumeLayout(False) Me.pnProFace.PerformLayout() Me.gbCDual.ResumeLayout(False) + Me.pnMaximumAlpha.ResumeLayout(False) + Me.pnMaximumAlpha.PerformLayout() Me.pneffectV3.ResumeLayout(False) Me.pneffectV3.PerformLayout() Me.pneffect.ResumeLayout(False) @@ -4064,6 +4142,8 @@ Partial Class countForm Me.pnMask10.PerformLayout() Me.pnMask5.ResumeLayout(False) Me.pnMask5.PerformLayout() + Me.pnProS.ResumeLayout(False) + Me.pnProS.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -4380,4 +4460,10 @@ Partial Class countForm Friend WithEvents pnkeyring As Panel Friend WithEvents txbkeyring As TextBox Friend WithEvents lbkeyring As Label + Friend WithEvents pnMaximumAlpha As Panel + Friend WithEvents txbMaximumAlpha As TextBox + Friend WithEvents lbMaximumAlpha As Label + Friend WithEvents pnProS As Panel + Friend WithEvents txbProS As TextBox + Friend WithEvents lbProS As Label End Class diff --git a/SalesPacking_MES_API_Project/countForm.vb b/SalesPacking_MES_API_Project/countForm.vb index 1732f81..615c931 100644 --- a/SalesPacking_MES_API_Project/countForm.vb +++ b/SalesPacking_MES_API_Project/countForm.vb @@ -25,6 +25,8 @@ Public Class countForm txbAlto.Text = prodComCount(prodDB.alto) txbeffect.Text = prodComCount(prodDB.effect) txbeffectV3.Text = prodComCount(prodDB.effectV3) + txbeffectV3.Text = prodComCount(prodDB.maximumAlpha) + txbProS.Text = prodComCount(prodDB.proS) txbMask5.Text = comComCount(comDB.mask5) txbMask10.Text = comComCount(comDB.mask10) diff --git a/SalesPacking_MES_API_Project/mainForm.vb b/SalesPacking_MES_API_Project/mainForm.vb index 4b76235..564f4f1 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.8" + Public projectVer As String = "1.0.9" Private apiItemOutURL As String = "item-outflows/page" @@ -90,6 +90,8 @@ Public Class mainForm ALPHA ALTO EFFECT + MAXIMUM_ALPHA + PRO_S End Enum Private Enum setInfoList @@ -358,7 +360,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.effectV3 + For i = 0 To prodDB.proS If UBound(Split(textCount, ",")) > 0 Then prodComCount(i) = Mid(textCount, 1, InStr(textCount, ",") - 1) textCount = Mid(textCount, InStr(textCount, ",") + 1, textCount.Length) @@ -1632,16 +1634,16 @@ Public Class mainForm End Function Private Function packingSerial() As Boolean - Dim prodSerial(prodDB.effectV3 - prodDB.luxset) As String + Dim prodSerial(prodDB.proS - 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,EffectV3_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,MAXIMUM_ALPHA_SN,Pro_S_Serial FROM " & applySalesDB & " WHERE PackingCode = '" & playCode & "'" If DBQueryReader(DBCmd) Then - For i = prodDB.luxset To prodDB.effectV3 + For i = prodDB.luxset To prodDB.proS prodSerial(i - prodDB.luxset) = sqlDataQuery(i - prodDB.luxset) Next Else @@ -1932,6 +1934,30 @@ Public Class mainForm Return False End Select + Case modelList.MAXIMUM_ALPHA + TDUseCompare = True + + Select Case typeNum + Case typeList.prodset_V1 + commandStr = prodPackCommand(prodDB.proS) + Case Else + errorOut("등록오류") + errorGen("존재하지 않는 타입 번호입니다.") + Return False + End Select + + Case modelList.PRO_S + TDUseCompare = True + + Select Case typeNum + Case typeList.prodset_V1 + commandStr = prodPackCommand(prodDB.proS) + Case Else + errorOut("등록오류") + errorGen("존재하지 않는 타입 번호입니다.") + Return False + End Select + Case Else TDUseCompare = False @@ -2498,6 +2524,24 @@ Public Class mainForm Return -1 End Select + Case modelList.MAXIMUM_ALPHA + Select Case typeNum + Case typeList.prodset_V1 + faceShot = 0 + eyeShot = 0 + Case Else + Return -1 + End Select + + Case modelList.PRO_S + Select Case typeNum + Case typeList.prodset_V1 + faceShot = 0 + eyeShot = 0 + Case Else + Return -1 + End Select + Case Else Return -1 End Select @@ -2658,7 +2702,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) & "' 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_Cnt = '" & comInCount(prodDB.proS) & "' WHERE PackingCode = '" & packingCode & "'" If DBCommand(DBCmd) = False Then errorOut("등록오류") @@ -2718,7 +2762,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) & "',EffectV3_Serial = '" & prodInSerial(prodDB.effectV3) & "' 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) & "',MAXIMUM_ALPHA_SN = '" & prodInSerial(prodDB.maximumAlpha) & "',Pro_S_Serial = '" & prodInSerial(prodDB.proS) & "' WHERE PackingCode = '" & packingCode & "'" If DBCommand(DBCmd) Then Return False @@ -2790,7 +2834,7 @@ Public Class mainForm Try Dim commandDB As String = "UPDATE " & applySalesDB & " SET " - For i = prodDB.proset To prodDB.effectV3 + For i = prodDB.proset To prodDB.proS If prodInSerial(i) = "" Then prodInSerial(i) = "null" @@ -2798,7 +2842,7 @@ Public Class mainForm prodInSerial(i) = "'" & prodInSerial(i) & "'" End If - If i <> prodDB.effectV3 Then + If i <> prodDB.proS Then commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) & ", " Else commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) @@ -2853,7 +2897,7 @@ Public Class mainForm Dim prodCount As Integer = 0 For i = 1 To countCommand.Length - 1 - If i <= prodDB.effectV3 Then + If i <= prodDB.proS Then prodCount = countSet(i, saveType, True) @@ -2939,7 +2983,7 @@ Public Class mainForm 'End Function Private Sub saveDBCount() - For i = 0 To prodDB.effectV3 + For i = 0 To prodDB.proS prodDBCount(i) += prodInCount(i) Next @@ -2972,14 +3016,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,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,Pro_S_Cnt,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 & "'" 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,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,APPro_S_Cnt,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 & "'" countCommandFunc(countSaveList.autopack) Else - 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, 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,AWPro_S_Cnt,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 & "'" countCommandFunc(countSaveList.autoWeight) End If End If @@ -2987,7 +3031,7 @@ Public Class mainForm If DBQueryReader(DBCmd) Then For i = 0 To countCommand.Length - 1 - If i <= prodDB.effectV3 Then + If i <= prodDB.proS Then prodDBCount(i) = sqlDataQuery(i) Else enumCount = i - prodDBCount.Length @@ -3060,7 +3104,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,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,충전_케이블,토너,가죽케이스(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_Cnt,Pro_S_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호,가죽키링" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveLogNamePack dirUse(filePath) @@ -3101,7 +3145,7 @@ Public Class mainForm Try Dim saveData As String = Nothing - For i = 0 To prodDB.effectV3 + For i = 0 To prodDB.proS saveData = saveLocalData(saveData, prodInCount(i)) @@ -3133,7 +3177,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,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(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,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(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호,가죽키링" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveCountName dirUse(filePath) @@ -3182,7 +3226,7 @@ Public Class mainForm Private Function saveLocalCount() As String Try Dim strData As String = Nothing - For i = 0 To prodDB.effectV3 + For i = 0 To prodDB.proS prodComCount(i) += prodInCount(i) strData = saveLocalData(strData, prodComCount(i)) Next @@ -3223,7 +3267,7 @@ Public Class mainForm End Function Private Sub clearNowCount() - For i = 0 To prodDB.effectV3 + For i = 0 To prodDB.proS prodInSerial(i) = Nothing Next diff --git a/SalesPacking_MES_API_Project/mySQLAddress.vb b/SalesPacking_MES_API_Project/mySQLAddress.vb index 0171035..b7855ac 100644 --- a/SalesPacking_MES_API_Project/mySQLAddress.vb +++ b/SalesPacking_MES_API_Project/mySQLAddress.vb @@ -78,12 +78,14 @@ alto effect effectV3 + maximumAlpha + proS End Enum - Public prodDBCount(prodDB.effectV3) As Integer '' DB 저장 - Public prodInCount(prodDB.effectV3) As Integer '' 패킹 저장 10 - Public prodComCount(prodDB.effectV3) As Integer '' 로컬 저장 - Public prodInSerial(prodDB.effectV3) As String '' LogData 저장 - Public prodPackCommand(prodDB.effectV3) As String '' + Public prodDBCount(prodDB.proS) As Integer '' DB 저장 + Public prodInCount(prodDB.proS) As Integer '' 패킹 저장 10 + Public prodComCount(prodDB.proS) As Integer '' 로컬 저장 + Public prodInSerial(prodDB.proS) As String '' LogData 저장 + Public prodPackCommand(prodDB.proS) As String '' Public Enum comDB mask5 @@ -245,6 +247,14 @@ prodInCount(prodDB.effectV3) = ckCount prodInSerial(prodDB.effectV3) = serial + Case prodDB.maximumAlpha + prodInCount(prodDB.maximumAlpha) = ckCount + prodInSerial(prodDB.maximumAlpha) = serial + + Case prodDB.proS + prodInCount(prodDB.proS) = ckCount + prodInSerial(prodDB.proS) = serial + Case Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) Return True @@ -486,6 +496,8 @@ countCommand(prodDB.alto) = "AltoCnt" countCommand(prodDB.effect) = "EffectCnt" countCommand(prodDB.effectV3) = "EffectV3Cnt" + countCommand(prodDB.maximumAlpha) = "MAXIMUMALPHACnt" + countCommand(prodDB.proS) = "ProSCnt" countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt" @@ -603,6 +615,8 @@ countCommand(prodDB.alto) = "APAltoCnt" countCommand(prodDB.effect) = "APEffectCnt" countCommand(prodDB.effectV3) = "APEffectV3Cnt" + countCommand(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt" + countCommand(prodDB.proS) = "APProSCnt" countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt" @@ -722,6 +736,8 @@ countCommand(prodDB.alto) = "AWAltoCnt" countCommand(prodDB.effect) = "AWEffectCnt" countCommand(prodDB.effectV3) = "AWEffectV3Cnt" + countCommand(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt" + countCommand(prodDB.proS) = "AWProSCnt" countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt" @@ -843,5 +859,9 @@ prodPackCommand(prodDB.effect) = "Effect_Serial" prodPackCommand(prodDB.effectV3) = "EffectV3_Serial" + + prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN" + + prodPackCommand(prodDB.proS) = "Pro_S_Serial" End Sub End Module