jionmt-sw/prod-SerialAssigner
4
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 11 Wiki Activity

16자리 시리얼번호 바코드 스캔 시 입력모드 자동으로 전환되도록 수정

Browse Source
This commit is contained in:
KwakJooYoung 2025-11-26 11:51:23 +09:00
parent b243a07355
commit 035a352293
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
MAXIMUM_Product_Program/MainForm.vb
View File

@ -14,6 +14,9 @@ Public Class MainForm
Private TDSNHead1 As String = "DIT" Private TDSNHead1 As String = "DIT"
Private TDSNHead2 As String = "J" Private TDSNHead2 As String = "J"
Const oldSearchLength As Int16 = 12
Const newSearchLength As Int16 = 16
Private DBCmd As String Private DBCmd As String
Private tmpCmdMessage As String Private tmpCmdMessage As String
Private rxMessage, cmdMessage As String Private rxMessage, cmdMessage As String
@ -117,7 +120,7 @@ Public Class MainForm
Select Case NowMode Select Case NowMode
Case ModeList.Prod_Input Case ModeList.Prod_Input
If InStr(txbPVSN.Text, "[START]") > 0 Or txbPVSN.Text.Length = 12 Then If InStr(txbPVSN.Text, "[START]") > 0 Or txbPVSN.Text.Length = oldSearchLength Or txbPVSN.Text.Length = newSearchLength Then
btnEnter_Click(sender, e) btnEnter_Click(sender, e)
End If End If
Case ModeList.TDRecycle Case ModeList.TDRecycle
@ -818,10 +821,6 @@ FailFunc:
TraySerialSetting() TraySerialSetting()
Else Else
Const oldSearchLength As Int16 = 12
Const newSearchLength As Int16 = 16
If SearchData.Length <> oldSearchLength And SearchData.Length <> newSearchLength Then If SearchData.Length <> oldSearchLength And SearchData.Length <> newSearchLength Then
MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation) MsgBox("잘못된 제품 코드입니다. 확인하여 주십시오.", vbExclamation)
GoTo FailFunc GoTo FailFunc