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.txbProBeige = New System.Windows.Forms.TextBox()
Me.lbProBeige = New System.Windows.Forms.Label() Me.lbProBeige = New System.Windows.Forms.Label()
Me.gbBox = New System.Windows.Forms.GroupBox() 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.pnbox6 = New System.Windows.Forms.Panel()
Me.txbbox6 = New System.Windows.Forms.TextBox() Me.txbbox6 = New System.Windows.Forms.TextBox()
Me.lbbox6 = New System.Windows.Forms.Label() Me.lbbox6 = New System.Windows.Forms.Label()
@ -182,6 +185,9 @@ Partial Class countForm
Me.lbLuxFace = New System.Windows.Forms.Label() Me.lbLuxFace = New System.Windows.Forms.Label()
Me.gbEtc = New System.Windows.Forms.GroupBox() Me.gbEtc = New System.Windows.Forms.GroupBox()
Me.gbProd = 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.pnelixir = New System.Windows.Forms.Panel()
Me.txbelixir = New System.Windows.Forms.TextBox() Me.txbelixir = New System.Windows.Forms.TextBox()
Me.lbelixir = New System.Windows.Forms.Label() Me.lbelixir = New System.Windows.Forms.Label()
@ -329,9 +335,6 @@ Partial Class countForm
Me.pnMask5 = New System.Windows.Forms.Panel() Me.pnMask5 = New System.Windows.Forms.Panel()
Me.txbMask5 = New System.Windows.Forms.TextBox() Me.txbMask5 = New System.Windows.Forms.TextBox()
Me.lbMask5 = New System.Windows.Forms.Label() 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.gbCount.SuspendLayout()
Me.gbCase.SuspendLayout() Me.gbCase.SuspendLayout()
Me.gbAlto.SuspendLayout() Me.gbAlto.SuspendLayout()
@ -365,6 +368,7 @@ Partial Class countForm
Me.pnProBlack.SuspendLayout() Me.pnProBlack.SuspendLayout()
Me.pnProBeige.SuspendLayout() Me.pnProBeige.SuspendLayout()
Me.gbBox.SuspendLayout() Me.gbBox.SuspendLayout()
Me.pnbox8.SuspendLayout()
Me.pnbox6.SuspendLayout() Me.pnbox6.SuspendLayout()
Me.pnbox5.SuspendLayout() Me.pnbox5.SuspendLayout()
Me.pnbox4.SuspendLayout() Me.pnbox4.SuspendLayout()
@ -394,6 +398,7 @@ Partial Class countForm
Me.pnLuxFace.SuspendLayout() Me.pnLuxFace.SuspendLayout()
Me.gbEtc.SuspendLayout() Me.gbEtc.SuspendLayout()
Me.gbProd.SuspendLayout() Me.gbProd.SuspendLayout()
Me.pnkeyring.SuspendLayout()
Me.pnelixir.SuspendLayout() Me.pnelixir.SuspendLayout()
Me.pndayshot2.SuspendLayout() Me.pndayshot2.SuspendLayout()
Me.pnbeltbag.SuspendLayout() Me.pnbeltbag.SuspendLayout()
@ -443,7 +448,6 @@ Partial Class countForm
Me.pnHair.SuspendLayout() Me.pnHair.SuspendLayout()
Me.pnMask10.SuspendLayout() Me.pnMask10.SuspendLayout()
Me.pnMask5.SuspendLayout() Me.pnMask5.SuspendLayout()
Me.pnbox8.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label1 'Label1
@ -1382,6 +1386,39 @@ Partial Class countForm
Me.gbBox.TabStop = False Me.gbBox.TabStop = False
Me.gbBox.Text = "박스" 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 'pnbox6
' '
Me.pnbox6.Controls.Add(Me.txbbox6) Me.pnbox6.Controls.Add(Me.txbbox6)
@ -2178,6 +2215,7 @@ Partial Class countForm
' '
'gbProd 'gbProd
' '
Me.gbProd.Controls.Add(Me.pnkeyring)
Me.gbProd.Controls.Add(Me.pnelixir) Me.gbProd.Controls.Add(Me.pnelixir)
Me.gbProd.Controls.Add(Me.pndayshot2) Me.gbProd.Controls.Add(Me.pndayshot2)
Me.gbProd.Controls.Add(Me.pnbeltbag) Me.gbProd.Controls.Add(Me.pnbeltbag)
@ -2237,6 +2275,38 @@ Partial Class countForm
Me.gbProd.TabStop = False Me.gbProd.TabStop = False
Me.gbProd.Text = "구성품" 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 'pnelixir
' '
Me.pnelixir.Controls.Add(Me.txbelixir) Me.pnelixir.Controls.Add(Me.txbelixir)
@ -3763,39 +3833,6 @@ Partial Class countForm
Me.lbMask5.TabIndex = 0 Me.lbMask5.TabIndex = 0
Me.lbMask5.Text = "아쿠아 마스크" 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 'countForm
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
@ -3874,6 +3911,8 @@ Partial Class countForm
Me.pnProBeige.ResumeLayout(False) Me.pnProBeige.ResumeLayout(False)
Me.pnProBeige.PerformLayout() Me.pnProBeige.PerformLayout()
Me.gbBox.ResumeLayout(False) Me.gbBox.ResumeLayout(False)
Me.pnbox8.ResumeLayout(False)
Me.pnbox8.PerformLayout()
Me.pnbox6.ResumeLayout(False) Me.pnbox6.ResumeLayout(False)
Me.pnbox6.PerformLayout() Me.pnbox6.PerformLayout()
Me.pnbox5.ResumeLayout(False) Me.pnbox5.ResumeLayout(False)
@ -3925,6 +3964,8 @@ Partial Class countForm
Me.pnLuxFace.PerformLayout() Me.pnLuxFace.PerformLayout()
Me.gbEtc.ResumeLayout(False) Me.gbEtc.ResumeLayout(False)
Me.gbProd.ResumeLayout(False) Me.gbProd.ResumeLayout(False)
Me.pnkeyring.ResumeLayout(False)
Me.pnkeyring.PerformLayout()
Me.pnelixir.ResumeLayout(False) Me.pnelixir.ResumeLayout(False)
Me.pnelixir.PerformLayout() Me.pnelixir.PerformLayout()
Me.pndayshot2.ResumeLayout(False) Me.pndayshot2.ResumeLayout(False)
@ -4023,8 +4064,6 @@ Partial Class countForm
Me.pnMask10.PerformLayout() Me.pnMask10.PerformLayout()
Me.pnMask5.ResumeLayout(False) Me.pnMask5.ResumeLayout(False)
Me.pnMask5.PerformLayout() Me.pnMask5.PerformLayout()
Me.pnbox8.ResumeLayout(False)
Me.pnbox8.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -4338,4 +4377,7 @@ Partial Class countForm
Friend WithEvents pnbox8 As Panel Friend WithEvents pnbox8 As Panel
Friend WithEvents txbbox8 As TextBox Friend WithEvents txbbox8 As TextBox
Friend WithEvents lbbox8 As Label Friend WithEvents lbbox8 As Label
Friend WithEvents pnkeyring As Panel
Friend WithEvents txbkeyring As TextBox
Friend WithEvents lbkeyring As Label
End Class End Class

1
SalesPacking_MES_API_Project/countForm.vb
View File

@ -100,6 +100,7 @@ Public Class countForm
txbDayshot2.Text = comComCount(comDB.Dayshot2) txbDayshot2.Text = comComCount(comDB.Dayshot2)
txbelixir.Text = comComCount(comDB.Elixir) txbelixir.Text = comComCount(comDB.Elixir)
txbbox8.Text = comComCount(comDB.car8) txbbox8.Text = comComCount(comDB.car8)
txbkeyring.Text = comComCount(comDB.keyring)
End Sub 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 car8
keyring
End Enum 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 Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -449,6 +451,8 @@
comInCount(comDB.ElesqAquaAmp) = ckCount comInCount(comDB.ElesqAquaAmp) = ckCount
Case comDB.car8 Case comDB.car8
comInCount(comDB.car8) = ckCount comInCount(comDB.car8) = ckCount
Case comDB.keyring
comInCount(comDB.keyring) = ckCount
Case Else Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -578,7 +582,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt" countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt" countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt" countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt"
countCommand(prodInCount.Length + comDB.keyring) = "KeyringCnt"
Case countSaveList.autopack Case countSaveList.autopack
@ -695,6 +699,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt" countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt" countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt" countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt"
countCommand(prodInCount.Length + comDB.keyring) = "APKeyringCnt"
Case countSaveList.autoWeight Case countSaveList.autoWeight
@ -813,6 +818,7 @@
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt" countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt"
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt" countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt" countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt"
countCommand(prodInCount.Length + comDB.keyring) = "AWKeyringCnt"
End Select End Select
End Sub End Sub