Rountine_USTVA_Summenberechnen

initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class frmAsfinag_NachrichtenVerabeitung
     Dim cntDatenEingelesen As Integer = 0
@@ -10,6 +11,8 @@ Public Class frmAsfinag_NachrichtenVerabeitung
     Dim testFTP As Boolean
     Dim asfinag As New cAsfinag()
     Dim Dateiname = ""
+    Dim empfangen As Boolean = False
+    Dim eingelesen As Boolean = False
 
     Sub New(FileType, testFTP)
 
@@ -73,8 +76,9 @@ Public Class frmAsfinag_NachrichtenVerabeitung
                 End If
                 ListBox3.Items.Add(s)
             Next
-            Label9.Text = cnt & " Datensätze empfangen."
 
+            Label9.Text = cnt & " Datensätze empfangen."
+            empfangen = True
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
@@ -86,7 +90,7 @@ Public Class frmAsfinag_NachrichtenVerabeitung
         Try
             Label5.Visible = True
 
-            DatenEinlesen() '<<<<------------
+            DatenEinlesen(eingelesen) '<<<<------------
 
             If dsNichtErkannt > 0 Then
 
@@ -102,13 +106,14 @@ Public Class frmAsfinag_NachrichtenVerabeitung
     End Sub
 
 
-    Sub DatenEinlesen()
+    Sub DatenEinlesen(eingelesen As Boolean)
 
-        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
+        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
 
         If ListBox3.Items.Count = 0 Then
             Label6.Text = "Keine Daten zum Einlesen vorhanden."
             Label6.Visible = True
+            eingelesen = True
             Exit Sub
         End If
 
@@ -189,8 +194,10 @@ Public Class frmAsfinag_NachrichtenVerabeitung
 
             Catch ex As Exception
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                eingelesen = False
             End Try
         Next
+        eingelesen = True
 
     End Sub
 
@@ -222,10 +229,15 @@ Public Class frmAsfinag_NachrichtenVerabeitung
         If allowClose Then
             Me.Refresh()
             Button2.PerformClick()
-            System.Threading.Thread.Sleep(2000)
+            For i As Integer = 0 To 5
+                If Not empfangen Then System.Threading.Thread.Sleep(2000)
+                i = i + 1
+            Next
             Button1.PerformClick()
-            System.Threading.Thread.Sleep(20000)
-
+            For j As Integer = 0 To 5
+                If Not eingelesen Then System.Threading.Thread.Sleep(20000)
+                j = j + 1
+            Next
             Me.Close()
         End If
     End Sub