신규품목 추가 : MAXIMUM ALPHA, 사은품 JGIFT-0031, JGIFT-0032, JGIFT-0033, JGIFT-0034

This commit is contained in:
KwakJooYoung 2025-09-16 10:05:31 +09:00
parent e4b56ab867
commit dd1518aa74
2 changed files with 155 additions and 6 deletions

View File

@ -5,7 +5,7 @@ Imports Newtonsoft.Json.Linq
Public Class frm_Main
Public programName As String = "DUALSONIC Mapping Or Search Program Ver. "
Private programVer As String = "1.0.3"
Private programVer As String = "1.1.0"
Private apiItemOutURL As String = "item-outflows/page"
@ -110,6 +110,8 @@ Public Class frm_Main
Alpha
Alto
Effect
MAXIMUM_ALPHA
'신규제품추가 : 제품 시리얼 번호 첫번째자리(모델번호) 동일하게 업데이트
End Enum
Private Const modelPosition As Int16 = 1
@ -118,6 +120,7 @@ Public Class frm_Main
prodFace_V2
prodEye
prodBody
'신규제품추가 : 제품 시리얼 번호 두번째자리(타입번호) 동일하게 업데이트
End Enum
Private Const typePosition As Int16 = 2
@ -1467,9 +1470,109 @@ Public Class frm_Main
End Function
Private Function comSearchCount(codeData As String) As Boolean
DBCmd = "SELECT Mask5Cnt,Mask10Cnt,HairBandCnt,GelCnt,MiniGelCnt,AmpleCnt,CreamCnt,UmbrellaCnt,FenCnt,ChargerCnt,CableCnt,TonerCnt,Case_PRO_Black,Case_PRO_Beige,Case_PRO_Red,Case_PRO_Pink,Case_MAX_Black,Case_MAX_Apr,Case_MAX_Mint,Case_MAX_Beige,SoothingGelCnt,Carton0_Cnt,Carton1_Cnt,Carton2_Cnt,Carton3_Cnt,Carton4_Cnt,Carton5_Cnt,Carton6_Cnt,Shopbag_Cnt,CosShopbag_Cnt,DustBagCnt,Case_MAX_Purple,Case_PRO_SnakeBlakc,KollagenCnt,KollagenSetCnt,Kollagen_PCnt,KollagenSet_PCnt,CleansingWaterCnt,TonerPadCnt,Case_MAX_SafBK_Cnt,Hologram_1Cnt,Hologram_3Cnt,Hologram_5Cnt,Case_MAX_SafPp_Cnt,Case_MAX_Yellow,Kollagen_Pe1Cnt,Kollagen_Pe3Cnt,Kollagen_Pe5Cnt,ATCircleCaseCnt,APSquareCaseCnt,Case_MAX_Peach,MasSoothingCnt,Case_MAX_SMintCnt,MeshPouchCnt,FirmingAmpCnt,HyaluronicAmpCnt,nightshotcnt,morningshotcnt,casemaxwoodicnt,Elicolltonercnt, Elicollampcnt,Elicollcreamcnt,Elihyaltonercnt,Elihyalampcnt,Elihyalcreamcnt,Dayshotcnt,Beautyshopbagcnt,Gummycnt,Stickjellycnt,Newyearbagcnt,Emsbeltcnt,Beltbagcnt,Dayshot2cnt,Elixircnt FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'"
DBCmd = "SELECT Mask5Cnt
,Mask10Cnt
,HairBandCnt
,GelCnt
,MiniGelCnt
,AmpleCnt
,CreamCnt
,UmbrellaCnt
,FenCnt
,ChargerCnt
,CableCnt
,TonerCnt
,Case_PRO_Black
,Case_PRO_Beige
,Case_PRO_Red
,Case_PRO_Pink
,Case_MAX_Black
,Case_MAX_Apr
,Case_MAX_Mint
,Case_MAX_Beige
,SoothingGelCnt
,Carton0_Cnt
,Carton1_Cnt
,Carton2_Cnt
,Carton3_Cnt
,Carton4_Cnt
,Carton5_Cnt
,Carton6_Cnt
,Shopbag_Cnt
,CosShopbag_Cnt
,DustBagCnt
,Case_MAX_Purple
,Case_PRO_SnakeBlakc
,KollagenCnt
,KollagenSetCnt
,Kollagen_PCnt
,KollagenSet_PCnt
,CleansingWaterCnt
,TonerPadCnt
,Case_MAX_SafBK_Cnt
,Hologram_1Cnt
,Hologram_3Cnt
,Hologram_5Cnt
,Case_MAX_SafPp_Cnt
,Case_MAX_Yellow
,Kollagen_Pe1Cnt
,Kollagen_Pe3Cnt
,Kollagen_Pe5Cnt
,ATCircleCaseCnt
,APSquareCaseCnt
,Case_MAX_Peach
,MasSoothingCnt
,Case_MAX_SMintCnt
,MeshPouchCnt
,FirmingAmpCnt
,HyaluronicAmpCnt
,nightshotcnt
,morningshotcnt
,casemaxwoodicnt
,Elicolltonercnt
,Elicollampcnt
,Elicollcreamcnt
,Elihyaltonercnt
,Elihyalampcnt
,Elihyalcreamcnt
,Dayshotcnt
,Beautyshopbagcnt
,Gummycnt
,Stickjellycnt
,Newyearbagcnt
,Emsbeltcnt
,Beltbagcnt
,Dayshot2cnt
,Elixircnt
,Elixirpremiumcnt
,Emsbeltcontrollsetcnt
,FabricBagcnt
,Goldshopbagcnt
,MorNigshotsetcnt
,CTBoxcnt
,ElesqLiftingTonercnt
,ElesqLiftingCeamcnt
,ElesqLiftingECreamcnt
,ElesqLiftingAmpcnt
,ElesqAquaTonercnt
,ElesqAquaCeamcnt
,ElesqAquaECreamcnt
,ElesqAquaAmpcnt
,Carton8_Cnt
,KeyringCnt
,DoenaLiftingTonercnt
,DoenaLiftingAmpcnt
,DoenaLiftingCreamcnt
,FirmingCollagenGelcnt
,KeyringSallyCnt
,BeautykitHairbandCnt
,BeautykitMirrorSCnt
,BeautykitMirrorLCnt
FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규구성품추가 : 포장 구성품 수량 조회 추가
If DBQueryReader(DBCmd) Then
For i = 0 To cCountList.Elixircnt
'신규구성품추가 : 추가된 품목에 따라 배열 크기 변경
For i = 0 To cCountList.beautykitMirrorL
cCountData(i) = Val(sqlDataQuery(i))
Next
Return True
@ -1789,7 +1892,23 @@ Public Class frm_Main
End Function
Private Function serialPacking(codeData As String) As Boolean
DBCmd = "SELECT Main_Product_SN,Pro_Face_Serial,Pro_Eye_Serial,Pro_Body_Serial,Lux_Face_Serial,Lux_Eye_Serial,Lux_Body_Serial,MAXIMUM_SN,Alpha_Set_Serial,Alpha_Face_Serial,Alpha_Eye_Serial,Alpha_Body_Serial,Alto_Serial,Effect_serial FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'"
DBCmd = "SELECT Main_Product_SN
,Pro_Face_Serial
,Pro_Eye_Serial
,Pro_Body_Serial
,Lux_Face_Serial
,Lux_Eye_Serial
,Lux_Body_Serial
,MAXIMUM_SN
,Alpha_Set_Serial
,Alpha_Face_Serial
,Alpha_Eye_Serial
,Alpha_Body_Serial
,Alto_Serial
,Effect_serial
,EffectV3_Serial
,MAXIMUM_ALPHA_SN
FROM " & applySalesDB & " WHERE PackingCode = '" & codeData & "'" '신규제품추가 : 추가하는 품목의 시리얼번호 조회 컬럼 추가
If DBQueryReader(DBCmd) Then
For i = 0 To pSerialData.Length - 1
pSerialData(i) = sqlDataQuery(i)

View File

@ -46,8 +46,12 @@
AlphaBody
Alto
Effect
EffectV3
MaximumAlpha
'신규제품추가 : 추가하는 품목의 변수 추가
End Enum
Public pSerialData(pSerialList.Effect) As String
'신규제품추가 : 배열 크기 변경
Public pSerialData(pSerialList.MaximumAlpha) As String
Public Enum cCountList
Mask5Cnt
@ -128,6 +132,32 @@
beltbagcnt
Dayshot2cnt
Elixircnt
Elixirpremium
Emsbeltcontrollset
FabricBag
Goldshopbag
MorNigshotset
CTBox
ElesqLiftingToner
ElesqLiftingCeam
ElesqLiftingECream
ElesqLiftingAmp
ElesqAquaToner
ElesqAquaCeam
ElesqAquaECream
ElesqAquaAmp
car8
keyring
DoenaLiftingToner
DoenaLiftingAmp
DoenaLiftingCream
FirmingCollagenGel
keyringSally
beautykitHairband
beautykitMirrorS
beautykitMirrorL
'신규구성품추가 : 추가하는 품목의 변수 추가
End Enum
Public cCountData(cCountList.Elixircnt) As Integer
'신규구성품추가 : 배열 크기 변경
Public cCountData(cCountList.beautykitMirrorL) As Integer
End Module