neu

initATLASAufschubkonten/cGetMsgType.vb

@@ -505,6 +505,13 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+    Shared Function isPLOSE_Header(doc As String) As Boolean
+        Dim lines() As String = IO.File.ReadAllLines(doc)
+        If lines(0).ToString.StartsWith("TR6") Then
+            Return True
+        End If
+        Return False
+    End Function
 
 
 End Class