EZA

initATLASAufschubkonten/frmStartOptions.vb

@@ -2415,6 +2415,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: ", "")
@@ -5613,8 +5615,8 @@ Public Class frmStartOptions
 
         '        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)
+        If IsNumeric(MyTextBox06._value) AndAlso CInt(MyTextBox06._value) > 0 Then
+            top = CInt(MyTextBox06._value)
         End If
 
         updateATEZStatusByMRNTop(top)
@@ -5831,4 +5833,8 @@ Public Class frmStartOptions
         Me.Cursor = Cursors.Default
 
     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
 End Class