AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS05082016

Browse Source
This commit is contained in:
SchreiberM
2016-08-05 14:28:00 +02:00
parent 76c1d9d66b
commit a0761e43c5
37 changed files with 11589 additions and 6467 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
app/DD-Record-Organiser/frmConstructorDesigner.vb
View File

@@ -136,11 +136,27 @@ Public Class frmConstructorDesigner
MsgBox("Error Load_Users for menues:" & vbNewLine & ex.Message)
End Try
Try
DD_ECMAdmin.TBWH_Users1.Clear()
ListBoxUsersFORConstructor.DataSource = DT_USER_CONSTR
ListBoxUsersFORConstructor.DisplayMember = DT_USER_CONSTR.Columns(1).ColumnName
ListBoxUsersFORConstructor.ValueMember = DT_USER_CONSTR.Columns(0).ColumnName
For Each row As DataRow In DT_USER_CONSTR.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = row.Item(1)
Try
newUserRow.Email = row.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = row.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
MsgBox("Error loading Users for Constructor:" & vbNewLine & ex.Message)
End Try
Catch ex As Exception
MsgBox("UnexpectedError Load_ConstructorUser:" & vbNewLine & ex.Message)
End Try
@@ -697,13 +713,16 @@ Public Class frmConstructorDesigner
Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click
Try
Dim i = ListBoxUsersFORConstructor.SelectedValue
If Not IsNothing(i) Then
Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & i
If ClassDatabase.Execute_non_Query(delete, True) Then
Load_ConstructorUser()
Dim refresh As Boolean = False
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim delete = "DELETE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(delete, True) Then
refresh = True
End If
End If
End If
Next
If refresh = True Then Load_ConstructorUser()
Catch ex As Exception
MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -727,20 +746,23 @@ Public Class frmConstructorDesigner
Private Sub btnChangeHOMESTANDARD_Click(sender As Object, e As EventArgs) Handles btnChangeHOMESTANDARD.Click
Try
Dim i = ListBoxUsersFORConstructor.SelectedValue
If Not IsNothing(i) Then
Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & i
Dim Home = ClassDatabase.Execute_Scalar(sql, True)
If Home = True Then
Home = 0
Else
Home = 1
Dim refresh As Boolean = False
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "SELECT HOME_MENUE FROM TBPMO_CONSTRUCTOR_USER WHERE GUID = " & row.Item(5)
Dim Home = ClassDatabase.Execute_Scalar(sql, True)
If Home = True Then
Home = 0
Else
Home = 1
End If
sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & row.Item(5)
If ClassDatabase.Execute_non_Query(sql, True) Then
refresh = True
End If
End If
sql = "UPDATE TBPMO_CONSTRUCTOR_USER SET HOME_MENUE = " & Home & " WHERE GUID = " & i
If ClassDatabase.Execute_non_Query(sql, True) Then
Load_ConstructorUser()
End If
End If
Next
If refresh = True Then Load_ConstructorUser()
Catch ex As Exception
MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try