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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frmMySqlTest.Designer.vb generated
View File

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

601
frmMySqlTest.vb
View File

@ -1,6 +1,7 @@
'Imports System.Data.OleDb 'Imports System.Data.OleDb
'Imports System.Reflection 'Imports System.Reflection
Imports System.ComponentModel Imports System.ComponentModel
Imports Microsoft.Office.Core
Imports Excel = Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel
''Imports Microsoft.Office.Interop ''Imports Microsoft.Office.Interop
Public Class frmMySqlTest Public Class frmMySqlTest
@ -8,9 +9,8 @@ Public Class frmMySqlTest
Private Enum data_set Private Enum data_set
packcode packcode
pack_date pack_date
set_serial set_serial
bag_type
etc_name
pro_fa_serial pro_fa_serial
pro_ey_serial pro_ey_serial
pro_bo_serial pro_bo_serial
@ -24,51 +24,142 @@ Public Class frmMySqlTest
Alpha_bo_Serial Alpha_bo_Serial
Alto_Serial Alto_Serial
Effect_Serial Effect_Serial
EffectV3_Serial
MAXIMUM_ALPHA_Serial
'신규제품추가 : 추가하는 품목의 변수 추가
ordercode ordercode
order_name order_name
phone phone
ship_date ship_date
invoice invoice
max
End Enum 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 Private Enum data_count
set_cnt 'product
mask5_cnt set_cnt = 1 ' Pro_Set, Lux_Set
mask10_cnt proface_cnt = 3
hair_cnt luxface_cnt
gel_cnt proeye_cnt
minigel_cnt luxeye_cnt
amp_cnt probody_cnt
cre_cnt luxbody_cnt
umb_cnt maximum_cnt
fen_cnt alphaSet_cnt
char_cnt alphaFace_cnt
cab_cnt alphaEye_cnt
toner_cnt alphaBody_cnt
case_cnt alto_cnt
dustbag_cnt effect_cnt
bag_cnt effectV3_cnt
etc_cnt maximumAlpha_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
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 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 cmd As String
Private dbcmd As String Private dbcmd As String
@ -77,9 +168,13 @@ Public Class frmMySqlTest
Private sales_table As String = "jomtTesterDB.jomtSalesPackingTbl" Private sales_table As String = "jomtTesterDB.jomtSalesPackingTbl"
Private order_test As String = "jomtOrderTestDB.jomtTesterOrderTbl" Private order_test As String = "jomtOrderTestDB.jomtTesterOrderTbl"
Private sales_test As String = "jomtTesterServerDB.jomtSalesPackingTbl" 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 order_db As String = order_table
Private sales_db As String = sales_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 Private clear_switch As Boolean = False
@ -201,119 +296,173 @@ Public Class frmMySqlTest
Private Function db_select(serial As String) As Boolean 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 If DBQueryReader(dbcmd) Then
data_select(data_set.packcode) = sqlDataQuery(0)
data_select(data_set.pack_date) = sqlDataQuery(1) For i = 0 To data_set_max_index
data_select(data_set.set_serial) = sqlDataQuery(2) data_select(i) = sqlDataQuery(i)
data_cnt(data_count.set_cnt) = sqlDataQuery(3) Next
data_cnt(data_count.mask5_cnt) = sqlDataQuery(4)
data_cnt(data_count.mask10_cnt) = sqlDataQuery(5) For i = 1 To data_count_max_index
data_cnt(data_count.hair_cnt) = sqlDataQuery(6) data_cnt(i) = sqlDataQuery(data_set_max_index + i)
data_cnt(data_count.gel_cnt) = sqlDataQuery(7) Next
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)
Return True Return True
Else Else
data_select(data_set.packcode) = "NULL"
data_select(data_set.pack_date) = "NULL" For i = 0 To data_set_max_index
data_select(data_set.set_serial) = "NULL" data_select(i) = "NULL"
data_cnt(data_count.set_cnt) = "0" Next
data_cnt(data_count.mask5_cnt) = "0"
data_cnt(data_count.mask10_cnt) = "0" For i = 0 To data_count_max_index
data_cnt(data_count.hair_cnt) = "0" data_cnt(i) = "0"
data_cnt(data_count.gel_cnt) = "0" Next
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"
Return False Return False
@ -327,136 +476,45 @@ Public Class frmMySqlTest
Try Try
For i = 0 To data_count.max For i = 0 To data_count_max_index
dgv_switch = False dgv_switch = False
item_name = Nothing item_name = Nothing
item_serial = 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 item_serial = data_select(data_set.set_serial)
Case 0 ElseIf i < data_count.mask5 Then
If Mid(data_select(data_set.max), 1, 2) = "10" Then dbcmd = "SELECT ItemName FROM " & prod_db & " WHERE ProdCode = '" & i & "' AND ItemName NOT LIKE '%체험%' LIMIT 1"
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
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 End If
If dgv_switch = True Then 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 End If
Next Next
Return True Return True
Catch ex As Exception Catch ex As Exception
@ -596,7 +654,28 @@ Public Class frmMySqlTest
Private Function pack_delete(serial As String) As Boolean 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 If DBCommand(dbcmd) Then
Return True Return True
End If End If