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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -12,7 +12,7 @@ Public Class frmConstructorDesigner
Me.Validate()
Me.TBPMO_FORM_CONSTRUCTORBindingSource.EndEdit()
If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox.Text = Environment.UserName
Me.CHANGED_WHOTextBox.Text = USER_USERNAME
TBPMO_FORM_CONSTRUCTORTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR)
lblSave.Visible = True
Else
@@ -167,6 +167,7 @@ Public Class frmConstructorDesigner
Try
'Zurücksetzen
lblSaveDocSearch.Visible = False
Dim res = ClassDatabase.Execute_Scalar("SELECT DOCUMENT_VIEW FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID)
If res = True Then
@@ -174,12 +175,20 @@ Public Class frmConstructorDesigner
Else
chkWDSearch_Active.Checked = False
End If
res = ClassDatabase.Execute_Scalar("SELECT DOC_SEARCH_TAB1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT DOC_SEARCH_TAB1,ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
res = DT.Rows(0).Item(0) ' ClassDatabase.Execute_Scalar("SELECT DOC_SEARCH_TAB1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
If CBool(res) = True Then
chkDOC_SEARCH_TAB1.Checked = True
Else
chkDOC_SEARCH_TAB1.Checked = False
End If
res = DT.Rows(0).Item(1) ' ClassDatabase.Execute_Scalar("SELECT ACTIVATE_DOC_SEARCH_ON_EDIT FROM VWPMO_CONSTRUCTOR_FORMS WHERE GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID)
If CBool(res) = True Then
chkActivateDSOnEdit.Checked = True
Else
chkActivateDSOnEdit.Checked = False
End If
Catch ex As Exception
MsgBox("Error in RecordSearch_Config:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -316,7 +325,7 @@ Public Class frmConstructorDesigner
Try
Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit()
If DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox1.Text = Environment.UserName
Me.CHANGED_WHOTextBox1.Text = USER_USERNAME
Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit()
Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL)
tslblSaveDetail.Text = "Constructor-Details saved - " & Now
@@ -340,12 +349,8 @@ Public Class frmConstructorDesigner
Else
docsearch = 0
End If
Dim sql = "UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = " & docsearch & " , CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
If ClassDatabase.Execute_non_Query(sql, True) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
End If
Dim upd = String.Format("UPDATE TBPMO_FORM_VIEW SET DOCUMENT_VIEW = {0},CHANGED_WHO = '{1}' WHERE FORM_ID = {2} AND SCREEN_ID = {3}", docsearch, USER_USERNAME, SELECTED_ENTITY_ID, CURRENT_SCREEN_ID)
ClassDatabase.Execute_non_Query(upd)
Dim DOC_SEARCH_TAB1 As Integer
If chkDOC_SEARCH_TAB1.Checked Then
@@ -353,7 +358,13 @@ Public Class frmConstructorDesigner
Else
DOC_SEARCH_TAB1 = 0
End If
sql = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = " & DOC_SEARCH_TAB1 & " , CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & SELECTED_CONSTRUCTOR_DETAIL_ID
Dim ACTIVATE_DOC_SEARCH_ON_EDIT As Integer
If chkActivateDSOnEdit.Checked Then
ACTIVATE_DOC_SEARCH_ON_EDIT = 1
Else
ACTIVATE_DOC_SEARCH_ON_EDIT = 0
End If
Dim sql = String.Format("UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL SET DOC_SEARCH_TAB1 = {0},ACTIVATE_DOC_SEARCH_ON_EDIT = {1}, CHANGED_WHO = '{2}' where GUID = {3}", DOC_SEARCH_TAB1, ACTIVATE_DOC_SEARCH_ON_EDIT, USER_USERNAME, SELECTED_CONSTRUCTOR_DETAIL_ID)
If ClassDatabase.Execute_non_Query(sql, True) = True Then
lblSaveDocSearch.Visible = True
lblSaveDocSearch.Text = "Data saved - " & Now
@@ -373,7 +384,7 @@ Public Class frmConstructorDesigner
Try
Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.GetChanges Is Nothing = False Then
Me.CHANGED_WHOTextBox2.Text = Environment.UserName
Me.CHANGED_WHOTextBox2.Text = USER_USERNAME
Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource.EndEdit()
Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL)
lblsaveSQLUser.Visible = True
@@ -586,7 +597,7 @@ Public Class frmConstructorDesigner
Try
Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & Environment.UserName & "')"
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, True) Then
Load_QuickDisplay()
End If
@@ -625,7 +636,7 @@ Public Class frmConstructorDesigner
End Sub
Private Sub btnSetHeadline_Click(sender As Object, e As EventArgs) Handles btnSetHeadline.Click
Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue
Dim upd = "UPDATE TBPMO_FORM_CONSTR_QUICK_DISPLAY SET HEADLINE = 1, CHANGED_WHO = '" & USER_USERNAME & "' WHERE GUID = " & ListBoxConfiguredDisplay.SelectedValue
If ClassDatabase.Execute_non_Query(upd, True) Then
lblChangeHeadline.Visible = True
End If
@@ -637,7 +648,7 @@ Public Class frmConstructorDesigner
Try
Dim i = listBoxControls.SelectedValue
If Not IsNothing(i) Then
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,PICTURE,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",1,'" & Environment.UserName & "')"
Dim insert = "INSERT INTO TBPMO_FORM_CONSTR_QUICK_DISPLAY (CONSTRUCT_ID, CONTROL_ID,PICTURE,ADDED_WHO) VALUES (" & SELECTED_CONSTRUCTOR_DETAIL_ID & ", " & i & ",1,'" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(insert, True) Then
Load_QuickDisplay()
lblQuickViewAdded.Visible = True
@@ -705,7 +716,7 @@ Public Class frmConstructorDesigner
Else
home = 0
End If
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & Environment.UserName & "'," & home & ")"
Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & USER_USERNAME & "'," & home & ")"
If ClassDatabase.Execute_non_Query(insert, False) = False Then
MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
End If
@@ -789,7 +800,7 @@ Public Class frmConstructorDesigner
Try
Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID"))
If Not USERID Is Nothing Then
DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn.DefaultValue = USER_USERNAME
DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.CONSTR_DET_IDColumn.DefaultValue = SELECTED_CONSTRUCTOR_DETAIL_ID
DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.USER_IDColumn.DefaultValue = USERID
End If
@@ -865,7 +876,7 @@ Public Class frmConstructorDesigner
Dim item As MyListBoxItem = CType(obj, MyListBoxItem)
Dim sql = "select count(*) from TBPMO_CLIENT_ENTITY Where CLIENT_ID = " & item.ExtraData & " AND ENTITY_ID = " & SELECTED_ENTITY_ID
If ClassDatabase.Execute_Scalar(sql) = 0 Then
sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, SELECTED_ENTITY_ID, Environment.UserName)
sql = String.Format("INSERT INTO TBPMO_CLIENT_ENTITY (CLIENT_ID, ENTITY_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, SELECTED_ENTITY_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox("Error in Adding Entity to Client!", MsgBoxStyle.Critical)
End If
@@ -958,7 +969,7 @@ Public Class frmConstructorDesigner
Dim sel = String.Format("SELECT COUNT(GUID) FROM TBPMO_ENTITY_SUPERVISOR WHERE ENTITY_ID = {0} AND USER_ID = {1}", SELECTED_ENTITY_ID, row.Item(5))
If ClassDatabase.Execute_Scalar(sel) = 0 Then
Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, Environment.UserName)
Dim insert = String.Format("INSERT INTO TBPMO_ENTITY_SUPERVISOR ([ENTITY_ID], USER_ID,RIGHT1,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", SELECTED_ENTITY_ID, row.Item(5), right, USER_USERNAME)
If ClassDatabase.Execute_non_Query(insert, True) Then
End If
End If
@@ -994,7 +1005,7 @@ Public Class frmConstructorDesigner
If cmbSupervisorControls.SelectedIndex <> -1 Then
Dim sql = "select count(*) from TBPMO_SUPERVISOR_CONTROLS Where CONTROL_ID = " & cmbSupervisorControls.SelectedValue
If ClassDatabase.Execute_Scalar(sql) = 0 Then
sql = String.Format("INSERT INTO TBPMO_SUPERVISOR_CONTROLS (CONTROL_ID, ADDED_WHO) VALUES ({0},'{1}')", cmbSupervisorControls.SelectedValue, Environment.UserName)
sql = String.Format("INSERT INTO TBPMO_SUPERVISOR_CONTROLS (CONTROL_ID, ADDED_WHO) VALUES ({0},'{1}')", cmbSupervisorControls.SelectedValue, USER_USERNAME)
If ClassDatabase.Execute_non_Query(sql) = False Then
MsgBox("Error in Adding Supervisor-Control! Check log", MsgBoxStyle.Critical)
Else