MS_26012016_1

app/DD-Record-Organiser/frmQuickAccessManager.vb

@@ -14,7 +14,7 @@
 
     Private Sub RefreshData()
         ImageTableAdapter.Connection.ConnectionString = MyConnectionString
-        Me.ImageTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR)
+        Me.ImageTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)
     End Sub
 
     Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click
@@ -33,7 +33,7 @@
             Dim bimage() As Byte = BitmapToByteArray(image)
             Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName)
 
-            Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID"
+            Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG, WHERE GUID = @GUID"
             Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString)
             Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)
 
@@ -77,10 +77,33 @@
     End Sub
 
     Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
+        Try
+            'ImageBindingSource.EndEdit()
+            'If Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR.GetChanges Is Nothing = False Then
+            '    Me.ImageTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR)
+            'End If
+
+        Catch ex As Exception
+            MsgBox("Error in Update QuickMenue:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
         RefreshData()
     End Sub
 
     Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
 
     End Sub
+
+    Private Sub gvMainView_CellValueChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.CellValueChangedEventArgs) Handles gvMainView.CellValueChanged
+        Try
+            Dim column = e.Column.FieldName
+            Dim id = gvMainView.GetFocusedRowCellValue(gvMainView.Columns("GUID"))
+            Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR SET {0} = '{1}',CHANGED_WHO = '{2}',LANGUAGE = '{3}' where GUID = {4}", column, e.Value, Environment.UserName, USER_LANGUAGE, id)
+            If ClassDatabase.Execute_non_Query(sql) = False Then
+                MsgBox("Update Value not successfull. Check logfile", MsgBoxStyle.Critical)
+            End If
+
+        Catch ex As Exception
+            MsgBox("Error in grvwGridPos_CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class