신규품목 추가 : MAXIMUM ALPHA, 사은품 JGIFT-0031, JGIFT-0032, JGIFT-0033, JGIFT-0034 & 소스 정리

This commit is contained in:
KwakJooYoung 2025-09-18 09:13:29 +09:00
parent 82b2e8f379
commit ae6cf6989a
2 changed files with 341 additions and 262 deletions

View File

@ -344,7 +344,7 @@ Partial Class frmMySqlTest
Me.Controls.Add(Me.btnReadDB)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMySqlTest"
Me.Text = "패킹 및 전표 Database Delete Program"
Me.Text = "패킹 및 전표 Database Delete Program V1.0.0"
Me.gb_pack.ResumeLayout(False)
Me.gb_state.ResumeLayout(False)
Me.gb_state.PerformLayout()

View File

@ -1,6 +1,7 @@
'Imports System.Data.OleDb
'Imports System.Reflection
Imports System.ComponentModel
Imports Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel
''Imports Microsoft.Office.Interop
Public Class frmMySqlTest
@ -8,9 +9,8 @@ Public Class frmMySqlTest
Private Enum data_set
packcode
pack_date
set_serial
bag_type
etc_name
pro_fa_serial
pro_ey_serial
pro_bo_serial
@ -24,51 +24,142 @@ Public Class frmMySqlTest
Alpha_bo_Serial
Alto_Serial
Effect_Serial
EffectV3_Serial
MAXIMUM_ALPHA_Serial
'신규제품추가 : 추가하는 품목의 변수 추가
ordercode
order_name
phone
ship_date
invoice
max
End Enum
Private data_select(data_set.max) As String
Private data_set_max_index As Integer = [Enum].GetNames(GetType(data_set)).Length - 1
Private data_select(data_set_max_index) As String
Private Enum data_count
set_cnt
mask5_cnt
mask10_cnt
hair_cnt
gel_cnt
minigel_cnt
amp_cnt
cre_cnt
umb_cnt
fen_cnt
char_cnt
cab_cnt
toner_cnt
case_cnt
dustbag_cnt
bag_cnt
etc_cnt
pro_fa_cnt
pro_ey_cnt
pro_bo_cnt
lux_fa_cnt
lux_ey_cnt
lux_bo_cnt
MAXIMUM_cnt
Alpha_cnt
Alpha_fa_cnt
Alpha_ey_cnt
Alpha_bo_cnt
Alto_cnt
Effect_cnt
'product
set_cnt = 1 ' Pro_Set, Lux_Set
proface_cnt = 3
luxface_cnt
proeye_cnt
luxeye_cnt
probody_cnt
luxbody_cnt
maximum_cnt
alphaSet_cnt
alphaFace_cnt
alphaEye_cnt
alphaBody_cnt
alto_cnt
effect_cnt
effectV3_cnt
maximumAlpha_cnt
'신규제품추가 : 추가하는 품목의 변수 추가
max
'component
mask5
mask10
hairband
gel
minigel
ample
cream
umb
fen
charger
cable
toner
problack
probeige
prored
propink
maxblack
maxapr
maxmint
maxbeige
soothing
car0
car1
car2
car3
car4
car5
car6
bag
cosbag
dustbag
maxPurple
proSnakeBlack
kollagen
kollagenset
kollagen_P
kollagenset_P
cleansingWater
tonerPad
maxSaffianoBK
hologram1
hologram3
hologram5
caseSaffianoPp
maxYellow
Kollagen_Pe1
Kollagen_Pe3
Kollagen_Pe5
ATCircleCase
APSquareCase
maxPeach
massageSoothing
maxSMint
meshpouch
firmingAmp
hyaluronicAmp
nightshot
morningshot
casemaxwoodi
Elicolltoner
Elicollamp
Elicollcream
Elihyaltoner
Elihyalamp
Elihyalcream
Dayshot
Beautyshopbag
Gummy
Stickjelly
Newyearbag
Emsbelt
Beltbag
Dayshot2
Elixir
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
Private data_cnt(data_count.max) As String
Private data_count_max_index As Integer = [Enum].GetNames(GetType(data_count)).Length - 1
Private data_cnt(data_count_max_index) As String
Private cmd As String
Private dbcmd As String
@ -77,9 +168,13 @@ Public Class frmMySqlTest
Private sales_table As String = "jomtTesterDB.jomtSalesPackingTbl"
Private order_test As String = "jomtOrderTestDB.jomtTesterOrderTbl"
Private sales_test As String = "jomtTesterServerDB.jomtSalesPackingTbl"
Private prod_table As String = "jomtTesterDB.jomtProdList"
Private component_table As String = "jomtTesterDB.jomtComponentTbl"
Private order_db As String = order_table
Private sales_db As String = sales_table
Private prod_db As String = prod_table
Private component_db As String = component_table
Private clear_switch As Boolean = False
@ -201,119 +296,173 @@ Public Class frmMySqlTest
Private Function db_select(serial As String) As Boolean
dbcmd = "SELECT IFNULL(sale.PackingCode,'NULL'),IFNULL(sale.`Data`,'NULL'), IFNULL(sale.Main_Product_SN,'NULL'),IFNULL(sale.Set_Cnt,'0'),IFNULL(sale.Mask5Cnt,'0'),IFNULL(sale.Mask10Cnt,'0'),IFNULL(sale.HairBandCnt,'0'),IFNULL(sale.GelCnt,'0') ,IFNULL(sale.MiniGelCnt,'0'),IFNULL(sale.AmpleCnt,'0'),IFNULL(sale.CreamCnt,'0'),IFNULL(sale.UmbrellaCnt,'0'),IFNULL(sale.FenCnt,'0'),IFNULL(sale.ChargerCnt,'0'),IFNULL(sale.CableCnt,'0'),IFNULL(sale.TonerCnt,'0'), IFNULL(sale.CaseCnt,'0') , IFNULL(sale.DustBagCnt,'0'), IFNULL(sale.BagCnt,'0'), IFNULL(sale.BagType,'0'),IFNULL(sale.EtcCnt,'0'),IFNULL(sale.etcName,'NULL'),IFNULL(sale.Pro_Face_Serial,'NULL'),IFNULL(sale.Pro_CT_FaceCnt,'0'),IFNULL(sale.Pro_Eye_Serial,'NULL'),IFNULL(sale.Pro_CT_EYE_Cnt,'0'),IFNULL(sale.Pro_Body_Serial,'NULL'),IFNULL(sale.Pro_CT_BodyCnt,'0'),IFNULL(sale.Lux_Face_Serial,'NULL'),IFNULL(sale.Lux_CT_FaceCnt,'0'),IFNULL(sale.Lux_Eye_Serial,'NULL'),IFNULL(sale.Lux_CT_EYE_Cnt,'0'),IFNULL(sale.Lux_Body_Serial,'NULL'),IFNULL(sale.Lux_CT_BodyCnt,'0'),IFNULL(sale.MAXIMUM_SN,'NULL'),IFNULL(sale.MAXIMUM_Cnt,'0'), IFNULL(sale.Alpha_Set_Serial,'NULL'),IFNULL(sale.Alpha_Set_cnt,'0'),IFNULL(sale.Alpha_Face_Serial,'NULL'),IFNULL(sale.Alpha_Face_cnt,'0'),IFNULL(sale.Alpha_Eye_Serial,'NULL'),IFNULL(sale.Alpha_Eye_cnt,'0'),IFNULL(sale.Alpha_Body_Serial,'NULL'),IFNULL(sale.Alpha_Body_cnt,'0'),IFNULL(sale.Alto_Serial,'NULL'),IFNULL(sale.Alto_cnt,'0'),IFNULL(sale.Effect_Serial,'NULL'),IFNULL(sale.Effect_cnt,'0'),ifnull(otb.Order_Code,'NULL'),ifnull(otb.Orderer_Name,'NULL'),ifnull(otb.Phone_Number,'NULL'),ifnull(otb.Shipment_Date,'NULL'),IFNULL(otb.Invoice_Number,'NULL') FROM " & sales_db & " AS sale LEFT JOIN " & order_db & " AS otb ON sale.PackingCode = otb.Packing_Code WHERE sale.PackingCode = '" & serial & "' GROUP BY sale.PackingCode"
dbcmd = "SELECT IFNULL(sale.PackingCode,'NULL')
, IFNULL(sale.`Data`,'NULL')
, IFNULL(sale.Main_Product_SN,'NULL')
, IFNULL(sale.Pro_Face_Serial,'NULL')
, IFNULL(sale.Pro_Eye_Serial,'NULL')
, IFNULL(sale.Pro_Body_Serial,'NULL')
, IFNULL(sale.Lux_Face_Serial,'NULL')
, IFNULL(sale.Lux_Eye_Serial,'NULL')
, IFNULL(sale.Lux_Body_Serial,'NULL')
, IFNULL(sale.MAXIMUM_SN,'NULL')
, IFNULL(sale.Alpha_Set_Serial,'NULL')
, IFNULL(sale.Alpha_Face_Serial,'NULL')
, IFNULL(sale.Alpha_Eye_Serial,'NULL')
, IFNULL(sale.Alpha_Body_Serial,'NULL')
, IFNULL(sale.Alto_Serial,'NULL')
, IFNULL(sale.Effect_Serial,'NULL')
, IFNULL(sale.EffectV3_Serial,'NULL')
, IFNULL(sale.MAXIMUM_ALPHA_SN,'NULL')
, IFNULL(otb.Order_Code,'NULL')
, IFNULL(otb.Orderer_Name,'NULL')
, IFNULL(otb.Phone_Number,'NULL')
, IFNULL(otb.Shipment_Date,'NULL')
, IFNULL(otb.Invoice_Number,'NULL')
, IFNULL(sale.Set_Cnt,'0')
, '0'
, IFNULL(sale.Pro_CT_FaceCnt,'0')
, IFNULL(sale.Lux_CT_FaceCnt,'0')
, IFNULL(sale.Pro_CT_EYE_Cnt,'0')
, IFNULL(sale.Lux_CT_EYE_Cnt,'0')
, IFNULL(sale.Pro_CT_BodyCnt,'0')
, IFNULL(sale.Lux_CT_BodyCnt,'0')
, IFNULL(sale.MAXIMUM_Cnt,'0')
, IFNULL(sale.Alpha_Set_Cnt,'0')
, IFNULL(sale.Alpha_Face_Cnt,'0')
, IFNULL(sale.Alpha_Eye_Cnt,'0')
, IFNULL(sale.Alpha_Body_Cnt,'0')
, IFNULL(sale.Alto_Cnt,'0')
, IFNULL(sale.Effect_Cnt,'0')
, IFNULL(sale.EffectV3_Cnt,'0')
, IFNULL(sale.MAXIMUM_ALPHA_Cnt,'0')
, IFNULL(sale.Mask5Cnt,'0')
, IFNULL(sale.Mask10Cnt,'0')
, IFNULL(sale.HairBandCnt,'0')
, IFNULL(sale.GelCnt,'0')
, IFNULL(sale.MiniGelCnt,'0')
, IFNULL(sale.AmpleCnt,'0')
, IFNULL(sale.CreamCnt,'0')
, IFNULL(sale.UmbrellaCnt,'0')
, IFNULL(sale.FenCnt,'0')
, IFNULL(sale.ChargerCnt,'0')
, IFNULL(sale.CableCnt,'0')
, IFNULL(sale.TonerCnt,'0')
, IFNULL(sale.Case_PRO_Black,'0')
, IFNULL(sale.Case_PRO_Beige,'0')
, IFNULL(sale.Case_PRO_Red,'0')
, IFNULL(sale.Case_PRO_Pink,'0')
, IFNULL(sale.Case_MAX_Black,'0')
, IFNULL(sale.Case_MAX_Apr,'0')
, IFNULL(sale.Case_MAX_Mint,'0')
, IFNULL(sale.Case_MAX_Beige,'0')
, IFNULL(sale.SoothingGelCnt,'0')
, IFNULL(sale.Carton0_Cnt,'0')
, IFNULL(sale.Carton1_Cnt,'0')
, IFNULL(sale.Carton2_Cnt,'0')
, IFNULL(sale.Carton3_Cnt,'0')
, IFNULL(sale.Carton4_Cnt,'0')
, IFNULL(sale.Carton5_Cnt,'0')
, IFNULL(sale.Carton6_Cnt,'0')
, IFNULL(sale.Shopbag_Cnt,'0')
, IFNULL(sale.CosShopbag_Cnt,'0')
, IFNULL(sale.DustBagCnt,'0')
, IFNULL(sale.Case_MAX_Purple,'0')
, IFNULL(sale.Case_PRO_SnakeBlakc,'0')
, IFNULL(sale.KollagenCnt,'0')
, IFNULL(sale.KollagenSetCnt,'0')
, IFNULL(sale.Kollagen_PCnt,'0')
, IFNULL(sale.KollagenSet_PCnt,'0')
, IFNULL(sale.CleansingWaterCnt,'0')
, IFNULL(sale.TonerPadCnt,'0')
, IFNULL(sale.Case_MAX_SafBK_Cnt,'0')
, IFNULL(sale.Hologram_1Cnt,'0')
, IFNULL(sale.Hologram_3Cnt,'0')
, IFNULL(sale.Hologram_5Cnt,'0')
, IFNULL(sale.Case_MAX_SafPp_Cnt,'0')
, IFNULL(sale.Case_MAX_Yellow,'0')
, IFNULL(sale.Kollagen_Pe1Cnt,'0')
, IFNULL(sale.Kollagen_Pe3Cnt,'0')
, IFNULL(sale.Kollagen_Pe5Cnt,'0')
, IFNULL(sale.ATCircleCaseCnt,'0')
, IFNULL(sale.APSquareCaseCnt,'0')
, IFNULL(sale.Case_MAX_Peach,'0')
, IFNULL(sale.MasSoothingCnt,'0')
, IFNULL(sale.Case_MAX_SMintCnt,'0')
, IFNULL(sale.MeshPouchCnt,'0')
, IFNULL(sale.FirmingAmpCnt,'0')
, IFNULL(sale.HyaluronicAmpCnt,'0')
, IFNULL(sale.nightshotcnt,'0')
, IFNULL(sale.morningshotcnt,'0')
, IFNULL(sale.casemaxwoodicnt,'0')
, IFNULL(sale.Elicolltonercnt,'0')
, IFNULL(sale.Elicollampcnt,'0')
, IFNULL(sale.Elicollcreamcnt,'0')
, IFNULL(sale.Elihyaltonercnt,'0')
, IFNULL(sale.Elihyalampcnt,'0')
, IFNULL(sale.Elihyalcreamcnt,'0')
, IFNULL(sale.Dayshotcnt,'0')
, IFNULL(sale.Beautyshopbagcnt,'0')
, IFNULL(sale.Gummycnt,'0')
, IFNULL(sale.stickjellycnt,'0')
, IFNULL(sale.Newyearbagcnt,'0')
, IFNULL(sale.Emsbeltcnt,'0')
, IFNULL(sale.Beltbagcnt,'0')
, IFNULL(sale.Dayshot2cnt,'0')
, IFNULL(sale.Elixircnt,'0')
, IFNULL(sale.Elixirpremiumcnt,'0')
, IFNULL(sale.Emsbeltcontrollsetcnt,'0')
, IFNULL(sale.FabricBagcnt,'0')
, IFNULL(sale.Goldshopbagcnt,'0')
, IFNULL(sale.MorNigshotsetcnt,'0')
, IFNULL(sale.CTBoxcnt,'0')
, IFNULL(sale.ElesqLiftingTonercnt,'0')
, IFNULL(sale.ElesqLiftingCeamcnt,'0')
, IFNULL(sale.ElesqLiftingECreamcnt,'0')
, IFNULL(sale.ElesqLiftingAmpcnt,'0')
, IFNULL(sale.ElesqAquaTonercnt,'0')
, IFNULL(sale.ElesqAquaCeamcnt,'0')
, IFNULL(sale.ElesqAquaECreamcnt,'0')
, IFNULL(sale.ElesqAquaAmpcnt,'0')
, IFNULL(sale.Carton8_Cnt,'0')
, IFNULL(sale.KeyringCnt,'0')
, IFNULL(sale.DoenaLiftingTonercnt,'0')
, IFNULL(sale.DoenaLiftingAmpcnt,'0')
, IFNULL(sale.DoenaLiftingCreamcnt,'0')
, IFNULL(sale.FirmingCollagenGelcnt,'0')
, IFNULL(sale.KeyringSallyCnt,'0')
, IFNULL(sale.BeautykitHairbandCnt,'0')
, IFNULL(sale.BeautykitMirrorSCnt,'0')
, IFNULL(sale.BeautykitMirrorLCnt,'0')
FROM " & sales_db & " AS sale LEFT JOIN " & order_db & " AS otb ON sale.PackingCode = otb.Packing_Code
WHERE sale.PackingCode = '" & serial & "' GROUP BY sale.PackingCode" '신규제품추가/신규구성품추가 : 추가하는 품목의 시리얼, 개수 조회 추가
If DBQueryReader(dbcmd) Then
data_select(data_set.packcode) = sqlDataQuery(0)
data_select(data_set.pack_date) = sqlDataQuery(1)
data_select(data_set.set_serial) = sqlDataQuery(2)
data_cnt(data_count.set_cnt) = sqlDataQuery(3)
data_cnt(data_count.mask5_cnt) = sqlDataQuery(4)
data_cnt(data_count.mask10_cnt) = sqlDataQuery(5)
data_cnt(data_count.hair_cnt) = sqlDataQuery(6)
data_cnt(data_count.gel_cnt) = sqlDataQuery(7)
data_cnt(data_count.minigel_cnt) = sqlDataQuery(8)
data_cnt(data_count.amp_cnt) = sqlDataQuery(9)
data_cnt(data_count.cre_cnt) = sqlDataQuery(10)
data_cnt(data_count.umb_cnt) = sqlDataQuery(11)
data_cnt(data_count.fen_cnt) = sqlDataQuery(12)
data_cnt(data_count.char_cnt) = sqlDataQuery(13)
data_cnt(data_count.cab_cnt) = sqlDataQuery(14)
data_cnt(data_count.toner_cnt) = sqlDataQuery(15)
data_cnt(data_count.case_cnt) = sqlDataQuery(16)
data_cnt(data_count.dustbag_cnt) = sqlDataQuery(17)
data_cnt(data_count.bag_cnt) = sqlDataQuery(18)
data_select(data_set.bag_type) = sqlDataQuery(19)
data_cnt(data_count.etc_cnt) = sqlDataQuery(20)
data_select(data_set.etc_name) = sqlDataQuery(21)
data_select(data_set.pro_fa_serial) = sqlDataQuery(22)
data_cnt(data_count.pro_fa_cnt) = sqlDataQuery(23)
data_select(data_set.pro_ey_serial) = sqlDataQuery(24)
data_cnt(data_count.pro_ey_cnt) = sqlDataQuery(25)
data_select(data_set.pro_bo_serial) = sqlDataQuery(26)
data_cnt(data_count.pro_bo_cnt) = sqlDataQuery(27)
data_select(data_set.lux_fa_serial) = sqlDataQuery(28)
data_cnt(data_count.lux_fa_cnt) = sqlDataQuery(29)
data_select(data_set.lux_ey_serial) = sqlDataQuery(30)
data_cnt(data_count.lux_ey_cnt) = sqlDataQuery(31)
data_select(data_set.lux_bo_serial) = sqlDataQuery(32)
data_cnt(data_count.lux_bo_cnt) = sqlDataQuery(33)
data_select(data_set.MAXIMUM_serial) = sqlDataQuery(34)
data_cnt(data_count.MAXIMUM_cnt) = sqlDataQuery(35)
data_select(data_set.Alpha_Serial) = sqlDataQuery(36)
data_cnt(data_count.Alpha_cnt) = sqlDataQuery(37)
data_select(data_set.Alpha_fa_Serial) = sqlDataQuery(38)
data_cnt(data_count.Alpha_fa_cnt) = sqlDataQuery(39)
data_select(data_set.Alpha_ey_Serial) = sqlDataQuery(40)
data_cnt(data_count.Alpha_ey_cnt) = sqlDataQuery(41)
data_select(data_set.Alpha_bo_Serial) = sqlDataQuery(42)
data_cnt(data_count.Alpha_bo_cnt) = sqlDataQuery(43)
data_select(data_set.Alto_Serial) = sqlDataQuery(44)
data_cnt(data_count.Alto_cnt) = sqlDataQuery(45)
data_cnt(data_count.Effect_cnt) = sqlDataQuery(46)
data_select(data_set.Effect_Serial) = sqlDataQuery(47)
data_select(data_set.ordercode) = sqlDataQuery(48)
data_select(data_set.order_name) = sqlDataQuery(49)
data_select(data_set.phone) = sqlDataQuery(50)
data_select(data_set.ship_date) = sqlDataQuery(51)
data_select(data_set.invoice) = sqlDataQuery(52)
For i = 0 To data_set_max_index
data_select(i) = sqlDataQuery(i)
Next
For i = 1 To data_count_max_index
data_cnt(i) = sqlDataQuery(data_set_max_index + i)
Next
Return True
Else
data_select(data_set.packcode) = "NULL"
data_select(data_set.pack_date) = "NULL"
data_select(data_set.set_serial) = "NULL"
data_cnt(data_count.set_cnt) = "0"
data_cnt(data_count.mask5_cnt) = "0"
data_cnt(data_count.mask10_cnt) = "0"
data_cnt(data_count.hair_cnt) = "0"
data_cnt(data_count.gel_cnt) = "0"
data_cnt(data_count.minigel_cnt) = "0"
data_cnt(data_count.amp_cnt) = "0"
data_cnt(data_count.cre_cnt) = "0"
data_cnt(data_count.umb_cnt) = "0"
data_cnt(data_count.fen_cnt) = "0"
data_cnt(data_count.char_cnt) = "0"
data_cnt(data_count.cab_cnt) = "0"
data_cnt(data_count.toner_cnt) = "0"
data_cnt(data_count.case_cnt) = "0"
data_cnt(data_count.dustbag_cnt) = "0"
data_cnt(data_count.bag_cnt) = "0"
data_select(data_set.bag_type) = "NULL"
data_cnt(data_count.etc_cnt) = "0"
data_select(data_set.etc_name) = "NULL"
data_select(data_set.pro_fa_serial) = "NULL"
data_cnt(data_count.pro_fa_cnt) = "0"
data_select(data_set.pro_ey_serial) = "NULL"
data_cnt(data_count.pro_ey_cnt) = "0"
data_select(data_set.pro_bo_serial) = "NULL"
data_cnt(data_count.pro_bo_cnt) = "0"
data_select(data_set.lux_fa_serial) = "NULL"
data_cnt(data_count.lux_fa_cnt) = "0"
data_select(data_set.lux_ey_serial) = "NULL"
data_cnt(data_count.lux_ey_cnt) = "0"
data_select(data_set.lux_bo_serial) = "NULL"
data_cnt(data_count.lux_bo_cnt) = "0"
data_select(data_set.MAXIMUM_serial) = "NULL"
data_cnt(data_count.MAXIMUM_cnt) = "0"
data_select(data_set.Alpha_Serial) = "NULL"
data_cnt(data_count.Alpha_cnt) = "0"
data_select(data_set.Alpha_fa_Serial) = "NULL"
data_cnt(data_count.Alpha_fa_cnt) = "0"
data_select(data_set.Alpha_ey_Serial) = "NULL"
data_cnt(data_count.Alpha_ey_cnt) = "0"
data_select(data_set.Alpha_bo_Serial) = "NULL"
data_cnt(data_count.Alpha_bo_cnt) = "0"
data_select(data_set.Alto_Serial) = "NULL"
data_cnt(data_count.Alto_cnt) = "0"
data_select(data_set.Effect_Serial) = "NULL"
data_cnt(data_count.Effect_cnt) = "0"
data_select(data_set.ordercode) = "NULL"
data_select(data_set.order_name) = "NULL"
data_select(data_set.phone) = "NULL"
data_select(data_set.ship_date) = "NULL"
data_select(data_set.invoice) = "NULL"
For i = 0 To data_set_max_index
data_select(i) = "NULL"
Next
For i = 0 To data_count_max_index
data_cnt(i) = "0"
Next
Return False
@ -327,136 +476,45 @@ Public Class frmMySqlTest
Try
For i = 0 To data_count.max
For i = 0 To data_count_max_index
dgv_switch = False
item_name = Nothing
item_serial = Nothing
If data_cnt(data_count.max - i) > 0 Then
If data_cnt(i) > 0 Then
If i = data_count.set_cnt Then 'Pro_Set, Lux_Set
If Mid(data_select(data_set.set_serial), 1, 2) = "10" Then
item_name = "DUALSONIC Pro 1Set (KR)"
Else
item_name = "DUALSONIC Lux 1Set (KR)"
End If
Select Case data_count.max - i
Case 0
If Mid(data_select(data_set.max), 1, 2) = "10" Then
item_name = "DUALSONIC Pro 1Set (KR)"
item_serial = data_select(data_set.max)
dgv_switch = True
Else
item_name = "DUALSONIC Lux 1Set (KR)"
item_serial = data_select(data_set.max)
dgv_switch = True
End If
Case 1
item_name = "DUALSONIC Elixir MASK 5EA"
dgv_switch = True
Case 2
item_name = "DUALSONIC Elixir MASK 10EA"
dgv_switch = True
Case 3
item_name = "[사은품] 벨크로헤어밴드"
dgv_switch = True
Case 4
item_name = "DUALSONIC Blooming Moisture Gel"
dgv_switch = True
Case 5
item_name = "DUALSONIC Blooming Moisture Gel(30ml * 5EA)"
dgv_switch = True
Case 6
item_name = "DUALSONIC Skin Cell Elixir Ampoule"
dgv_switch = True
Case 7
item_name = "DUALSONIC Skin Cell Elixir Cream"
dgv_switch = True
Case 8
item_name = "[사은품] 우산"
dgv_switch = True
Case 9
item_name = "[사은품] 손풍기"
dgv_switch = True
Case 10
item_name = "충전기 Assy"
dgv_switch = True
Case 11
item_name = "마이크로 충전 케이블"
dgv_switch = True
Case 12
item_name = "DUALSONIC Skin Elixir Toner"
dgv_switch = True
Case 13
item_name = "DUALSONIC 가죽 케이스 세트"
dgv_switch = True
Case 14
item_name = "DUALSONIC DUST BAG 1BOX"
dgv_switch = True
Case 15
item_name = data_select(data_set.bag_type)
dgv_switch = True
Case 16
item_name = data_select(data_set.etc_name)
dgv_switch = True
Case 17
item_name = "DUALSONIC Pro FACE CARTRIDGE"
item_serial = data_select(data_set.pro_fa_serial)
dgv_switch = True
Case 18
item_name = "DUALSONIC Pro Eye CARTRIDGE"
item_serial = data_select(data_set.pro_ey_serial)
dgv_switch = True
Case 19
item_name = "DUALSONIC Pro Body Cartridge 1Set Rev.0 (KR)"
item_serial = data_select(data_set.pro_bo_serial)
dgv_switch = True
Case 20
item_name = "DUALSONIC Lux FACE CARTRIDGE"
item_serial = data_select(data_set.lux_fa_serial)
dgv_switch = True
Case 21
item_name = "DUALSONIC Lux Eye CARTRIDGE"
item_serial = data_select(data_set.lux_ey_serial)
dgv_switch = True
Case 22
item_name = "DUALSONIC Lux Body Cartridge 1Set Rev.0 (KR)"
item_serial = data_select(data_set.lux_bo_serial)
dgv_switch = True
Case 23
item_name = "MAXIMUM FULL PACK (KR)"
item_serial = data_select(data_set.MAXIMUM_serial)
dgv_switch = True
Case 24
item_name = "Alpha Set (KR)"
item_serial = data_select(data_set.Alpha_Serial)
dgv_switch = True
Case 25
item_name = "Alpha FACE CARTRIDGE"
item_serial = data_select(data_set.Alpha_fa_Serial)
dgv_switch = True
Case 26
item_name = "Alpha Eye CARTRIDGE"
item_serial = data_select(data_set.Alpha_ey_Serial)
dgv_switch = True
Case 27
item_name = "Alpha Body CARTRIDGE"
item_serial = data_select(data_set.Alpha_bo_Serial)
dgv_switch = True
Case 28
item_name = "Alto PACK (KR)"
item_serial = data_select(data_set.Alto_Serial)
dgv_switch = True
Case 29
item_name = "Effect PACK (KR)"
item_serial = data_select(data_set.Effect_Serial)
dgv_switch = True
item_serial = data_select(data_set.set_serial)
ElseIf i < data_count.mask5 Then
dbcmd = "SELECT ItemName FROM " & prod_db & " WHERE ProdCode = '" & i & "' AND ItemName NOT LIKE '%체험%' LIMIT 1"
If DBQueryReader(dbcmd) Then
item_name = sqlDataQuery(0)
End If
End Select
item_serial = data_select(i)
Else
dbcmd = "SELECT ItemName FROM " & component_db & " WHERE ProdCode = '" & (i - data_count.mask5) & "' LIMIT 1"
If DBQueryReader(dbcmd) Then
item_name = sqlDataQuery(0)
End If
End If
dgv_switch = True
End If
If dgv_switch = True Then
dgv_pack_item.Rows.Add(item_name, data_cnt(data_count.max - i), item_serial)
dgv_pack_item.Rows.Add(item_name, data_cnt(i), item_serial)
End If
Next
Return True
Catch ex As Exception
@ -596,7 +654,28 @@ Public Class frmMySqlTest
Private Function pack_delete(serial As String) As Boolean
dbcmd = "UPDATE " & sales_db & " SET PackingCode = 'null_" & txb_pack_code.Text & "', Main_Product_SN = NULL, Main_FACE_SN = NULL, Main_EYE_SN = NULL, Pro_Face_Serial = NULL, Pro_Eye_Serial = NULL, Pro_Body_Serial = NULL, Lux_Face_Serial = NULL, Lux_Eye_Serial = NULL, Lux_Body_Serial = NULL , MAXIMUM_SN = NULL , Alpha_Set_Serial = NULL , Alpha_Face_Serial = NULL , Alpha_Eye_Serial = NULL , Alpha_Body_Serial = NULL , Alto_Serial = NULL , Effect_Serial = NULL , note = '" & serial & "' WHERE PackingCode = '" & txb_pack_code.Text & "'"
dbcmd = "UPDATE " & sales_db &
" SET PackingCode = 'null_" & txb_pack_code.Text & "'
, Main_Product_SN = NULL
, Main_FACE_SN = NULL
, Main_EYE_SN = NULL
, Pro_Face_Serial = NULL
, Pro_Eye_Serial = NULL
, Pro_Body_Serial = NULL
, Lux_Face_Serial = NULL
, Lux_Eye_Serial = NULL
, Lux_Body_Serial = NULL
, MAXIMUM_SN = NULL
, Alpha_Set_Serial = NULL
, Alpha_Face_Serial = NULL
, Alpha_Eye_Serial = NULL
, Alpha_Body_Serial = NULL
, Alto_Serial = NULL
, Effect_Serial = NULL
, EffectV3_Serial = NULL
, MAXIMUM_ALPHA_SN = NULL
, note = '" & serial & "'
WHERE PackingCode = '" & txb_pack_code.Text & "'" '신규제품추가 : 추가하는 품목의 변수 추가
If DBCommand(dbcmd) Then
Return True
End If