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

신규 구성품 추가 : L004-0089, L004-0090, P001-0171, L004-0091

Browse Source
This commit is contained in:
KwakJooYoung 2025-09-26 13:30:03 +09:00
parent fe3c4dc942
commit 932466975c
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
State_Comparision_Ver_1.0.0/frm_Main.vb
View File

@ -1388,7 +1388,7 @@ Public Class frm_Main
Dim itemCode As String = Nothing Dim itemCode As String = Nothing
Dim itemName As String = Nothing Dim itemName As String = Nothing
For i = 0 To cCountData.Length - 1 For i = 0 To cCountList_max_index
itemCode = Nothing itemCode = Nothing
itemName = Nothing itemName = Nothing
If cCountData(i) <> 0 Then If cCountData(i) <> 0 Then
@ -1569,12 +1569,15 @@ Public Class frm_Main
,KeyringSallyCnt ,KeyringSallyCnt
,BeautykitHairbandCnt ,BeautykitHairbandCnt
,BeautykitMirrorSCnt ,BeautykitMirrorSCnt
,BeautykitMirrorLCnt ,BeautykitMirrorLCnt
,BloomingMoistureGel150Cnt
,FirmingCollagenGel150Cnt
,TweedCaseCnt
,BloomingMoistureGel250Cnt
FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규구성품추가 : 포장 구성품 수량 조회 추가 FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규구성품추가 : 포장 구성품 수량 조회 추가
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
'신규구성품추가 : 추가된 품목에 따라 배열 크기 변경 For i = 0 To cCountList_max_index
For i = 0 To cCountList.beautykitMirrorL
cCountData(i) = Val(sqlDataQuery(i)) cCountData(i) = Val(sqlDataQuery(i))
Next Next
Return True Return True
@ -1599,7 +1602,7 @@ Public Class frm_Main
Private Function serialDivision() As Boolean Private Function serialDivision() As Boolean
Dim slashNum As Int16 Dim slashNum As Int16
For i = 0 To pSerialData.Length - 1 For i = 0 To pSerialList_max_index
Dim restData As String = pSerialData(i) Dim restData As String = pSerialData(i)
If restData <> "0" Then If restData <> "0" Then
slashNum = UBound(Split(restData, ",")) slashNum = UBound(Split(restData, ","))
@ -1913,7 +1916,7 @@ Public Class frm_Main
,MAXIMUM_ALPHA_SN ,MAXIMUM_ALPHA_SN
FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규제품추가 : 추가하는 품목의 시리얼번호 조회 컬럼 추가 FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규제품추가 : 추가하는 품목의 시리얼번호 조회 컬럼 추가
If DBQueryReader(DBCmd) Then If DBQueryReader(DBCmd) Then
For i = 0 To pSerialData.Length - 1 For i = 0 To pSerialList_max_index
pSerialData(i) = sqlDataQuery(i) pSerialData(i) = sqlDataQuery(i)
Next Next
Else Else
@ -3455,7 +3458,7 @@ Public Class frm_Main
ProdSelect(i) = Nothing ProdSelect(i) = Nothing
Next Next
For i = 0 To pSerialData.Length - 1 For i = 0 To pSerialList_max_index
pSerialData(i) = Nothing pSerialData(i) = Nothing
Next Next

12
State_Comparision_Ver_1.0.0/mysqlAddress.vb
View File

@ -50,8 +50,8 @@
MaximumAlpha MaximumAlpha
'신규제품추가 : 추가하는 품목의 변수 추가 '신규제품추가 : 추가하는 품목의 변수 추가
End Enum End Enum
'신규제품추가 : 배열 크기 변경 Public pSerialList_max_index As Integer = [Enum].GetNames(GetType(pSerialList)).Length - 1
Public pSerialData(pSerialList.MaximumAlpha) As String Public pSerialData(pSerialList_max_index) As String
Public Enum cCountList Public Enum cCountList
Mask5Cnt Mask5Cnt
@ -156,8 +156,12 @@
beautykitHairband beautykitHairband
beautykitMirrorS beautykitMirrorS
beautykitMirrorL beautykitMirrorL
bloomingMoistureGel150
firmingCollagenGel150
tweedCase
bloomingMoistureGel250
'신규구성품추가 : 추가하는 품목의 변수 추가 '신규구성품추가 : 추가하는 품목의 변수 추가
End Enum End Enum
'신규구성품추가 : 배열 크기 변경 Public cCountList_max_index As Integer = [Enum].GetNames(GetType(cCountList)).Length - 1
Public cCountData(cCountList.beautykitMirrorL) As Integer Public cCountData(cCountList_max_index) As Integer
End Module End Module