문제점 : 같은 prodCode의 주문상품을 등록하면 마지막으로 등록한 상품의 정보만 패킹카운드 테이블에 저장됨

원인 : prodCode 정보를 기준으로 그냥 쓰기 처리되어, 이전 정보를 overwrite하였음
해결 : prodCode 정보가 있는 경우 추가되는 정보에 대해 추가하도록 처리함.
This commit is contained in:
KwakJooYoung 2025-09-23 11:20:29 +09:00
parent a41f9f56b1
commit ac895bb01d

View File

@ -199,15 +199,19 @@
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
If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then
prodInCount(prodCode) = ckCount prodInCount(prodCode) += ckCount
prodInSerial(prodCode) = serial If prodInSerial(prodCode) = Nothing Then
prodInSerial(prodCode) = serial
Else
prodInSerial(prodCode) = prodInSerial(prodCode) & "/" & serial
End If
Else Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
Return True Return True
End If End If
Else Else
If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then
comInCount(prodCode) = ckCount comInCount(prodCode) += ckCount
Else Else
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical) MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
Return True Return True