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

MS_KW9

Browse Source
This commit is contained in:
SchreiberM
2016-03-07 09:13:55 +01:00
parent 45e67aea4e
commit 3266da1baa
17 changed files with 8363 additions and 8828 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,7 +52,7 @@ Public Class frmConstructorDesigner
Try
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)
Catch ex As Exception
MsgBox("Error Loading Form:" & vbNewLine & ex.Message)
MsgBox("Error Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub Load_Detail(ID As Integer)
@@ -60,7 +60,8 @@ Public Class frmConstructorDesigner
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL, ID)
SELECTED_ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE GUID = " & ID, True)
Catch ex As System.Exception
MsgBox("Error Loading Details:" & vbNewLine & ex.Message)
MsgBox("Error Loading Details:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub
End Try
Select Case XtraTabControl2.SelectedTabPageIndex
Case 0
@@ -109,7 +110,7 @@ Public Class frmConstructorDesigner
Try
Dim Sql = String.Format("SELECT GUID,USERNAME FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0})", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
Sql = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0}", CONSTRUCTOR_IDTextBox.Text)
Sql = String.Format("SELECT T1.GUID, T.USERNAME + ' - ' + CASE T1.HOME_MENUE WHEN 1 THEN 'HOME' ELSE 'STANDARD' END AS USERNAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0}", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT")
ListBoxUserConstructor.DataSource = DT_USER
ListBoxUserConstructor.DisplayMember = DT_USER.Columns(1).ColumnName
@@ -210,7 +211,7 @@ Public Class frmConstructorDesigner
Dim CONSTR_ID As Integer = CONSTRUCTOR_IDTextBox.Text
Dim sel_sql = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID = 1 AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
"from VWPMO_CONSTRUCTOR_FORMS WHERE FORM_TYPE_ID IN (1,4) AND PARENT_ID = 0 AND CONSTRUCT_ID = {2} AND SCREEN_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTR_ID, CURRENT_SCREEN_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sel_sql)
If DT.Rows.Count >= 1 Then
@@ -540,7 +541,8 @@ Public Class frmConstructorDesigner
Try
Dim i = ListBoxUserConstructor.SelectedValue
If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & i & ",'" & Environment.UserName & "')"
Dim home As Integer = CInt(CheckBoxHome.Checked)
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & i & ",'" & Environment.UserName & "'," & home & ")"
If ClassDatabase.Execute_non_Query(insert, True) Then
Load_ConstructorUser()
End If
@@ -579,4 +581,25 @@ Public Class frmConstructorDesigner
MsgBox("Unexpected Error in Open Designer: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
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
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
Catch ex As Exception
MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class