feat: keyring LineFriends

SalesPacking_MES_API_Project/countForm.Designer.vb

@@ -109,6 +109,9 @@ Partial Class countForm
         Me.txbProBeige = New System.Windows.Forms.TextBox()
         Me.lbProBeige = New System.Windows.Forms.Label()
         Me.gbBox = New System.Windows.Forms.GroupBox()
+        Me.pnbox8 = New System.Windows.Forms.Panel()
+        Me.txbbox8 = New System.Windows.Forms.TextBox()
+        Me.lbbox8 = New System.Windows.Forms.Label()
         Me.pnbox6 = New System.Windows.Forms.Panel()
         Me.txbbox6 = New System.Windows.Forms.TextBox()
         Me.lbbox6 = New System.Windows.Forms.Label()
@@ -182,6 +185,9 @@ 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.pnkeyring = New System.Windows.Forms.Panel()
+        Me.txbkeyring = New System.Windows.Forms.TextBox()
+        Me.lbkeyring = New System.Windows.Forms.Label()
         Me.pnelixir = New System.Windows.Forms.Panel()
         Me.txbelixir = New System.Windows.Forms.TextBox()
         Me.lbelixir = New System.Windows.Forms.Label()
@@ -329,9 +335,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.pnbox8 = New System.Windows.Forms.Panel()
-        Me.txbbox8 = New System.Windows.Forms.TextBox()
-        Me.lbbox8 = New System.Windows.Forms.Label()
         Me.gbCount.SuspendLayout()
         Me.gbCase.SuspendLayout()
         Me.gbAlto.SuspendLayout()
@@ -365,6 +368,7 @@ Partial Class countForm
         Me.pnProBlack.SuspendLayout()
         Me.pnProBeige.SuspendLayout()
         Me.gbBox.SuspendLayout()
+        Me.pnbox8.SuspendLayout()
         Me.pnbox6.SuspendLayout()
         Me.pnbox5.SuspendLayout()
         Me.pnbox4.SuspendLayout()
@@ -394,6 +398,7 @@ Partial Class countForm
         Me.pnLuxFace.SuspendLayout()
         Me.gbEtc.SuspendLayout()
         Me.gbProd.SuspendLayout()
+        Me.pnkeyring.SuspendLayout()
         Me.pnelixir.SuspendLayout()
         Me.pndayshot2.SuspendLayout()
         Me.pnbeltbag.SuspendLayout()
@@ -443,7 +448,6 @@ Partial Class countForm
         Me.pnHair.SuspendLayout()
         Me.pnMask10.SuspendLayout()
         Me.pnMask5.SuspendLayout()
-        Me.pnbox8.SuspendLayout()
         Me.SuspendLayout()
         '
         'Label1
@@ -1382,6 +1386,39 @@ Partial Class countForm
         Me.gbBox.TabStop = False
         Me.gbBox.Text = "박스"
         '
+        'pnbox8
+        '
+        Me.pnbox8.Controls.Add(Me.txbbox8)
+        Me.pnbox8.Controls.Add(Me.lbbox8)
+        Me.pnbox8.Location = New System.Drawing.Point(280, 48)
+        Me.pnbox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pnbox8.Name = "pnbox8"
+        Me.pnbox8.Size = New System.Drawing.Size(105, 42)
+        Me.pnbox8.TabIndex = 4
+        '
+        'txbbox8
+        '
+        Me.txbbox8.BackColor = System.Drawing.SystemColors.Window
+        Me.txbbox8.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.txbbox8.Location = New System.Drawing.Point(46, 0)
+        Me.txbbox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.txbbox8.MaxLength = 10
+        Me.txbbox8.Name = "txbbox8"
+        Me.txbbox8.ReadOnly = True
+        Me.txbbox8.Size = New System.Drawing.Size(51, 38)
+        Me.txbbox8.TabIndex = 1
+        Me.txbbox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'lbbox8
+        '
+        Me.lbbox8.AutoSize = True
+        Me.lbbox8.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
+        Me.lbbox8.Location = New System.Drawing.Point(2, 4)
+        Me.lbbox8.Name = "lbbox8"
+        Me.lbbox8.Size = New System.Drawing.Size(50, 32)
+        Me.lbbox8.TabIndex = 0
+        Me.lbbox8.Text = "8호"
+        '
         'pnbox6
         '
         Me.pnbox6.Controls.Add(Me.txbbox6)
@@ -2178,6 +2215,7 @@ Partial Class countForm
         '
         'gbProd
         '
+        Me.gbProd.Controls.Add(Me.pnkeyring)
         Me.gbProd.Controls.Add(Me.pnelixir)
         Me.gbProd.Controls.Add(Me.pndayshot2)
         Me.gbProd.Controls.Add(Me.pnbeltbag)
@@ -2237,6 +2275,38 @@ Partial Class countForm
         Me.gbProd.TabStop = False
         Me.gbProd.Text = "구성품"
         '
+        'pnkeyring
+        '
+        Me.pnkeyring.Controls.Add(Me.txbkeyring)
+        Me.pnkeyring.Controls.Add(Me.lbkeyring)
+        Me.pnkeyring.Location = New System.Drawing.Point(240, 626)
+        Me.pnkeyring.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.pnkeyring.Name = "pnkeyring"
+        Me.pnkeyring.Size = New System.Drawing.Size(233, 42)
+        Me.pnkeyring.TabIndex = 32
+        '
+        'txbkeyring
+        '
+        Me.txbkeyring.BackColor = System.Drawing.SystemColors.Window
+        Me.txbkeyring.Location = New System.Drawing.Point(138, 0)
+        Me.txbkeyring.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.txbkeyring.MaxLength = 10
+        Me.txbkeyring.Name = "txbkeyring"
+        Me.txbkeyring.ReadOnly = True
+        Me.txbkeyring.Size = New System.Drawing.Size(87, 38)
+        Me.txbkeyring.TabIndex = 1
+        Me.txbkeyring.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'lbkeyring
+        '
+        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.TabIndex = 0
+        Me.lbkeyring.Text = "키링"
+        Me.lbkeyring.UseCompatibleTextRendering = True
+        '
         'pnelixir
         '
         Me.pnelixir.Controls.Add(Me.txbelixir)
@@ -3763,39 +3833,6 @@ Partial Class countForm
         Me.lbMask5.TabIndex = 0
         Me.lbMask5.Text = "아쿠아 마스크"
         '
-        'pnbox8
-        '
-        Me.pnbox8.Controls.Add(Me.txbbox8)
-        Me.pnbox8.Controls.Add(Me.lbbox8)
-        Me.pnbox8.Location = New System.Drawing.Point(280, 48)
-        Me.pnbox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.pnbox8.Name = "pnbox8"
-        Me.pnbox8.Size = New System.Drawing.Size(105, 42)
-        Me.pnbox8.TabIndex = 4
-        '
-        'txbbox8
-        '
-        Me.txbbox8.BackColor = System.Drawing.SystemColors.Window
-        Me.txbbox8.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.txbbox8.Location = New System.Drawing.Point(46, 0)
-        Me.txbbox8.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
-        Me.txbbox8.MaxLength = 10
-        Me.txbbox8.Name = "txbbox8"
-        Me.txbbox8.ReadOnly = True
-        Me.txbbox8.Size = New System.Drawing.Size(51, 38)
-        Me.txbbox8.TabIndex = 1
-        Me.txbbox8.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
-        '
-        'lbbox8
-        '
-        Me.lbbox8.AutoSize = True
-        Me.lbbox8.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
-        Me.lbbox8.Location = New System.Drawing.Point(2, 4)
-        Me.lbbox8.Name = "lbbox8"
-        Me.lbbox8.Size = New System.Drawing.Size(50, 32)
-        Me.lbbox8.TabIndex = 0
-        Me.lbbox8.Text = "8호"
-        '
         'countForm
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
@@ -3874,6 +3911,8 @@ Partial Class countForm
         Me.pnProBeige.ResumeLayout(False)
         Me.pnProBeige.PerformLayout()
         Me.gbBox.ResumeLayout(False)
+        Me.pnbox8.ResumeLayout(False)
+        Me.pnbox8.PerformLayout()
         Me.pnbox6.ResumeLayout(False)
         Me.pnbox6.PerformLayout()
         Me.pnbox5.ResumeLayout(False)
@@ -3925,6 +3964,8 @@ Partial Class countForm
         Me.pnLuxFace.PerformLayout()
         Me.gbEtc.ResumeLayout(False)
         Me.gbProd.ResumeLayout(False)
+        Me.pnkeyring.ResumeLayout(False)
+        Me.pnkeyring.PerformLayout()
         Me.pnelixir.ResumeLayout(False)
         Me.pnelixir.PerformLayout()
         Me.pndayshot2.ResumeLayout(False)
@@ -4023,8 +4064,6 @@ Partial Class countForm
         Me.pnMask10.PerformLayout()
         Me.pnMask5.ResumeLayout(False)
         Me.pnMask5.PerformLayout()
-        Me.pnbox8.ResumeLayout(False)
-        Me.pnbox8.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -4338,4 +4377,7 @@ Partial Class countForm
     Friend WithEvents pnbox8 As Panel
     Friend WithEvents txbbox8 As TextBox
     Friend WithEvents lbbox8 As Label
+    Friend WithEvents pnkeyring As Panel
+    Friend WithEvents txbkeyring As TextBox
+    Friend WithEvents lbkeyring As Label
 End Class

SalesPacking_MES_API_Project/countForm.vb

@@ -100,6 +100,7 @@ Public Class countForm
         txbDayshot2.Text = comComCount(comDB.Dayshot2)
         txbelixir.Text = comComCount(comDB.Elixir)
         txbbox8.Text = comComCount(comDB.car8)
+        txbkeyring.Text = comComCount(comDB.keyring)
 
     End Sub
 

SalesPacking_MES_API_Project/mySQLAddress.vb

@@ -180,10 +180,12 @@
 
         car8
 
+        keyring
+
     End Enum
-    Public comDBCount(comDB.car8) As Integer   ''DB 저장
+    Public comDBCount(comDB.keyring) As Integer   ''DB 저장
-    Public comInCount(comDB.car8) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
+    Public comInCount(comDB.keyring) As Integer   '' 패킹 저장 32 + 10 = 42 - 1 = 41
-    Public comComCount(comDB.car8) As Integer  '' 로컬 저장
+    Public comComCount(comDB.keyring) As Integer  '' 로컬 저장
 
     Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
 
@@ -449,6 +451,8 @@
                     comInCount(comDB.ElesqAquaAmp) = ckCount
                 Case comDB.car8
                     comInCount(comDB.car8) = ckCount
+                Case comDB.keyring
+                    comInCount(comDB.keyring) = ckCount
 
                 Case Else
                     MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@@ -578,7 +582,7 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt"
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt"
-
+                countCommand(prodInCount.Length + comDB.keyring) = "KeyringCnt"
 
             Case countSaveList.autopack
 
@@ -695,6 +699,7 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt"
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt"
+                countCommand(prodInCount.Length + comDB.keyring) = "APKeyringCnt"
 
             Case countSaveList.autoWeight
 
@@ -813,6 +818,7 @@
                 countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt"
                 countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
                 countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt"
+                countCommand(prodInCount.Length + comDB.keyring) = "AWKeyringCnt"
 
         End Select
     End Sub