Compare commits

..

7 Commits

Author SHA1 Message Date
hyelinjung
4b0b69a004 1. 같은 prodCode지만 다른 itemCode가 두 개 이상 존재하는 경우 수량이슈로 포장불가 수정
2. 버전 3.0.9
2026-04-01 11:52:01 +09:00
hyelinjung
2841837ca8 1. 보급형 checkbox 사용하지 않고 보급형 88코드 스캔 가능
2. 보급형 일반 sn 스캔할 때 세모ldm 테이블 추가
3. 보급형 checkbox ui 숨김
4. 버전 3.0.8
2026-03-06 09:24:29 +09:00
hyelinjung
f632ccf10c 보급형 모델 기존 key(88code) - value(itemcode) 에서 체험판 품목 추가되어 key(itemcode) - value(88code)로 수정 2026-02-19 10:00:00 +09:00
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
3 changed files with 163 additions and 73 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
@ -2083,6 +2086,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 +3780,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 +3860,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 +4296,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

@ -1,4 +1,4 @@
Imports System.IO
Imports System.IO
Imports System.IO.Ports
Imports System.Management
Imports System.Reflection.Emit
@ -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.9"
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
@ -163,12 +164,14 @@ Public Class mainForm
Private apiSearch As String = "createdAtFrom"
Public prodArray(,) As String
Private apiArray(,) As String
Private donePkList As New List(Of Integer) ''포장 끝난 itemCode 인덱스
''DB 제품 검색 관련
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
@ -209,6 +212,7 @@ Public Class mainForm
Private typeNum As String
Private modelNum As String
Private TDUseCompare As Boolean
Private LdmUseCompare As Boolean
Private mesDate As DateTime
@ -245,6 +249,9 @@ Public Class mainForm
End Enum
Private defaultData(defaultList.refer) As String
''보급형 88코드
Private lowProdList As New HashSet(Of String) ''value: 88_Code
'' 세트코드
Private setCodeUse As Boolean = False ''세트 코드 번호를 사용했냐 안했냐 구분
Private Const setCodeSort As String = "PK"
@ -292,6 +299,7 @@ Public Class mainForm
varDataSetting()
dgvRefresh()
fullLoad(sender, e)
loadLowProdBarcode()
If rdbMode2.Checked = True Then
loadConfig(saveList.lastCount)
End If
@ -308,7 +316,14 @@ Public Class mainForm
Me.Size = New Size(1920, 1080)
'Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub loadLowProdBarcode() '' 보급형 88 코드 가지고 오기
Dim cmd = "SELECT 88_Code FROM " & applyPlistDB & " WHERE 88_Code IS NOT NULL"
If DBQueryReader(cmd) Then
For i = 0 To sqlDataQuery.Length - 1
lowProdList.Add(sqlDataQuery(i))
Next
End If
End Sub
Private Sub countView()
If loadLocalFile() Then
countOut()
@ -471,6 +486,9 @@ Public Class mainForm
Return "NONORDER"
End If
Else
If lowProdList.Contains(playCode) Then
Return "CHECKERROR"
End If
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then
@ -755,7 +773,10 @@ Public Class mainForm
errorOut("전표불량")
errorGen("존재하지 않는 전표번호입니다. 번호를 확인하여 주십시오.")
Return False
Case "CHECKERROR"
errorOut("등록오류")
errorGen("보급형 상품입니다.")
Return False
Case Else
errorOut("동작불량")
errorGen("잘못된 동작입니다. 관리자에게 문의하십시오.")
@ -1839,6 +1860,9 @@ Public Class mainForm
End Function
Private Function serialDupCheck() As Boolean
If 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 +1876,9 @@ Public Class mainForm
Private Function serialPackCompare() As Boolean
Dim commandStr As String
If playCode.Length = lowProdCodeLength Then
Return True
End If
If playCode.Length = oldProdCodeLength Then '12자리 제품시리얼번호
modelNum = Mid(playCode, 1, 1)
@ -1865,9 +1892,11 @@ Public Class mainForm
Return False
End If
DBCmd = "SELECT TDUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1"
DBCmd = "SELECT TDUseYn, LdmUseYn FROM " & ApplyModelInfoDB & " WHERE ModelCode = '" & modelNum & "' LIMIT 1"
If DBQueryReader(DBCmd) Then
If sqlDataQuery(0) = "Y" Then
If sqlDataQuery(1) = "Y" Then
LdmUseCompare = True
ElseIf sqlDataQuery(0) = "Y" Then
TDUseCompare = True
Else
TDUseCompare = False
@ -2039,11 +2068,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 +2893,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 +2905,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)
@ -3619,15 +3645,16 @@ Public Class mainForm
Const regType As Int16 = 0
Try
For i = 0 To prodArray.GetLength(1) - 1
If donePkList.Contains(i) Then Continue For
For n = 0 To scanCode.Length - 1
If prodArray(itemCode.code, i) = scanCode(n) Then '' instr 에서 식으로 변경
If prodArray(itemCode.count, i) = prodArray(itemCode.chkCount, i) Then
errorOut("등록오류")
errorGen("더이상 포장할 필요가 없는 제품입니다.")
Return False
End If
'If prodArray(itemCode.count, i) = prodArray(itemCode.chkCount, i) Then
' errorOut("등록오류")
' errorGen("더이상 포장할 필요가 없는 제품입니다.")
' Return False
'End If
If prodScanCompare(i) Then
errorOut("등록오류")
@ -3647,6 +3674,7 @@ Public Class mainForm
txbArrayList(i, txbNameList.name).ForeColor = Color.Black
txbArrayList(i, txbNameList.nowCount).ForeColor = Color.Black
txbArrayList(i, txbNameList.targetCount).ForeColor = Color.Black
donePkList.Add(i)
Else
txbArrayList(i, txbNameList.targetCount).ForeColor = Color.Blue
End If
@ -3654,8 +3682,10 @@ Public Class mainForm
If prodArray(itemCode.serialNum, i) = Nothing Then
prodArray(itemCode.serialNum, i) = playCode
Else
If Not playCode.Length = lowProdCodeLength Then
prodArray(itemCode.serialNum, i) = prodArray(itemCode.serialNum, i) & "/" & playCode
End If
End If
prodArray(itemCode.type, i) = regType
prodArray(itemCode.prodCode, i) = setInfo(setInfoList.prodCode)
@ -3678,6 +3708,15 @@ Public Class mainForm
Next
Next
For Each scanData As String In scanCode
For Each b As Integer In donePkList
If prodArray(itemCode.code, b) = scanData Then
errorOut("등록오류")
errorGen("더이상 포장할 필요가 없는 제품입니다.")
Return False
End If
Next
Next
errorOut("등록오류")
errorGen("포장 품목에 존재하지 않는 제품입니다.")
Return False
@ -3719,7 +3758,8 @@ Public Class mainForm
End If
Else
If orderSwitch = True Then
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Then
If playCode.Length = oldProdCodeLength Or playCode.Length = newProdCodeLength Or lowProdList.Contains(playCode) Then
Return "PRODSCAN"
ElseIf playCode.Length > comCodeLength Then
Return "COMSCAN"
@ -3741,6 +3781,12 @@ Public Class mainForm
End Function
Private Function searchData() As Boolean
If 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
@ -3807,6 +3853,8 @@ Public Class mainForm
Else
If TDUseCompare = True Then
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'"
ElseIf LdmUseCompare = True Then
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & ApplyLdmDB & " WHERE Product_SN = '" & setInfo(type) & "'"
Else
DBCmd = "SELECT Ct_Model,Ct_Abroad,Ct_Agency FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'"
End If
@ -3906,6 +3954,8 @@ Public Class mainForm
If TDUseCompare = True Then
DBCmd = "SELECT Ct_Max_ShotCnt FROM " & applyCartDB & " WHERE Product_SN = '" & setInfo(type) & "'"
ElseIf LdmUseCompare = True Then
DBCmd = "SELECT Ct_Max_ShotCnt FROM " & ApplyLdmDB & " WHERE Product_SN = '" & setInfo(type) & "'"
Else
DBCmd = "SELECT COUNT(Number) FROM " & applyNonTDDB & " WHERE Product_SN = '" & setInfo(type) & "'"
End If
@ -3920,7 +3970,7 @@ Public Class mainForm
Return False
End If
If TDUseCompare = False Then
If TDUseCompare = False And LdmUseCompare = False Then
If shotcnt > 0 Then
shotcnt = 0
Else
@ -3948,12 +3998,14 @@ Public Class mainForm
Private Function prodCodeSearch() As Boolean
Try
If 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
@ -3962,8 +4014,12 @@ Public Class mainForm
ElseIf playCode.Length = newProdCodeLength Then '16자리 제품시리얼번호
codeColor = Mid(playCode, 3, 1)
End If
If 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
If DBQueryReader(DBCmd) Then
Dim sqlCount As Integer = sqlDataQuery.Length
ReDim ScanArray(scanList.eyeshot, (sqlCount / scanList.maxscan) - 1)
@ -4043,7 +4099,7 @@ Public Class mainForm
Try
Dim dataCount As Int16 = 0
Dim codeExist As Boolean = False
donePkList.Clear()
ReDim prodArray(itemCode.id, 0)
ReDim apiData(apiDataList.address)
@ -4114,7 +4170,6 @@ Public Class mainForm
Return False
End If
prodArray(itemCode.chkCount, dataCount) = 0
prodArray(itemCode.serialNum, dataCount) = Nothing
@ -4132,6 +4187,7 @@ Public Class mainForm
End If
Next
If codeExist = True Then
errorOut("등록오류")
errorGen("등록된 코드 번호가 존재하지 않습니다. 번호를 확인하여 주십시오.")
@ -5193,7 +5249,6 @@ Public Class mainForm
rdbNew.Checked = False
rdbBef.Checked = True
End If
Else
errorOut("설정오류")
errorGen("Config 파일을 불러오는 과정에서 오류가 발생하였습니다.")

View File

@ -7,6 +7,8 @@ Module mySQLAddress
Private Const mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl"
Private Const testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl"
Private Const mainLdmDB As String = "jomtTesterDB.jomtLDMTbl"
Private Const mainCountDB As String = "jomtTesterDB.jomtPackingCount"
Private Const testCountDB As String = "jomtTesterServerDB.jomtPackingCount"
@ -51,6 +53,7 @@ Module mySQLAddress
Public applyPKCodeDB As String = mainPKCodeDB
Public applyNonTDDB As String = MainNonTDDB
Public ApplyModelInfoDB As String = mainModelInfoDB
Public ApplyLdmDB As String = mainLdmDB
Public applyPackDB As String = testPackDB
Public applyHistoryDB As String = testHistoryDB