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

feat: 신규 구성품(모닝샷&나이트샷 세트, CTbox) 추가

Browse Source
This commit is contained in:
kje97 2025-07-10 15:28:19 +09:00
parent aca0148e9f
commit f2b65b3a3d
2 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
SalesPacking_MES_API_Project/mainForm.vb
View File

File diff suppressed because one or more lines are too long

18
SalesPacking_MES_API_Project/mySQLAddress.vb
View File

@ -165,11 +165,13 @@
Emsbeltcontrollset Emsbeltcontrollset
FabricBag FabricBag
Goldshopbag Goldshopbag
MorNigshotset
CTBox
End Enum End Enum
Public comDBCount(comDB.Goldshopbag) As Integer ''DB 저장 Public comDBCount(comDB.CTBox) As Integer ''DB 저장
Public comInCount(comDB.Goldshopbag) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41 Public comInCount(comDB.CTBox) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
Public comComCount(comDB.Goldshopbag) As Integer '' 로컬 저장 Public comComCount(comDB.CTBox) As Integer '' 로컬 저장
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
@ -411,6 +413,10 @@
comInCount(comDB.FabricBag) = ckCount comInCount(comDB.FabricBag) = ckCount
Case comDB.Goldshopbag Case comDB.Goldshopbag
comInCount(comDB.Goldshopbag) = ckCount comInCount(comDB.Goldshopbag) = ckCount
Case comDB.MorNigshotset
comInCount(comDB.MorNigshotset) = ckCount
Case comDB.CTBox
comInCount(comDB.CTBox) = ckCount
Case Else Case Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
@ -528,6 +534,8 @@
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "Emsbeltcontrollsetcnt" countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "Emsbeltcontrollsetcnt"
countCommand(prodInCount.Length + comDB.FabricBag) = "FabricBagcnt" countCommand(prodInCount.Length + comDB.FabricBag) = "FabricBagcnt"
countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "MorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "CTBoxcnt"
Case countSaveList.autopack Case countSaveList.autopack
@ -632,6 +640,8 @@
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "APEmsbeltcontrollsetcnt" countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "APEmsbeltcontrollsetcnt"
countCommand(prodInCount.Length + comDB.FabricBag) = "APFabricBagcnt" countCommand(prodInCount.Length + comDB.FabricBag) = "APFabricBagcnt"
countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "APMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "APCTBoxcnt"
Case countSaveList.autoWeight Case countSaveList.autoWeight
@ -739,6 +749,8 @@
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "AWEmsbeltcontrollsetcnt" countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "AWEmsbeltcontrollsetcnt"
countCommand(prodInCount.Length + comDB.FabricBag) = "AWFabricBagcnt" countCommand(prodInCount.Length + comDB.FabricBag) = "AWFabricBagcnt"
countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt" countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt"
countCommand(prodInCount.Length + comDB.MorNigshotset) = "AWMorNigshotsetcnt"
countCommand(prodInCount.Length + comDB.CTBox) = "AWCTBoxcnt"
End Select End Select
End Sub End Sub