neu

initATLASAufschubkonten/cGetMsgType.vb

@@ -500,15 +500,19 @@ Public Class cGetMsgType
 
     Shared Function isPLOSE_Detail(doc As String) As Boolean
         Dim lines() As String = IO.File.ReadAllLines(doc)
-        If lines(0).ToString.StartsWith("TR5") Then
-            Return True
+        If lines.Count > 0 Then
+            If lines(0).ToString.StartsWith("TR5") Or (lines.Count > 1 AndAlso (lines(0).ToString.StartsWith("TR1") And lines(1).ToString.StartsWith("TR5"))) Then
+                Return True
+            End If
         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
+        If lines.Count > 0 Then
+            If lines(0).ToString.StartsWith("TR6") Then
+                Return True
+            End If
         End If
         Return False
     End Function