MS_18052016

app/DD-Record-Organiser/frmFollowUp.vb

@@ -51,7 +51,7 @@
 
     Private Sub frmWiedervorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
-
+        Me.Cursor = Cursors.WaitCursor
         Try
             Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
             Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
@@ -70,11 +70,23 @@
             DEPENDENT_DONE_CTRL_IDComboBox.DisplayMember = DT2.Columns(1).ColumnName
             DEPENDENT_DONE_CTRL_IDComboBox.ValueMember = DT2.Columns(0).ColumnName
 
+            DD_ECMAdmin.TBWH_Users1.Clear()
+            For Each userrow As DataRow In DTUser.Rows
+                Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
+                newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
 
+                newUserRow.Username = userrow.Item(1)
+                Try
+                    newUserRow.Email = userrow.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+
+                newUserRow.ID = userrow.Item(0)
+                DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
+                'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
+            Next
 
-            cmbUser.DataSource = DTUser
-            cmbUser.DisplayMember = DTUser.Columns(1).ColumnName
-            cmbUser.ValueMember = DTUser.Columns(0).ColumnName
             TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
@@ -83,7 +95,7 @@
         Catch ex As Exception
             MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-
+        Me.Cursor = Cursors.Default
     End Sub
     Sub Load_WV_PRofiles()
         Try
@@ -171,11 +183,22 @@
     End Sub
     Sub Load_User_2_Profile(ID As Integer)
         Try
+            DD_ECMAdmin.TBAD_Users.Clear()
             Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
-            ListBoxUser2Profile.DataSource = DT
-            ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
-            ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
+            For Each userrow As DataRow In DT.Rows
+                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
+                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
+
+                newUserRow.Username = userrow.Item(1)
+                Try
+                    newUserRow.Email = userrow.Item(2)
+                Catch ex As Exception
+                    newUserRow.Email = ""
+                End Try
+                newUserRow.ID = userrow.Item(0)
+                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
+            Next
         Catch ex As Exception
             MsgBox("Fehler bei LaodUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -190,29 +213,36 @@
     End Sub
 
     Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click
-        If cmbUser.SelectedIndex <> -1 Then
-            Try
-                Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & cmbUser.SelectedValue & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
-                If ClassDatabase.Execute_non_Query(ins, True) = True Then
-                    Load_User_2_Profile(Me.GUIDTextBox.Text)
+        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
+            If row.Item(0) = CBool(True) Then
+                Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
+                If ClassDatabase.Execute_Scalar(sql) = 0 Then
+                    Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
+                    If ClassDatabase.Execute_non_Query(ins) = False Then
+                        MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
+                    End If
                 End If
-            Catch ex As Exception
-                MsgBox("Fehler bei AddUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-        End If
+            End If
+        Next
+        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
+            row.Item(0) = CBool(False)
+        Next
+        Load_User_2_Profile(Me.GUIDTextBox.Text)
     End Sub
 
     Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
-        If ListBoxUser2Profile.SelectedIndex <> -1 Then
-            Try
-                Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = " & ListBoxUser2Profile.SelectedValue
-                If ClassDatabase.Execute_non_Query(del, True) = True Then
-                    Load_User_2_Profile(Me.GUIDTextBox.Text)
+        For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
+            If row.Item(0) = CBool(True) Then
+                Dim sql
+                sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER  WHERE GUID = {0}", row.Item(5))
+                If ClassDatabase.Execute_non_Query(sql, True) = False Then
+                    MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
                 End If
-            Catch ex As Exception
-                MsgBox("Fehler bei DeleteUserRelation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            End Try
-        End If
+            End If
+        Next
+        Load_User_2_Profile(Me.GUIDTextBox.Text)
+
+
     End Sub
     Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         If Me.GUIDTextBox.Text <> "" Then