MDM, CHAT, MSE_API

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb

@@ -15,7 +15,7 @@ Public Class frmMessenger
     Dim topMessagesDateHistory As Object = Nothing
     Dim loaded = False
     Public EMOJI_PATH_MAIN = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
-    Public EMOJI_PATH = ""
+    Public EMOJI_PATH = cAllgemein.EMOJI_PATH
     Public AvisoId As Integer = -1
     Public SendungID As Integer = -1
 
@@ -67,6 +67,7 @@ Public Class frmMessenger
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
+
     End Sub
     Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChats.CellContentClick, dgvChats.CellClick
         If dgvChats.Rows(e.RowIndex).Cells("ungelesen").Value <> "" Then
@@ -86,7 +87,7 @@ Public Class frmMessenger
     End Sub
 
     Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
-        initEMOJI_PATH()
+        'initEMOJI_PATH()
         VERAG_PROG_ALLGEMEIN.cProgramFunctions.SetDoubleBuffered(MyFlowLayoutPanel1)
         rtbChatMessage.AllowDrop = True
         MSG_LISTENDER.START()

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1139,8 +1139,11 @@ Public Class cMSEAPI
             'R("distance_km") = transaction.StringOf("distance_km")
 
 
-            If ((transaction.StringOf("device_product_type") = "" Or transaction.StringOf("device_product_type") = "null") And CDbl(transaction.StringOf("msts_fee_amount").Replace(".", ",")) <> 0) Then
-                R("device_product_type") = transaction.StringOf("transaction_product_name")
+            If (CDbl(transaction.StringOf("msts_fee_amount").Replace(".", ",")) <> 0) Then
+                If (transaction.StringOf("device_product_type") = "" Or transaction.StringOf("device_product_type") = "null") Then
+                    R("device_product_type") = transaction.StringOf("transaction_product_name")
+                End If
+
             End If
 
             If ((transaction.StringOf("device_product_type") = "" Or transaction.StringOf("device_product_type") = "null") And transaction.StringOf("transaction_product_name") = "Charge - HU-GO SIM card fee") Then

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -1421,6 +1421,9 @@
     <Content Include="My Project\licensePDFPro.elic.xml" />
     <Content Include="My Project\licensePDFViewer.elic.xml" />
   </ItemGroup>
+  <ItemGroup>
+    <Folder Include="Resources\CHAT_EMOJIS\" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <ProjectExtensions />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -60,6 +60,7 @@ Public Class cAllgemein
     Public Shared SESSION As New cSession
     Public Shared _DummyCNT As Integer
     Public Shared EMailTOBB_Error As String = "info@verimextransit.com"
+    Public Shared EMOJI_PATH As String = ""
 
 
     Shared SQL As New SQL
@@ -133,6 +134,7 @@ Public Class cAllgemein
         LOAD_TRANSLATE_AUTO()
         LOAD_FIRMEN()
         LOAD_FILIALEN()
+        LOAD_CHAT_EMOJIS()
 
         Try 'DRUCKER LADEN
             Dim sPrinters As New ArrayList
@@ -154,6 +156,36 @@ Public Class cAllgemein
 
     End Sub
 
+    Public Shared Sub LOAD_CHAT_EMOJIS()
+
+        Dim EMOJI_SOURCEPATH = DATENVERVER_OPTIONS.getRootDir & "\DOKUMENTE\CHAT_EMOJIS\"
+
+        EMOJI_PATH = System.IO.Path.GetFullPath(My.Application.Info.DirectoryPath & "\Resources\CHAT_EMOJIS\")
+
+        Try
+            If Not System.IO.Directory.Exists(EMOJI_PATH) Then
+                System.IO.Directory.CreateDirectory(EMOJI_PATH)
+            End If
+
+
+            For Each f In System.IO.Directory.GetFiles(EMOJI_PATH)
+                System.IO.File.Delete(f)
+            Next
+
+
+            For Each f In System.IO.Directory.GetFiles(EMOJI_SOURCEPATH)
+                Dim fi As New System.IO.FileInfo(f)
+                fi.CopyTo(EMOJI_PATH & fi.Name, False)
+
+            Next
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
     Public Shared Sub LOAD_PROGRAMM()
         Dim prog_Name = My.Application.Info.ProductName