diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 1b1746e..3356b38 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -400,7 +400,6 @@ Anzeige: End If - '---------------------------------------------------------------- FORM.addDGVEinarbeitung("VW: Bekanntgabe Massnahme", regNR) @@ -417,86 +416,91 @@ Anzeige: Dim BezugsNr = readVW_SumAVerwahrungsinfo - If VeralteteWeitereRegistriernummer = "" Then Return False + Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM - Dim filiale As String = "" - Dim abfertigungsnummer = "" - Dim Standort As String = "" - Dim Vorpapiernummer = "" - Dim laufnummer As Integer = -1 + Try - Dim parts() As String = VorpapiernummerInput.Split("-"c) - - If parts.Length = 2 Then - Vorpapiernummer = parts(0) - Integer.TryParse(parts(1), laufnummer) - End If - - - If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then - If BezugsNr.Length > 4 Then - filiale = BezugsNr.Substring(0, 4) - End If - If BezugsNr.Length >= 14 Then - abfertigungsnummer = BezugsNr.Substring(5, 8) - End If - End If - - If Vorpapiernummer <> "" Then - If Vorpapiernummer.Length > 18 Then - Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18) - End If - Dim dtSendungsInfo As New DataTable - dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO") - - If dtSendungsInfo.Rows.Count > 0 Then - filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") - abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr") + If Not originalTestSetting Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True End If - Select Case filiale - Case "4803", "4809" - Standort = "VERAG AG" - Case "4810", "5103", "5901" - Standort = "VERAG GmbH" - Case "5501" - Standort = "IMEX" - Case Else - Return False - End Select + If VeralteteWeitereRegistriernummer = "" Then Return False + + Dim filiale As String = "" + Dim abfertigungsnummer = "" + Dim Standort As String = "" + Dim Vorpapiernummer = "" + Dim laufnummer As Integer = -1 + + Dim parts() As String = VorpapiernummerInput.Split("-"c) + + If parts.Length = 2 Then + Vorpapiernummer = parts(0) + Integer.TryParse(parts(1), laufnummer) + End If - Dim dy_SendungsId = VWI.Transaktion.IOReferenz + If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then + If BezugsNr.Length > 4 Then + filiale = BezugsNr.Substring(0, 4) + End If + If BezugsNr.Length >= 14 Then + abfertigungsnummer = BezugsNr.Substring(5, 8) + End If + End If - If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then + If Vorpapiernummer <> "" Then + If Vorpapiernummer.Length > 18 Then + Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18) + End If + Dim dtSendungsInfo As New DataTable + dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO") - Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer) + If dtSendungsInfo.Rows.Count > 0 Then + filiale = dtSendungsInfo.Rows(0).Item("FilialenNr") + abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr") + End If - If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + Select Case filiale + Case "4803", "4809" + Standort = "VERAG AG" + Case "4810", "5103", "5901" + Standort = "VERAG GmbH" + Case "5501" + Standort = "IMEX" + Case Else + Return False + End Select - Dim existingEntries As DataTable - existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO") - If existingEntries.Rows.Count = 0 Then - existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO") - End If - If existingEntries.Rows.Count > 0 Then + Dim dy_SendungsId = VWI.Transaktion.IOReferenz - Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable(). - Any(Function(r_entry) - Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer - End Function) + If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then - If zubehandelndeGS Then - Return True 'bereits behandelt -> + Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer) + + If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then + + Dim existingEntries As DataTable + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO") + If existingEntries.Rows.Count = 0 Then + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO") End If - Dim urspringsSicherheit As cSicherheiten + If existingEntries.Rows.Count > 0 Then - Try + Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable(). + Any(Function(r_entry) + Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer + End Function) + + If zubehandelndeGS Then + Return True 'bereits behandelt -> + End If + + Dim urspringsSicherheit As cSicherheiten Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0") If rows.Length > 0 Then @@ -646,24 +650,23 @@ Anzeige: VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") End If - 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return False - - Finally - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - End Try + End If End If + End If + 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) + Finally + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting + End Try @@ -672,155 +675,152 @@ Anzeige: Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean) - If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then + Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM - If regNR <> "" AndAlso veralteteregNR <> "" Then + Try + + If Not originalTestSetting Then VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + End If + + If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then + + If regNR <> "" AndAlso veralteteregNR <> "" Then + + For Each POS As DataRow In posErledigung.Rows + + Dim MRNNR As String = "" + Dim existingEntryID As Integer = 0 - For Each POS As DataRow In posErledigung.Rows + If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then - Dim MRNNR As String = "" - Dim existingEntryID As Integer = 0 + Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) + If MRNNR <> POS.Item("IDRegNrSumA") Then + MRNNR = POS.Item("IDRegNrSumA") - If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then + Dim firmaID = -1 - Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) + Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO") - If MRNNR <> POS.Item("IDRegNrSumA") Then - MRNNR = POS.Item("IDRegNrSumA") + If dtGesamtsicherheit.Rows.Count > 0 Then - Dim firmaID = -1 - - Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO") - - If dtGesamtsicherheit.Rows.Count > 0 Then - - - - Try Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0) - Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL") + Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL") - If rows.Length > 0 Then - Exit Sub 'bereits vorhanden - End If + If rows.Length > 0 Then + Exit Sub 'bereits vorhanden + End If - Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort")) - Dim saldo As Double = GesSichRef.CalcSaldo() + Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort")) + Dim saldo As Double = GesSichRef.CalcSaldo() - Dim Warenwert As Double = 0 - Dim Sicherheitsbetrag As Double = 0 + Dim Warenwert As Double = 0 + Dim Sicherheitsbetrag As Double = 0 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + If dtVorpapiere.Rows.Count > 0 Then - Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')") + Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')") - Dim row = rowsVorp(0) - Warenwert = CDbl(row("tblSnd_Warenwert")) - Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100)) - End If - - - - 'Dim dtSendungen = SQL.loadDgvBySql("SELECT") - Dim anzahlPackstuecke As Integer = -1 - Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte"))) - Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz")) - If gs_row.Item("gs_freitext") <> "" Then - anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value) - End If - - If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden! - Dim dt As New DataTable - - If Not dt.Columns.Contains("anzahlPackstuecke") Then - dt.Columns.Add("MRN", GetType(String)) - dt.Columns.Add("LKW_ID", GetType(String)) - dt.Columns.Add("anzahlPackstuecke", GetType(Integer)) - dt.Columns.Add("StornierungKZ", GetType(String)) - dt.Columns.Add("AnzahlStückErledigt", GetType(Integer)) + Dim row = rowsVorp(0) + Warenwert = CDbl(row("tblSnd_Warenwert")) + Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100)) End If - Dim ro As DataRow = dt.NewRow - ro("MRN") = gs_row.Item("gs_MRNNr") - ro("LKW_ID") = gs_row.Item("gs_avisoId") - ro("anzahlPackstuecke") = anzahlPackstuecke - ro("AnzahlStückErledigt") = AnzahlStückErledigt - ro("StornierungKZ") = StornierungKz - dt.Rows.Add(ro) - Dim InfoText As String = createInfoMail(MRNNR, dt, "") + 'Dim dtSendungen = SQL.loadDgvBySql("SELECT") + Dim anzahlPackstuecke As Integer = -1 + Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte"))) + Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz")) + If gs_row.Item("gs_freitext") <> "" Then + anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value) + End If - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") - End If + If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden! + Dim dt As New DataTable - Dim SicherheitsPos As New cGesamtsicherheitsPositionen() - With SicherheitsPos - .gsp_gsId = gs_row("gs_gsId") - '.gsp_gspPosId = CInt(POSNr) - .gsp_gspPosId = gs_row.Item("gs_posNr") - .gsp_warenwert = Warenwert - .gsp_sicherheitsbetrag = Sicherheitsbetrag - .gsp_freitext = "DASKOY-IMPORT" - .gsp_filialenNr = gs_row("gs_filialenNr") - .gsp_art = "CLOSE" - .gsp_gsNr = gs_row("gs_gsnr") - .gsp_abfertigungsNr = gs_row("gs_abfertigungsnr") - .gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang - .gsp_erstellungsdatum = DateTime.Now - .gsp_ust = gs_row("gs_ust") - .gsp_ATCNr = veralteteregNR - .gsp_MRNNr = regNR - .gsp_avisoId = gs_row("gs_avisoID") - .gsp_systemuser = "DAKOSY-AUTO" - End With + If Not dt.Columns.Contains("anzahlPackstuecke") Then + dt.Columns.Add("MRN", GetType(String)) + dt.Columns.Add("LKW_ID", GetType(String)) + dt.Columns.Add("anzahlPackstuecke", GetType(Integer)) + dt.Columns.Add("StornierungKZ", GetType(String)) + dt.Columns.Add("AnzahlStückErledigt", GetType(Integer)) + End If + + Dim ro As DataRow = dt.NewRow + ro("MRN") = gs_row.Item("gs_MRNNr") + ro("LKW_ID") = gs_row.Item("gs_avisoId") + ro("anzahlPackstuecke") = anzahlPackstuecke + ro("AnzahlStückErledigt") = AnzahlStückErledigt + ro("StornierungKZ") = StornierungKz + dt.Rows.Add(ro) - SicherheitsPos.SAVE() - GesSichRef.CalcSaldo() + Dim InfoText As String = createInfoMail(MRNNR, dt, "") - If sendInfoMail Then - Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") - End If + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") + End If + + Dim SicherheitsPos As New cGesamtsicherheitsPositionen() + With SicherheitsPos + .gsp_gsId = gs_row("gs_gsId") + '.gsp_gspPosId = CInt(POSNr) + .gsp_gspPosId = gs_row.Item("gs_posNr") + .gsp_warenwert = Warenwert + .gsp_sicherheitsbetrag = Sicherheitsbetrag + .gsp_freitext = "DASKOY-IMPORT" + .gsp_filialenNr = gs_row("gs_filialenNr") + .gsp_art = "CLOSE" + .gsp_gsNr = gs_row("gs_gsnr") + .gsp_abfertigungsNr = gs_row("gs_abfertigungsnr") + .gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang + .gsp_erstellungsdatum = DateTime.Now + .gsp_ust = gs_row("gs_ust") + .gsp_ATCNr = veralteteregNR + .gsp_MRNNr = regNR + .gsp_avisoId = gs_row("gs_avisoID") + .gsp_systemuser = "DAKOSY-AUTO" + End With - 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + SicherheitsPos.SAVE() + GesSichRef.CalcSaldo() - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + If sendInfoMail Then + Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag") + End If - Finally - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - End Try + End If End If + End If + Next - End If - - Next - - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + 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) + Finally + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting + End Try - - End If End Sub Public Shared Function AddNewGesamtSichNr() As Integer