Rountine_USTVA_Summenberechnen

initATLASAufschubkonten/cWorker_NCTS.vb

@@ -3918,8 +3918,8 @@ Public Class cWorker_NCTS
     End Function
     Shared Function readNCTS_Ueberlassungsmeldung009(FORM As frmDYNachrichtenVerarbeitung, d As String, ByRef statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen) As String
         Try
-            Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
+            'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE.UeberlassungsmeldungMRTyp.LoadFromFile(d)
-            'Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
+            Dim NCTS As DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.UeberlassungsmeldungMRTyp.LoadFromFile(d)
             Dim MRN = ""
             Dim division = ""
             Dim Wiedergestellungsdatum As Object = Nothing
@@ -4090,6 +4090,8 @@ Public Class cWorker_NCTS
 
                     FORM.addDGVEinarbeitung("NCTS: Überlassungsmeldung", STATUS.dySt_BezugsNr)
                 End If
+            End If
+
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             readNCTS_Ueberlassungsmeldung009 = ""

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

initATLASAufschubkonten/frmStartOptions.vb

@@ -508,7 +508,7 @@ Public Class frmStartOptions
                 blt.exportiereBlackList(autoclose)
                 closeMe()
 
-            Case "ASFINAG_IMPORT"
+            Case "ASFINAG_IMPORT_CLF"
                 Dim f As New frmInfo(PARAM)
                 f.Show()
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
@@ -517,24 +517,20 @@ Public Class frmStartOptions
                 Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
                 fmCLF.Show()
                 AddHandler fmCLF.FormClosed, AddressOf closeMe
+
+            Case "ASFINAG_IMPORT_TTR"
+                Dim f As New frmInfo(PARAM)
+                f.Show()
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim autoclose As Boolean = True
+                Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
                 Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
                 fmTTR.Show()
                 AddHandler fmTTR.FormClosed, AddressOf closeMe
-                closeMe()
 
-            Case "ASFINAG_IMPORT_TEST"
+            Case "ASFINAG_IMPORT_TO_SDL"
-                Dim f As New frmInfo(PARAM)
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
-                f.Show()
+                ASFINAG_LKW(False)
-                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
-                Dim autoclose As Boolean = True
-                Dim testFTP As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
-                Dim fmCLF As New frmAsfinag_NachrichtenVerabeitung("CLF", testFTP, autoclose)
-                fmCLF.ShowDialog()
-                AddHandler fmCLF.FormClosed, AddressOf closeMe
-                Dim fmTTR As New frmAsfinag_NachrichtenVerabeitung("TTR", testFTP, autoclose)
-                fmTTR.ShowDialog()
-                AddHandler fmTTR.FormClosed, AddressOf closeMe
-                closeMe()
 
             Case "ABGLEICH_KUNDENUEMSAETZE"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False