1] 신규 품목 추가 시 프로그램 수정하지 않도록 변경
2] 버전 3.0.0 업데이트
This commit is contained in:
parent
943c9fbbb3
commit
1bc21794a5
41
OrderPackingProcessor/countForm.Designer.vb
generated
41
OrderPackingProcessor/countForm.Designer.vb
generated
@ -353,6 +353,9 @@ Partial Class countForm
|
||||
Me.pnMask5 = New System.Windows.Forms.Panel()
|
||||
Me.txbMask5 = New System.Windows.Forms.TextBox()
|
||||
Me.lbMask5 = New System.Windows.Forms.Label()
|
||||
Me.pnOptimum = New System.Windows.Forms.Panel()
|
||||
Me.txbOptimum = New System.Windows.Forms.TextBox()
|
||||
Me.lbOptimum = New System.Windows.Forms.Label()
|
||||
Me.gbCount.SuspendLayout()
|
||||
Me.gbCase.SuspendLayout()
|
||||
Me.gbAlto.SuspendLayout()
|
||||
@ -472,6 +475,7 @@ Partial Class countForm
|
||||
Me.pnHair.SuspendLayout()
|
||||
Me.pnMask10.SuspendLayout()
|
||||
Me.pnMask5.SuspendLayout()
|
||||
Me.pnOptimum.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
@ -1704,6 +1708,7 @@ Partial Class countForm
|
||||
'
|
||||
'gbCDual
|
||||
'
|
||||
Me.gbCDual.Controls.Add(Me.pnOptimum)
|
||||
Me.gbCDual.Controls.Add(Me.pnMaximumAlpha)
|
||||
Me.gbCDual.Controls.Add(Me.pneffectV3)
|
||||
Me.gbCDual.Controls.Add(Me.pneffect)
|
||||
@ -3819,6 +3824,37 @@ Partial Class countForm
|
||||
Me.lbMask5.TabIndex = 0
|
||||
Me.lbMask5.Text = "아쿠아 마스크"
|
||||
'
|
||||
'pnOptimum
|
||||
'
|
||||
Me.pnOptimum.Controls.Add(Me.txbOptimum)
|
||||
Me.pnOptimum.Controls.Add(Me.lbOptimum)
|
||||
Me.pnOptimum.Location = New System.Drawing.Point(171, 462)
|
||||
Me.pnOptimum.Name = "pnOptimum"
|
||||
Me.pnOptimum.Size = New System.Drawing.Size(165, 40)
|
||||
Me.pnOptimum.TabIndex = 11
|
||||
'
|
||||
'txbOptimum
|
||||
'
|
||||
Me.txbOptimum.BackColor = System.Drawing.SystemColors.Window
|
||||
Me.txbOptimum.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.txbOptimum.Location = New System.Drawing.Point(74, 5)
|
||||
Me.txbOptimum.MaxLength = 10
|
||||
Me.txbOptimum.Name = "txbOptimum"
|
||||
Me.txbOptimum.ReadOnly = True
|
||||
Me.txbOptimum.Size = New System.Drawing.Size(77, 32)
|
||||
Me.txbOptimum.TabIndex = 1
|
||||
Me.txbOptimum.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
'lbOptimum
|
||||
'
|
||||
Me.lbOptimum.AutoSize = True
|
||||
Me.lbOptimum.Font = New System.Drawing.Font("함초롬바탕", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||||
Me.lbOptimum.Location = New System.Drawing.Point(4, 7)
|
||||
Me.lbOptimum.Name = "lbOptimum"
|
||||
Me.lbOptimum.Size = New System.Drawing.Size(93, 24)
|
||||
Me.lbOptimum.TabIndex = 0
|
||||
Me.lbOptimum.Text = "Optimum"
|
||||
'
|
||||
'countForm
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
|
||||
@ -4062,6 +4098,8 @@ Partial Class countForm
|
||||
Me.pnMask10.PerformLayout()
|
||||
Me.pnMask5.ResumeLayout(False)
|
||||
Me.pnMask5.PerformLayout()
|
||||
Me.pnOptimum.ResumeLayout(False)
|
||||
Me.pnOptimum.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -4396,4 +4434,7 @@ Partial Class countForm
|
||||
Friend WithEvents pnkeyringSally As Panel
|
||||
Friend WithEvents txbkeyringSally As TextBox
|
||||
Friend WithEvents lbkeyringSally As Label
|
||||
Friend WithEvents pnOptimum As Panel
|
||||
Friend WithEvents txbOptimum As TextBox
|
||||
Friend WithEvents lbOptimum As Label
|
||||
End Class
|
||||
|
||||
@ -9,105 +9,106 @@ Public Class countForm
|
||||
End Sub
|
||||
|
||||
Private Sub countSetting()
|
||||
txbProSet.Text = prodComCount(prodDB.proset)
|
||||
txbLuxSet.Text = prodComCount(prodDB.luxset)
|
||||
txbProFace.Text = prodComCount(prodDB.proface)
|
||||
txbLuxFace.Text = prodComCount(prodDB.luxface)
|
||||
txbProEye.Text = prodComCount(prodDB.proeye)
|
||||
txbLuxEye.Text = prodComCount(prodDB.luxeye)
|
||||
txbProBody.Text = prodComCount(prodDB.probody)
|
||||
txbLuxBody.Text = prodComCount(prodDB.luxbody)
|
||||
txbMaximum.Text = prodComCount(prodDB.maximum)
|
||||
txbAlphaSet.Text = prodComCount(prodDB.alphaSet)
|
||||
txbAlphaFace.Text = prodComCount(prodDB.alphaFace)
|
||||
txbAlphaEye.Text = prodComCount(prodDB.alphaEye)
|
||||
txbAlphaBody.Text = prodComCount(prodDB.alphaBody)
|
||||
txbAlto.Text = prodComCount(prodDB.alto)
|
||||
txbeffect.Text = prodComCount(prodDB.effect)
|
||||
txbeffectV3.Text = prodComCount(prodDB.effectV3)
|
||||
txbMaximumAlpha.Text = prodComCount(prodDB.maximumAlpha)
|
||||
txbProSet.Text = product_packing_cnt_list(prodDB.proset).com_count
|
||||
txbLuxSet.Text = product_packing_cnt_list(prodDB.luxset).com_count
|
||||
txbProFace.Text = product_packing_cnt_list(prodDB.proface).com_count
|
||||
txbLuxFace.Text = product_packing_cnt_list(prodDB.luxface).com_count
|
||||
txbProEye.Text = product_packing_cnt_list(prodDB.proeye).com_count
|
||||
txbLuxEye.Text = product_packing_cnt_list(prodDB.luxeye).com_count
|
||||
txbProBody.Text = product_packing_cnt_list(prodDB.probody).com_count
|
||||
txbLuxBody.Text = product_packing_cnt_list(prodDB.luxbody).com_count
|
||||
txbMaximum.Text = product_packing_cnt_list(prodDB.maximum).com_count
|
||||
txbAlphaSet.Text = product_packing_cnt_list(prodDB.alphaSet).com_count
|
||||
txbAlphaFace.Text = product_packing_cnt_list(prodDB.alphaFace).com_count
|
||||
txbAlphaEye.Text = product_packing_cnt_list(prodDB.alphaEye).com_count
|
||||
txbAlphaBody.Text = product_packing_cnt_list(prodDB.alphaBody).com_count
|
||||
txbAlto.Text = product_packing_cnt_list(prodDB.alto).com_count
|
||||
txbeffect.Text = product_packing_cnt_list(prodDB.effect).com_count
|
||||
txbeffectV3.Text = product_packing_cnt_list(prodDB.effectV3).com_count
|
||||
txbMaximumAlpha.Text = product_packing_cnt_list(prodDB.maximumAlpha).com_count
|
||||
txbOptimum.Text = product_packing_cnt_list(prodDB.optimum).com_count
|
||||
'신규제품추가 : 추가한 품목 수량 출력하도록 추가
|
||||
|
||||
txbMask5.Text = comComCount(comDB.mask5)
|
||||
txbMask10.Text = comComCount(comDB.mask10)
|
||||
txbHair.Text = comComCount(comDB.hairband)
|
||||
txbGel.Text = comComCount(comDB.gel)
|
||||
txbMiniGel.Text = comComCount(comDB.minigel)
|
||||
txbAmp.Text = comComCount(comDB.ample)
|
||||
txbCream.Text = comComCount(comDB.cream)
|
||||
txbUmb.Text = comComCount(comDB.umb)
|
||||
txbFen.Text = comComCount(comDB.fen)
|
||||
txbCharge.Text = comComCount(comDB.charger)
|
||||
txbCable.Text = comComCount(comDB.cable)
|
||||
txbToner.Text = comComCount(comDB.toner)
|
||||
txbSoothing.Text = comComCount(comDB.soothing)
|
||||
txbDust.Text = comComCount(comDB.dustbag)
|
||||
txbBag.Text = comComCount(comDB.bag)
|
||||
txbCos.Text = comComCount(comDB.cosbag)
|
||||
txbbox1.Text = comComCount(comDB.car1)
|
||||
txbbox2.Text = comComCount(comDB.car2)
|
||||
txbbox3.Text = comComCount(comDB.car3)
|
||||
txbbox4.Text = comComCount(comDB.car4)
|
||||
txbbox5.Text = comComCount(comDB.car5)
|
||||
txbbox6.Text = comComCount(comDB.car6)
|
||||
txbProBlack.Text = comComCount(comDB.problack)
|
||||
txbProBeige.Text = comComCount(comDB.probeige)
|
||||
txbProRed.Text = comComCount(comDB.prored)
|
||||
txbProPink.Text = comComCount(comDB.propink)
|
||||
txbMaxBlack.Text = comComCount(comDB.maxblack)
|
||||
txbMaxApr.Text = comComCount(comDB.maxapr)
|
||||
txbMaxMint.Text = comComCount(comDB.maxmint)
|
||||
txbMaxBeige.Text = comComCount(comDB.maxbeige)
|
||||
txbMaxPurple.Text = comComCount(comDB.maxPurple)
|
||||
txbSnakeBlack.Text = comComCount(comDB.proSnakeBlack)
|
||||
txbKolla.Text = comComCount(comDB.kollagen)
|
||||
txbKollaSet.Text = comComCount(comDB.kollagenset)
|
||||
txbKolla_Pone.Text = comComCount(comDB.kollagen_P)
|
||||
txbKolla_Pset.Text = comComCount(comDB.kollagenset_P)
|
||||
txbCW.Text = comComCount(comDB.cleansingWater)
|
||||
txbtonerPad.Text = comComCount(comDB.tonerPad)
|
||||
txbMaxSafBK.Text = comComCount(comDB.maxSaffianoBK)
|
||||
txbHolo1.Text = comComCount(comDB.hologram1)
|
||||
txbHolo3.Text = comComCount(comDB.hologram3)
|
||||
txbHolo5.Text = comComCount(comDB.hologram5)
|
||||
txbMaxSafPp.Text = comComCount(comDB.caseSaffianoPp)
|
||||
txbMaxYellow.Text = comComCount(comDB.maxYellow)
|
||||
txbKolPe1.Text = comComCount(comDB.Kollagen_Pe1)
|
||||
txbKolPe3.Text = comComCount(comDB.Kollagen_Pe3)
|
||||
txbKolPe5.Text = comComCount(comDB.Kollagen_Pe5)
|
||||
txbATCircle.Text = comComCount(comDB.ATCircleCase)
|
||||
txbAPSquare.Text = comComCount(comDB.APSquareCase)
|
||||
txbMaxPeach.Text = comComCount(comDB.maxPeach)
|
||||
txbMaSoo.Text = comComCount(comDB.massageSoothing)
|
||||
txbMaxSMint.Text = comComCount(comDB.maxSMint)
|
||||
txbMeshPouch.Text = comComCount(comDB.meshpouch)
|
||||
txbFirming.Text = comComCount(comDB.firmingAmp)
|
||||
txbHyaluronic.Text = comComCount(comDB.hyaluronicAmp)
|
||||
txbnightshot.Text = comComCount(comDB.nightshot)
|
||||
txbmorningshot.Text = comComCount(comDB.morningshot)
|
||||
txbcasemaxwoodi.Text = comComCount(comDB.casemaxwoodi)
|
||||
txbelicolltoner.Text = comComCount(comDB.Elicolltoner)
|
||||
txbelicollamp.Text = comComCount(comDB.Elicollamp)
|
||||
txbelicollcream.Text = comComCount(comDB.Elicollcream)
|
||||
txbelihyaltoner.Text = comComCount(comDB.Elihyaltoner)
|
||||
txbelihyalamp.Text = comComCount(comDB.Elihyalamp)
|
||||
txbelihyalcream.Text = comComCount(comDB.Elihyalcream)
|
||||
txbdayshot.Text = comComCount(comDB.Dayshot)
|
||||
txbBeautyshopbag.Text = comComCount(comDB.Beautyshopbag)
|
||||
txbgummy.Text = comComCount(comDB.Gummy)
|
||||
txbstickjelly.Text = comComCount(comDB.Stickjelly)
|
||||
txbnewyearbag.Text = comComCount(comDB.Newyearbag)
|
||||
txbemsbelt.Text = comComCount(comDB.Emsbelt)
|
||||
txbbeltbag.Text = comComCount(comDB.Beltbag)
|
||||
txbDayshot2.Text = comComCount(comDB.Dayshot2)
|
||||
txbelixir.Text = comComCount(comDB.Elixir)
|
||||
txbbox8.Text = comComCount(comDB.car8)
|
||||
txbkeyring.Text = comComCount(comDB.keyring)
|
||||
txbdoenaliftingtoner.Text = comComCount(comDB.DoenaLiftingToner)
|
||||
txbdoenaliftingamp.Text = comComCount(comDB.DoenaLiftingAmp)
|
||||
txbdoenaliftingcream.Text = comComCount(comDB.DoenaLiftingCream)
|
||||
pnfirmingcollagengel.Text = comComCount(comDB.FirmingCollagenGel)
|
||||
txbkeyringSally.Text = comComCount(comDB.keyringSally)
|
||||
txbMask5.Text = component_packing_cnt_list(comDB.mask5).com_count
|
||||
txbMask10.Text = component_packing_cnt_list(comDB.mask10).com_count
|
||||
txbHair.Text = component_packing_cnt_list(comDB.hairband).com_count
|
||||
txbGel.Text = component_packing_cnt_list(comDB.gel).com_count
|
||||
txbMiniGel.Text = component_packing_cnt_list(comDB.minigel).com_count
|
||||
txbAmp.Text = component_packing_cnt_list(comDB.ample).com_count
|
||||
txbCream.Text = component_packing_cnt_list(comDB.cream).com_count
|
||||
txbUmb.Text = component_packing_cnt_list(comDB.umb).com_count
|
||||
txbFen.Text = component_packing_cnt_list(comDB.fen).com_count
|
||||
txbCharge.Text = component_packing_cnt_list(comDB.charger).com_count
|
||||
txbCable.Text = component_packing_cnt_list(comDB.cable).com_count
|
||||
txbToner.Text = component_packing_cnt_list(comDB.toner).com_count
|
||||
txbSoothing.Text = component_packing_cnt_list(comDB.soothing).com_count
|
||||
txbDust.Text = component_packing_cnt_list(comDB.dustbag).com_count
|
||||
txbBag.Text = component_packing_cnt_list(comDB.bag).com_count
|
||||
txbCos.Text = component_packing_cnt_list(comDB.cosbag).com_count
|
||||
txbbox1.Text = component_packing_cnt_list(comDB.car1).com_count
|
||||
txbbox2.Text = component_packing_cnt_list(comDB.car2).com_count
|
||||
txbbox3.Text = component_packing_cnt_list(comDB.car3).com_count
|
||||
txbbox4.Text = component_packing_cnt_list(comDB.car4).com_count
|
||||
txbbox5.Text = component_packing_cnt_list(comDB.car5).com_count
|
||||
txbbox6.Text = component_packing_cnt_list(comDB.car6).com_count
|
||||
txbProBlack.Text = component_packing_cnt_list(comDB.problack).com_count
|
||||
txbProBeige.Text = component_packing_cnt_list(comDB.probeige).com_count
|
||||
txbProRed.Text = component_packing_cnt_list(comDB.prored).com_count
|
||||
txbProPink.Text = component_packing_cnt_list(comDB.propink).com_count
|
||||
txbMaxBlack.Text = component_packing_cnt_list(comDB.maxblack).com_count
|
||||
txbMaxApr.Text = component_packing_cnt_list(comDB.maxapr).com_count
|
||||
txbMaxMint.Text = component_packing_cnt_list(comDB.maxmint).com_count
|
||||
txbMaxBeige.Text = component_packing_cnt_list(comDB.maxbeige).com_count
|
||||
txbMaxPurple.Text = component_packing_cnt_list(comDB.maxPurple).com_count
|
||||
txbSnakeBlack.Text = component_packing_cnt_list(comDB.proSnakeBlack).com_count
|
||||
txbKolla.Text = component_packing_cnt_list(comDB.kollagen).com_count
|
||||
txbKollaSet.Text = component_packing_cnt_list(comDB.kollagenset).com_count
|
||||
txbKolla_Pone.Text = component_packing_cnt_list(comDB.kollagen_P).com_count
|
||||
txbKolla_Pset.Text = component_packing_cnt_list(comDB.kollagenset_P).com_count
|
||||
txbCW.Text = component_packing_cnt_list(comDB.cleansingWater).com_count
|
||||
txbtonerPad.Text = component_packing_cnt_list(comDB.tonerPad).com_count
|
||||
txbMaxSafBK.Text = component_packing_cnt_list(comDB.maxSaffianoBK).com_count
|
||||
txbHolo1.Text = component_packing_cnt_list(comDB.hologram1).com_count
|
||||
txbHolo3.Text = component_packing_cnt_list(comDB.hologram3).com_count
|
||||
txbHolo5.Text = component_packing_cnt_list(comDB.hologram5).com_count
|
||||
txbMaxSafPp.Text = component_packing_cnt_list(comDB.caseSaffianoPp).com_count
|
||||
txbMaxYellow.Text = component_packing_cnt_list(comDB.maxYellow).com_count
|
||||
txbKolPe1.Text = component_packing_cnt_list(comDB.Kollagen_Pe1).com_count
|
||||
txbKolPe3.Text = component_packing_cnt_list(comDB.Kollagen_Pe3).com_count
|
||||
txbKolPe5.Text = component_packing_cnt_list(comDB.Kollagen_Pe5).com_count
|
||||
txbATCircle.Text = component_packing_cnt_list(comDB.ATCircleCase).com_count
|
||||
txbAPSquare.Text = component_packing_cnt_list(comDB.APSquareCase).com_count
|
||||
txbMaxPeach.Text = component_packing_cnt_list(comDB.maxPeach).com_count
|
||||
txbMaSoo.Text = component_packing_cnt_list(comDB.massageSoothing).com_count
|
||||
txbMaxSMint.Text = component_packing_cnt_list(comDB.maxSMint).com_count
|
||||
txbMeshPouch.Text = component_packing_cnt_list(comDB.meshpouch).com_count
|
||||
txbFirming.Text = component_packing_cnt_list(comDB.firmingAmp).com_count
|
||||
txbHyaluronic.Text = component_packing_cnt_list(comDB.hyaluronicAmp).com_count
|
||||
txbnightshot.Text = component_packing_cnt_list(comDB.nightshot).com_count
|
||||
txbmorningshot.Text = component_packing_cnt_list(comDB.morningshot).com_count
|
||||
txbcasemaxwoodi.Text = component_packing_cnt_list(comDB.casemaxwoodi).com_count
|
||||
txbelicolltoner.Text = component_packing_cnt_list(comDB.Elicolltoner).com_count
|
||||
txbelicollamp.Text = component_packing_cnt_list(comDB.Elicollamp).com_count
|
||||
txbelicollcream.Text = component_packing_cnt_list(comDB.Elicollcream).com_count
|
||||
txbelihyaltoner.Text = component_packing_cnt_list(comDB.Elihyaltoner).com_count
|
||||
txbelihyalamp.Text = component_packing_cnt_list(comDB.Elihyalamp).com_count
|
||||
txbelihyalcream.Text = component_packing_cnt_list(comDB.Elihyalcream).com_count
|
||||
txbdayshot.Text = component_packing_cnt_list(comDB.Dayshot).com_count
|
||||
txbBeautyshopbag.Text = component_packing_cnt_list(comDB.Beautyshopbag).com_count
|
||||
txbgummy.Text = component_packing_cnt_list(comDB.Gummy).com_count
|
||||
txbstickjelly.Text = component_packing_cnt_list(comDB.Stickjelly).com_count
|
||||
txbnewyearbag.Text = component_packing_cnt_list(comDB.Newyearbag).com_count
|
||||
txbemsbelt.Text = component_packing_cnt_list(comDB.Emsbelt).com_count
|
||||
txbbeltbag.Text = component_packing_cnt_list(comDB.Beltbag).com_count
|
||||
txbDayshot2.Text = component_packing_cnt_list(comDB.Dayshot2).com_count
|
||||
txbelixir.Text = component_packing_cnt_list(comDB.Elixir).com_count
|
||||
txbbox8.Text = component_packing_cnt_list(comDB.car8).com_count
|
||||
txbkeyring.Text = component_packing_cnt_list(comDB.keyring).com_count
|
||||
txbdoenaliftingtoner.Text = component_packing_cnt_list(comDB.DoenaLiftingToner).com_count
|
||||
txbdoenaliftingamp.Text = component_packing_cnt_list(comDB.DoenaLiftingAmp).com_count
|
||||
txbdoenaliftingcream.Text = component_packing_cnt_list(comDB.DoenaLiftingCream).com_count
|
||||
txbfirmingcollagengel.Text = component_packing_cnt_list(comDB.FirmingCollagenGel).com_count
|
||||
txbkeyringSally.Text = component_packing_cnt_list(comDB.keyringSally).com_count
|
||||
'신규구성품추가 : 추가한 품목 수량 출력하도록 추가
|
||||
|
||||
End Sub
|
||||
|
||||
1491
OrderPackingProcessor/mainForm.Designer.vb
generated
1491
OrderPackingProcessor/mainForm.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,4 +1,6 @@
|
||||
Module mySQLAddress
|
||||
Imports OrderPackingProcessor.mySQLAddress
|
||||
|
||||
Module mySQLAddress
|
||||
Private Const mainOrderDB As String = "jomtOrderDB.jomtOrderTbl"
|
||||
Private Const testOrderDB As String = "jomtOrderTestDB.jomtOrderTbl"
|
||||
|
||||
@ -86,12 +88,6 @@
|
||||
optimum
|
||||
'신규제품추가 : 추가하는 품목의 변수 추가
|
||||
End Enum
|
||||
Public prodDB_max_index As Integer = [Enum].GetNames(GetType(prodDB)).Length - 1
|
||||
Public prodDBCount(prodDB_max_index) As Integer '' DB 저장
|
||||
Public prodInCount(prodDB_max_index) As Integer '' 패킹 저장 10
|
||||
Public prodComCount(prodDB_max_index) As Integer '' 로컬 저장
|
||||
Public prodInSerial(prodDB_max_index) As String '' LogData 저장
|
||||
Public prodPackCommand(prodDB_max_index) As String ''
|
||||
|
||||
Public Enum comDB
|
||||
mask5
|
||||
@ -198,29 +194,52 @@
|
||||
bloomingMoistureGel250
|
||||
'신규구성품추가 : 추가하는 품목의 변수 추가
|
||||
End Enum
|
||||
Public comDB_max_index As Integer = [Enum].GetNames(GetType(comDB)).Length - 1
|
||||
Public comDBCount(comDB_max_index) As Integer ''DB 저장
|
||||
Public comInCount(comDB_max_index) As Integer '' 패킹 저장 32 + 10 = 42 - 1 = 41
|
||||
Public comComCount(comDB_max_index) As Integer '' 로컬 저장
|
||||
|
||||
Public countCommand(prodInCount.Length + comInCount.Length - 1) As String
|
||||
Structure item_info
|
||||
Dim item_type As String 'P:Product / C:Component
|
||||
Dim prod_code As String
|
||||
Dim sales_packing_cnt_col_nm As String
|
||||
Dim sales_packing_serial_col_nm As String
|
||||
Dim cnt As Integer
|
||||
Dim serial As String
|
||||
End Structure
|
||||
Public item_product_list() As item_info
|
||||
Public item_component_list() As item_info
|
||||
Public item_product_max_index As Integer
|
||||
Public item_component_max_index As Integer
|
||||
|
||||
Structure packing_count_info
|
||||
Dim item_type As String 'P:Product / C:Component
|
||||
Dim prod_code As String
|
||||
Dim packing_cnt_col_nm As String
|
||||
Dim ap_packing_cnt_col_nm As String
|
||||
Dim aw_packing_cnt_col_nm As String
|
||||
Dim db_count As Integer
|
||||
Dim com_count As Integer
|
||||
End Structure
|
||||
Public product_packing_cnt_list() As packing_count_info
|
||||
Public component_packing_cnt_list() As packing_count_info
|
||||
Public countCommand() As String
|
||||
|
||||
''데이터베이스 관련
|
||||
Private DBCmd As String
|
||||
|
||||
Public Function packingCountset(dbType As Int16, prodCode As Int16, ckCount As Int16, serial As String)
|
||||
If dbType = dbCode.prodDBcode Then
|
||||
If prodCode >= prodDB.proset And prodCode <= prodDB_max_index Then
|
||||
prodInCount(prodCode) += ckCount
|
||||
If prodInSerial(prodCode) = Nothing Then
|
||||
prodInSerial(prodCode) = serial
|
||||
If prodCode >= 1 And prodCode <= item_product_max_index Then
|
||||
item_product_list(prodCode).cnt += ckCount
|
||||
If item_product_list(prodCode).serial = Nothing Then
|
||||
item_product_list(prodCode).serial = serial
|
||||
Else
|
||||
prodInSerial(prodCode) = prodInSerial(prodCode) & "/" & serial
|
||||
item_product_list(prodCode).serial = item_product_list(prodCode).serial & "/" & serial
|
||||
End If
|
||||
Else
|
||||
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
|
||||
Return True
|
||||
End If
|
||||
Else
|
||||
If prodCode >= comDB.mask5 And prodCode <= comDB_max_index Then
|
||||
comInCount(prodCode) += ckCount
|
||||
If prodCode >= 0 And prodCode <= item_component_max_index Then
|
||||
item_component_list(prodCode).cnt += ckCount
|
||||
Else
|
||||
MsgBox("잘못된 데이터가 개입되었습니다", vbCritical)
|
||||
Return True
|
||||
@ -231,411 +250,142 @@
|
||||
End Function
|
||||
|
||||
Public Sub countCommandFunc(saveType As Int16)
|
||||
ReDim countCommand(item_product_max_index + item_component_max_index + 1)
|
||||
|
||||
Select Case saveType
|
||||
Case countSaveList.normal
|
||||
|
||||
countCommand(prodDB.packingCount) = "PackingCount"
|
||||
countCommand(prodDB.proset) = "ProSetCnt"
|
||||
countCommand(prodDB.luxset) = "LuxSetCnt"
|
||||
countCommand(prodDB.proface) = "ProFaceCnt"
|
||||
countCommand(prodDB.luxface) = "LuxFaceCnt"
|
||||
countCommand(prodDB.proeye) = "ProEyeCnt"
|
||||
countCommand(prodDB.luxeye) = "LuxEyeCnt"
|
||||
countCommand(prodDB.probody) = "ProBodyCnt"
|
||||
countCommand(prodDB.luxbody) = "LuxBodyCnt"
|
||||
countCommand(prodDB.maximum) = "MAXIMUMCnt"
|
||||
countCommand(prodDB.alphaSet) = "AlphaSetCnt"
|
||||
countCommand(prodDB.alphaFace) = "AlphaFaceCnt"
|
||||
countCommand(prodDB.alphaEye) = "AlphaEyeCnt"
|
||||
countCommand(prodDB.alphaBody) = "AlphaBodyCnt"
|
||||
countCommand(prodDB.alto) = "AltoCnt"
|
||||
countCommand(prodDB.effect) = "EffectCnt"
|
||||
countCommand(prodDB.effectV3) = "EffectV3Cnt"
|
||||
countCommand(prodDB.maximumAlpha) = "MAXIMUMALPHACnt"
|
||||
countCommand(prodDB.optimum) = "OptimumCnt"
|
||||
'신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 일반동작 컬럼명 추가
|
||||
|
||||
countCommand(prodInCount.Length + comDB.mask5) = "Mask5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.mask10) = "Mask10Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hairband) = "HairBandCnt"
|
||||
countCommand(prodInCount.Length + comDB.gel) = "GelCnt"
|
||||
countCommand(prodInCount.Length + comDB.minigel) = "MiniGel"
|
||||
countCommand(prodInCount.Length + comDB.ample) = "AmpleCnt"
|
||||
countCommand(prodInCount.Length + comDB.cream) = "CreamCnt"
|
||||
countCommand(prodInCount.Length + comDB.umb) = "UmbrellaCnt"
|
||||
countCommand(prodInCount.Length + comDB.fen) = "FenCnt"
|
||||
countCommand(prodInCount.Length + comDB.charger) = "ChargerCnt"
|
||||
countCommand(prodInCount.Length + comDB.cable) = "CableCnt"
|
||||
countCommand(prodInCount.Length + comDB.toner) = "TonerCnt"
|
||||
countCommand(prodInCount.Length + comDB.problack) = "CasePROBlack"
|
||||
countCommand(prodInCount.Length + comDB.probeige) = "CasePROBeige"
|
||||
countCommand(prodInCount.Length + comDB.prored) = "CasePRORed"
|
||||
countCommand(prodInCount.Length + comDB.propink) = "CasePROPink"
|
||||
countCommand(prodInCount.Length + comDB.maxblack) = "CaseMAXBlack"
|
||||
countCommand(prodInCount.Length + comDB.maxapr) = "CaseMAXApr"
|
||||
countCommand(prodInCount.Length + comDB.maxmint) = "CaseMAXMint"
|
||||
countCommand(prodInCount.Length + comDB.maxbeige) = "CaseMAXBeige"
|
||||
countCommand(prodInCount.Length + comDB.soothing) = "SoothingGelCnt"
|
||||
countCommand(prodInCount.Length + comDB.car0) = "Carton0Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car1) = "Carton1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car2) = "Carton2Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car3) = "Carton3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car4) = "Carton4Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car5) = "Carton5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car6) = "Carton6Cnt"
|
||||
countCommand(prodInCount.Length + comDB.bag) = "BagCnt"
|
||||
countCommand(prodInCount.Length + comDB.cosbag) = "CosBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.dustbag) = "DustBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPurple) = "CaseMAXPurple"
|
||||
countCommand(prodInCount.Length + comDB.proSnakeBlack) = "CasePROSnakeBlack"
|
||||
countCommand(prodInCount.Length + comDB.kollagen) = "KollagenCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset) = "KollagenSetCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagen_P) = "Kollagen_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset_P) = "KollagenSet_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.cleansingWater) = "CleansingWaterCnt"
|
||||
countCommand(prodInCount.Length + comDB.tonerPad) = "TonerPadCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "CaseMaxSafBK"
|
||||
countCommand(prodInCount.Length + comDB.hologram1) = "Hologram_1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram3) = "Hologram_3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram5) = "Hologram_5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "CaseMaxSafPp"
|
||||
countCommand(prodInCount.Length + comDB.maxYellow) = "CaseMaxYellow"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "Kollagen_Pe1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "Kollagen_Pe3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "Kollagen_Pe5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.ATCircleCase) = "ATCircleCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.APSquareCase) = "APSquareCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPeach) = "CaseMAXPeach"
|
||||
countCommand(prodInCount.Length + comDB.massageSoothing) = "MasSoothingCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSMint) = "CaseMAXSMint"
|
||||
countCommand(prodInCount.Length + comDB.meshpouch) = "MeshPouchCnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingAmp) = "FirmingAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "HyaluronicAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.nightshot) = "nightshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.morningshot) = "morningshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.casemaxwoodi) = "casemaxwoodicnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicolltoner) = "Elicolltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollamp) = "Elicollampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollcream) = "Elicollcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyaltoner) = "Elihyaltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalamp) = "Elihyalampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalcream) = "Elihyalcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot) = "Dayshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beautyshopbag) = "Beautyshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Gummy) = "Gummycnt"
|
||||
countCommand(prodInCount.Length + comDB.Stickjelly) = "Stickjellycnt"
|
||||
countCommand(prodInCount.Length + comDB.Newyearbag) = "Newyearbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbelt) = "Emsbeltcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beltbag) = "Beltbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot2) = "Dayshot2cnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixir) = "Elixircnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixirpremium) = "Elixirpremiumcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "Emsbeltcontrollsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.FabricBag) = "FabricBagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Goldshopbag) = "Goldshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.MorNigshotset) = "MorNigshotsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.CTBox) = "CTBoxcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "ElesqLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "ElesqLiftingCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "ElesqLiftingECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "ElesqLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "ElesqAquaTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "ElesqAquaCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "ElesqAquaECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "ElesqAquaAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.car8) = "Carton8Cnt"
|
||||
countCommand(prodInCount.Length + comDB.keyring) = "KeyringCnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "DoenaLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "DoenaLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "DoenaLiftingCreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "FirmingCollagenGelcnt"
|
||||
countCommand(prodInCount.Length + comDB.keyringSally) = "KeyringSallyCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitHairband) = "BeautykitHairbandCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "BeautykitMirrorSCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "BeautykitMirrorLCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "BloomingMoistureGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "FirmingCollagenGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.tweedCase) = "TweedCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "BloomingMoistureGel250Cnt"
|
||||
'신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 일반동작 컬럼명 추가
|
||||
For i = 1 To item_product_max_index
|
||||
countCommand(i) = product_packing_cnt_list(i).packing_cnt_col_nm
|
||||
Next
|
||||
|
||||
For i = 0 To item_component_max_index
|
||||
If component_packing_cnt_list(i).packing_cnt_col_nm <> Nothing Then
|
||||
countCommand(product_packing_cnt_list.Length + i) = component_packing_cnt_list(i).packing_cnt_col_nm
|
||||
End If
|
||||
Next
|
||||
|
||||
Case countSaveList.autopack
|
||||
|
||||
countCommand(prodDB.packingCount) = "AutoPackCnt"
|
||||
countCommand(prodDB.proset) = "APProSetCnt"
|
||||
countCommand(prodDB.luxset) = "APLuxSetCnt"
|
||||
countCommand(prodDB.proface) = "APProFaceCnt"
|
||||
countCommand(prodDB.luxface) = "APLuxFaceCnt"
|
||||
countCommand(prodDB.proeye) = "APProEyeCnt"
|
||||
countCommand(prodDB.luxeye) = "APLuxEyeCnt"
|
||||
countCommand(prodDB.probody) = "APProBodyCnt"
|
||||
countCommand(prodDB.luxbody) = "APLuxBodyCnt"
|
||||
countCommand(prodDB.maximum) = "APMAXIMUMCnt"
|
||||
countCommand(prodDB.alphaSet) = "APAlphaSetCnt"
|
||||
countCommand(prodDB.alphaFace) = "APAlphaFaceCnt"
|
||||
countCommand(prodDB.alphaEye) = "APAlphaEyeCnt"
|
||||
countCommand(prodDB.alphaBody) = "APAlphaBodyCnt"
|
||||
countCommand(prodDB.alto) = "APAltoCnt"
|
||||
countCommand(prodDB.effect) = "APEffectCnt"
|
||||
countCommand(prodDB.effectV3) = "APEffectV3Cnt"
|
||||
countCommand(prodDB.maximumAlpha) = "APMAXIMUMALPHACnt"
|
||||
countCommand(prodDB.optimum) = "APOptimumCnt"
|
||||
'신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(포장) 컬럼명 추가
|
||||
|
||||
countCommand(prodInCount.Length + comDB.mask5) = "APMask5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.mask10) = "APMask10Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hairband) = "APHairBandCnt"
|
||||
countCommand(prodInCount.Length + comDB.gel) = "APGelCnt"
|
||||
countCommand(prodInCount.Length + comDB.minigel) = "APMiniGel"
|
||||
countCommand(prodInCount.Length + comDB.ample) = "APAmpleCnt"
|
||||
countCommand(prodInCount.Length + comDB.cream) = "APCreamCnt"
|
||||
countCommand(prodInCount.Length + comDB.umb) = "APUmbrellaCnt"
|
||||
countCommand(prodInCount.Length + comDB.fen) = "APFenCnt"
|
||||
countCommand(prodInCount.Length + comDB.charger) = "APChargerCnt"
|
||||
countCommand(prodInCount.Length + comDB.cable) = "APCableCnt"
|
||||
countCommand(prodInCount.Length + comDB.toner) = "APTonerCnt"
|
||||
countCommand(prodInCount.Length + comDB.problack) = "APCasePROBlack"
|
||||
countCommand(prodInCount.Length + comDB.probeige) = "APCasePROBeige"
|
||||
countCommand(prodInCount.Length + comDB.prored) = "APCasePRORed"
|
||||
countCommand(prodInCount.Length + comDB.propink) = "APCasePROPink"
|
||||
countCommand(prodInCount.Length + comDB.maxblack) = "APCaseMAXBlack"
|
||||
countCommand(prodInCount.Length + comDB.maxapr) = "APCaseMAXApr"
|
||||
countCommand(prodInCount.Length + comDB.maxmint) = "APCaseMAXMint"
|
||||
countCommand(prodInCount.Length + comDB.maxbeige) = "APCaseMAXBeige"
|
||||
countCommand(prodInCount.Length + comDB.soothing) = "APSoothingGelCnt"
|
||||
countCommand(prodInCount.Length + comDB.car0) = "APCarton0Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car1) = "APCarton1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car2) = "APCarton2Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car3) = "APCarton3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car4) = "APCarton4Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car5) = "APCarton5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car6) = "APCarton6Cnt"
|
||||
countCommand(prodInCount.Length + comDB.bag) = "APBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.cosbag) = "APCosBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.dustbag) = "APDustBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPurple) = "APCaseMAXPurple"
|
||||
countCommand(prodInCount.Length + comDB.proSnakeBlack) = "APCasePROSnakeBlack"
|
||||
countCommand(prodInCount.Length + comDB.kollagen) = "APKollagenCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset) = "APKollagenSetCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagen_P) = "APKollagen_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset_P) = "APKollagenSet_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.cleansingWater) = "APCleansingWaterCnt"
|
||||
countCommand(prodInCount.Length + comDB.tonerPad) = "APTonerPadCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "APCaseMaxSafBK"
|
||||
countCommand(prodInCount.Length + comDB.hologram1) = "APHologram_1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram3) = "APHologram_3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram5) = "APHologram_5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "APCaseMaxSafPp"
|
||||
countCommand(prodInCount.Length + comDB.maxYellow) = "APCaseMaxYellow"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "APKollagen_Pe1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "APKollagen_Pe3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "APKollagen_Pe5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.ATCircleCase) = "APATCircleCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.APSquareCase) = "APAPSquareCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPeach) = "APCaseMAXPeach"
|
||||
countCommand(prodInCount.Length + comDB.massageSoothing) = "APMasSoothingCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSMint) = "APCaseMAXSMint"
|
||||
countCommand(prodInCount.Length + comDB.meshpouch) = "APMeshPouchCnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingAmp) = "APFirmingAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "APHyaluronicAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.nightshot) = "APnightshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.morningshot) = "APmorningshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.casemaxwoodi) = "APcasemaxwoodicnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicolltoner) = "APElicolltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollamp) = "APElicollampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollcream) = "APElicollcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyaltoner) = "APElihyaltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalamp) = "APElihyalampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalcream) = "APElihyalcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot) = "APDayshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beautyshopbag) = "APBeautyshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Gummy) = "APGummycnt"
|
||||
countCommand(prodInCount.Length + comDB.Stickjelly) = "APStickjellycnt"
|
||||
countCommand(prodInCount.Length + comDB.Newyearbag) = "APNewyearbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbelt) = "APEmsbeltcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beltbag) = "APBeltbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot2) = "APDayshot2cnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixir) = "APElixircnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixirpremium) = "APElixirpremiumcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "APEmsbeltcontrollsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.FabricBag) = "APFabricBagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Goldshopbag) = "APGoldshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.MorNigshotset) = "APMorNigshotsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.CTBox) = "APCTBoxcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "APElesqLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "APElesqLiftingCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "APElesqLiftingECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "APElesqLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "APElesqAquaTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "APElesqAquaCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "APElesqAquaECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "APElesqAquaAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.car8) = "APCarton8Cnt"
|
||||
countCommand(prodInCount.Length + comDB.keyring) = "APKeyringCnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "APDoenaLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "APDoenaLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "APDoenaLiftingCreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "APFirmingCollagenGelcnt"
|
||||
countCommand(prodInCount.Length + comDB.keyringSally) = "APKeyringSallyCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitHairband) = "APBeautykitHairbandCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "APBeautykitMirrorSCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "APBeautykitMirrorLCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "APBloomingMoistureGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "APFirmingCollagenGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.tweedCase) = "APTweedCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "APBloomingMoistureGel250Cnt"
|
||||
'신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(포장) 컬럼명 추가
|
||||
For i = 1 To item_product_max_index
|
||||
countCommand(i) = product_packing_cnt_list(i).ap_packing_cnt_col_nm
|
||||
Next
|
||||
|
||||
For i = 0 To item_component_max_index
|
||||
If component_packing_cnt_list(i).ap_packing_cnt_col_nm <> Nothing Then
|
||||
countCommand(product_packing_cnt_list.Length + i) = component_packing_cnt_list(i).ap_packing_cnt_col_nm
|
||||
End If
|
||||
Next
|
||||
|
||||
Case countSaveList.autoWeight
|
||||
|
||||
countCommand(prodDB.packingCount) = "AutoWeightCnt"
|
||||
countCommand(prodDB.proset) = "AWProSetCnt"
|
||||
countCommand(prodDB.luxset) = "AWLuxSetCnt"
|
||||
countCommand(prodDB.proface) = "AWProFaceCnt"
|
||||
countCommand(prodDB.luxface) = "AWLuxFaceCnt"
|
||||
countCommand(prodDB.proeye) = "AWProEyeCnt"
|
||||
countCommand(prodDB.luxeye) = "AWLuxEyeCnt"
|
||||
countCommand(prodDB.probody) = "AWProBodyCnt"
|
||||
countCommand(prodDB.luxbody) = "AWLuxBodyCnt"
|
||||
countCommand(prodDB.maximum) = "AWMAXIMUMCnt"
|
||||
countCommand(prodDB.alphaSet) = "AWAlphaSetCnt"
|
||||
countCommand(prodDB.alphaFace) = "AWAlphaFaceCnt"
|
||||
countCommand(prodDB.alphaEye) = "AWAlphaEyeCnt"
|
||||
countCommand(prodDB.alphaBody) = "AWAlphaBodyCnt"
|
||||
countCommand(prodDB.alto) = "AWAltoCnt"
|
||||
countCommand(prodDB.effect) = "AWEffectCnt"
|
||||
countCommand(prodDB.effectV3) = "AWEffectV3Cnt"
|
||||
countCommand(prodDB.maximumAlpha) = "AWMAXIMUMALPHACnt"
|
||||
countCommand(prodDB.optimum) = "AWOptimumCnt"
|
||||
'신규제품추가 : 추가한 prodDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(무게측정) 컬럼명 추가
|
||||
|
||||
countCommand(prodInCount.Length + comDB.mask5) = "AWMask5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.mask10) = "AWMask10Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hairband) = "AWHairBandCnt"
|
||||
countCommand(prodInCount.Length + comDB.gel) = "AWGelCnt"
|
||||
countCommand(prodInCount.Length + comDB.minigel) = "AWMiniGel"
|
||||
countCommand(prodInCount.Length + comDB.ample) = "AWAmpleCnt"
|
||||
countCommand(prodInCount.Length + comDB.cream) = "AWCreamCnt"
|
||||
countCommand(prodInCount.Length + comDB.umb) = "AWUmbrellaCnt"
|
||||
countCommand(prodInCount.Length + comDB.fen) = "AWFenCnt"
|
||||
countCommand(prodInCount.Length + comDB.charger) = "AWChargerCnt"
|
||||
countCommand(prodInCount.Length + comDB.cable) = "AWCableCnt"
|
||||
countCommand(prodInCount.Length + comDB.toner) = "AWTonerCnt"
|
||||
countCommand(prodInCount.Length + comDB.problack) = "AWCasePROBlack"
|
||||
countCommand(prodInCount.Length + comDB.probeige) = "AWCasePROBeige"
|
||||
countCommand(prodInCount.Length + comDB.prored) = "AWCasePRORed"
|
||||
countCommand(prodInCount.Length + comDB.propink) = "AWCasePROPink"
|
||||
countCommand(prodInCount.Length + comDB.maxblack) = "AWCaseMAXBlack"
|
||||
countCommand(prodInCount.Length + comDB.maxapr) = "AWCaseMAXApr"
|
||||
countCommand(prodInCount.Length + comDB.maxmint) = "AWCaseMAXMint"
|
||||
countCommand(prodInCount.Length + comDB.maxbeige) = "AWCaseMAXBeige"
|
||||
countCommand(prodInCount.Length + comDB.soothing) = "AWSoothingGelCnt"
|
||||
countCommand(prodInCount.Length + comDB.car0) = "AWCarton0Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car1) = "AWCarton1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car2) = "AWCarton2Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car3) = "AWCarton3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car4) = "AWCarton4Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car5) = "AWCarton5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.car6) = "AWCarton6Cnt"
|
||||
countCommand(prodInCount.Length + comDB.bag) = "AWBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.cosbag) = "AWCosBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.dustbag) = "AWDustBagCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPurple) = "AWCaseMAXPurple"
|
||||
countCommand(prodInCount.Length + comDB.proSnakeBlack) = "AWCasePROSnakeBlack"
|
||||
countCommand(prodInCount.Length + comDB.kollagen) = "AWKollagenCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset) = "AWKollagenSetCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagen_P) = "AWKollagen_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.kollagenset_P) = "AWKollagenSet_PCnt"
|
||||
countCommand(prodInCount.Length + comDB.cleansingWater) = "AWCleansingWaterCnt"
|
||||
countCommand(prodInCount.Length + comDB.tonerPad) = "AWTonerPadCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSaffianoBK) = "AWCaseMaxSafBK"
|
||||
countCommand(prodInCount.Length + comDB.hologram1) = "AWHologram_1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram3) = "AWHologram_3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.hologram5) = "AWHologram_5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.caseSaffianoPp) = "AWCaseMaxSafPp"
|
||||
countCommand(prodInCount.Length + comDB.maxYellow) = "AWCaseMaxYellow"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe1) = "AWKollagen_Pe1Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe3) = "AWKollagen_Pe3Cnt"
|
||||
countCommand(prodInCount.Length + comDB.Kollagen_Pe5) = "AWKollagen_Pe5Cnt"
|
||||
countCommand(prodInCount.Length + comDB.ATCircleCase) = "AWATCircleCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.APSquareCase) = "AWAPSquareCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxPeach) = "AWCaseMAXPeach"
|
||||
countCommand(prodInCount.Length + comDB.massageSoothing) = "AWMasSoothingCnt"
|
||||
countCommand(prodInCount.Length + comDB.maxSMint) = "AWCaseMAXSMint"
|
||||
countCommand(prodInCount.Length + comDB.meshpouch) = "AWMeshPouchCnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingAmp) = "AWFirmingAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.hyaluronicAmp) = "AWHyaluronicAmpCnt"
|
||||
countCommand(prodInCount.Length + comDB.nightshot) = "AWnightshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.morningshot) = "AWmorningshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.casemaxwoodi) = "AWcasemaxwoodicnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicolltoner) = "AWElicolltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollamp) = "AWElicollampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elicollcream) = "AWElicollcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyaltoner) = "AWElihyaltonercnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalamp) = "AWElihyalampcnt"
|
||||
countCommand(prodInCount.Length + comDB.Elihyalcream) = "AWElihyalcreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot) = "AWDayshotcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beautyshopbag) = "AWBeautyshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Gummy) = "AWGummycnt"
|
||||
countCommand(prodInCount.Length + comDB.Stickjelly) = "AWStickjellycnt"
|
||||
countCommand(prodInCount.Length + comDB.Newyearbag) = "AWNewyearbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbelt) = "AWEmsbeltcnt"
|
||||
countCommand(prodInCount.Length + comDB.Beltbag) = "AWBeltbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Dayshot2) = "AWDayshot2cnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixir) = "AWElixircnt"
|
||||
countCommand(prodInCount.Length + comDB.Elixirpremium) = "AWElixirpremiumcnt"
|
||||
countCommand(prodInCount.Length + comDB.Emsbeltcontrollset) = "AWEmsbeltcontrollsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.FabricBag) = "AWFabricBagcnt"
|
||||
countCommand(prodInCount.Length + comDB.Goldshopbag) = "AWGoldshopbagcnt"
|
||||
countCommand(prodInCount.Length + comDB.MorNigshotset) = "AWMorNigshotsetcnt"
|
||||
countCommand(prodInCount.Length + comDB.CTBox) = "AWCTBoxcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingToner) = "AWlesqLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingCeam) = "AWElesqLiftingCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingECream) = "AWElesqLiftingECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqLiftingAmp) = "AWElesqLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaToner) = "AWElesqAquaTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaCeam) = "AWElesqAquaCeamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaECream) = "AWElesqAquaECreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.ElesqAquaAmp) = "AWElesqAquaAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.car8) = "AWCarton8Cnt"
|
||||
countCommand(prodInCount.Length + comDB.keyring) = "AWKeyringCnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingToner) = "AWDoenaLiftingTonercnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingAmp) = "AWDoenaLiftingAmpcnt"
|
||||
countCommand(prodInCount.Length + comDB.DoenaLiftingCream) = "AWDoenaLiftingCreamcnt"
|
||||
countCommand(prodInCount.Length + comDB.FirmingCollagenGel) = "AWFirmingCollagenGelcnt"
|
||||
countCommand(prodInCount.Length + comDB.keyringSally) = "AWKeyringSallyCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitHairband) = "AWBeautykitHairbandCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorS) = "AWBeautykitMirrorSCnt"
|
||||
countCommand(prodInCount.Length + comDB.beautykitMirrorL) = "AWBeautykitMirrorLCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel150) = "AWBloomingMoistureGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.firmingCollagenGel150) = "AWFirmingCollagenGel150Cnt"
|
||||
countCommand(prodInCount.Length + comDB.tweedCase) = "AWTweedCaseCnt"
|
||||
countCommand(prodInCount.Length + comDB.bloomingMoistureGel250) = "AWBloomingMoistureGel250Cnt"
|
||||
'신규구성품추가 : 추가한 comDB 수량을 DB에 저장하기 위해 jomtPackingCount 에 생성한 자동화동작(무게측정) 컬럼명 추가
|
||||
For i = 1 To item_product_max_index
|
||||
countCommand(i) = product_packing_cnt_list(i).aw_packing_cnt_col_nm
|
||||
Next
|
||||
|
||||
For i = 0 To item_component_max_index
|
||||
If component_packing_cnt_list(i).aw_packing_cnt_col_nm <> Nothing Then
|
||||
countCommand(product_packing_cnt_list.Length + i) = component_packing_cnt_list(i).aw_packing_cnt_col_nm
|
||||
End If
|
||||
Next
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Public Sub countDBCommand()
|
||||
prodPackCommand(prodDB.proset) = "Main_Product_SN"
|
||||
prodPackCommand(prodDB.luxset) = "Main_Product_SN"
|
||||
prodPackCommand(prodDB.proface) = "Pro_Face_Serial"
|
||||
prodPackCommand(prodDB.luxface) = "Lux_Face_Serial"
|
||||
prodPackCommand(prodDB.proeye) = "Pro_Eye_Serial"
|
||||
prodPackCommand(prodDB.luxeye) = "Lux_Eye_Serial"
|
||||
prodPackCommand(prodDB.probody) = "Pro_Body_Serial"
|
||||
prodPackCommand(prodDB.luxbody) = "Lux_Body_Serial"
|
||||
prodPackCommand(prodDB.maximum) = "MAXIMUM_SN"
|
||||
prodPackCommand(prodDB.alphaSet) = "Alpha_Set_Serial"
|
||||
prodPackCommand(prodDB.alphaFace) = "Alpha_Face_Serial"
|
||||
prodPackCommand(prodDB.alphaEye) = "Alpha_Eye_Serial"
|
||||
prodPackCommand(prodDB.alphaBody) = "Alpha_Body_Serial"
|
||||
prodPackCommand(prodDB.alto) = "Alto_Serial"
|
||||
prodPackCommand(prodDB.effect) = "Effect_Serial"
|
||||
prodPackCommand(prodDB.effectV3) = "EffectV3_Serial"
|
||||
prodPackCommand(prodDB.maximumAlpha) = "MAXIMUM_ALPHA_SN"
|
||||
prodPackCommand(prodDB.optimum) = "Optimum_Serial"
|
||||
'신규제품추가 : 추가한 prodDB 시리얼번호를 DB에 저장하기 위해 jomtSalesPackingTbl 에 생성한 시리얼번호 컬럼명 추가
|
||||
|
||||
DBCmd = "SELECT MAX(ProdCode) FROM " & applyPlistDB & ";"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
item_product_max_index = sqlDataQuery(0)
|
||||
ReDim item_product_list(item_product_max_index)
|
||||
ReDim product_packing_cnt_list(item_product_max_index)
|
||||
End If
|
||||
|
||||
DBCmd = "SELECT CAST(ProdCode AS CHAR)
|
||||
, SalesPackingCntColNm
|
||||
, SalesPackingSerialColNm
|
||||
, PackingCntColNm
|
||||
, APPackingCntColNm
|
||||
, AWPackingCntColNm
|
||||
FROM " & applyPlistDB & " GROUP BY ProdCode ORDER BY ProdCode asc;"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
Dim RowCount As Int16 = (sqlDataQuery.Length / 6) - 1
|
||||
Dim dataSetCount As Int32 = 0
|
||||
Dim item_data As item_info
|
||||
Dim packing_count_data As packing_count_info
|
||||
|
||||
For row = 0 To RowCount
|
||||
item_data.item_type = "P"
|
||||
packing_count_data.item_type = "P"
|
||||
For col = 0 To 5
|
||||
If col = 0 Then
|
||||
item_data.prod_code = sqlDataQuery(dataSetCount)
|
||||
packing_count_data.prod_code = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 1 Then
|
||||
item_data.sales_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 2 Then
|
||||
item_data.sales_packing_serial_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 3 Then
|
||||
packing_count_data.packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 4 Then
|
||||
packing_count_data.ap_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 5 Then
|
||||
packing_count_data.aw_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
End If
|
||||
dataSetCount += 1
|
||||
Next
|
||||
item_product_list(item_data.prod_code) = item_data
|
||||
product_packing_cnt_list(packing_count_data.prod_code) = packing_count_data
|
||||
Next
|
||||
End If
|
||||
|
||||
DBCmd = "SELECT MAX(ProdCode) FROM " & applyClistDB & ";"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
item_component_max_index = sqlDataQuery(0)
|
||||
ReDim item_component_list(item_component_max_index)
|
||||
ReDim component_packing_cnt_list(item_component_max_index)
|
||||
End If
|
||||
|
||||
DBCmd = "SELECT CAST(ProdCode AS CHAR)
|
||||
, SalesPackingCntColNm
|
||||
, PackingCntColNm
|
||||
, APPackingCntColNm
|
||||
, AWPackingCntColNm
|
||||
FROM " & applyClistDB & " GROUP BY ProdCode ORDER BY ProdCode asc;"
|
||||
If DBQueryReader(DBCmd) Then
|
||||
Dim RowCount As Int16 = (sqlDataQuery.Length / 5) - 1
|
||||
Dim dataSetCount As Int32 = 0
|
||||
Dim item_data As item_info
|
||||
Dim packing_count_data As packing_count_info
|
||||
|
||||
For row = 0 To RowCount
|
||||
item_data.item_type = "C"
|
||||
packing_count_data.item_type = "C"
|
||||
For col = 0 To 4
|
||||
If col = 0 Then
|
||||
item_data.prod_code = sqlDataQuery(dataSetCount)
|
||||
packing_count_data.prod_code = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 1 Then
|
||||
item_data.sales_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 2 Then
|
||||
packing_count_data.packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 3 Then
|
||||
packing_count_data.ap_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
ElseIf col = 4 Then
|
||||
packing_count_data.aw_packing_cnt_col_nm = sqlDataQuery(dataSetCount)
|
||||
End If
|
||||
dataSetCount += 1
|
||||
Next
|
||||
item_component_list(item_data.prod_code) = item_data
|
||||
component_packing_cnt_list(packing_count_data.prod_code) = packing_count_data
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Module
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user