From 26d549545fedfd90553a2d79a8df8e6d9c665864 Mon Sep 17 00:00:00 2001 From: hyelinjung Date: Wed, 21 Jan 2026 10:01:06 +0900 Subject: [PATCH] =?UTF-8?q?=EC=98=AC=EB=A6=AC=EB=B8=8C=EC=98=81=20?= =?UTF-8?q?=EC=B2=B4=ED=81=AC=20=EC=97=AC=EB=B6=80=20ComportConfig.ini=20?= =?UTF-8?q?=ED=8C=8C=EC=9D=BC=20=EC=A0=80=EC=9E=A5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OrderPackingProcessor/mainForm.vb | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/OrderPackingProcessor/mainForm.vb b/OrderPackingProcessor/mainForm.vb index 8b8b678..9930df7 100644 --- a/OrderPackingProcessor/mainForm.vb +++ b/OrderPackingProcessor/mainForm.vb @@ -5007,6 +5007,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 @@ -5046,7 +5047,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 @@ -5243,6 +5250,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("설정오류") @@ -5322,7 +5335,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 ' 중량 관련 라디오 버튼이 변경된 경우 시리얼 포트 재연결