Merge branch 'ADMIN' of https://dev.azure.com/VeragAG/_git/ADMIN into ADMIN

initATLASAufschubkonten/frmStartOptions.vb

@@ -2419,6 +2419,8 @@ Public Class frmStartOptions
 
             'IO.Directory.CreateDirectory(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\ZOLLDATEN\TEST3\" & betreff.ToString.Replace(",", ""))
 
+            betreff = betreff.replace("*00*", "")
+
             If betreff.ToString.Contains("VBD - Versandbegleitdokument (DE), ") Then
                 Dim found = False
                 betreff = betreff.replace("WG: ", "")
@@ -5629,9 +5631,9 @@ weiter:
 
         '        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (1000) [ncts_Id]   FROM [tblNCTS_FREMD]  where ncts_Partnersystem='ATEZ' and ncts_status < 60", "FMZOLL")
         Dim top = 200
-        'If IsNumeric(MyTextBox6._value) AndAlso CInt(MyTextBox6._value) > 0 Then
-        '    top = CInt(MyTextBox6._value)
-        'End If
+        If IsNumeric(MyTextBox06._value) AndAlso CInt(MyTextBox06._value) > 0 Then
+            top = CInt(MyTextBox06._value)
+        End If
 
         updateATEZStatusByMRNTop(top)
     End Sub
@@ -5857,6 +5859,10 @@ weiter:
 
     End Sub
 
+    'Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles Button27.Click
+    '    cErrorHandler.sendERRORperMail(My.Application.Info.AssemblyName, "TEST", "", "error@verag.ag", "", "Error_Test")
+    'End Sub
+
     Private Sub LinkLabel52_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
 
         If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub