dakosy-sumA, etc.

2026-03-24 08:47:29 +01:00
parent 3aef246fb5
commit 3b65e9ecd2
4 changed files with 139 additions and 6 deletions
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -125,6 +125,115 @@ Anzeige:
    End Function


+    Shared Function readVW_SumAErledigungsinformation(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
+        Try
+
+            Dim VWI As DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp = DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp.LoadFromFile(d)
+
+
+            Dim RegistriernummerATLAS = ""
+            Dim VeralteteWeitereRegistriernummer = ""
+            Dim VeralteteWeitereNachweise = ""
+            Dim ArtErledigung = ""
+
+            Dim zp As Object = Nothing
+            Dim posErledigung As New DataTable
+
+            readVW_SumAErledigungsinformation = ""
+            If VWI IsNot Nothing Then
+                If VWI.EinzelSumAErledigungsinformation IsNot Nothing Then
+                    If VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung IsNot Nothing Then
+
+                        zp = VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
+
+                        If VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName IsNot Nothing Then
+                            readVW_SumAErledigungsinformation = VWI.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ObjektName 'Nur ObjektAntragsart VV (SumA Vorgang) /NE (NCTS-Vorgang )
+                        End If
+                    End If
+                    If VWI.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then
+
+                        If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then
+                            RegistriernummerATLAS = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise
+                        End If
+
+                        If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then
+                            VeralteteWeitereNachweise = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise
+                        End If
+
+                        If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then
+                            VeralteteWeitereRegistriernummer = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer
+                        End If
+
+                        If VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
+                            ArtErledigung = VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung
+                        End If
+
+
+                        If VWI.EinzelSumAErledigungsinformation.Position IsNot Nothing Then
+                            For Each POS In VWI.EinzelSumAErledigungsinformation.Position
+                                If POS.Positionsnummer IsNot Nothing AndAlso posErledigung IsNot Nothing Then
+                                    If Not posErledigung.Columns.Contains("LaufendeNummer") Then
+                                        posErledigung.Columns.Add("LaufendeNummer", GetType(String))
+                                        posErledigung.Columns.Add("IDRegNrSumA", GetType(String))
+                                        posErledigung.Columns.Add("IDRegNrSumAPos", GetType(String))
+                                        posErledigung.Columns.Add("StornierungKz", GetType(String))
+                                        posErledigung.Columns.Add("StueckzahlErledigte", GetType(String))
+                                    End If
+
+                                    Dim ro As DataRow = posErledigung.NewRow
+                                    ro("LaufendeNummer") = POS.Positionsnummer
+                                    ro("IDRegNrSumA") = RegistriernummerATLAS
+                                    ro("IDRegNrSumAPos") = POS.Positionsnummer
+                                    ro("StornierungKz") = POS.StornierungKz
+                                    ro("StueckzahlErledigte") = POS.StueckzahlErledigte
+                                    posErledigung.Rows.Add(ro)
+                                End If
+
+                            Next
+
+
+                        End If
+
+                    End If
+
+                End If
+            End If
+
+
+            If readVW_SumAErledigungsinformation <> "" And RegistriernummerATLAS <> "" Then 'BEZUGSNR vorhanden
+                Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit)
+                STATUS.dySt_BezugsNr = readVW_SumAErledigungsinformation
+                STATUS.dySt_artMitteilung = "SUMA_Erledigung"
+                STATUS.dySt_dyArt = "VW"
+
+                STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.V_50
+                STATUS.dySt_ergCode = "GSTDATUM"
+                STATUS.dySt_ergMitteilung = ""
+                If zp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = zp
+
+                STATUS.SAVE()
+
+                'rechte SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
+
+                If saveAbschreibung Then
+                    saveVerwahrungsAusgang(RegistriernummerATLAS, posErledigung, VeralteteWeitereRegistriernummer, zp, sendMail, testlauf,, "SumAErledigung")
+
+Anzeige:
+
+                    FORM.addDGVEinarbeitung("VW: Ausgang", 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)
+            readVW_SumAErledigungsinformation = ""
+        End Try
+    End Function
+
+
+



@@ -222,7 +331,7 @@ Anzeige:
                'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten

                If saveAbschreibung AndAlso ART <> "NCTS" Then 'bei NCTS wird der Ausgang über ein UeberlassungsmeldungNCTSDE aufgelöst!!!!!!
-                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, zp, sendMail, testlauf)
+                    saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, zp, sendMail, testlauf,, "SumAErledigung-VP")

 Anzeige:

@@ -708,7 +817,7 @@ Anzeige:

    End Function

-    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False)
+    Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False, Optional zusätzlicheInfo As String = "")

        Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM

@@ -857,13 +966,13 @@ Anzeige:
                                    End With


-                                        SicherheitsPos.SAVE()
-                                        GesSichRef.CalcSaldo()
+                                    SicherheitsPos.SAVE()
+                                    GesSichRef.CalcSaldo()


                                    If sendInfoMail Then
                                        Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
-                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
+                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
                                    End If