jionmt-sw/etc-prod-utility
5
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

feat: 샷 수 관련 DB 업데이트 기능 추가

Browse Source
This commit is contained in:
ssy99 2025-05-07 15:20:48 +09:00
parent 64769a930c
commit 0ff58bc865
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
Product_Manager/MainForm.vb
View File

@ -2714,6 +2714,31 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
If ckbDBUse.Checked = True Then
Dim TDNameStr = TDNameLoad()
If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then
MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName)
StageCnt = TDNameStr
GoTo FAIL_Finish
End If
Dim DBExist As Boolean = TDNameDBLoad(TDNameStr)
If DBExist = False Then
MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName)
StageCnt = ErrorList.ReceiveError
GoTo FAIL_Finish
End If
DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
"Ct_Remain_ShotCnt = '" & txbShot.Text & "' " &
"Ct_Max_ShotCnt = '" & txbMaxShot.Text & "' " &
"WHERE PV_SN = '" & TDNameStr & "'"
DBCommand(DBCmd)
End If
txbShotBox.Text = "SUCCESS" txbShotBox.Text = "SUCCESS"
txbShotBox.BackColor = Color.Green txbShotBox.BackColor = Color.Green
GoTo End_Finish GoTo End_Finish
@ -2743,6 +2768,30 @@ End_Finish:
GoTo FAIL_Finish GoTo FAIL_Finish
End If End If
If ckbDBUse.Checked = True Then
Dim TDNameStr = TDNameLoad()
If TDNameStr = Str(ErrorList.SendError) Or TDNameStr = Str(ErrorList.ReceiveError) Then
MsgBox("TD 시리얼 번호를 확인할 수 없습니다. 저장하고자 하는 Serial 번호를 먼저 입력하여 주십시오.", vbExclamation, FormName)
StageCnt = TDNameStr
GoTo FAIL_Finish
End If
Dim DBExist As Boolean = TDNameDBLoad(TDNameStr)
If DBExist = False Then
MsgBox("TD 시리얼 번호가 데이터베이스에 등록되어 있지 않습니다.", vbCritical, FormName)
StageCnt = ErrorList.ReceiveError
GoTo FAIL_Finish
End If
DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
"Ct_Remain_ShotCnt = '" & txbShot.Text & "' " &
"WHERE PV_SN = '" & TDNameStr & "'"
DBCommand(DBCmd)
End If
txbShotBox.Text = "SUCCESS" txbShotBox.Text = "SUCCESS"
txbShotBox.BackColor = Color.Green txbShotBox.BackColor = Color.Green
GoTo End_Finish GoTo End_Finish