From 693d2a42bfed59c85225fc7a199e20da992a97a2 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 22 Oct 2024 16:03:06 +0200 Subject: [PATCH] Rountine_USTVA_Summenberechnen --- initATLASAufschubkonten/cWorker_NCTS.vb | 6 +++-- .../frmAsfinag_NachrichtenVerarbeitung.vb | 26 ++++++++++++++----- initATLASAufschubkonten/frmStartOptions.vb | 26 ++++++++----------- 3 files changed, 34 insertions(+), 24 deletions(-) diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index a4666aa..d65afe9 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/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_009.UeberlassungsmeldungMRTyp = DAKOSY_Worker.UeberlassungsmeldungNCTSDE_009.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 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 = "" diff --git a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb index aeb9f6d..a9804ef 100644 --- a/initATLASAufschubkonten/frmAsfinag_NachrichtenVerarbeitung.vb +++ b/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 diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 2b45087..029a3ea 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/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" - Dim f As New frmInfo(PARAM) - f.Show() - 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 "ASFINAG_IMPORT_TO_SDL" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + ASFINAG_LKW(False) Case "ABGLEICH_KUNDENUEMSAETZE" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False