jionmt-sw/shpmt-OrderPackingProcessor
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 6 Wiki Activity

feat: keyring LineFriends

Browse Source
This commit is contained in:
jiwonRepair 2025-08-11 15:55:21 +09:00
parent 5c26dd4e8a
commit 571ce1991f
4 changed files with 107 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
SalesPacking_MES_API_Project/countForm.Designer.vb generated
View File

@ -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

1
SalesPacking_MES_API_Project/countForm.vb
View File

@ -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

30
SalesPacking_MES_API_Project/mainForm.vb
View File

File diff suppressed because one or more lines are too long

14
SalesPacking_MES_API_Project/mySQLAddress.vb
View File

@ -180,10 +180,12 @@
car8
keyring
End Enum
Public comDBCount(comDB.car8) As Integer ''DB 저장
Public comInCount(comDB.car8) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.car8) As Integer '' 로컬 저장
Public comDBCount(comDB.keyring) As Integer ''DB 저장
Public comInCount(comDB.keyring) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.keyring) As Integer '' 로컬 저장
Public 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