1. 같은 prodCode지만 다른 itemCode가 두 개 이상 존재하는 경우 수량이슈로 포장불가 수정

2. 버전 3.0.9

OrderPackingProcessor/mainForm.Designer.vb

@@ -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

OrderPackingProcessor/mainForm.vb

@@ -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
+                        'If prodArray(itemCode.count, i) = prodArray(itemCode.chkCount, i) Then
-                            errorOut("등록오류")
+                        '    errorOut("등록오류")
-                            errorGen("더이상 포장할 필요가 없는 제품입니다.")
+                        '    errorGen("더이상 포장할 필요가 없는 제품입니다.")
-                            Return False
+                        '    Return False
-                        End If
+                        '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 파일을 불러오는 과정에서 오류가 발생하였습니다.")

OrderPackingProcessor/mySQLAddress.vb

@@ -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