RecordOrganizer/app/DD-Record-Organizer/frmFollowUp.vb

Public Class frmFollowUp
    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 = USER_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

    Sub Load_entity_Data()
        Try

            Dim sql = String.Format("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID IN (2,3,12) ORDER BY FORM_ID", cmbConstructor.SelectedValue)
            Dim DTCTRL_USR As DataTable = MYDB_ECM.GetDatatable(sql)
            Dim DTCTRL_GRP As DataTable = MYDB_ECM.GetDatatable(sql)

            Dim newRow As DataRow = DTCTRL_USR.NewRow()

            newRow("CONTROL_ID") = "0"
            newRow("DISPLAY") = "(EMPTY)"
            DTCTRL_USR.Rows.Add(newRow)
            Dim newRow1 As DataRow = DTCTRL_GRP.NewRow()

            newRow1("CONTROL_ID") = "0"
            newRow1("DISPLAY") = "(EMPTY)"
            DTCTRL_GRP.Rows.Add(newRow1)

            cmbCTRLGroup_direct.DataSource = DTCTRL_GRP
            cmbCTRLGroup_direct.DisplayMember = DTCTRL_GRP.Columns(1).ColumnName
            cmbCTRLGroup_direct.ValueMember = DTCTRL_GRP.Columns(0).ColumnName

            cmbCTRLUser_direct.DataSource = DTCTRL_USR
            cmbCTRLUser_direct.DisplayMember = DTCTRL_USR.Columns(1).ColumnName
            cmbCTRLUser_direct.ValueMember = DTCTRL_USR.Columns(0).ColumnName
        Catch ex As Exception
            MsgBox("Error in Load Entity related Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        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.
        Me.Cursor = Cursors.WaitCursor
        Try
            Dim DT1 As DataTable = MYDB_ECM.GetDatatable("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 = MYDB_ECM.GetDatatable("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 = MYDB_ECM.GetDatatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
            Dim DTUser As DataTable = MYDB_ECM.GetDatatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL order by USERNAME")
            Load_entity_Data()
            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

            DD_ECMAdmin.TBWH_Users1.Clear()
            For Each userrow As DataRow In DTUser.Rows
                Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
                newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row

                newUserRow.Username = userrow.Item(1)
                Try
                    newUserRow.Email = userrow.Item(2)
                Catch ex As Exception
                    newUserRow.Email = ""
                End Try

                newUserRow.ID = userrow.Item(0)
                DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
                'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
            Next

            TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
            Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
            Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID)

            Load_WV_PRofiles()
        Catch ex As Exception
            MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
        Me.Cursor = Cursors.Default
    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(MYDB_ECM.GetScalarValue(sql2))
                    load_EmailProfiles()
                    sql2 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
                    cmbWWEmail.SelectedValue = CInt(MYDB_ECM.GetScalarValue(sql2))
                Catch ex As Exception
                    MsgBox("Fehler beim Laden der Grundeinstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
                loaded = True
            Case 2
                Try
                    Dim sql = "SELECT [FOLLOW_UP_ID],[NAME],[FOLLOW_UP_SEQUENCE],[FOLLOW_UP_DAYS],[FOLLOW_UP_TIME_SPAN],[NOW_TIME],[RECORD_ID],[VALUE]" &
                    ",[EMAIL_SUBJECT],[EMAIL_BODY],[TIME_UNITY],[TIME_DIST],[TIME_SPAN],[DEPENDENT_DATE_CTRL_ID],[DEPENDENT_DONE_CTRL_ID],[DONE_VALUE],[CONSTRUCTOR_ID]" &
                    ",[CONSTRUCTOR_TITLE] FROM VWPMO_FOLLOW_UP_EMAIL"
                    Dim DT = MYDB_ECM.GetDatatable(sql)
                    GridResult.DataSource = DT
                Catch ex As Exception
                    MsgBox("Unexpected Error in show follow up records:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
                End Try
        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"
                MYDB_ECM.ExecuteNonQuery(upd)
            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 = MYDB_ECM.GetScalarValue(sql1)
            Dim sql = "SELECT GUID, NAME FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1"
            Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
            If Not IsNothing(DT) Then
                cmbWWEmail.DataSource = DT
                cmbWWEmail.DisplayMember = DT.Columns(1).ColumnName
                cmbWWEmail.ValueMember = DT.Columns(0).ColumnName
                Dim emailp = MYDB_ECM.GetScalarValue("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
            Me.FOLLOW_UP_SEQUENCEComboBox.SelectedIndex = 0
            DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAIL.ADDED_WHOColumn.DefaultValue = USER_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
            DD_ECMAdmin.TBAD_Users.Clear()
            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 = MYDB_ECM.GetDatatable(sql)
            For Each userrow As DataRow In DT.Rows
                Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow

                newUserRow.Username = userrow.Item(1)
                Try
                    newUserRow.Email = userrow.Item(2)
                Catch ex As Exception
                    newUserRow.Email = ""
                End Try
                newUserRow.ID = userrow.Item(0)
                DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
            Next
        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
        lblSaveWVEmail.Visible = False
    End Sub

    Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click
        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
            If row.Item(0) = CBool(True) Then
                Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
                If MYDB_ECM.GetScalarValue(SQL) = 0 Then
                    Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & USER_USERNAME & "')"
                    If MYDB_ECM.ExecuteNonQuery(ins) = False Then
                        MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
                    End If
                End If
            End If
        Next
        For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
            row.Item(0) = CBool(False)
        Next
        Load_User_2_Profile(Me.GUIDTextBox.Text)
    End Sub

    Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
        For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
            If row.Item(0) = CBool(True) Then
                Dim sql
                sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER  WHERE GUID = {0}", row.Item(5))
                If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
                    MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
                End If
            End If
        Next
        Load_User_2_Profile(Me.GUIDTextBox.Text)


    End Sub
    Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If Me.GUIDTextBox.Text <> "" Then
            Load_User_2_Profile(Me.GUIDTextBox.Text)
            Formloaded = True
            SetCheckbox()
        End If

    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
            If GUIDTextBox.Text = "" Then Exit Sub
            Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
            Dim follup_Days As String = MYDB_ECM.GetScalarValue(SQL)
            Formloaded = False
            CheckBox1.Checked = False
            chkDienstag.Checked = False
            chkMittwoch.Checked = False
            chkDonnerstag.Checked = False
            chkFreitag.Checked = False
            chkSamstag.Checked = False
            chkSonntag.Checked = False

            If IsNothing(follup_Days) Then Exit Sub
            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 = MYDB_ECM.GetScalarValue(SQL)
        If IsNothing(follup_Days) Then
            follup_Days = "0000000"
        End If
        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

    Private Sub cmbWWEmail_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbWWEmail.SelectedIndexChanged
        If cmbWWEmail.SelectedIndex <> -1 Then
            Try
                Dim i = CInt(cmbWWEmail.SelectedValue)
            Catch ex As Exception
                Exit Sub
            End Try
            Try
                Dim upd = "Update TBPMO_KONFIGURATION SET FOLLOW_UP_EMAIL_PROFILE = " & cmbWWEmail.SelectedValue & " WHERE GUID = 1"
                MYDB_ECM.ExecuteNonQuery(upd)
            Catch ex As Exception
                MsgBox("Check logfile - unexpected error in updating email-profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
            End Try
        End If
    End Sub
End Class