APIZugange, Mitarbeiter, StartOptions, UTA.

initATLASAufschubkonten/cUTA.vb

@@ -878,7 +878,7 @@ Public Class cUTA
         Return cnt
     End Function
 
-    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo) As Boolean
+    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer) As Boolean
 
 
         Dim booHeaderVorhanden = False
@@ -1219,7 +1219,7 @@ Public Class cUTA
             End Select
 
         Loop
-
+        cnt = CInt(lngRecordCount)
         objFileRead.Close()
         Return True