Anpassung Dakosy BOX 9.2,

CHAT->Aus Zw.Ablage einfügen

VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb

@@ -8,9 +8,13 @@ Public Class cMessenger
 
     Shared SQL As New SQL
 
-    Public Shared Function GEN_NEW_CHAT(chat_name As String, MaIds As List(Of Integer), Optional ByRef CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing) As Boolean
+    Public Shared Function GEN_NEW_CHAT(chat_name As String, MaIds As List(Of Integer), Optional ByRef CHAT As VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat = Nothing, Optional chat_art As String = "CHAT", Optional chat_AvisoId As Integer = -1, Optional chat_SendungsId As Integer = -1) As Boolean
         CHAT = New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_Chat
         CHAT.chat_erstelltAm = Now
+        If chat_art <> "" Then CHAT.chat_art = chat_art
+        If chat_AvisoId > 0 Then CHAT.chat_AvisoId = chat_AvisoId
+        If chat_SendungsId > 0 Then CHAT.chat_SendungsId = chat_SendungsId
+
         CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
         CHAT.chat_name = chat_name
 
@@ -23,6 +27,8 @@ Public Class cMessenger
 
     End Function
 
+
+
     Public Shared Function CHECK_EXISTS(MaId As Integer, Optional ByRef toChatID As Integer = -1) As Boolean
         Dim sqlStr = "Select TOP 1 chat_id FROM [tblMessenger_Chat]  inner join tblMessenger_ChatMembers On chatMb_chatId=chat_id  where chat_name='' AND [chat_aktiv]=1
                         And (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMb_chatId=chat_id And chatMb_maId='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' )  >0
@@ -58,6 +64,8 @@ Public Class cMessenger
         Property chat_art As String = "CHAT"
         Property chat_erstelltAm As Date = Now
         Property chat_erstelltMaId As Integer
+        Property chat_AvisoId As Integer = -1
+        Property chat_SendungsId As Integer = -1
         Property chat_aktiv As Boolean = True
         Property chat_freigegeben As Boolean = True
 
@@ -78,6 +86,16 @@ Public Class cMessenger
             Me.chat_erstelltAm = Now
             LOAD(topMax, dateTmp)
         End Sub
+        Sub New(chat_AvisoId As Integer, chat_SendungsId As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
+            Me.chat_id = chat_id
+            Me.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            Me.chat_erstelltAm = Now
+            Me.chat_art = "LKW_CHAT"
+            LOAD_ByLKW(chat_AvisoId, chat_SendungsId, topMax, dateTmp)
+
+
+        End Sub
+
 
         Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
             Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -87,6 +105,8 @@ Public Class cMessenger
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_art", chat_art))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltAm", chat_erstelltAm))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_erstelltMaId", chat_erstelltMaId))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_AvisoId", chat_AvisoId))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_SendungsId", chat_SendungsId))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_aktiv", chat_aktiv))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chat_freigegeben", chat_freigegeben))
 
@@ -146,6 +166,43 @@ Public Class cMessenger
         End Sub
 
 
+        Public Sub LOAD_ByLKW(chat_AvisoId As Integer, chat_SendungsId As Integer, Optional topMax As String = "", Optional dateTmp As Object = Nothing)
+            Try
+                Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
+                    Using cmd As New SqlCommand("Select * FROM tblMessenger_Chat WHERE chat_AvisoId=@chat_AvisoId " & If(chat_SendungsId > 0, " AND chat_SendungsId=chat_SendungsId ", "") & " AND chat_art='LKW_CHAT'", conn)
+                        cmd.Parameters.AddWithValue("@chat_AvisoId", chat_AvisoId)
+                        cmd.Parameters.AddWithValue("@chat_SendungsId", chat_SendungsId)
+
+                        Dim dr = cmd.ExecuteReader()
+                        If dr.Read Then
+                            For Each li In getParameterList()
+                                Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                                If dr.Item(li.Text) Is DBNull.Value Then
+                                    propInfo.SetValue(Me, Nothing)
+                                Else
+                                    propInfo.SetValue(Me, dr.Item(li.Text))
+                                End If
+
+                            Next
+
+                            Me.LOAD_MEMBERS()
+                            If dateTmp Is Nothing Then
+                                Me.LOAD_MESSAGES()
+                            Else
+                                Me.LOAD_MESSAGES_DATE(dateTmp)
+                            End If
+
+                        End If
+                        dr.Close()
+                    End Using
+                End Using
+            Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+        End Sub
+
+
 
         Public Function SAVE_MEMBERS() As Boolean
             Try