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