MS

app/DD_PM_WINDREAM/frmValidator.vb

@@ -11,6 +11,7 @@ Imports DigitalData.Controls.LookupGrid
 Imports DevExpress.XtraGrid
 Imports System.Reflection
 Imports DigitalData.Controls.ChatControl
+Imports DevExpress.XtraEditors.Repository
 
 Public Class frmValidator
     Dim strFileList()
@@ -256,7 +257,7 @@ Public Class frmValidator
             End If
 
             oErrMsgMissingInput = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.MissingInput")
-            RibbonPageCategory1.Visible = False
+            RibbonPageConversations.Visible = False
             If IDB_ACTIVE Then
                 Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
                 DTDYNAMIC_RIGHTS = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
@@ -266,7 +267,7 @@ Public Class frmValidator
                 oView.RowFilter = "CONF_TITLE like '%CONVERSATION_%'"
                 Debug.WriteLine(oView.Count, "oView after")
                 If oView.Count > 0 Then
-                    RibbonPageCategory1.Visible = True
+                    RibbonPageConversations.Visible = True
                     bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
                     bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
 
@@ -283,7 +284,6 @@ Public Class frmValidator
                                 Case "Start"
                                     bbtnitem_ConversationNew.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                                     Right_Conversation_Add = True
-
                                 Case "Stop"
                                     bbtnitem_ConversationEnd.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
                                     Right_Conversation_Stop = True
@@ -297,21 +297,12 @@ Public Class frmValidator
                     If DTConversations.Rows.Count > 0 Then
                         'CURRENT_DOC_ID
                         ChatControl1.Init(LOGCONFIG, CONNECTION_STRING_IDB, IIf(CONV_IDENTIFICATION = "Email", USER_EMAIL, USER_USERNAME), USER_USERNAME)
-                        ChatControl1.GetConversations(CURRENT_DOC_ID)
-                        Dim oConversations As List(Of String)
-                        oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID)
-                        If oConversations.Count = 1 Then
-                            RibbonPageGroupConv_Change.Visible = True
-
-                        Else
-                            RibbonPageGroupConv_Change.Visible = False
-                            bbtnitem_ConversationEnd.Enabled = False
-                        End If
+                        Conversations_load()
                     Else
 
                     End If
                 Else
-                    RibbonPageCategory1.Visible = False
+                    RibbonPageConversations.Visible = False
                 End If
 
 
@@ -354,6 +345,30 @@ Public Class frmValidator
         End Try
 
     End Sub
+    Sub Conversations_load()
+        ChatControl1.GetConversations(CURRENT_DOC_ID)
+        Dim oConversations As List(Of String)
+        oConversations = ChatControl1.GetConversations(CURRENT_DOC_ID)
+        If oConversations.Count = 1 Then
+
+            RibbonPageGroupConv_Change.Visible = False
+        Else
+            RepositoryItemComboBox3.Items.Clear()
+
+            RibbonPageGroupConv_Change.Visible = True
+            For Each oconv As String In oConversations
+                If Not oconv.EndsWith("Started") Then
+                    RepositoryItemComboBox3.Items.Add(oconv)
+                End If
+
+            Next
+        End If
+        If oConversations.Count >= 1 Then
+            If Right_Conversation_Stop = True Then
+                bbtnitem_ConversationEnd.Enabled = True
+            End If
+        End If
+    End Sub
     Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         Try
             me_closing = True
@@ -2282,7 +2297,7 @@ Public Class frmValidator
                     End If
                     If check.ToString.Length > 0 And dr.Item("INDEX_NAME") <> "DD PM-ONLY FOR DISPLAY" Then
                         Dim cs As String = ClassDatabase.Get_ConnectionString(dr.Item("CONNECTION_ID"))
-                        If allgFunk.checkValue_Exists(dr.Item("SQL_UEBERPRUEFUNG"), "@Eingabe", control.Text, dr.Item("TYP"), cs, CURRENT_ProfilGUID) = True Then
+                        If allgFunk.CheckValue_Exists(dr.Item("SQL_UEBERPRUEFUNG"), "@Eingabe", control.Text, dr.Item("TYP"), cs, CURRENT_ProfilGUID) = True Then
                             Return True
                         Else
                             errormessage = "the input-value '" & control.Text & "' is not existing in database!"
@@ -2402,21 +2417,21 @@ Public Class frmValidator
             LOGGER.Debug($"Checking file 0 [{oResult}] exists?...")
             WMDocPathWindows = String.Empty
             If File.Exists(oResult) = False Then
-                'If USER_USERNAME = "SchreiberM" Then
-                '    oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf"
-                'ElseIf USER_USERNAME = "Administrator" Then
-                '    'oResult = "C:\Users\Administrator.DD-GAN\Desktop\test.pdf"
-                '    oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf"
-                'Else
-                LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
-                oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
-                oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2")
-                LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
-                If File.Exists(oResult) = False Then
-                    LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
-                    Return False
+                If USER_USERNAME = "SchreiberM" Then
+                    oResult = "\\windream\objects\Geschäftsprozesse\TEST.pdf"
+                    'ElseIf USER_USERNAME = "Administrator" Then
+                    '    'oResult = "C:\Users\Administrator.DD-GAN\Desktop\test.pdf"
+                    '    oResult = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\AANG-3302-swbn.pdf"
+                Else
+                    LOGGER.Debug($"GetWMDocPathWindows returned false - trying with standard again...")
+                    oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({CURRENT_DOC_GUID},1)"
+                    oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "GetDocPathWindows2")
+                    LOGGER.Debug($"Checking file 1[{oResult}] exists?...")
+                    If File.Exists(oResult) = False Then
+                        LOGGER.Warn($"GetDocPathWindows: File [{oResult}] not existing!")
+                        Return False
+                    End If
                 End If
-                'End If
             End If
             WMDocPathWindows = oResult
             OLD_Document_Path = WMDocPathWindows
@@ -5342,10 +5357,8 @@ Public Class frmValidator
             Dim oResult = oForm.ShowDialog()
 
             If CURRENT_CONVERSATION_NEW <> 0 Then
-                ChatControl1.LoadConversation(CURRENT_CONVERSATION_NEW)
-                If Right_Conversation_Stop = True Then
-                    bbtnitem_ConversationEnd.Enabled = True
-                End If
+                Conversations_load()
+
             End If
 
         End If
@@ -5353,4 +5366,38 @@ Public Class frmValidator
 
     End Sub
 
+    Private Sub bbtnitem_ConversationEnd_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitem_ConversationEnd.ItemClick
+        If ChatControl1.CurrentConversation <> 0 Then
+            Dim oQuestion As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("frmValidator.Conversation_Delete")
+            If Not IsNothing(oQuestion) Then
+                If oQuestion.Rows.Count = 1 Then
+                    Dim result As MsgBoxResult
+                    result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
+                    If result = MsgBoxResult.Yes Then
+                        Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversation}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
+                        If ClassDatabase.Execute_non_Query(oSQL, "EXEC PRIDB_END_CONVERSATION") = True Then
+                            bbtnitem_ConversationEnd.Enabled = False
+                            SplitContainer2_DV_Chat.Collapsed = True
+                        Else
+                            MsgBox("Unexpected error in PRIDB_END_CONVERSATION - Check Your log!", MsgBoxStyle.Exclamation)
+                        End If
+                    End If
+                End If
+            End If
+
+        End If
+    End Sub
+
+    Private Sub BarEditItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarEditItem3.ItemClick
+        Dim o = BarEditItem3.EditValue
+    End Sub
+
+    Private Sub RepositoryItemComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RepositoryItemComboBox3.SelectedIndexChanged
+
+        Dim cBox As DevExpress.XtraEditors.ComboBoxEdit = sender
+        Dim item = cBox.EditValue
+        Dim oSplit() = item.ToString.Split("|")
+        Dim oConvID = oSplit(0)
+        ChatControl1.LoadConversation(oConvID)
+    End Sub
 End Class