MS05082016

app/DD-Record-Organiser/frmTask_Management.vb

@@ -536,7 +536,44 @@
                 MsgBox(txt, MsgBoxStyle.Exclamation)
             End If
         Catch ex As Exception
-            MsgBox("Error in Insert Entity-States" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Error in Insert Entity-States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
+        Try
+            Dim i As Integer
+            i = DataGridView1.CurrentRow.Index
+            If DataGridView1.Item(0, i).Value Is Nothing = False Then
+                Dim i1 = DataGridView1.Item(0, i).Value
+                Dim sel = "SELECT COMMENT FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & i1
+                Dim result = ClassDatabase.Execute_Scalar(sel)
+                txtComment.Text = result
+            End If
+        Catch ex As Exception
+            MsgBox("Error in getting Workflow Comment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub txtComment_TextChanged(sender As Object, e As EventArgs) Handles txtComment.TextChanged
+
+    End Sub
+
+    Private Sub btnSaveComment_Click(sender As Object, e As EventArgs) Handles btnSaveComment.Click
+        If txtComment.Text <> "" Then
+            Try
+                Dim i As Integer
+                i = DataGridView1.CurrentRow.Index
+                If DataGridView1.Item(0, i).Value Is Nothing = False Then
+                    Dim i1 = DataGridView1.Item(0, i).Value
+                    Dim upd = "UPDATE TBPMO_WORKFLOW_ENTITY_STATE SET COMMENT = '" & txtComment.Text & "' WHERE GUID = " & i1
+                    If ClassDatabase.Execute_non_Query(upd) = False Then
+                        MsgBox("Workflow Comment could not be updated -Check log", MsgBoxStyle.Critical)
+                    End If
+                End If
+            Catch ex As Exception
+                MsgBox("Error in Updating Workflow Comment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            End Try
+        End If
+    End Sub
 End Class