ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -809,6 +809,14 @@ Public Class cSendungen
         Return adresse.Trim
     End Function
 
+    Public Function getNCTSATANr(Optional htmlOptimized As Boolean = False) As String
+        Dim ataNr = ""
+        ataNr &= If(Me.tblSnd_ATANr, "") & vbNewLine
+
+        If htmlOptimized Then ataNr = ataNr.Trim.Replace(vbNewLine, "<br/>")
+        Return ataNr.Trim
+    End Function
+
 
     Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
         If tblSnd_EmpfaengerKdNr > 0 Then