diff --git a/SalesPacking_MES_API_Project/countForm.Designer.vb b/SalesPacking_MES_API_Project/countForm.Designer.vb index d6ad26b..e3b8a89 100644 --- a/SalesPacking_MES_API_Project/countForm.Designer.vb +++ b/SalesPacking_MES_API_Project/countForm.Designer.vb @@ -108,6 +108,7 @@ Partial Class countForm Me.pnProBeige = New System.Windows.Forms.Panel() Me.txbProBeige = New System.Windows.Forms.TextBox() Me.lbProBeige = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.gbBox = New System.Windows.Forms.GroupBox() Me.pnbox8 = New System.Windows.Forms.Panel() Me.txbbox8 = New System.Windows.Forms.TextBox() @@ -144,6 +145,19 @@ 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.gbDualProS = New System.Windows.Forms.GroupBox() + Me.pnProSBody = New System.Windows.Forms.Panel() + Me.txbProSBody = New System.Windows.Forms.TextBox() + Me.lbProSBody = New System.Windows.Forms.Label() + Me.pnProSEye = New System.Windows.Forms.Panel() + Me.txbProSEye = New System.Windows.Forms.TextBox() + Me.lbProSEye = New System.Windows.Forms.Label() + Me.pnProSSet = New System.Windows.Forms.Panel() + Me.txbProSSet = New System.Windows.Forms.TextBox() + Me.lbProSSet = New System.Windows.Forms.Label() + Me.pnProSFace = New System.Windows.Forms.Panel() + Me.txbProSFace = New System.Windows.Forms.TextBox() + Me.lbProSFace = New System.Windows.Forms.Label() Me.pnMaximumAlpha = New System.Windows.Forms.Panel() Me.txbMaximumAlpha = New System.Windows.Forms.TextBox() Me.lbMaximumAlpha = New System.Windows.Forms.Label() @@ -169,7 +183,6 @@ Partial Class countForm Me.pnAlphaFace = New System.Windows.Forms.Panel() Me.txbAlphaFace = New System.Windows.Forms.TextBox() Me.lbAlphaFace = New System.Windows.Forms.Label() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.pnMaximum = New System.Windows.Forms.Panel() Me.txbMaximum = New System.Windows.Forms.TextBox() Me.lbMaximum = New System.Windows.Forms.Label() @@ -338,9 +351,6 @@ 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() @@ -373,6 +383,7 @@ Partial Class countForm Me.pnProRed.SuspendLayout() Me.pnProBlack.SuspendLayout() Me.pnProBeige.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.gbBox.SuspendLayout() Me.pnbox8.SuspendLayout() Me.pnbox6.SuspendLayout() @@ -387,6 +398,11 @@ Partial Class countForm Me.pnProSet.SuspendLayout() Me.pnProFace.SuspendLayout() Me.gbCDual.SuspendLayout() + Me.gbDualProS.SuspendLayout() + Me.pnProSBody.SuspendLayout() + Me.pnProSEye.SuspendLayout() + Me.pnProSSet.SuspendLayout() + Me.pnProSFace.SuspendLayout() Me.pnMaximumAlpha.SuspendLayout() Me.pneffectV3.SuspendLayout() Me.pneffect.SuspendLayout() @@ -396,7 +412,6 @@ Partial Class countForm Me.pnAlphaEye.SuspendLayout() Me.pnAlphaSet.SuspendLayout() Me.pnAlphaFace.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnMaximum.SuspendLayout() Me.gbDualLux.SuspendLayout() Me.pnLuxBody.SuspendLayout() @@ -455,7 +470,6 @@ Partial Class countForm Me.pnHair.SuspendLayout() Me.pnMask10.SuspendLayout() Me.pnMask5.SuspendLayout() - Me.pnProS.SuspendLayout() Me.SuspendLayout() ' 'Label1 @@ -471,6 +485,7 @@ Partial Class countForm 'gbCount ' Me.gbCount.Controls.Add(Me.gbCase) + Me.gbCount.Controls.Add(Me.PictureBox1) Me.gbCount.Location = New System.Drawing.Point(1, 55) Me.gbCount.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.gbCount.Name = "gbCount" @@ -1375,6 +1390,17 @@ Partial Class countForm Me.lbProBeige.TabIndex = 0 Me.lbProBeige.Text = "베이지" ' + 'PictureBox1 + ' + Me.PictureBox1.Image = Global.SalesPacking_MES_API_Project.My.Resources.Resources.logo + Me.PictureBox1.Location = New System.Drawing.Point(1526, 681) + 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) + Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox1.TabIndex = 5 + Me.PictureBox1.TabStop = False + ' 'gbBox ' Me.gbBox.Controls.Add(Me.pnbox8) @@ -1767,13 +1793,12 @@ Partial Class countForm ' 'gbCDual ' - Me.gbCDual.Controls.Add(Me.pnProS) + Me.gbCDual.Controls.Add(Me.gbDualProS) Me.gbCDual.Controls.Add(Me.pnMaximumAlpha) Me.gbCDual.Controls.Add(Me.pneffectV3) Me.gbCDual.Controls.Add(Me.pneffect) Me.gbCDual.Controls.Add(Me.pnAlto) Me.gbCDual.Controls.Add(Me.gbDualAlpha) - Me.gbCDual.Controls.Add(Me.PictureBox1) Me.gbCDual.Controls.Add(Me.pnMaximum) Me.gbCDual.Controls.Add(Me.gbDualLux) Me.gbCDual.Controls.Add(Me.gbDualPro) @@ -1787,6 +1812,146 @@ Partial Class countForm Me.gbCDual.TabStop = False Me.gbCDual.Text = "DUALSONIC" ' + 'gbDualProS + ' + Me.gbDualProS.Controls.Add(Me.pnProSBody) + Me.gbDualProS.Controls.Add(Me.pnProSEye) + Me.gbDualProS.Controls.Add(Me.pnProSSet) + Me.gbDualProS.Controls.Add(Me.pnProSFace) + Me.gbDualProS.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte)) + Me.gbDualProS.Location = New System.Drawing.Point(3, 522) + Me.gbDualProS.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.gbDualProS.Name = "gbDualProS" + Me.gbDualProS.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.gbDualProS.Size = New System.Drawing.Size(189, 235) + Me.gbDualProS.TabIndex = 4 + Me.gbDualProS.TabStop = False + Me.gbDualProS.Text = "PROS" + ' + 'pnProSBody + ' + Me.pnProSBody.Controls.Add(Me.txbProSBody) + Me.pnProSBody.Controls.Add(Me.lbProSBody) + Me.pnProSBody.Location = New System.Drawing.Point(7, 181) + Me.pnProSBody.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnProSBody.Name = "pnProSBody" + Me.pnProSBody.Size = New System.Drawing.Size(170, 42) + Me.pnProSBody.TabIndex = 3 + ' + 'txbProSBody + ' + Me.txbProSBody.BackColor = System.Drawing.SystemColors.Window + Me.txbProSBody.Location = New System.Drawing.Point(78, 0) + Me.txbProSBody.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbProSBody.MaxLength = 10 + Me.txbProSBody.Name = "txbProSBody" + Me.txbProSBody.ReadOnly = True + Me.txbProSBody.Size = New System.Drawing.Size(87, 38) + Me.txbProSBody.TabIndex = 1 + Me.txbProSBody.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbProSBody + ' + Me.lbProSBody.AutoSize = True + Me.lbProSBody.Location = New System.Drawing.Point(3, 4) + Me.lbProSBody.Name = "lbProSBody" + Me.lbProSBody.Size = New System.Drawing.Size(81, 32) + Me.lbProSBody.TabIndex = 0 + Me.lbProSBody.Text = "BODY" + ' + 'pnProSEye + ' + Me.pnProSEye.Controls.Add(Me.txbProSEye) + Me.pnProSEye.Controls.Add(Me.lbProSEye) + Me.pnProSEye.Location = New System.Drawing.Point(7, 134) + Me.pnProSEye.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnProSEye.Name = "pnProSEye" + Me.pnProSEye.Size = New System.Drawing.Size(170, 42) + Me.pnProSEye.TabIndex = 2 + ' + 'txbProSEye + ' + Me.txbProSEye.BackColor = System.Drawing.SystemColors.Window + Me.txbProSEye.Location = New System.Drawing.Point(78, 0) + Me.txbProSEye.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbProSEye.MaxLength = 10 + Me.txbProSEye.Name = "txbProSEye" + Me.txbProSEye.ReadOnly = True + Me.txbProSEye.Size = New System.Drawing.Size(87, 38) + Me.txbProSEye.TabIndex = 1 + Me.txbProSEye.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbProSEye + ' + Me.lbProSEye.AutoSize = True + Me.lbProSEye.Location = New System.Drawing.Point(17, 4) + Me.lbProSEye.Name = "lbProSEye" + Me.lbProSEye.Size = New System.Drawing.Size(61, 32) + Me.lbProSEye.TabIndex = 0 + Me.lbProSEye.Text = "EYE" + ' + 'pnProSSet + ' + Me.pnProSSet.Controls.Add(Me.txbProSSet) + Me.pnProSSet.Controls.Add(Me.lbProSSet) + Me.pnProSSet.Location = New System.Drawing.Point(7, 39) + Me.pnProSSet.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnProSSet.Name = "pnProSSet" + Me.pnProSSet.Size = New System.Drawing.Size(170, 42) + Me.pnProSSet.TabIndex = 1 + ' + 'txbProSSet + ' + Me.txbProSSet.BackColor = System.Drawing.SystemColors.Window + Me.txbProSSet.Location = New System.Drawing.Point(78, 0) + Me.txbProSSet.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbProSSet.MaxLength = 10 + Me.txbProSSet.Name = "txbProSSet" + Me.txbProSSet.ReadOnly = True + Me.txbProSSet.Size = New System.Drawing.Size(87, 38) + Me.txbProSSet.TabIndex = 1 + Me.txbProSSet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbProSSet + ' + Me.lbProSSet.AutoSize = True + Me.lbProSSet.Location = New System.Drawing.Point(17, 4) + Me.lbProSSet.Name = "lbProSSet" + Me.lbProSSet.Size = New System.Drawing.Size(60, 32) + Me.lbProSSet.TabIndex = 0 + Me.lbProSSet.Text = "SET" + ' + 'pnProSFace + ' + Me.pnProSFace.Controls.Add(Me.txbProSFace) + Me.pnProSFace.Controls.Add(Me.lbProSFace) + Me.pnProSFace.Location = New System.Drawing.Point(7, 86) + Me.pnProSFace.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.pnProSFace.Name = "pnProSFace" + Me.pnProSFace.Size = New System.Drawing.Size(170, 42) + Me.pnProSFace.TabIndex = 0 + ' + 'txbProSFace + ' + Me.txbProSFace.BackColor = System.Drawing.SystemColors.Window + Me.txbProSFace.Location = New System.Drawing.Point(78, 0) + Me.txbProSFace.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txbProSFace.MaxLength = 10 + Me.txbProSFace.Name = "txbProSFace" + Me.txbProSFace.ReadOnly = True + Me.txbProSFace.Size = New System.Drawing.Size(87, 38) + Me.txbProSFace.TabIndex = 1 + Me.txbProSFace.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lbProSFace + ' + Me.lbProSFace.AutoSize = True + Me.lbProSFace.Location = New System.Drawing.Point(3, 4) + Me.lbProSFace.Name = "lbProSFace" + Me.lbProSFace.Size = New System.Drawing.Size(76, 32) + Me.lbProSFace.TabIndex = 0 + Me.lbProSFace.Text = "FACE" + ' 'pnMaximumAlpha ' Me.pnMaximumAlpha.Controls.Add(Me.txbMaximumAlpha) @@ -2059,17 +2224,6 @@ Partial Class countForm Me.lbAlphaFace.TabIndex = 0 Me.lbAlphaFace.Text = "FACE" ' - 'PictureBox1 - ' - Me.PictureBox1.Image = Global.SalesPacking_MES_API_Project.My.Resources.Resources.logo - 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) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox1.TabIndex = 5 - Me.PictureBox1.TabStop = False - ' 'pnMaximum ' Me.pnMaximum.Controls.Add(Me.txbMaximum) @@ -3876,44 +4030,11 @@ 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!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1947, 850) + Me.ClientSize = New System.Drawing.Size(1950, 835) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.gbBox) Me.Controls.Add(Me.gbEtc) @@ -3986,6 +4107,7 @@ Partial Class countForm Me.pnProBlack.PerformLayout() Me.pnProBeige.ResumeLayout(False) Me.pnProBeige.PerformLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.gbBox.ResumeLayout(False) Me.pnbox8.ResumeLayout(False) Me.pnbox8.PerformLayout() @@ -4011,6 +4133,15 @@ Partial Class countForm Me.pnProFace.ResumeLayout(False) Me.pnProFace.PerformLayout() Me.gbCDual.ResumeLayout(False) + Me.gbDualProS.ResumeLayout(False) + Me.pnProSBody.ResumeLayout(False) + Me.pnProSBody.PerformLayout() + Me.pnProSEye.ResumeLayout(False) + Me.pnProSEye.PerformLayout() + Me.pnProSSet.ResumeLayout(False) + Me.pnProSSet.PerformLayout() + Me.pnProSFace.ResumeLayout(False) + Me.pnProSFace.PerformLayout() Me.pnMaximumAlpha.ResumeLayout(False) Me.pnMaximumAlpha.PerformLayout() Me.pneffectV3.ResumeLayout(False) @@ -4028,7 +4159,6 @@ Partial Class countForm Me.pnAlphaSet.PerformLayout() Me.pnAlphaFace.ResumeLayout(False) Me.pnAlphaFace.PerformLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.pnMaximum.ResumeLayout(False) Me.pnMaximum.PerformLayout() Me.gbDualLux.ResumeLayout(False) @@ -4142,8 +4272,6 @@ 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() @@ -4463,7 +4591,17 @@ Partial Class countForm 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 + Friend WithEvents gbDualProS As GroupBox + Friend WithEvents pnProSBody As Panel + Friend WithEvents txbProSBody As TextBox + Friend WithEvents lbProSBody As Label + Friend WithEvents pnProSEye As Panel + Friend WithEvents txbProSEye As TextBox + Friend WithEvents lbProSEye As Label + Friend WithEvents pnProSSet As Panel + Friend WithEvents txbProSSet As TextBox + Friend WithEvents lbProSSet As Label + Friend WithEvents pnProSFace As Panel + Friend WithEvents txbProSFace As TextBox + Friend WithEvents lbProSFace As Label End Class diff --git a/SalesPacking_MES_API_Project/countForm.vb b/SalesPacking_MES_API_Project/countForm.vb index 615c931..d3e1994 100644 --- a/SalesPacking_MES_API_Project/countForm.vb +++ b/SalesPacking_MES_API_Project/countForm.vb @@ -25,8 +25,11 @@ 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) + txbMaximumAlpha.Text = prodComCount(prodDB.maximumAlpha) + txbProSSet.Text = prodComCount(prodDB.proSset) + txbProSFace.Text = prodComCount(prodDB.proSface) + txbProSEye.Text = prodComCount(prodDB.proSeye) + txbProSBody.Text = prodComCount(prodDB.proSbody) 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 564f4f1..155c283 100644 --- a/SalesPacking_MES_API_Project/mainForm.vb +++ b/SalesPacking_MES_API_Project/mainForm.vb @@ -360,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.proS + For i = 0 To prodDB.proSbody If UBound(Split(textCount, ",")) > 0 Then prodComCount(i) = Mid(textCount, 1, InStr(textCount, ",") - 1) textCount = Mid(textCount, InStr(textCount, ",") + 1, textCount.Length) @@ -1634,7 +1634,7 @@ Public Class mainForm End Function Private Function packingSerial() As Boolean - Dim prodSerial(prodDB.proS - prodDB.luxset) As String + Dim prodSerial(prodDB.proSbody - prodDB.luxset) As String Const modelNum As Int16 = 1 Const typeNum As Int16 = 2 @@ -1643,7 +1643,7 @@ Public Class mainForm 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.proS + For i = prodDB.luxset To prodDB.proSbody prodSerial(i - prodDB.luxset) = sqlDataQuery(i - prodDB.luxset) Next Else @@ -1939,7 +1939,7 @@ Public Class mainForm Select Case typeNum Case typeList.prodset_V1 - commandStr = prodPackCommand(prodDB.proS) + commandStr = prodPackCommand(prodDB.maximumAlpha) Case Else errorOut("등록오류") errorGen("존재하지 않는 타입 번호입니다.") @@ -1951,7 +1951,13 @@ Public Class mainForm Select Case typeNum Case typeList.prodset_V1 - commandStr = prodPackCommand(prodDB.proS) + commandStr = prodPackCommand(prodDB.proSset) + Case typeList.prodface_V2 + commandStr = prodPackCommand(prodDB.proSface) + Case typeList.prodeye + commandStr = prodPackCommand(prodDB.proSeye) + Case typeList.prodbody + commandStr = prodPackCommand(prodDB.proSbody) Case Else errorOut("등록오류") errorGen("존재하지 않는 타입 번호입니다.") @@ -2538,6 +2544,15 @@ Public Class mainForm Case typeList.prodset_V1 faceShot = 0 eyeShot = 0 + Case typeList.prodface_V2 + faceShot = 0 + eyeShot = 0 + Case typeList.prodeye + faceShot = 0 + eyeShot = 0 + Case typeList.prodbody + faceShot = 0 + eyeShot = 0 Case Else Return -1 End Select @@ -2702,7 +2717,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_Cnt = '" & comInCount(prodDB.proS) & "' 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 = '" & packingCode & "'" If DBCommand(DBCmd) = False Then errorOut("등록오류") @@ -2762,7 +2777,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) & "',MAXIMUM_ALPHA_SN = '" & prodInSerial(prodDB.maximumAlpha) & "',Pro_S_Serial = '" & prodInSerial(prodDB.proS) & "' 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_Set_Serial = '" & prodInSerial(prodDB.proSset) & "',Pro_S_Face_Serial = '" & prodInSerial(prodDB.proSface) & "',Pro_S_Eye_Serial = '" & prodInSerial(prodDB.proSeye) & "',Pro_S_Body_Serial = '" & prodInSerial(prodDB.proSbody) & "' WHERE PackingCode = '" & packingCode & "'" If DBCommand(DBCmd) Then Return False @@ -2834,7 +2849,7 @@ Public Class mainForm Try Dim commandDB As String = "UPDATE " & applySalesDB & " SET " - For i = prodDB.proset To prodDB.proS + For i = prodDB.proset To prodDB.proSbody If prodInSerial(i) = "" Then prodInSerial(i) = "null" @@ -2842,7 +2857,7 @@ Public Class mainForm prodInSerial(i) = "'" & prodInSerial(i) & "'" End If - If i <> prodDB.proS Then + If i <> prodDB.proSbody Then commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) & ", " Else commandDB = commandDB & prodPackCommand(i) & "=" & prodInSerial(i) @@ -2897,7 +2912,7 @@ Public Class mainForm Dim prodCount As Integer = 0 For i = 1 To countCommand.Length - 1 - If i <= prodDB.proS Then + If i <= prodDB.proSbody Then prodCount = countSet(i, saveType, True) @@ -2983,7 +2998,7 @@ Public Class mainForm 'End Function Private Sub saveDBCount() - For i = 0 To prodDB.proS + For i = 0 To prodDB.proSbody prodDBCount(i) += prodInCount(i) Next @@ -3016,14 +3031,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,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 & "'" + 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 & "'" 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,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 & "'" + 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 & "'" countCommandFunc(countSaveList.autopack) Else - 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 & "'" + DBCmd = "SELECT AutoWeightCnt,AWProSetCnt,AWLuxSetCnt,AWProFaceCnt,AWLuxFaceCnt,AWProEyeCnt,AWLuxEyeCnt,AWProBodyCnt,AWLuxBodyCnt,AWMAXIMUMCnt,AWAlphaSetCnt,AWAlphaFaceCnt,AWAlphaEyeCnt,AWAlphaBodyCnt,AWAltoCnt,AWEffectcnt,AWEffectV3Cnt,AWMAXIMUMALPHACnt,AWPro_S_Cnt,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 & "'" countCommandFunc(countSaveList.autoWeight) End If End If @@ -3031,7 +3046,7 @@ Public Class mainForm If DBQueryReader(DBCmd) Then For i = 0 To countCommand.Length - 1 - If i <= prodDB.proS Then + If i <= prodDB.proSbody Then prodDBCount(i) = sqlDataQuery(i) Else enumCount = i - prodDBCount.Length @@ -3104,7 +3119,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_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호,가죽키링" + 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호,가죽키링" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveLogNamePack dirUse(filePath) @@ -3145,7 +3160,7 @@ Public Class mainForm Try Dim saveData As String = Nothing - For i = 0 To prodDB.proS + For i = 0 To prodDB.proSbody saveData = saveLocalData(saveData, prodInCount(i)) @@ -3177,7 +3192,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,아쿠아 마스크,리프팅 마스크,헤어밴드,블루밍_젤,미니젤,앰플,크림,우산,손풍기,충전기,케이블,토너,가죽케이스(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호,가죽키링" filePath = System.AppDomain.CurrentDomain.BaseDirectory & "\" & saveCountName dirUse(filePath) @@ -3226,7 +3241,7 @@ Public Class mainForm Private Function saveLocalCount() As String Try Dim strData As String = Nothing - For i = 0 To prodDB.proS + For i = 0 To prodDB.proSbody prodComCount(i) += prodInCount(i) strData = saveLocalData(strData, prodComCount(i)) Next @@ -3267,7 +3282,7 @@ Public Class mainForm End Function Private Sub clearNowCount() - For i = 0 To prodDB.proS + For i = 0 To prodDB.proSbody prodInSerial(i) = Nothing Next diff --git a/SalesPacking_MES_API_Project/mySQLAddress.vb b/SalesPacking_MES_API_Project/mySQLAddress.vb index b7855ac..ac50d6a 100644 --- a/SalesPacking_MES_API_Project/mySQLAddress.vb +++ b/SalesPacking_MES_API_Project/mySQLAddress.vb @@ -79,13 +79,16 @@ effect effectV3 maximumAlpha - proS + proSset + proSface + proSeye + proSbody End Enum - 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 prodDBCount(prodDB.proSbody) As Integer '' DB 저장 + Public prodInCount(prodDB.proSbody) As Integer '' 패킹 저장 10 + Public prodComCount(prodDB.proSbody) As Integer '' 로컬 저장 + Public prodInSerial(prodDB.proSbody) As String '' LogData 저장 + Public prodPackCommand(prodDB.proSbody) As String '' Public Enum comDB mask5 @@ -251,9 +254,21 @@ prodInCount(prodDB.maximumAlpha) = ckCount prodInSerial(prodDB.maximumAlpha) = serial - Case prodDB.proS - prodInCount(prodDB.proS) = ckCount - prodInSerial(prodDB.proS) = serial + Case prodDB.proSset + prodInCount(prodDB.proSset) = ckCount + prodInSerial(prodDB.proSset) = serial + + Case prodDB.proSface + prodInCount(prodDB.proSface) = ckCount + prodInSerial(prodDB.proSface) = serial + + Case prodDB.proSeye + prodInCount(prodDB.proSeye) = ckCount + prodInSerial(prodDB.proSeye) = serial + + Case prodDB.proSbody + prodInCount(prodDB.proSbody) = ckCount + prodInSerial(prodDB.proSbody) = serial Case Else MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) @@ -497,7 +512,10 @@ countCommand(prodDB.effect) = "EffectCnt" countCommand(prodDB.effectV3) = "EffectV3Cnt" countCommand(prodDB.maximumAlpha) = "MAXIMUMALPHACnt" - countCommand(prodDB.proS) = "ProSCnt" + countCommand(prodDB.proSset) = "ProSSetCnt" + countCommand(prodDB.proSface) = "ProSFaceCnt" + countCommand(prodDB.proSeye) = "ProSEyeCnt" + countCommand(prodDB.proSbody) = "ProSBodyCnt" countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt" @@ -616,7 +634,10 @@ countCommand(prodDB.effect) = "APEffectCnt" countCommand(prodDB.effectV3) = "APEffectV3Cnt" countCommand(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt" - countCommand(prodDB.proS) = "APProSCnt" + countCommand(prodDB.proSset) = "APProSSetCnt" + countCommand(prodDB.proSface) = "APProSFaceCnt" + countCommand(prodDB.proSeye) = "APProSEyeCnt" + countCommand(prodDB.proSbody) = "APProSBodyCnt" countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt" @@ -737,7 +758,10 @@ countCommand(prodDB.effect) = "AWEffectCnt" countCommand(prodDB.effectV3) = "AWEffectV3Cnt" countCommand(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt" - countCommand(prodDB.proS) = "AWProSCnt" + countCommand(prodDB.proSset) = "AWProSSetCnt" + countCommand(prodDB.proSface) = "AWProSFaceCnt" + countCommand(prodDB.proSeye) = "AWProSEyeCnt" + countCommand(prodDB.proSbody) = "AWProSBodyCnt" countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt" countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt" @@ -862,6 +886,9 @@ prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN" - prodPackCommand(prodDB.proS) = "Pro_S_Serial" + prodPackCommand(prodDB.proSset) = "Pro_S_Set_Serial" + prodPackCommand(prodDB.proSface) = "Pro_S_Face_Serial" + prodPackCommand(prodDB.proSeye) = "Pro_S_Eye_Serial" + prodPackCommand(prodDB.proSbody) = "Pro_S_Body_Serial" End Sub End Module