MS 04.09.2015 2
This commit is contained in:
SchreiberM
331
app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb
Normal file
331
app - Kopie/DD-Record-Organiser/frmWiedervorlage.vb
Normal file
@@ -0,0 +1,331 @@
|
||||
Public Class frmWiedervorlage
|
||||
Dim Formloaded As Boolean = False
|
||||
Private Sub TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingNavigatorSaveItem.Click
|
||||
Save_FollowUP_EMail
|
||||
End Sub
|
||||
Sub Save_FollowUP_EMail()
|
||||
Try
|
||||
Me.TBPMO_FOLLOW_UP_EMAILBindingSource.EndEdit()
|
||||
If DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.GetChanges Is Nothing = False Then
|
||||
Me.CHANGED_WHOTextBox.Text = Environment.UserName
|
||||
Me.TBPMO_FOLLOW_UP_EMAILBindingSource.EndEdit()
|
||||
TBPMO_FOLLOW_UP_EMAILTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL)
|
||||
lblSaveWVEmail.Visible = True
|
||||
Else
|
||||
lblSaveWVEmail.Visible = False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in Save_FollowUP_EMail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub frmWiedervorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
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")
|
||||
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
|
||||
Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL AND MODULE_RECORD_ORG = 1 order by USERNAME")
|
||||
|
||||
PARENT_IDComboBox.DataSource = DT3
|
||||
PARENT_IDComboBox.DisplayMember = DT3.Columns(1).ColumnName
|
||||
PARENT_IDComboBox.ValueMember = DT3.Columns(0).ColumnName
|
||||
|
||||
DEPENDENT_DATE_CTRL_IDComboBox.DataSource = DT1
|
||||
DEPENDENT_DATE_CTRL_IDComboBox.DisplayMember = DT1.Columns(1).ColumnName
|
||||
DEPENDENT_DATE_CTRL_IDComboBox.ValueMember = DT1.Columns(0).ColumnName
|
||||
DEPENDENT_DONE_CTRL_IDComboBox.DataSource = DT2
|
||||
DEPENDENT_DONE_CTRL_IDComboBox.DisplayMember = DT2.Columns(1).ColumnName
|
||||
DEPENDENT_DONE_CTRL_IDComboBox.ValueMember = DT2.Columns(0).ColumnName
|
||||
cmbUser.DataSource = DTUser
|
||||
cmbUser.DisplayMember = DTUser.Columns(1).ColumnName
|
||||
cmbUser.ValueMember = DTUser.Columns(0).ColumnName
|
||||
TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString
|
||||
Load_WV_Profiles()
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub Load_WV_PRofiles()
|
||||
Try
|
||||
Me.TBPMO_FOLLOW_UP_EMAILTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Load_WV_PRofiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Dim loaded As Boolean = False
|
||||
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
|
||||
Select Case XtraTabControl1.SelectedTabPageIndex
|
||||
Case 0
|
||||
Case 1
|
||||
Try
|
||||
loaded = False
|
||||
Dim sql2 = "SELECT FOLLOW_UP_LOG_ERR_ONLY FROM TBPMO_KONFIGURATION WHERE GUID = 1"
|
||||
chkbxLogErrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar(sql2))
|
||||
load_EmailProfiles()
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler beim Laden der Grundeinstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
loaded = True
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub chkbxLogErrorsonly_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxLogErrorsonly.CheckedChanged
|
||||
Try
|
||||
If loaded = True Then
|
||||
Dim bool As Integer
|
||||
If chkbxLogErrorsonly.Checked Then
|
||||
bool = 1
|
||||
Else
|
||||
bool = 0
|
||||
End If
|
||||
Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1"
|
||||
ClassDatabase.Execute_non_Query(upd, True)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub btnEmailConfig_Click(sender As Object, e As EventArgs) Handles btnEmailConfig.Click
|
||||
frmDD_EMAIL_ACCOUNT.ShowDialog()
|
||||
load_EmailProfiles()
|
||||
End Sub
|
||||
Sub load_EmailProfiles()
|
||||
Try
|
||||
Dim sql1 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
|
||||
Dim email_id = ClassDatabase.Execute_Scalar(sql1)
|
||||
Dim sql = "SELECT GUID, NAME FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
If Not IsNothing(DT) Then
|
||||
cmbWWEmail.DataSource = DT
|
||||
cmbWWEmail.DisplayMember = DT.Columns(1).ColumnName
|
||||
cmbWWEmail.ValueMember = DT.Columns(0).ColumnName
|
||||
Dim emailp = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id)
|
||||
cmbWWEmail.SelectedIndex = cmbWWEmail.FindStringExact(emailp)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei Load EmailProfiles:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_FOLLOW_UP_EMAILBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingSource.AddingNew
|
||||
Try
|
||||
DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn.DefaultValue = Environment.UserName
|
||||
DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.FOLLOW_UP_DAYSColumn.DefaultValue = "0000000"
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei Add Record FollowUp:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
Sub Load_User_2_Profile(ID As Integer)
|
||||
Try
|
||||
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
ListBoxUser2Profile.DataSource = DT
|
||||
ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
|
||||
ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei LaodUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub TBPMO_FOLLOW_UP_EMAILBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_FOLLOW_UP_EMAILBindingSource.CurrentChanged
|
||||
If GUIDTextBox.Text <> "" Then
|
||||
Load_User_2_Profile(GUIDTextBox.Text)
|
||||
SetCheckbox()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click
|
||||
If cmbUser.SelectedIndex <> -1 Then
|
||||
Try
|
||||
Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & cmbUser.SelectedValue & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
|
||||
If ClassDatabase.Execute_non_Query(ins, True) = True Then
|
||||
Load_User_2_Profile(Me.GUIDTextBox.Text)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei AddUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
|
||||
If ListBoxUser2Profile.SelectedIndex <> -1 Then
|
||||
Try
|
||||
Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = " & ListBoxUser2Profile.SelectedValue
|
||||
If ClassDatabase.Execute_non_Query(del, True) = True Then
|
||||
Load_User_2_Profile(Me.GUIDTextBox.Text)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei DeleteUserRelation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Load_User_2_Profile(Me.GUIDTextBox.Text)
|
||||
Formloaded = True
|
||||
SetCheckbox()
|
||||
End Sub
|
||||
|
||||
Private Sub FOLLOW_UP_SEQUENCEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FOLLOW_UP_SEQUENCEComboBox.SelectedIndexChanged
|
||||
If Formloaded = True And FOLLOW_UP_SEQUENCEComboBox.SelectedIndex <> -1 Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
Case "ONCE_DAILY"
|
||||
Case "Hour"
|
||||
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
Dim CheckChange As Boolean = False
|
||||
Private Sub FOLLOW_UP_DAYSTextBox_TextChanged(sender As Object, e As EventArgs)
|
||||
'If Formloaded = True And CheckChange = False And follup_Days <> "" Then
|
||||
' If follup_Days.Length = 7 Then
|
||||
' SetCheckbox()
|
||||
' End If
|
||||
|
||||
'End If
|
||||
End Sub
|
||||
Sub SetCheckbox()
|
||||
Try
|
||||
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
|
||||
Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
|
||||
Formloaded = False
|
||||
Console.WriteLine("SetCheckbox")
|
||||
CheckBox1.Checked = False
|
||||
chkDienstag.Checked = False
|
||||
chkMittwoch.Checked = False
|
||||
chkDonnerstag.Checked = False
|
||||
chkFreitag.Checked = False
|
||||
chkSamstag.Checked = False
|
||||
chkSonntag.Checked = False
|
||||
|
||||
|
||||
If follup_Days.Substring(0, 1) = 1 Then
|
||||
CheckBox1.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(1, 1) = 1 Then
|
||||
chkDienstag.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(2, 1) = 1 Then
|
||||
chkMittwoch.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(3, 1) = 1 Then
|
||||
chkDonnerstag.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(4, 1) = 1 Then
|
||||
chkFreitag.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(5, 1) = 1 Then
|
||||
chkSamstag.Checked = True
|
||||
End If
|
||||
If follup_Days.Substring(6, 1) = 1 Then
|
||||
chkSonntag.Checked = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler bei SetCheckbox:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
Formloaded = True
|
||||
End Sub
|
||||
Sub CheckBox_CheckChanged()
|
||||
If Formloaded = False Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
|
||||
Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
|
||||
Dim follup_Old = follup_Days
|
||||
CheckChange = True
|
||||
If CheckBox1.Checked Then
|
||||
follup_Days = "1" & follup_Days.Substring(1)
|
||||
Else
|
||||
follup_Days = "0" & follup_Days.Substring(1)
|
||||
End If
|
||||
If chkDienstag.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkDienstag.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 1) & "1" & follup_Days.Substring(2)
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 1) & "0" & follup_Days.Substring(2)
|
||||
End If
|
||||
If chkMittwoch.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkMittwoch.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 2) & "1" & follup_Days.Substring(3)
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 2) & "0" & follup_Days.Substring(3)
|
||||
End If
|
||||
If chkDonnerstag.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkDonnerstag.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 3) & "1" & follup_Days.Substring(4)
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 3) & "0" & follup_Days.Substring(4)
|
||||
End If
|
||||
If chkFreitag.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkFreitag.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 4) & "1" & follup_Days.Substring(5)
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 4) & "0" & follup_Days.Substring(5)
|
||||
End If
|
||||
If chkSamstag.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkSamstag.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 5) & "1" & follup_Days.Substring(6)
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 5) & "0" & follup_Days.Substring(6)
|
||||
End If
|
||||
If chkSonntag.Checked Then
|
||||
Select Case FOLLOW_UP_SEQUENCEComboBox.Text
|
||||
Case "ONCE_WEEKLY"
|
||||
If follup_Days.Contains("1") Then
|
||||
MsgBox("Achtung: Sie können nur einen Tag auswählen!", MsgBoxStyle.Exclamation)
|
||||
chkSonntag.Checked = False
|
||||
Exit Sub
|
||||
End If
|
||||
End Select
|
||||
follup_Days = follup_Days.Substring(0, 6) & "1"
|
||||
Else
|
||||
follup_Days = follup_Days.Substring(0, 6) & "0"
|
||||
End If
|
||||
|
||||
|
||||
If follup_Old <> follup_Days Then
|
||||
FOLLOW_UP_DAYSTextBox.Text = follup_Days
|
||||
End If
|
||||
CheckChange = False
|
||||
End Sub
|
||||
Private Sub chkDienstag_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, chkDienstag.CheckedChanged, chkMittwoch.CheckedChanged, chkDonnerstag.CheckedChanged, chkFreitag.CheckedChanged, _
|
||||
chkSamstag.CheckedChanged, chkSonntag.CheckedChanged
|
||||
CheckBox_CheckChanged()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user