jionmt-sw/shpmt-OrderPackingProcessor
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 10 Wiki Activity

1. packing count 오류 수정 : count 초기화 코드 누락으로 인해 발생한 문제로 초기화 코드 추가

Browse Source 
2. 주문정보-주소에 ' 특수문자가 포함되어 주문테이블에 추가 중 DB 오류 발생 : ' 문자에 \를 추가하여 ('\) 수정
3. 사용하지 않는 제품 (PRO_S)의 prodCode 삭제
4. 구성품, 제품의 prodCode 처리 로직 정리
This commit is contained in:
KwakJooYoung 2025-09-19 14:46:33 +09:00
parent cc87d3f17c
commit a41f9f56b1
4 changed files with 623 additions and 1226 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

243
SalesPacking_MES_API_Project/countForm.Designer.vb generated
View File

@ -145,19 +145,6 @@ Partial Class countForm
Me.txbProFace = New System.Windows.Forms.TextBox() Me.txbProFace = New System.Windows.Forms.TextBox()
Me.lbProFace = New System.Windows.Forms.Label() Me.lbProFace = New System.Windows.Forms.Label()
Me.gbCDual = New System.Windows.Forms.GroupBox() 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.pnMaximumAlpha = New System.Windows.Forms.Panel()
Me.txbMaximumAlpha = New System.Windows.Forms.TextBox() Me.txbMaximumAlpha = New System.Windows.Forms.TextBox()
Me.lbMaximumAlpha = New System.Windows.Forms.Label() Me.lbMaximumAlpha = New System.Windows.Forms.Label()
@ -201,6 +188,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.pnkeyringSally = New System.Windows.Forms.Panel()
Me.txbkeyringSally = New System.Windows.Forms.TextBox()
Me.lbkeyringSally = New System.Windows.Forms.Label()
Me.pnfirmingcollagengel = New System.Windows.Forms.Panel() Me.pnfirmingcollagengel = New System.Windows.Forms.Panel()
Me.txbfirmingcollagengel = New System.Windows.Forms.TextBox() Me.txbfirmingcollagengel = New System.Windows.Forms.TextBox()
Me.lbfirmingcollagengel = New System.Windows.Forms.Label() Me.lbfirmingcollagengel = New System.Windows.Forms.Label()
@ -363,9 +353,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.pnkeyringSally = New System.Windows.Forms.Panel()
Me.txbkeyringSally = New System.Windows.Forms.TextBox()
Me.lbkeyringSally = New System.Windows.Forms.Label()
Me.gbCount.SuspendLayout() Me.gbCount.SuspendLayout()
Me.gbCase.SuspendLayout() Me.gbCase.SuspendLayout()
Me.gbAlto.SuspendLayout() Me.gbAlto.SuspendLayout()
@ -413,11 +400,6 @@ Partial Class countForm
Me.pnProSet.SuspendLayout() Me.pnProSet.SuspendLayout()
Me.pnProFace.SuspendLayout() Me.pnProFace.SuspendLayout()
Me.gbCDual.SuspendLayout() Me.gbCDual.SuspendLayout()
Me.gbDualProS.SuspendLayout()
Me.pnProSBody.SuspendLayout()
Me.pnProSEye.SuspendLayout()
Me.pnProSSet.SuspendLayout()
Me.pnProSFace.SuspendLayout()
Me.pnMaximumAlpha.SuspendLayout() Me.pnMaximumAlpha.SuspendLayout()
Me.pneffectV3.SuspendLayout() Me.pneffectV3.SuspendLayout()
Me.pneffect.SuspendLayout() Me.pneffect.SuspendLayout()
@ -435,6 +417,7 @@ Partial Class countForm
Me.pnLuxFace.SuspendLayout() Me.pnLuxFace.SuspendLayout()
Me.gbEtc.SuspendLayout() Me.gbEtc.SuspendLayout()
Me.gbProd.SuspendLayout() Me.gbProd.SuspendLayout()
Me.pnkeyringSally.SuspendLayout()
Me.pnfirmingcollagengel.SuspendLayout() Me.pnfirmingcollagengel.SuspendLayout()
Me.pndoenaliftingcream.SuspendLayout() Me.pndoenaliftingcream.SuspendLayout()
Me.pndoenaliftingamp.SuspendLayout() Me.pndoenaliftingamp.SuspendLayout()
@ -489,7 +472,6 @@ Partial Class countForm
Me.pnHair.SuspendLayout() Me.pnHair.SuspendLayout()
Me.pnMask10.SuspendLayout() Me.pnMask10.SuspendLayout()
Me.pnMask5.SuspendLayout() Me.pnMask5.SuspendLayout()
Me.pnkeyringSally.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label1 'Label1
@ -1722,7 +1704,6 @@ Partial Class countForm
' '
'gbCDual 'gbCDual
' '
Me.gbCDual.Controls.Add(Me.gbDualProS)
Me.gbCDual.Controls.Add(Me.pnMaximumAlpha) Me.gbCDual.Controls.Add(Me.pnMaximumAlpha)
Me.gbCDual.Controls.Add(Me.pneffectV3) Me.gbCDual.Controls.Add(Me.pneffectV3)
Me.gbCDual.Controls.Add(Me.pneffect) Me.gbCDual.Controls.Add(Me.pneffect)
@ -1739,136 +1720,6 @@ Partial Class countForm
Me.gbCDual.TabStop = False Me.gbCDual.TabStop = False
Me.gbCDual.Text = "DUALSONIC" 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, 418)
Me.gbDualProS.Name = "gbDualProS"
Me.gbDualProS.Size = New System.Drawing.Size(165, 188)
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(6, 145)
Me.pnProSBody.Name = "pnProSBody"
Me.pnProSBody.Size = New System.Drawing.Size(149, 34)
Me.pnProSBody.TabIndex = 3
'
'txbProSBody
'
Me.txbProSBody.BackColor = System.Drawing.SystemColors.Window
Me.txbProSBody.Location = New System.Drawing.Point(68, 0)
Me.txbProSBody.MaxLength = 10
Me.txbProSBody.Name = "txbProSBody"
Me.txbProSBody.ReadOnly = True
Me.txbProSBody.Size = New System.Drawing.Size(77, 32)
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, 3)
Me.lbProSBody.Name = "lbProSBody"
Me.lbProSBody.Size = New System.Drawing.Size(63, 24)
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(6, 107)
Me.pnProSEye.Name = "pnProSEye"
Me.pnProSEye.Size = New System.Drawing.Size(149, 34)
Me.pnProSEye.TabIndex = 2
'
'txbProSEye
'
Me.txbProSEye.BackColor = System.Drawing.SystemColors.Window
Me.txbProSEye.Location = New System.Drawing.Point(68, 0)
Me.txbProSEye.MaxLength = 10
Me.txbProSEye.Name = "txbProSEye"
Me.txbProSEye.ReadOnly = True
Me.txbProSEye.Size = New System.Drawing.Size(77, 32)
Me.txbProSEye.TabIndex = 1
Me.txbProSEye.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'lbProSEye
'
Me.lbProSEye.AutoSize = True
Me.lbProSEye.Location = New System.Drawing.Point(15, 3)
Me.lbProSEye.Name = "lbProSEye"
Me.lbProSEye.Size = New System.Drawing.Size(47, 24)
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(6, 31)
Me.pnProSSet.Name = "pnProSSet"
Me.pnProSSet.Size = New System.Drawing.Size(149, 34)
Me.pnProSSet.TabIndex = 1
'
'txbProSSet
'
Me.txbProSSet.BackColor = System.Drawing.SystemColors.Window
Me.txbProSSet.Location = New System.Drawing.Point(68, 0)
Me.txbProSSet.MaxLength = 10
Me.txbProSSet.Name = "txbProSSet"
Me.txbProSSet.ReadOnly = True
Me.txbProSSet.Size = New System.Drawing.Size(77, 32)
Me.txbProSSet.TabIndex = 1
Me.txbProSSet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'lbProSSet
'
Me.lbProSSet.AutoSize = True
Me.lbProSSet.Location = New System.Drawing.Point(15, 3)
Me.lbProSSet.Name = "lbProSSet"
Me.lbProSSet.Size = New System.Drawing.Size(47, 24)
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(6, 69)
Me.pnProSFace.Name = "pnProSFace"
Me.pnProSFace.Size = New System.Drawing.Size(149, 34)
Me.pnProSFace.TabIndex = 0
'
'txbProSFace
'
Me.txbProSFace.BackColor = System.Drawing.SystemColors.Window
Me.txbProSFace.Location = New System.Drawing.Point(68, 0)
Me.txbProSFace.MaxLength = 10
Me.txbProSFace.Name = "txbProSFace"
Me.txbProSFace.ReadOnly = True
Me.txbProSFace.Size = New System.Drawing.Size(77, 32)
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, 3)
Me.lbProSFace.Name = "lbProSFace"
Me.lbProSFace.Size = New System.Drawing.Size(59, 24)
Me.lbProSFace.TabIndex = 0
Me.lbProSFace.Text = "FACE"
'
'pnMaximumAlpha 'pnMaximumAlpha
' '
Me.pnMaximumAlpha.Controls.Add(Me.txbMaximumAlpha) Me.pnMaximumAlpha.Controls.Add(Me.txbMaximumAlpha)
@ -2360,6 +2211,36 @@ Partial Class countForm
Me.gbProd.TabStop = False Me.gbProd.TabStop = False
Me.gbProd.Text = "구성품" Me.gbProd.Text = "구성품"
' '
'pnkeyringSally
'
Me.pnkeyringSally.Controls.Add(Me.txbkeyringSally)
Me.pnkeyringSally.Controls.Add(Me.lbkeyringSally)
Me.pnkeyringSally.Location = New System.Drawing.Point(418, 538)
Me.pnkeyringSally.Name = "pnkeyringSally"
Me.pnkeyringSally.Size = New System.Drawing.Size(204, 34)
Me.pnkeyringSally.TabIndex = 37
'
'txbkeyringSally
'
Me.txbkeyringSally.BackColor = System.Drawing.SystemColors.Window
Me.txbkeyringSally.Location = New System.Drawing.Point(121, 0)
Me.txbkeyringSally.MaxLength = 10
Me.txbkeyringSally.Name = "txbkeyringSally"
Me.txbkeyringSally.ReadOnly = True
Me.txbkeyringSally.Size = New System.Drawing.Size(77, 32)
Me.txbkeyringSally.TabIndex = 1
Me.txbkeyringSally.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'lbkeyringSally
'
Me.lbkeyringSally.AutoSize = True
Me.lbkeyringSally.Location = New System.Drawing.Point(3, 2)
Me.lbkeyringSally.Name = "lbkeyringSally"
Me.lbkeyringSally.Size = New System.Drawing.Size(95, 31)
Me.lbkeyringSally.TabIndex = 0
Me.lbkeyringSally.Text = "키링(샐리)"
Me.lbkeyringSally.UseCompatibleTextRendering = True
'
'pnfirmingcollagengel 'pnfirmingcollagengel
' '
Me.pnfirmingcollagengel.Controls.Add(Me.txbfirmingcollagengel) Me.pnfirmingcollagengel.Controls.Add(Me.txbfirmingcollagengel)
@ -3938,36 +3819,6 @@ Partial Class countForm
Me.lbMask5.TabIndex = 0 Me.lbMask5.TabIndex = 0
Me.lbMask5.Text = "아쿠아 마스크" Me.lbMask5.Text = "아쿠아 마스크"
' '
'pnkeyringSally
'
Me.pnkeyringSally.Controls.Add(Me.txbkeyringSally)
Me.pnkeyringSally.Controls.Add(Me.lbkeyringSally)
Me.pnkeyringSally.Location = New System.Drawing.Point(418, 538)
Me.pnkeyringSally.Name = "pnkeyringSally"
Me.pnkeyringSally.Size = New System.Drawing.Size(204, 34)
Me.pnkeyringSally.TabIndex = 37
'
'txbkeyringSally
'
Me.txbkeyringSally.BackColor = System.Drawing.SystemColors.Window
Me.txbkeyringSally.Location = New System.Drawing.Point(121, 0)
Me.txbkeyringSally.MaxLength = 10
Me.txbkeyringSally.Name = "txbkeyringSally"
Me.txbkeyringSally.ReadOnly = True
Me.txbkeyringSally.Size = New System.Drawing.Size(77, 32)
Me.txbkeyringSally.TabIndex = 1
Me.txbkeyringSally.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'lbkeyringSally
'
Me.lbkeyringSally.AutoSize = True
Me.lbkeyringSally.Location = New System.Drawing.Point(3, 2)
Me.lbkeyringSally.Name = "lbkeyringSally"
Me.lbkeyringSally.Size = New System.Drawing.Size(95, 31)
Me.lbkeyringSally.TabIndex = 0
Me.lbkeyringSally.Text = "키링(샐리)"
Me.lbkeyringSally.UseCompatibleTextRendering = True
'
'countForm 'countForm
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
@ -4071,15 +3922,6 @@ Partial Class countForm
Me.pnProFace.ResumeLayout(False) Me.pnProFace.ResumeLayout(False)
Me.pnProFace.PerformLayout() Me.pnProFace.PerformLayout()
Me.gbCDual.ResumeLayout(False) 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.ResumeLayout(False)
Me.pnMaximumAlpha.PerformLayout() Me.pnMaximumAlpha.PerformLayout()
Me.pneffectV3.ResumeLayout(False) Me.pneffectV3.ResumeLayout(False)
@ -4110,6 +3952,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.pnkeyringSally.ResumeLayout(False)
Me.pnkeyringSally.PerformLayout()
Me.pnfirmingcollagengel.ResumeLayout(False) Me.pnfirmingcollagengel.ResumeLayout(False)
Me.pnfirmingcollagengel.PerformLayout() Me.pnfirmingcollagengel.PerformLayout()
Me.pndoenaliftingcream.ResumeLayout(False) Me.pndoenaliftingcream.ResumeLayout(False)
@ -4218,8 +4062,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.pnkeyringSally.ResumeLayout(False)
Me.pnkeyringSally.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -4539,19 +4381,6 @@ Partial Class countForm
Friend WithEvents pnMaximumAlpha As Panel Friend WithEvents pnMaximumAlpha As Panel
Friend WithEvents txbMaximumAlpha As TextBox Friend WithEvents txbMaximumAlpha As TextBox
Friend WithEvents lbMaximumAlpha As Label Friend WithEvents lbMaximumAlpha 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
Friend WithEvents pndoenaliftingtoner As Panel Friend WithEvents pndoenaliftingtoner As Panel
Friend WithEvents txbdoenaliftingtoner As TextBox Friend WithEvents txbdoenaliftingtoner As TextBox
Friend WithEvents lbdoenaliftingtoner As Label Friend WithEvents lbdoenaliftingtoner As Label

5
SalesPacking_MES_API_Project/countForm.vb
View File

@ -26,10 +26,7 @@ Public Class countForm
txbeffect.Text = prodComCount(prodDB.effect) txbeffect.Text = prodComCount(prodDB.effect)
txbeffectV3.Text = prodComCount(prodDB.effectV3) txbeffectV3.Text = prodComCount(prodDB.effectV3)
txbMaximumAlpha.Text = prodComCount(prodDB.maximumAlpha) 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) txbMask5.Text = comComCount(comDB.mask5)
txbMask10.Text = comComCount(comDB.mask10) txbMask10.Text = comComCount(comDB.mask10)

1219
SalesPacking_MES_API_Project/mainForm.vb
View File

File diff suppressed because it is too large Load Diff

382
SalesPacking_MES_API_Project/mySQLAddress.vb
View File

@ -79,16 +79,14 @@
effect effect
effectV3 effectV3
maximumAlpha maximumAlpha
proSset '신규제품추가 : 추가하는 품목의 변수 추가
proSface
proSeye
proSbody
End Enum End Enum
Public prodDBCount(prodDB.proSbody) As Integer '' DB 저장 Public prodDB_max_index As Integer = [Enum].GetNames(GetType(prodDB)).Length - 1
Public prodInCount(prodDB.proSbody) As Integer '' 패킹 저장 10 Public prodDBCount(prodDB_max_index) As Integer '' DB 저장
Public prodComCount(prodDB.proSbody) As Integer '' 로컬 저장 Public prodInCount(prodDB_max_index) As Integer '' 패킹 저장 10
Public prodInSerial(prodDB.proSbody) As String '' LogData 저장 Public prodComCount(prodDB_max_index) As Integer '' 로컬 저장
Public prodPackCommand(prodDB.proSbody) As String '' Public prodInSerial(prodDB_max_index) As String '' LogData 저장
Public prodPackCommand(prodDB_max_index) As String ''
Public Enum comDB Public Enum comDB
mask5 mask5
@ -191,323 +189,32 @@
beautykitMirrorL beautykitMirrorL
'신규구성품추가 : 추가하는 품목의 변수 추가 '신규구성품추가 : 추가하는 품목의 변수 추가
End Enum End Enum
'신규구성품추가 : comDBCount, comInCount, comComCount comDB 크기에 맞춰 배열 크기 조정 Public comDB_max_index As Integer = [Enum].GetNames(GetType(comDB)).Length - 1
Public comDBCount(comDB.beautykitMirrorL) As Integer ''DB 저장 Public comDBCount(comDB_max_index) As Integer ''DB 저장
Public comInCount(comDB.beautykitMirrorL) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comInCount(comDB_max_index) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.beautykitMirrorL) As Integer '' 로컬 저장 Public comComCount(comDB_max_index) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
Public Function packingCountset(dbType As Int16, prodCode As Int16, ckCount As Int16, serial As String) Public Function packingCountset(dbType As Int16, prodCode As Int16, ckCount As Int16, serial As String)
If dbType = dbCode.prodDBcode Then If dbType = dbCode.prodDBcode Then
Select Case prodCode If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then
Case prodDB.proset prodInCount(prodCode) = ckCount
prodInCount(prodDB.proset) = ckCount prodInSerial(prodCode) = serial
prodInSerial(prodDB.proset) = serial Else
Case prodDB.luxset MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
prodInCount(prodDB.luxset) = ckCount Return True
prodInSerial(prodDB.luxset) = serial End If
Case prodDB.proface
prodInCount(prodDB.proface) = ckCount
prodInSerial(prodDB.proface) = serial
Case prodDB.luxface
prodInCount(prodDB.luxface) = ckCount
prodInSerial(prodDB.luxface) = serial
Case prodDB.proeye
prodInCount(prodDB.proeye) = ckCount
prodInSerial(prodDB.proeye) = serial
Case prodDB.luxeye
prodInCount(prodDB.luxeye) = ckCount
prodInSerial(prodDB.luxeye) = serial
Case prodDB.probody
prodInCount(prodDB.probody) = ckCount
prodInSerial(prodDB.probody) = serial
Case prodDB.luxbody
prodInCount(prodDB.luxbody) = ckCount
prodInSerial(prodDB.luxbody) = serial
Case prodDB.maximum
prodInCount(prodDB.maximum) = ckCount
prodInSerial(prodDB.maximum) = serial
Case prodDB.alphaSet
prodInCount(prodDB.alphaSet) = ckCount
prodInSerial(prodDB.alphaSet) = serial
Case prodDB.alphaFace
prodInCount(prodDB.alphaFace) = ckCount
prodInSerial(prodDB.alphaFace) = serial
Case prodDB.alphaEye
prodInCount(prodDB.alphaEye) = ckCount
prodInSerial(prodDB.alphaEye) = serial
Case prodDB.alphaBody
prodInCount(prodDB.alphaBody) = ckCount
prodInSerial(prodDB.alphaBody) = serial
Case prodDB.alto
prodInCount(prodDB.alto) = ckCount
prodInSerial(prodDB.alto) = serial
Case prodDB.effect
prodInCount(prodDB.effect) = ckCount
prodInSerial(prodDB.effect) = serial
Case prodDB.effectV3
prodInCount(prodDB.effectV3) = ckCount
prodInSerial(prodDB.effectV3) = serial
Case prodDB.maximumAlpha
prodInCount(prodDB.maximumAlpha) = ckCount
prodInSerial(prodDB.maximumAlpha) = 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)
Return True
End Select
Else Else
Select Case prodCode If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then
Case comDB.mask5 comInCount(prodCode) = ckCount
comInCount(comDB.mask5) = ckCount Else
Case comDB.mask10 MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
comInCount(comDB.mask10) = ckCount Return True
Case comDB.hairband End If
comInCount(comDB.hairband) = ckCount
Case comDB.gel
comInCount(comDB.gel) = ckCount
Case comDB.minigel
comInCount(comDB.minigel) = ckCount
Case comDB.ample
comInCount(comDB.ample) = ckCount
Case comDB.cream
comInCount(comDB.cream) = ckCount
Case comDB.umb
comInCount(comDB.umb) = ckCount
Case comDB.fen
comInCount(comDB.fen) = ckCount
Case comDB.charger
comInCount(comDB.charger) = ckCount
Case comDB.cable
comInCount(comDB.cable) = ckCount
Case comDB.toner
comInCount(comDB.toner) = ckCount
Case comDB.problack
comInCount(comDB.problack) = ckCount
Case comDB.probeige
comInCount(comDB.probeige) = ckCount
Case comDB.prored
comInCount(comDB.prored) = ckCount
Case comDB.propink
comInCount(comDB.propink) = ckCount
Case comDB.maxblack
comInCount(comDB.maxblack) = ckCount
Case comDB.maxapr
comInCount(comDB.maxapr) = ckCount
Case comDB.maxmint
comInCount(comDB.maxmint) = ckCount
Case comDB.maxbeige
comInCount(comDB.maxbeige) = ckCount
Case comDB.maxPurple
comInCount(comDB.maxPurple) = ckCount
Case comDB.soothing
comInCount(comDB.soothing) = ckCount
Case comDB.car0
comInCount(comDB.car0) = ckCount
Case comDB.car1
comInCount(comDB.car1) = ckCount
Case comDB.car2
comInCount(comDB.car2) = ckCount
Case comDB.car3
comInCount(comDB.car3) = ckCount
Case comDB.car4
comInCount(comDB.car4) = ckCount
Case comDB.car5
comInCount(comDB.car5) = ckCount
Case comDB.car6
comInCount(comDB.car6) = ckCount
Case comDB.bag
comInCount(comDB.bag) = ckCount
Case comDB.cosbag
comInCount(comDB.cosbag) = ckCount
Case comDB.dustbag
comInCount(comDB.dustbag) = ckCount
Case comDB.proSnakeBlack
comInCount(comDB.proSnakeBlack) = ckCount
Case comDB.kollagen
comInCount(comDB.kollagen) = ckCount
Case comDB.kollagenset
comInCount(comDB.kollagenset) = ckCount
Case comDB.kollagen_P
comInCount(comDB.kollagen_P) = ckCount
Case comDB.kollagenset_P
comInCount(comDB.kollagenset_P) = ckCount
Case comDB.cleansingWater
comInCount(comDB.cleansingWater) = ckCount
Case comDB.tonerPad
comInCount(comDB.tonerPad) = ckCount
Case comDB.maxSaffianoBK
comInCount(comDB.maxSaffianoBK) = ckCount
Case comDB.hologram1
comInCount(comDB.hologram1) = ckCount
Case comDB.hologram3
comInCount(comDB.hologram3) = ckCount
Case comDB.hologram5
comInCount(comDB.hologram5) = ckCount
Case comDB.caseSaffianoPp
comInCount(comDB.caseSaffianoPp) = ckCount
Case comDB.maxYellow
comInCount(comDB.maxYellow) = ckCount
Case comDB.Kollagen_Pe1
comInCount(comDB.Kollagen_Pe1) = ckCount
Case comDB.Kollagen_Pe3
comInCount(comDB.Kollagen_Pe3) = ckCount
Case comDB.Kollagen_Pe5
comInCount(comDB.Kollagen_Pe5) = ckCount
Case comDB.ATCircleCase
comInCount(comDB.ATCircleCase) = ckCount
Case comDB.APSquareCase
comInCount(comDB.APSquareCase) = ckCount
Case comDB.maxPeach
comInCount(comDB.maxPeach) = ckCount
Case comDB.massageSoothing
comInCount(comDB.massageSoothing) = ckCount
Case comDB.maxSMint
comInCount(comDB.maxSMint) = ckCount
Case comDB.meshpouch
comInCount(comDB.meshpouch) = ckCount
Case comDB.firmingAmp
comInCount(comDB.firmingAmp) = ckCount
Case comDB.hyaluronicAmp
comInCount(comDB.hyaluronicAmp) = ckCount
Case comDB.nightshot
comInCount(comDB.nightshot) = ckCount
Case comDB.morningshot
comInCount(comDB.morningshot) = ckCount
Case comDB.casemaxwoodi
comInCount(comDB.casemaxwoodi) = ckCount
Case comDB.Elicolltoner
comInCount(comDB.Elicolltoner) = ckCount
Case comDB.Elicollamp
comInCount(comDB.Elicollamp) = ckCount
Case comDB.Elicollcream
comInCount(comDB.Elicollcream) = ckCount
Case comDB.Elihyaltoner
comInCount(comDB.Elihyaltoner) = ckCount
Case comDB.Elihyalamp
comInCount(comDB.Elihyalamp) = ckCount
Case comDB.Elihyalcream
comInCount(comDB.Elihyalcream) = ckCount
Case comDB.Dayshot
comInCount(comDB.Dayshot) = ckCount
Case comDB.Beautyshopbag
comInCount(comDB.Beautyshopbag) = ckCount
Case comDB.Gummy
comInCount(comDB.Gummy) = ckCount
Case comDB.Stickjelly
comInCount(comDB.Stickjelly) = ckCount
Case comDB.Newyearbag
comInCount(comDB.Newyearbag) = ckCount
Case comDB.Emsbelt
comInCount(comDB.Emsbelt) = ckCount
Case comDB.Beltbag
comInCount(comDB.Beltbag) = ckCount
Case comDB.Dayshot2
comInCount(comDB.Dayshot2) = ckCount
Case comDB.Elixir
comInCount(comDB.Elixir) = ckCount
Case comDB.Elixirpremium
comInCount(comDB.Elixirpremium) = ckCount
Case comDB.Emsbeltcontrollset
comInCount(comDB.Emsbeltcontrollset) = ckCount
Case comDB.FabricBag
comInCount(comDB.FabricBag) = ckCount
Case comDB.Goldshopbag
comInCount(comDB.Goldshopbag) = ckCount
Case comDB.MorNigshotset
comInCount(comDB.MorNigshotset) = ckCount
Case comDB.ElesqLiftingToner
comInCount(comDB.ElesqLiftingToner) = ckCount
Case comDB.ElesqLiftingCeam
comInCount(comDB.ElesqLiftingCeam) = ckCount
Case comDB.ElesqLiftingECream
comInCount(comDB.ElesqLiftingECream) = ckCount
Case comDB.ElesqLiftingAmp
comInCount(comDB.ElesqLiftingAmp) = ckCount
Case comDB.ElesqAquaToner
comInCount(comDB.ElesqAquaToner) = ckCount
Case comDB.ElesqAquaCeam
comInCount(comDB.ElesqAquaCeam) = ckCount
Case comDB.ElesqAquaECream
comInCount(comDB.ElesqAquaECream) = ckCount
Case comDB.ElesqAquaAmp
comInCount(comDB.ElesqAquaAmp) = ckCount
Case comDB.car8
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 comDB.FirmingCollagenGel
comInCount(comDB.FirmingCollagenGel) = ckCount
Case comDB.keyringSally
comInCount(comDB.keyringSally) = ckCount
Case comDB.beautykitHairband
comInCount(comDB.beautykitHairband) = ckCount
Case comDB.beautykitMirrorS
comInCount(comDB.beautykitMirrorS) = ckCount
Case comDB.beautykitMirrorL
comInCount(comDB.beautykitMirrorL) = ckCount
'신규구성품추가 : 추가한 comDB 수량 카운트를 위해 Case 문 추가
Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
Return True
End Select
End If End If
Return False Return False
End Function End Function
Public Sub countCommandFunc(saveType As Int16) Public Sub countCommandFunc(saveType As Int16)
@ -533,10 +240,7 @@
countCommand(prodDB.effect) = "EffectCnt" countCommand(prodDB.effect) = "EffectCnt"
countCommand(prodDB.effectV3) = "EffectV3Cnt" countCommand(prodDB.effectV3) = "EffectV3Cnt"
countCommand(prodDB.maximumAlpha) = "MAXIMUMALPHACnt" countCommand(prodDB.maximumAlpha) = "MAXIMUMALPHACnt"
countCommand(prodDB.proSset) = "ProSSetCnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 일반동작 컬럼명 추가
countCommand(prodDB.proSface) = "ProSFaceCnt"
countCommand(prodDB.proSeye) = "ProSEyeCnt"
countCommand(prodDB.proSbody) = "ProSBodyCnt"
countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt" countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt" countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt"
@ -658,10 +362,7 @@
countCommand(prodDB.effect) = "APEffectCnt" countCommand(prodDB.effect) = "APEffectCnt"
countCommand(prodDB.effectV3) = "APEffectV3Cnt" countCommand(prodDB.effectV3) = "APEffectV3Cnt"
countCommand(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt" countCommand(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt"
countCommand(prodDB.proSset) = "APProSSetCnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(포장) 컬럼명 추가
countCommand(prodDB.proSface) = "APProSFaceCnt"
countCommand(prodDB.proSeye) = "APProSEyeCnt"
countCommand(prodDB.proSbody) = "APProSBodyCnt"
countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt" countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt" countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt"
@ -783,10 +484,7 @@
countCommand(prodDB.effect) = "AWEffectCnt" countCommand(prodDB.effect) = "AWEffectCnt"
countCommand(prodDB.effectV3) = "AWEffectV3Cnt" countCommand(prodDB.effectV3) = "AWEffectV3Cnt"
countCommand(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt" countCommand(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt"
countCommand(prodDB.proSset) = "AWProSSetCnt" '신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(무게측정) 컬럼명 추가
countCommand(prodDB.proSface) = "AWProSFaceCnt"
countCommand(prodDB.proSeye) = "AWProSEyeCnt"
countCommand(prodDB.proSbody) = "AWProSBodyCnt"
countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt" countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt"
countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt" countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt"
@ -892,31 +590,23 @@
End Sub End Sub
Public Sub countDBCommand() Public Sub countDBCommand()
prodPackCommand(prodDB.proset) = "ProSetSerial" prodPackCommand(prodDB.proset) = "Main_Product_SN"
prodPackCommand(prodDB.luxset) = "LuxSetSerial" prodPackCommand(prodDB.luxset) = "Main_Product_SN"
prodPackCommand(prodDB.proface) = "ProFaceSerial" prodPackCommand(prodDB.proface) = "Pro_Face_Serial"
prodPackCommand(prodDB.luxface) = "LuxFaceSerial" prodPackCommand(prodDB.luxface) = "Lux_Face_Serial"
prodPackCommand(prodDB.proeye) = "ProEyeSerial" prodPackCommand(prodDB.proeye) = "Pro_Eye_Serial"
prodPackCommand(prodDB.luxeye) = "LuxEyeSerial" prodPackCommand(prodDB.luxeye) = "Lux_Eye_Serial"
prodPackCommand(prodDB.probody) = "ProBodySerial" prodPackCommand(prodDB.probody) = "Pro_Body_Serial"
prodPackCommand(prodDB.luxbody) = "LuxBodySerial" prodPackCommand(prodDB.luxbody) = "Lux_Body_Serial"
prodPackCommand(prodDB.maximum) = "MAXIMUM_SN" prodPackCommand(prodDB.maximum) = "MAXIMUM_SN"
prodPackCommand(prodDB.alphaSet) = "Alpha_Set_Serial" prodPackCommand(prodDB.alphaSet) = "Alpha_Set_Serial"
prodPackCommand(prodDB.alphaFace) = "Alpha_Face_Serial" prodPackCommand(prodDB.alphaFace) = "Alpha_Face_Serial"
prodPackCommand(prodDB.alphaEye) = "Alpha_Eye_Serial" prodPackCommand(prodDB.alphaEye) = "Alpha_Eye_Serial"
prodPackCommand(prodDB.alphaBody) = "Alpha_Body_Serial" prodPackCommand(prodDB.alphaBody) = "Alpha_Body_Serial"
prodPackCommand(prodDB.alto) = "Alto_Serial" prodPackCommand(prodDB.alto) = "Alto_Serial"
prodPackCommand(prodDB.effect) = "Effect_Serial" prodPackCommand(prodDB.effect) = "Effect_Serial"
prodPackCommand(prodDB.effectV3) = "EffectV3_Serial" prodPackCommand(prodDB.effectV3) = "EffectV3_Serial"
prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN" prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN"
'신규제품추가 : jomtSalesPackingTbl 에 추가한 품목의 시리얼번호 컬럼 추가
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 Sub
End Module End Module