Timas Bugfix, EMail Function für AMBAR korrigiert, Essensbestellungen für Verag360

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -1,6 +1,7 @@
 Imports System.Diagnostics.Tracing
 Imports System.Net
 Imports System.Runtime.Remoting
+Imports System.Text
 Imports System.Threading
 Imports System.Windows.Forms
 
@@ -48,7 +49,7 @@ Public Class cTimasAPI
 
     End Function
 
-    Public Sub getTimeSaldo(ByVal maid As Integer, ByRef info As String, Optional ByRef requestDone As Boolean = False)
+    Public Sub getTimeSaldo(maid As Integer, ByRef info As String, Optional ByRef requestDone As Boolean = False)
         Try
             Dim returnText As String = ""
             Dim failureText As String = ""
@@ -100,7 +101,11 @@ Public Class cTimasAPI
             If saldo IsNot Nothing Then
                 Dim saldoAsDouble = CDbl(saldo)
                 saldoAsDouble = Math.Round(saldoAsDouble / 3600, 2)
-                info = "Vortag: " & saldoAsDouble & " h"
+                Dim infoBuilder As New StringBuilder
+                infoBuilder.Append("Vortag ")
+                infoBuilder.Append(saldoAsDouble)
+                infoBuilder.Append(" h")
+                info = infoBuilder.ToString()
             End If