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 ' 중량 관련 라디오 버튼이 변경된 경우 시리얼 포트 재연결