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

MS_17.03

Browse Source
This commit is contained in:
SchreiberM
2016-03-21 17:13:25 +01:00
parent 9cda976105
commit 50646acd1d
17 changed files with 4998 additions and 5211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -34,13 +34,13 @@ Public Class frmConstructorDesigner
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
Load_Head()
Dim sql1 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim sql1 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTFORMS As DataTable = ClassDatabase.Return_Datatable(sql1, "")
'FORM_IDComboBox.DataSource = DTFORMS
'FORM_IDComboBox.DisplayMember = DTFORMS.Columns(1).ColumnName
'FORM_IDComboBox.ValueMember = DTFORMS.Columns(0).ColumnName
Dim sql2 As String = "SELECT T.GUID, T1.FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim sql2 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.FORM_TYPE_ID IN (1,2) AND T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
Dim DTParent As DataTable = ClassDatabase.Return_Datatable(sql2, "")
'PARENT_IDComboBox.DataSource = DTParent
'PARENT_IDComboBox.DisplayMember = DTParent.Columns(1).ColumnName
@@ -114,10 +114,15 @@ Public Class frmConstructorDesigner
Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
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} ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text)
Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT")
chksbxUserConstructor.Items.Clear()
For Each row As DataRow In DT_USER.Rows
chksbxUserConstructor.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Try
chksbxUserConstructor.Items.Clear()
For Each row As DataRow In DT_USER.Rows
chksbxUserConstructor.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
Next
Catch ex As Exception
End Try
ListBoxUsersFORConstructor.DataSource = DT_USER_CONSTR
ListBoxUsersFORConstructor.DisplayMember = DT_USER_CONSTR.Columns(1).ColumnName
@@ -647,14 +652,16 @@ Public Class frmConstructorDesigner
Private Sub btnAddUser2ConstructorREL_Click(sender As Object, e As EventArgs) Handles btnAddUser2ConstructorREL.Click
Try
For Each obj As Object In chklbxClient.CheckedItems
For Each obj As Object In chksbxUserConstructor.CheckedItems
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
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 & ", " & item.ExtraData & ",'" & Environment.UserName & "'," & home & ")"
If ClassDatabase.Execute_non_Query(insert, True) Then
Load_ConstructorUser()
End If
Next
chksbxUserConstructor.ClearSelected()
Load_ConstructorUser()
Catch ex As Exception
MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try