divers

initATLASAufschubkonten/cGetMsgType.vb

@@ -516,6 +516,15 @@ Public Class cGetMsgType
         End If
         Return False
     End Function
+    Shared Function isPLOSE_INVData(doc As String) As Boolean
+        Dim lines() As String = IO.File.ReadAllLines(doc)
+        If lines.Count > 0 Then
+            If lines(0).ToString.StartsWith("PloseCode") Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
 
 
 End Class