001.Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
002. If txtEmployeeID.Text = "" Then
003. MessageBox.Show("กรุณาระบุรหัสพนักงาน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
004. txtEmployeeID.Focus()
005. Exit Sub
006. End If
007.
008. If lsvPrintColorList.Items.Count = 0 Then
009. MessageBox.Show("กรุณาป้อนรายการเบิกสีหมึก !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
010. txtPrintCLID.Focus()
011. Exit Sub
012. End If
013.
014. Dim sqlDisclose As String = ""
015. Dim comDisclose As OleDbCommand = New OleDbCommand
016.
017. With Conn
018. If .State = ConnectionState.Open Then .Close()
019. .ConnectionString = strConn
020. .Open()
021. End With
022.
023. Try
024. If MessageBox.Show("คุณต้องการบันทึกรายการเบิกสีหมึก ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
025.
026. AutoGenerateTranID()
027.
028. sqlDisclose = "INSERT INTO Disclose (TransID,EmployeeID) "
029. sqlDisclose &= " VALUES('" & LastTransID & "',"
030. sqlDisclose &= "'" & txtEmployeeID.Text & "')"
031.
032. With comDisclose
033. .CommandType = CommandType.Text
034. .CommandText = sqlDisclose
035. .Connection = Conn
036. .ExecuteNonQuery()
037. End With
038.
039. Dim i As Integer = 0
040. Dim tmpPrintCLID As String = ""
041.
042. Dim sqlPrintColor As String = ""
043. Dim tmpColorInShop As Integer = 0
044. Dim tmpColorInDisclose As Integer = 0
045.
046. Dim tmpDiscloseNum As Integer = 0
047. Dim tmpDate_Disclose As Date
048.
049.
050. tmpDate_Disclose = Date.Now
051.
052. For i = 0 To lsvPrintColorList.Items.Count - 1
053. sqlDisclose = "INSERT INTO DiscloseDetail(TransID,PrintCLID,Date_Disclose,DiscloseNum)"
054. sqlDisclose &= " VALUES('" & LastTransID & "',"
055.
056. tmpPrintCLID = lsvPrintColorList.Items(i).SubItems(0).Text
057.
058. tmpDiscloseNum = CInt(lsvPrintColorList.Items(i).SubItems(2).Text)
059.
060. sqlDisclose &= "'" & tmpPrintCLID & "',"
061. sqlDisclose &= "'" & tmpDate_Disclose & "',"
062. sqlDisclose &= tmpDiscloseNum & ")"
063.
064. With comDisclose
065. .CommandText = sqlDisclose
066. .ExecuteNonQuery()
067. End With
068.
069. sqlDisclose = "SELECT PrintCLID,ColorInShop,ColorInDisclose FROM PrintColor"
070. sqlDisclose &= " WHERE (PrintCLID='" & tmpPrintCLID & "')"
071.
072. da.SelectCommand.CommandText = sqlDisclose
073. da.Fill(ds, "PrintColor")
074.
075. If IsDBNull(ds.Tables("PrintColor").Rows(0).Item("ColorInShop")) Then
076. tmpColorInShop = 0
077. Else
078. tmpColorInShop = CInt(ds.Tables("PrintColor").Rows(0).Item("ColorInShop"))
079. End If
080.
081. If IsDBNull(ds.Tables("PrintColor").Rows(0).Item("ColorInDisclose")) Then
082. tmpColorInDisclose = 0
083. Else
084. tmpColorInDisclose = CInt(ds.Tables("PrintColor").Rows(0).Item("ColorInDisclose"))
085. End If
086. ds.Tables("PrintColor").Clear()
087.
088. sqlDisclose = "UPDATE PrintColor"
089. sqlDisclose &= " SET ColorInShop=" & tmpColorInShop - tmpDiscloseNum & ","
090. sqlDisclose &= " ColorInDisclose=" & tmpColorInDisclose + tmpDiscloseNum
091. sqlDisclose &= " WHERE (PrintCLID='" & tmpPrintCLID & "')"
092.
093. With comDisclose
094. .CommandText = sqlDisclose
095. .ExecuteNonQuery()
096. End With
097. Next
098.
099.
100. MessageBox.Show("บันทึกรายการเบิกสีหมึกเรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
101.
102.
103. ClearAllEmployeeData()
104. ClearAllPrintColorData()
105. lsvPrintColorList.Items.Clear()
106.
107.
108. cboDepartment.SelectedIndex = 0
109. txtEmployeeID.Enabled = True
110. txtEmployeeID.Focus()
111. End If
112.
113. Catch ErrProcess As Exception
114. MessageBox.Show("ไม่สามารถบันทึกรายการเบิกสีหมึกได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
115. Exit Sub
116. End Try
117.End Sub
