dakosy, etc.

initATLASAufschubkonten/cGetMsgType.vb

@@ -772,6 +772,16 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+
+    Shared Function isPLOSE_NewFormat_TR(doc As String) As Boolean
+        Dim lines() As String = System.IO.File.ReadAllLines(doc)
+        If lines.Count > 0 Then
+            If lines(0).ToString.Replace("""", "").StartsWith("CustomerCode") Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
     Shared Function isPLOSE_Header(doc As String) As Boolean
         Dim lines() As String = System.IO.File.ReadAllLines(doc)
         If lines.Count > 0 Then