feat: Doena Lifting Collagen Toner, Ampoule, Cream

SalesPacking_MES_API_Project/countForm.Designer.vb

@@ -201,6 +201,15 @@ Partial Class countForm
         Me.lbLuxFace = New System.Windows.Forms.Label()
         Me.gbEtc = New System.Windows.Forms.GroupBox()
         Me.gbProd = New System.Windows.Forms.GroupBox()
+        Me.pndoenaliftingcream = New System.Windows.Forms.Panel()
+        Me.txbdoenaliftingcream = New System.Windows.Forms.TextBox()
+        Me.lbdoenaliftingcream = New System.Windows.Forms.Label()
+        Me.pndoenaliftingamp = New System.Windows.Forms.Panel()
+        Me.txbdoenaliftingamp = New System.Windows.Forms.TextBox()
+        Me.lbdoenaliftingamp = New System.Windows.Forms.Label()
+        Me.pndoenaliftingtoner = New System.Windows.Forms.Panel()
+        Me.txbdoenaliftingtoner = New System.Windows.Forms.TextBox()
+        Me.lbdoenaliftingtoner = New System.Windows.Forms.Label()
         Me.pnkeyring = New System.Windows.Forms.Panel()
         Me.txbkeyring = New System.Windows.Forms.TextBox()
         Me.lbkeyring = New System.Windows.Forms.Label()
@@ -420,6 +429,9 @@ Partial Class countForm
         Me.pnLuxFace.SuspendLayout()
         Me.gbEtc.SuspendLayout()
         Me.gbProd.SuspendLayout()
+        Me.pndoenaliftingcream.SuspendLayout()
+        Me.pndoenaliftingamp.SuspendLayout()
+        Me.pndoenaliftingtoner.SuspendLayout()
         Me.pnkeyring.SuspendLayout()
         Me.pnelixir.SuspendLayout()
         Me.pndayshot2.SuspendLayout()
@@ -2412,6 +2424,9 @@ Partial Class countForm
         '
         'gbProd
         '
+        Me.gbProd.Controls.Add(Me.pndoenaliftingcream)
+        Me.gbProd.Controls.Add(Me.pndoenaliftingamp)
+        Me.gbProd.Controls.Add(Me.pndoenaliftingtoner)
         Me.gbProd.Controls.Add(Me.pnkeyring)
         Me.gbProd.Controls.Add(Me.pnelixir)
         Me.gbProd.Controls.Add(Me.pndayshot2)
@@ -2472,6 +2487,102 @@ Partial Class countForm
         Me.gbProd.TabStop = False
         Me.gbProd.Text = "구성품"
         '
+        'pndoenaliftingcream
+        '
+        Me.pndoenaliftingcream.Controls.Add(Me.txbdoenaliftingcream)
+        Me.pndoenaliftingcream.Controls.Add(Me.lbdoenaliftingcream)
+        Me.pndoenaliftingcream.Location = New System.Drawing.Point(7, 672)
+        Me.pndoenaliftingcream.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pndoenaliftingcream.Name = "pndoenaliftingcream"
+        Me.pndoenaliftingcream.Size = New System.Drawing.Size(233, 42)
+        Me.pndoenaliftingcream.TabIndex = 35
+        '
+        'txbdoenaliftingcream
+        '
+        Me.txbdoenaliftingcream.BackColor = System.Drawing.SystemColors.Window
+        Me.txbdoenaliftingcream.Location = New System.Drawing.Point(138, 0)
+        Me.txbdoenaliftingcream.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.txbdoenaliftingcream.MaxLength = 10
+        Me.txbdoenaliftingcream.Name = "txbdoenaliftingcream"
+        Me.txbdoenaliftingcream.ReadOnly = True
+        Me.txbdoenaliftingcream.Size = New System.Drawing.Size(87, 38)
+        Me.txbdoenaliftingcream.TabIndex = 1
+        Me.txbdoenaliftingcream.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'lbdoenaliftingcream
+        '
+        Me.lbdoenaliftingcream.AutoSize = True
+        Me.lbdoenaliftingcream.Location = New System.Drawing.Point(3, 2)
+        Me.lbdoenaliftingcream.Name = "lbdoenaliftingcream"
+        Me.lbdoenaliftingcream.Size = New System.Drawing.Size(159, 37)
+        Me.lbdoenaliftingcream.TabIndex = 0
+        Me.lbdoenaliftingcream.Text = "DL콜라겐크림"
+        Me.lbdoenaliftingcream.UseCompatibleTextRendering = True
+        '
+        'pndoenaliftingamp
+        '
+        Me.pndoenaliftingamp.Controls.Add(Me.txbdoenaliftingamp)
+        Me.pndoenaliftingamp.Controls.Add(Me.lbdoenaliftingamp)
+        Me.pndoenaliftingamp.Location = New System.Drawing.Point(712, 626)
+        Me.pndoenaliftingamp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pndoenaliftingamp.Name = "pndoenaliftingamp"
+        Me.pndoenaliftingamp.Size = New System.Drawing.Size(233, 42)
+        Me.pndoenaliftingamp.TabIndex = 34
+        '
+        'txbdoenaliftingamp
+        '
+        Me.txbdoenaliftingamp.BackColor = System.Drawing.SystemColors.Window
+        Me.txbdoenaliftingamp.Location = New System.Drawing.Point(138, 0)
+        Me.txbdoenaliftingamp.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.txbdoenaliftingamp.MaxLength = 10
+        Me.txbdoenaliftingamp.Name = "txbdoenaliftingamp"
+        Me.txbdoenaliftingamp.ReadOnly = True
+        Me.txbdoenaliftingamp.Size = New System.Drawing.Size(87, 38)
+        Me.txbdoenaliftingamp.TabIndex = 1
+        Me.txbdoenaliftingamp.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'lbdoenaliftingamp
+        '
+        Me.lbdoenaliftingamp.AutoSize = True
+        Me.lbdoenaliftingamp.Location = New System.Drawing.Point(3, 2)
+        Me.lbdoenaliftingamp.Name = "lbdoenaliftingamp"
+        Me.lbdoenaliftingamp.Size = New System.Drawing.Size(159, 37)
+        Me.lbdoenaliftingamp.TabIndex = 0
+        Me.lbdoenaliftingamp.Text = "DL콜라겐앰플"
+        Me.lbdoenaliftingamp.UseCompatibleTextRendering = True
+        '
+        'pndoenaliftingtoner
+        '
+        Me.pndoenaliftingtoner.Controls.Add(Me.txbdoenaliftingtoner)
+        Me.pndoenaliftingtoner.Controls.Add(Me.lbdoenaliftingtoner)
+        Me.pndoenaliftingtoner.Location = New System.Drawing.Point(474, 626)
+        Me.pndoenaliftingtoner.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pndoenaliftingtoner.Name = "pndoenaliftingtoner"
+        Me.pndoenaliftingtoner.Size = New System.Drawing.Size(233, 42)
+        Me.pndoenaliftingtoner.TabIndex = 33
+        '
+        'txbdoenaliftingtoner
+        '
+        Me.txbdoenaliftingtoner.BackColor = System.Drawing.SystemColors.Window
+        Me.txbdoenaliftingtoner.Location = New System.Drawing.Point(138, 0)
+        Me.txbdoenaliftingtoner.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.txbdoenaliftingtoner.MaxLength = 10
+        Me.txbdoenaliftingtoner.Name = "txbdoenaliftingtoner"
+        Me.txbdoenaliftingtoner.ReadOnly = True
+        Me.txbdoenaliftingtoner.Size = New System.Drawing.Size(87, 38)
+        Me.txbdoenaliftingtoner.TabIndex = 1
+        Me.txbdoenaliftingtoner.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'lbdoenaliftingtoner
+        '
+        Me.lbdoenaliftingtoner.AutoSize = True
+        Me.lbdoenaliftingtoner.Location = New System.Drawing.Point(3, 2)
+        Me.lbdoenaliftingtoner.Name = "lbdoenaliftingtoner"
+        Me.lbdoenaliftingtoner.Size = New System.Drawing.Size(159, 37)
+        Me.lbdoenaliftingtoner.TabIndex = 0
+        Me.lbdoenaliftingtoner.Text = "DL콜라겐토너"
+        Me.lbdoenaliftingtoner.UseCompatibleTextRendering = True
+        '
         'pnkeyring
         '
         Me.pnkeyring.Controls.Add(Me.txbkeyring)
@@ -4034,7 +4145,7 @@ Partial Class countForm
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1950, 835)
+        Me.ClientSize = New System.Drawing.Size(1941, 844)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.gbBox)
         Me.Controls.Add(Me.gbEtc)
@@ -4172,6 +4283,12 @@ Partial Class countForm
         Me.pnLuxFace.PerformLayout()
         Me.gbEtc.ResumeLayout(False)
         Me.gbProd.ResumeLayout(False)
+        Me.pndoenaliftingcream.ResumeLayout(False)
+        Me.pndoenaliftingcream.PerformLayout()
+        Me.pndoenaliftingamp.ResumeLayout(False)
+        Me.pndoenaliftingamp.PerformLayout()
+        Me.pndoenaliftingtoner.ResumeLayout(False)
+        Me.pndoenaliftingtoner.PerformLayout()
         Me.pnkeyring.ResumeLayout(False)
         Me.pnkeyring.PerformLayout()
         Me.pnelixir.ResumeLayout(False)
@@ -4604,4 +4721,13 @@ Partial Class countForm
     Friend WithEvents pnProSFace As Panel
     Friend WithEvents txbProSFace As TextBox
     Friend WithEvents lbProSFace As Label
+    Friend WithEvents pndoenaliftingtoner As Panel
+    Friend WithEvents txbdoenaliftingtoner As TextBox
+    Friend WithEvents lbdoenaliftingtoner As Label
+    Friend WithEvents pndoenaliftingamp As Panel
+    Friend WithEvents txbdoenaliftingamp As TextBox
+    Friend WithEvents lbdoenaliftingamp As Label
+    Friend WithEvents pndoenaliftingcream As Panel
+    Friend WithEvents txbdoenaliftingcream As TextBox
+    Friend WithEvents lbdoenaliftingcream As Label
 End Class

SalesPacking_MES_API_Project/countForm.vb

@@ -106,6 +106,10 @@ Public Class countForm
         txbelixir.Text = comComCount(comDB.Elixir)
         txbbox8.Text = comComCount(comDB.car8)
         txbkeyring.Text = comComCount(comDB.keyring)
+        txbdoenaliftingtoner.Text = comComCount(comDB.DoenaLiftingToner)
+        txbdoenaliftingamp.Text = comComCount(comDB.DoenaLiftingAmp)
+        txbdoenaliftingcream.Text = comComCount(comDB.DoenaLiftingCream)
+
 
     End Sub
 

SalesPacking_MES_API_Project/mySQLAddress.vb

@@ -187,10 +187,14 @@
 
         keyring
 
+        DoenaLiftingToner
+        DoenaLiftingAmp
+        DoenaLiftingCream
+
     End Enum
-    Public comDBCount(comDB.keyring) As Integer   ''DB 저장
+    Public comDBCount(comDB.DoenaLiftingCream) As Integer   ''DB 저장
-    Public comInCount(comDB.keyring) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
+    Public comInCount(comDB.DoenaLiftingCream) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
-    Public comComCount(comDB.keyring) As Integer  '' 로컬 저장
+    Public comComCount(comDB.DoenaLiftingCream) As Integer  '' 로컬 저장
 
     Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
 
@@ -478,6 +482,12 @@
                     comInCount(comDB.car8) = ckCount
                 Case comDB.keyring
                     comInCount(comDB.keyring) = ckCount
+                Case comDB.DoenaLiftingToner
+                    comInCount(comDB.DoenaLiftingToner) = ckCount
+                Case comDB.DoenaLiftingAmp
+                    comInCount(comDB.DoenaLiftingAmp) = ckCount
+                Case comDB.DoenaLiftingCream
+                    comInCount(comDB.DoenaLiftingCream) = ckCount
 
                 Case Else
                     MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@@ -613,6 +623,9 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt"
                 countCommand(prodInCount.Length + comDB.keyring) = "KeyringCnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "DoenaLiftingTonercnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "DoenaLiftingAmpcnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "DoenaLiftingCreamcnt"
 
             Case countSaveList.autopack
 
@@ -735,6 +748,9 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt"
                 countCommand(prodInCount.Length + comDB.keyring) = "APKeyringCnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "APDoenaLiftingTonercnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "APDoenaLiftingAmpcnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "APDoenaLiftingCreamcnt"
 
             Case countSaveList.autoWeight
 
@@ -859,6 +875,9 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt"
                 countCommand(prodInCount.Length + comDB.keyring) = "AWKeyringCnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "AWDoenaLiftingTonercnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "AWDoenaLiftingAmpcnt"
+                countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "AWDoenaLiftingCreamcnt"
 
         End Select
     End Sub