Compare commits

...

4 Commits

Author SHA1 Message Date
hyelinjung
ef6602d000 1.버전 3.0.7
2.기존 올리브영만 보급형 적용 -> 모든 보급형 모델 적용
3. 보급형 단독 / 보급형+구성품 / 보급형 +일반 모델 포장 적용
2026-02-09 10:48:08 +09:00
hyelinjung
d510ba1d50 1.버전3.0.4
2.올리브영일 경우 order 테이블 시리얼 넘버 88바코드로 중복 적용 안함
2026-01-26 09:10:07 +09:00
hyelinjung
26d549545f 올리브영 체크 여부 ComportConfig.ini 파일 저장 2026-01-21 10:01:06 +09:00
hyelinjung
d6842b5c19 1.올리브영 버튼 생성
2.버전 3.0.3
3.(일반포장 only)올리브영 88코드 스캔 시 올리브영 체크 확인 & DB 저장
2026-01-21 09:24:20 +09:00
2 changed files with 172 additions and 63 deletions

View File

@ -163,6 +163,8 @@ Partial Class mainForm
Me.gbInv = New System.Windows.Forms.GroupBox()
Me.ckbInv = New System.Windows.Forms.CheckBox()
Me.pnOption = New System.Windows.Forms.Panel()
Me.oyGroupBox = New System.Windows.Forms.GroupBox()
Me.oybtn = New System.Windows.Forms.CheckBox()
Me.gbMass = New System.Windows.Forms.GroupBox()
Me.rdbBef = New System.Windows.Forms.RadioButton()
Me.rdbNew = New System.Windows.Forms.RadioButton()
@ -374,6 +376,7 @@ Partial Class mainForm
Me.gbAutoMode.SuspendLayout()
Me.gbInv.SuspendLayout()
Me.pnOption.SuspendLayout()
Me.oyGroupBox.SuspendLayout()
Me.gbMass.SuspendLayout()
Me.gbMesDb.SuspendLayout()
Me.gbAutoCount.SuspendLayout()
@ -456,9 +459,9 @@ Partial Class mainForm
Me.gbProdSN.Font = New System.Drawing.Font("함초롬바탕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbProdSN.ForeColor = System.Drawing.Color.Black
Me.gbProdSN.Location = New System.Drawing.Point(459, 4)
Me.gbProdSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbProdSN.Margin = New System.Windows.Forms.Padding(4)
Me.gbProdSN.Name = "gbProdSN"
Me.gbProdSN.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbProdSN.Padding = New System.Windows.Forms.Padding(4)
Me.gbProdSN.Size = New System.Drawing.Size(1073, 106)
Me.gbProdSN.TabIndex = 81
Me.gbProdSN.TabStop = False
@ -468,7 +471,7 @@ Partial Class mainForm
'
Me.btnOK.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.btnOK.Location = New System.Drawing.Point(956, 29)
Me.btnOK.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnOK.Margin = New System.Windows.Forms.Padding(4)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(110, 64)
Me.btnOK.TabIndex = 69
@ -482,7 +485,7 @@ Partial Class mainForm
Me.txbProdSN.Font = New System.Drawing.Font("함초롬바탕", 38.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbProdSN.ImeMode = System.Windows.Forms.ImeMode.Disable
Me.txbProdSN.Location = New System.Drawing.Point(90, 24)
Me.txbProdSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbProdSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbProdSN.Name = "txbProdSN"
Me.txbProdSN.Size = New System.Drawing.Size(863, 74)
Me.txbProdSN.TabIndex = 67
@ -527,9 +530,9 @@ Partial Class mainForm
Me.gbMESId.Font = New System.Drawing.Font("함초롬바탕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbMESId.ForeColor = System.Drawing.Color.Black
Me.gbMESId.Location = New System.Drawing.Point(166, 4)
Me.gbMESId.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbMESId.Margin = New System.Windows.Forms.Padding(4)
Me.gbMESId.Name = "gbMESId"
Me.gbMESId.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbMESId.Padding = New System.Windows.Forms.Padding(4)
Me.gbMESId.Size = New System.Drawing.Size(137, 106)
Me.gbMESId.TabIndex = 106
Me.gbMESId.TabStop = False
@ -562,9 +565,9 @@ Partial Class mainForm
Me.gbPacking.Font = New System.Drawing.Font("함초롬바탕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbPacking.ForeColor = System.Drawing.Color.Black
Me.gbPacking.Location = New System.Drawing.Point(453, 4)
Me.gbPacking.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbPacking.Margin = New System.Windows.Forms.Padding(4)
Me.gbPacking.Name = "gbPacking"
Me.gbPacking.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbPacking.Padding = New System.Windows.Forms.Padding(4)
Me.gbPacking.Size = New System.Drawing.Size(420, 106)
Me.gbPacking.TabIndex = 100
Me.gbPacking.TabStop = False
@ -592,9 +595,9 @@ Partial Class mainForm
Me.gb_info.Controls.Add(Me.pnbotWeight)
Me.gb_info.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gb_info.Location = New System.Drawing.Point(962, 287)
Me.gb_info.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_info.Margin = New System.Windows.Forms.Padding(4)
Me.gb_info.Name = "gb_info"
Me.gb_info.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gb_info.Padding = New System.Windows.Forms.Padding(4)
Me.gb_info.Size = New System.Drawing.Size(950, 761)
Me.gb_info.TabIndex = 105
Me.gb_info.TabStop = False
@ -1051,9 +1054,9 @@ Partial Class mainForm
Me.gbCart.Controls.Add(Me.lbCnt)
Me.gbCart.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbCart.Location = New System.Drawing.Point(480, 50)
Me.gbCart.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbCart.Margin = New System.Windows.Forms.Padding(4)
Me.gbCart.Name = "gbCart"
Me.gbCart.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbCart.Padding = New System.Windows.Forms.Padding(4)
Me.gbCart.Size = New System.Drawing.Size(465, 330)
Me.gbCart.TabIndex = 84
Me.gbCart.TabStop = False
@ -1064,7 +1067,7 @@ Partial Class mainForm
Me.txbCmodel.BackColor = System.Drawing.Color.AliceBlue
Me.txbCmodel.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCmodel.Location = New System.Drawing.Point(94, 53)
Me.txbCmodel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCmodel.Margin = New System.Windows.Forms.Padding(4)
Me.txbCmodel.Name = "txbCmodel"
Me.txbCmodel.ReadOnly = True
Me.txbCmodel.Size = New System.Drawing.Size(351, 39)
@ -1108,7 +1111,7 @@ Partial Class mainForm
Me.txbCbodySN.BackColor = System.Drawing.Color.AliceBlue
Me.txbCbodySN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCbodySN.Location = New System.Drawing.Point(87, 146)
Me.txbCbodySN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCbodySN.Margin = New System.Windows.Forms.Padding(4)
Me.txbCbodySN.Name = "txbCbodySN"
Me.txbCbodySN.ReadOnly = True
Me.txbCbodySN.Size = New System.Drawing.Size(215, 43)
@ -1132,7 +1135,7 @@ Partial Class mainForm
Me.txbCeyeSN.BackColor = System.Drawing.Color.AliceBlue
Me.txbCeyeSN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCeyeSN.Location = New System.Drawing.Point(87, 99)
Me.txbCeyeSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCeyeSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbCeyeSN.Name = "txbCeyeSN"
Me.txbCeyeSN.ReadOnly = True
Me.txbCeyeSN.Size = New System.Drawing.Size(215, 43)
@ -1145,7 +1148,7 @@ Partial Class mainForm
Me.txbCfaceSN.BackColor = System.Drawing.Color.AliceBlue
Me.txbCfaceSN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCfaceSN.Location = New System.Drawing.Point(87, 52)
Me.txbCfaceSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCfaceSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbCfaceSN.Name = "txbCfaceSN"
Me.txbCfaceSN.ReadOnly = True
Me.txbCfaceSN.Size = New System.Drawing.Size(215, 43)
@ -1158,7 +1161,7 @@ Partial Class mainForm
Me.txbCeyeShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbCeyeShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCeyeShot.Location = New System.Drawing.Point(312, 99)
Me.txbCeyeShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCeyeShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbCeyeShot.Name = "txbCeyeShot"
Me.txbCeyeShot.ReadOnly = True
Me.txbCeyeShot.Size = New System.Drawing.Size(125, 43)
@ -1204,7 +1207,7 @@ Partial Class mainForm
Me.txbCfaceShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbCfaceShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCfaceShot.Location = New System.Drawing.Point(312, 52)
Me.txbCfaceShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCfaceShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbCfaceShot.Name = "txbCfaceShot"
Me.txbCfaceShot.ReadOnly = True
Me.txbCfaceShot.Size = New System.Drawing.Size(125, 43)
@ -1228,7 +1231,7 @@ Partial Class mainForm
Me.txbCbodyShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbCbodyShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCbodyShot.Location = New System.Drawing.Point(312, 146)
Me.txbCbodyShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCbodyShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbCbodyShot.Name = "txbCbodyShot"
Me.txbCbodyShot.ReadOnly = True
Me.txbCbodyShot.Size = New System.Drawing.Size(125, 43)
@ -1241,7 +1244,7 @@ Partial Class mainForm
Me.txbCagent.BackColor = System.Drawing.Color.AliceBlue
Me.txbCagent.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCagent.Location = New System.Drawing.Point(309, 285)
Me.txbCagent.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCagent.Margin = New System.Windows.Forms.Padding(4)
Me.txbCagent.Name = "txbCagent"
Me.txbCagent.ReadOnly = True
Me.txbCagent.Size = New System.Drawing.Size(136, 39)
@ -1254,7 +1257,7 @@ Partial Class mainForm
Me.txbCnt.BackColor = System.Drawing.Color.AliceBlue
Me.txbCnt.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbCnt.Location = New System.Drawing.Point(94, 285)
Me.txbCnt.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbCnt.Margin = New System.Windows.Forms.Padding(4)
Me.txbCnt.Name = "txbCnt"
Me.txbCnt.ReadOnly = True
Me.txbCnt.Size = New System.Drawing.Size(136, 39)
@ -1296,9 +1299,9 @@ Partial Class mainForm
Me.gbMain.Controls.Add(Me.lbMnt)
Me.gbMain.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbMain.Location = New System.Drawing.Point(5, 50)
Me.gbMain.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbMain.Margin = New System.Windows.Forms.Padding(4)
Me.gbMain.Name = "gbMain"
Me.gbMain.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbMain.Padding = New System.Windows.Forms.Padding(4)
Me.gbMain.Size = New System.Drawing.Size(465, 330)
Me.gbMain.TabIndex = 83
Me.gbMain.TabStop = False
@ -1309,7 +1312,7 @@ Partial Class mainForm
Me.txbMmodel.BackColor = System.Drawing.Color.AliceBlue
Me.txbMmodel.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMmodel.Location = New System.Drawing.Point(94, 53)
Me.txbMmodel.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMmodel.Margin = New System.Windows.Forms.Padding(4)
Me.txbMmodel.Name = "txbMmodel"
Me.txbMmodel.ReadOnly = True
Me.txbMmodel.Size = New System.Drawing.Size(351, 39)
@ -1353,7 +1356,7 @@ Partial Class mainForm
Me.txbMeyeSN.BackColor = System.Drawing.Color.AliceBlue
Me.txbMeyeSN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMeyeSN.Location = New System.Drawing.Point(87, 146)
Me.txbMeyeSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMeyeSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbMeyeSN.Name = "txbMeyeSN"
Me.txbMeyeSN.ReadOnly = True
Me.txbMeyeSN.Size = New System.Drawing.Size(215, 43)
@ -1366,7 +1369,7 @@ Partial Class mainForm
Me.txbMfaceSN.BackColor = System.Drawing.Color.AliceBlue
Me.txbMfaceSN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMfaceSN.Location = New System.Drawing.Point(87, 99)
Me.txbMfaceSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMfaceSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbMfaceSN.Name = "txbMfaceSN"
Me.txbMfaceSN.ReadOnly = True
Me.txbMfaceSN.Size = New System.Drawing.Size(215, 43)
@ -1379,7 +1382,7 @@ Partial Class mainForm
Me.txbMdevSN.BackColor = System.Drawing.Color.AliceBlue
Me.txbMdevSN.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMdevSN.Location = New System.Drawing.Point(87, 52)
Me.txbMdevSN.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMdevSN.Margin = New System.Windows.Forms.Padding(4)
Me.txbMdevSN.Name = "txbMdevSN"
Me.txbMdevSN.ReadOnly = True
Me.txbMdevSN.Size = New System.Drawing.Size(215, 43)
@ -1392,7 +1395,7 @@ Partial Class mainForm
Me.txbMfaceShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbMfaceShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMfaceShot.Location = New System.Drawing.Point(312, 99)
Me.txbMfaceShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMfaceShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbMfaceShot.Name = "txbMfaceShot"
Me.txbMfaceShot.ReadOnly = True
Me.txbMfaceShot.Size = New System.Drawing.Size(125, 43)
@ -1449,7 +1452,7 @@ Partial Class mainForm
Me.txbMdevShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbMdevShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMdevShot.Location = New System.Drawing.Point(312, 52)
Me.txbMdevShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMdevShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbMdevShot.Name = "txbMdevShot"
Me.txbMdevShot.ReadOnly = True
Me.txbMdevShot.Size = New System.Drawing.Size(125, 43)
@ -1473,7 +1476,7 @@ Partial Class mainForm
Me.txbMeyeShot.BackColor = System.Drawing.Color.AliceBlue
Me.txbMeyeShot.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMeyeShot.Location = New System.Drawing.Point(312, 146)
Me.txbMeyeShot.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMeyeShot.Margin = New System.Windows.Forms.Padding(4)
Me.txbMeyeShot.Name = "txbMeyeShot"
Me.txbMeyeShot.ReadOnly = True
Me.txbMeyeShot.Size = New System.Drawing.Size(125, 43)
@ -1486,7 +1489,7 @@ Partial Class mainForm
Me.txbMagent.BackColor = System.Drawing.Color.AliceBlue
Me.txbMagent.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMagent.Location = New System.Drawing.Point(309, 285)
Me.txbMagent.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMagent.Margin = New System.Windows.Forms.Padding(4)
Me.txbMagent.Name = "txbMagent"
Me.txbMagent.ReadOnly = True
Me.txbMagent.Size = New System.Drawing.Size(136, 39)
@ -1499,7 +1502,7 @@ Partial Class mainForm
Me.txbMnt.BackColor = System.Drawing.Color.AliceBlue
Me.txbMnt.Font = New System.Drawing.Font("함초롬바탕", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbMnt.Location = New System.Drawing.Point(94, 285)
Me.txbMnt.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbMnt.Margin = New System.Windows.Forms.Padding(4)
Me.txbMnt.Name = "txbMnt"
Me.txbMnt.ReadOnly = True
Me.txbMnt.Size = New System.Drawing.Size(136, 39)
@ -1730,9 +1733,9 @@ Partial Class mainForm
Me.gbProdList.Controls.Add(Me.lbProdCountB)
Me.gbProdList.Font = New System.Drawing.Font("함초롬바탕", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbProdList.Location = New System.Drawing.Point(4, 287)
Me.gbProdList.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbProdList.Margin = New System.Windows.Forms.Padding(4)
Me.gbProdList.Name = "gbProdList"
Me.gbProdList.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbProdList.Padding = New System.Windows.Forms.Padding(4)
Me.gbProdList.Size = New System.Drawing.Size(950, 761)
Me.gbProdList.TabIndex = 103
Me.gbProdList.TabStop = False
@ -1754,7 +1757,7 @@ Partial Class mainForm
Me.txbProdName0.BackColor = System.Drawing.Color.Lavender
Me.txbProdName0.Font = New System.Drawing.Font("굴림", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.txbProdName0.Location = New System.Drawing.Point(4, 4)
Me.txbProdName0.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.txbProdName0.Margin = New System.Windows.Forms.Padding(4)
Me.txbProdName0.Name = "txbProdName0"
Me.txbProdName0.ReadOnly = True
Me.txbProdName0.Size = New System.Drawing.Size(568, 50)
@ -1862,7 +1865,7 @@ Partial Class mainForm
Me.btnExit.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnExit.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.btnExit.Location = New System.Drawing.Point(1789, 4)
Me.btnExit.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnExit.Margin = New System.Windows.Forms.Padding(4)
Me.btnExit.Name = "btnExit"
Me.btnExit.Size = New System.Drawing.Size(127, 106)
Me.btnExit.TabIndex = 101
@ -1875,7 +1878,7 @@ Partial Class mainForm
Me.btnOption.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnOption.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.btnOption.Location = New System.Drawing.Point(1661, 4)
Me.btnOption.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnOption.Margin = New System.Windows.Forms.Padding(4)
Me.btnOption.Name = "btnOption"
Me.btnOption.Size = New System.Drawing.Size(127, 106)
Me.btnOption.TabIndex = 100
@ -1888,7 +1891,7 @@ Partial Class mainForm
Me.btnChange.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnChange.Font = New System.Drawing.Font("함초롬바탕", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.btnChange.Location = New System.Drawing.Point(1533, 4)
Me.btnChange.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.btnChange.Margin = New System.Windows.Forms.Padding(4)
Me.btnChange.Name = "btnChange"
Me.btnChange.Size = New System.Drawing.Size(127, 106)
Me.btnChange.TabIndex = 99
@ -2014,9 +2017,9 @@ Partial Class mainForm
Me.gbAutoMode.Font = New System.Drawing.Font("함초롬바탕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbAutoMode.ForeColor = System.Drawing.Color.Black
Me.gbAutoMode.Location = New System.Drawing.Point(4, 4)
Me.gbAutoMode.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbAutoMode.Margin = New System.Windows.Forms.Padding(4)
Me.gbAutoMode.Name = "gbAutoMode"
Me.gbAutoMode.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbAutoMode.Padding = New System.Windows.Forms.Padding(4)
Me.gbAutoMode.Size = New System.Drawing.Size(446, 107)
Me.gbAutoMode.TabIndex = 102
Me.gbAutoMode.TabStop = False
@ -2040,9 +2043,9 @@ Partial Class mainForm
Me.gbInv.Font = New System.Drawing.Font("함초롬바탕", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
Me.gbInv.ForeColor = System.Drawing.Color.Black
Me.gbInv.Location = New System.Drawing.Point(305, 4)
Me.gbInv.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbInv.Margin = New System.Windows.Forms.Padding(4)
Me.gbInv.Name = "gbInv"
Me.gbInv.Padding = New System.Windows.Forms.Padding(4, 4, 4, 4)
Me.gbInv.Padding = New System.Windows.Forms.Padding(4)
Me.gbInv.Size = New System.Drawing.Size(145, 106)
Me.gbInv.TabIndex = 101
Me.gbInv.TabStop = False
@ -2063,6 +2066,7 @@ Partial Class mainForm
'
'pnOption
'
Me.pnOption.Controls.Add(Me.oyGroupBox)
Me.pnOption.Controls.Add(Me.gbMass)
Me.pnOption.Controls.Add(Me.gbMesDb)
Me.pnOption.Controls.Add(Me.gbAutoCount)
@ -2083,6 +2087,31 @@ Partial Class mainForm
Me.pnOption.Size = New System.Drawing.Size(1920, 1060)
Me.pnOption.TabIndex = 83
'
'oyGroupBox
'
Me.oyGroupBox.BackColor = System.Drawing.SystemColors.ControlLight
Me.oyGroupBox.Controls.Add(Me.oybtn)
Me.oyGroupBox.Font = New System.Drawing.Font("굴림", 14.25!, System.Drawing.FontStyle.Bold)
Me.oyGroupBox.Location = New System.Drawing.Point(1598, 260)
Me.oyGroupBox.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.oyGroupBox.Name = "oyGroupBox"
Me.oyGroupBox.Padding = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.oyGroupBox.Size = New System.Drawing.Size(316, 75)
Me.oyGroupBox.TabIndex = 110
Me.oyGroupBox.TabStop = False
Me.oyGroupBox.Text = "보급형 사용 설정"
'
'oybtn
'
Me.oybtn.AutoSize = True
Me.oybtn.Location = New System.Drawing.Point(52, 34)
Me.oybtn.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.oybtn.Name = "oybtn"
Me.oybtn.Size = New System.Drawing.Size(135, 23)
Me.oybtn.TabIndex = 0
Me.oybtn.Text = "보급형 모델"
Me.oybtn.UseVisualStyleBackColor = True
'
'gbMass
'
Me.gbMass.BackColor = System.Drawing.SystemColors.ControlLight
@ -3752,7 +3781,7 @@ Partial Class mainForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(3844, 849)
Me.ClientSize = New System.Drawing.Size(3662, 849)
Me.Controls.Add(Me.pnOption)
Me.Controls.Add(Me.pnMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -3832,6 +3861,8 @@ Partial Class mainForm
Me.gbInv.ResumeLayout(False)
Me.gbInv.PerformLayout()
Me.pnOption.ResumeLayout(False)
Me.oyGroupBox.ResumeLayout(False)
Me.oyGroupBox.PerformLayout()
Me.gbMass.ResumeLayout(False)
Me.gbMass.PerformLayout()
Me.gbMesDb.ResumeLayout(False)
@ -4266,4 +4297,6 @@ Partial Class mainForm
Friend WithEvents txbCheckWeight As TextBox
Friend WithEvents lbCheckWeight As Label
Friend WithEvents rdbWeightQW As RadioButton
Friend WithEvents oyGroupBox As GroupBox
Friend WithEvents oybtn As CheckBox
End Class

View File

@ -8,7 +8,7 @@ Imports Newtonsoft.Json.Linq
Public Class mainForm
Public projectName As String = "OrderPackingProcessor Ver."
Public projectVer As String = "3.0.2"
Public projectVer As String = "3.0.7"
Private apiItemOutURL As String = "item-outflows/page"
@ -155,6 +155,7 @@ Public Class mainForm
''스캔 바코드 문자 길이
Private Const oldProdCodeLength As Int16 = 12 '12자리 제품시리얼번호
Private Const newProdCodeLength As Int16 = 16 '16자리 제품시리얼번호
Private Const lowProdCodeLength As Int16 = 13 '보급형모델 88코드
Private Const comCodeLength As Int16 = 8
Private Const stateLength As Int16 = 14
Private Const serialCount As Int16 = 3
@ -168,7 +169,8 @@ Public Class mainForm
Private ScanArray(,) As String
Private scanCode() As String
Private setFace, setEye As String
Private setFace As String = "0"
Private setEye As String = "0"
''리스트 텍스트박스 위치
Const prodInfoStartCol As Int16 = 5
@ -245,6 +247,10 @@ Public Class mainForm
End Enum
Private defaultData(defaultList.refer) As String
''보급형 88코드
Private lowProdList As New Dictionary(Of String, String) ''key:88 vlaue: itemcode
''보급형 기기 포함
Private lowProdContain As Boolean = False
'' 세트코드
Private setCodeUse As Boolean = False ''세트 코드 번호를 사용했냐 안했냐 구분
Private Const setCodeSort As String = "PK"
@ -292,6 +298,7 @@ Public Class mainForm
varDataSetting()
dgvRefresh()
fullLoad(sender, e)
loadLowProdBarcode()
If rdbMode2.Checked = True Then
loadConfig(saveList.lastCount)
End If
@ -308,7 +315,18 @@ Public Class mainForm
Me.Size = New Size(1920, 1080)
'Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub loadLowProdBarcode() '' 보급형 88 코드 가지고 오기
Dim queryFlag = 0
Dim cmd = "SELECT 88_Code,itemCode FROM " & applyPlistDB & " WHERE 88_Code IS NOT NULL"
If DBQueryReader(cmd) Then
For i = 0 To sqlDataQuery.Length - 1
If i Mod 2 = 1 Then
lowProdList.Add(sqlDataQuery(queryFlag - 1), sqlDataQuery(queryFlag))
End If
queryFlag += 1
Next
End If
End Sub
Private Sub countView()
If loadLocalFile() Then
countOut()
@ -471,6 +489,9 @@ Public Class mainForm
Return "NONORDER"
End If
Else
If oybtn.Checked Then
Return "CHECKERROR"
End If
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then
@ -755,7 +776,10 @@ Public Class mainForm
errorOut("전표불량")
errorGen("존재하지 않는 전표번호입니다. 번호를 확인하여 주십시오.")
Return False
Case "CHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품이 아닙니다. 보급형 사용 여부를 해제해 주십시오.")
Return False
Case Else
errorOut("동작불량")
errorGen("잘못된 동작입니다. 관리자에게 문의하십시오.")
@ -1529,6 +1553,14 @@ Public Class mainForm
errorOut("등록오류")
errorGen("코드를 파싱하는 도중 오류가 발생하였습니다.")
Return False
Case "CHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품이 아닙니다. 보급형 사용을 해제해 주십시오.")
Return False
Case "UNCHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품입니다. 보급형 사용 여부를 확인해 주십시오.")
Return False
Case Else
errorOut("등록오류")
errorGen("잘못된 접근입니다. 관리자에게 문의하여 주십시오.")
@ -1839,6 +1871,9 @@ Public Class mainForm
End Function
Private Function serialDupCheck() As Boolean
If oybtn.Checked And playCode.Length = lowProdCodeLength Then
Return False
End If
For i = 0 To prodArray.GetLength(1) - 1
If InStr(prodArray(itemCode.serialNum, i), playCode) > 0 Then
errorOut("데이터오류")
@ -1852,6 +1887,9 @@ Public Class mainForm
Private Function serialPackCompare() As Boolean
Dim commandStr As String
If oybtn.Checked And playCode.Length = lowProdCodeLength Then
Return True
End If
If playCode.Length = oldProdCodeLength Then '12자리 제품시리얼번호
modelNum = Mid(playCode, 1, 1)
@ -2039,11 +2077,8 @@ Public Class mainForm
Private Function shotComparison() As Boolean
Dim runCount As Int32 = 0
setFace = 0
setEye = 0
Dim faceCShot As Int32 = 0
Dim eyeCshot As Int32 = 0
If setInfo(setInfoList.topSerial) <> "NULL" And setInfo(setInfoList.midSerial) <> "NULL" And setInfo(setInfoList.botSerial) <> "NULL" Then
setFace = setInfo(setInfoList.midshot)
setEye = setInfo(setInfoList.botshot)
@ -2867,7 +2902,7 @@ Public Class mainForm
strData = File.ReadAllText(fileName, Encoding.UTF8)
If strData = vbCrLf Or strData = Nothing Or strData = "" Then
strData = startForm & vbCrLf & saveData & vbCrLf
strData = StartForm & vbCrLf & saveData & vbCrLf
Else
If UBound(Split(strData, saveDate)) > 0 Then
@ -2879,7 +2914,7 @@ Public Class mainForm
End If
Else
strData = startForm & vbCrLf & saveData & vbCrLf
strData = StartForm & vbCrLf & saveData & vbCrLf
End If
File.WriteAllText(fileName, strData, Encoding.UTF8)
@ -3654,7 +3689,9 @@ Public Class mainForm
If prodArray(itemCode.serialNum, i) = Nothing Then
prodArray(itemCode.serialNum, i) = playCode
Else
prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode
If Not (oybtn.Checked And playCode.Length = lowProdCodeLength) Then
prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode
End If
End If
prodArray(itemCode.type, i) = regType
@ -3719,6 +3756,16 @@ Public Class mainForm
End If
Else
If orderSwitch = True Then
If lowProdList.ContainsKey(playCode) Then
If oybtn.Checked Then
Return "PRODSCAN"
Else
Return "UNCHECKERROR"
End If
ElseIf oybtn.Checked And lowProdContain = False Then
Return "CHECKERROR"
End If
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then
@ -3741,6 +3788,12 @@ Public Class mainForm
End Function
Private Function searchData() As Boolean
If oybtn.Checked And playCode.Length = lowProdCodeLength Then
For i = 0 To setInfoList.prodCode
setInfo(i) = "NULL"
Next
Return True
End If
Const serialShot As Int16 = 3 '' 시리얼 번호와 enum 차이 / 시리얼 번호 null 수에 null 집어 넣기 위해 사용
For i = 0 To setInfoList.prodCode
@ -3948,13 +4001,15 @@ Public Class mainForm
Private Function prodCodeSearch() As Boolean
Try
If modelNum = Nothing Or typeNum = Nothing Then
errorOut("등록오류")
errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.")
Return True
If Not (oybtn.Checked And playCode.Length = lowProdCodeLength) Then
If modelNum = Nothing Or typeNum = Nothing Then
errorOut("등록오류")
errorGen("해당 시리얼 번호의 모델과 타입을 알 수 없습니다.")
Return True
End If
End If
Dim queryCount As Integer = 0
Dim codeColor As String
If playCode.Length = oldProdCodeLength Then '12자리 제품시리얼번호
@ -3962,8 +4017,12 @@ Public Class mainForm
ElseIf playCode.Length = newProdCodeLength Then '16자리 제품시리얼번호
codeColor = Mid(playCode, 3, 1)
End If
If oybtn.Checked And playCode.Length = lowProdCodeLength Then
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE 88_Code = '" & playCode & "'"
Else
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ModelNum = '" & modelNum & "' AND TypeNum = '" & typeNum & "' AND ColorNum = '" & codeColor & "'"
End If
DBCmd = "SELECT ItemCode,ProdCode,FaceShot,EyeShot FROM " & applyPlistDB & " WHERE ModelNum = '" & modelNum & "' AND TypeNum = '" & typeNum & "' AND ColorNum = '" & codeColor & "'"
If DBQueryReader(DBCmd) Then
Dim sqlCount As Integer = sqlDataQuery.Length
ReDim ScanArray(scanList.eyeshot, (sqlCount / scanList.maxscan) - 1)
@ -4043,6 +4102,7 @@ Public Class mainForm
Try
Dim dataCount As Int16 = 0
Dim codeExist As Boolean = False
lowProdContain = False
ReDim prodArray(itemCode.id, 0)
ReDim apiData(apiDataList.address)
@ -4109,11 +4169,13 @@ Public Class mainForm
prodArray(itemCode.code, dataCount) = jQuery.SelectToken(apiCommand(parsingCode.code)).ToString
prodArray(itemCode.name, dataCount) = jQuery.SelectToken(apiCommand(parsingCode.name)).ToString
Else
errorOut("등록오류")
errorOut("등록오류")
errorGen("등록 데이터 중 제품이 등록되어 있지 않는 항목이 존재합니다.")
Return False
End If
If lowProdList.ContainsValue(prodArray(itemCode.code, dataCount)) And lowProdContain = False Then
lowProdContain = True
End If
prodArray(itemCode.chkCount, dataCount) = 0
prodArray(itemCode.serialNum, dataCount) = Nothing
@ -4132,6 +4194,7 @@ Public Class mainForm
End If
Next
If codeExist = True Then
errorOut("등록오류")
errorGen("등록된 코드 번호가 존재하지 않습니다. 번호를 확인하여 주십시오.")
@ -4957,6 +5020,7 @@ Public Class mainForm
Dim weightNum As Int16
Dim apiDBNum As Int16
Dim MassNum As Int16
Dim oyNum As Int16
If rdbMode1.Checked = True Then
modeNum = 0
@ -4996,7 +5060,13 @@ Public Class mainForm
MassNum = 1
End If
saveStr = cboComPort.SelectedItem & "^" & modeNum & "^" & autoNum & "^" & weightNum & "^" & apiDBNum & "^" & MassNum
If oybtn.Checked = True Then
oyNum = 1
Else
oyNum = 0
End If
saveStr = cboComPort.SelectedItem & "^" & modeNum & "^" & autoNum & "^" & weightNum & "^" & apiDBNum & "^" & MassNum & "^" & oyNum
Case saveList.ckbData
saveStr = optionCkb(optionCkbList.weight).Checked & "^" & optionCkb(optionCkbList.barcode).Checked & "^" & optionCkb(optionCkbList.printer).Checked & "^" & optionCkb(optionCkbList.api).Checked
@ -5193,6 +5263,12 @@ Public Class mainForm
rdbNew.Checked = False
rdbBef.Checked = True
End If
ElseIf i = 6 Then
If parsingCk = 0 Then
oybtn.Checked = False
Else
oybtn.Checked = True
End If
Else
errorOut("설정오류")
@ -5272,7 +5348,7 @@ Public Class mainForm
End Sub
Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbWeightQW.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click
Private Sub ckbWeight_Click(sender As Object, e As EventArgs) Handles ckbWeight.Click, chbUseBarcode.Click, ckbPrinter.Click, ckbAPIuse.Click, rdbMode1.Click, rdbMode2.Click, rdbAuto1.Click, rdbAuto2.Click, rdbWeightAuto.Click, rdbWeightCAS.Click, rdbWeightQW.Click, rdbMesDbAPI.Click, rdbMesDbPg.Click, rdbNew.Click, rdbBef.Click, oybtn.Click
ckbChange = True
' 중량 관련 라디오 버튼이 변경된 경우 시리얼 포트 재연결