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

MS_1401

Browse Source
This commit is contained in:
SchreiberM
2016-01-14 17:01:52 +01:00
parent 3fe8d1cd74
commit 058ae78435
19 changed files with 488 additions and 303 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD-Record-Organiser/frmWiedervorlage.vb
View File

@@ -19,6 +19,8 @@
End Try
End Sub
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.
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")
@@ -39,6 +41,9 @@
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)
Load_WV_Profiles()
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -134,6 +139,7 @@
Load_User_2_Profile(GUIDTextBox.Text)
SetCheckbox()
End If
lblSaveWVEmail.Visible = False
End Sub
Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click