feat: Dualsonic 제품 시리얼번호 관련 DB 업데이트 기능 추가

Product_Manager/MainForm.vb

@@ -462,8 +462,8 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
-            Dim ModelCode As Int16 = ModelSetting()
+            Dim ModelCode As ModelList = ModelSetting()
-            Dim TypeCode As Int16 = TypeSetting()
+            Dim TypeCode As TypeList = TypeSetting()
 
             If ModelCode = ModelList.MAX_Model Or TypeCode = TypeList.MAXType Then
                 MsgBox("존재하지 않는 모델 및 타입 코드입니다. 체크된 내용을 확인하여 주십시오.", vbCritical, FormName)
@@ -561,11 +561,10 @@ End_Finish:
                 GoTo FAIL_Finish
             End If
 
-            SerialValue = ModelCode & TypeCode & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3)
+            txbIfNumber.Text = CInt(ModelCode) & CInt(TypeCode) & nudIfYear.Text & MonthParsing & Mid(SerialValue, 4, 3) & Mid(SerialValue, 1, 3)
-            txbIfNumber.Text = SerialValue
 
             tmpCmdMessage = "cartsn"
-            cmdMessage = "[sb" & tmpCmdMessage & " " & SerialValue & "]"
+            cmdMessage = "[sb" & tmpCmdMessage & " " & txbIfNumber.Text & "]"
 
             If SendData(cmdMessage) Then
                 StageCnt = ErrorList.SendError
@@ -579,6 +578,36 @@ End_Finish:
                 GoTo FAIL_Finish
             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
+
+                Dim DBCmd = "UPDATE " & UseCartridgeTbl & " SET " &
+                            "Product_SN = '" & txbIfNumber.Text & "', " &
+                            "Ct_Manufacture_Name = '" & txbIfCode.Text & "', " &
+                            "Ct_Manufacture_Year = '" & nudIfYear.Value & "', " &
+                            "Ct_Manufacture_Month = '" & nudIfMonth.Value & "', " &
+                            "Ct_SN = '" & SerialValue & "', " &
+                            "Ct_Model = '" & ModelCode.ToString & "', " &
+                            "Ct_Type = '" & TypeCode.ToString & "', " &
+                            "WHERE PV_SN = '" & TDNameStr & "'"
+
+                DBCommand(DBCmd)
+            End If
+
             If DataResult <> "success" Then
                 StageCnt = ErrorList.ResultError
                 GoTo FAIL_Finish