문제점 : 같은 prodCode의 주문상품을 등록하면 마지막으로 등록한 상품의 정보만 패킹카운드 테이블에 저장됨
원인 : prodCode 정보를 기준으로 그냥 쓰기 처리되어, 이전 정보를 overwrite하였음 해결 : prodCode 정보가 있는 경우 추가되는 정보에 대해 추가하도록 처리함.
This commit is contained in:
parent
a41f9f56b1
commit
ac895bb01d
@ -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
|
||||||
|
If prodInSerial(prodCode) = Nothing Then
|
||||||
prodInSerial(prodCode) = serial
|
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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user