plose

initATLASAufschubkonten/frmStartOptions.vb

@@ -4,7 +4,9 @@ Imports System.Net
 Imports System.Net.Security
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
+Imports System.Text.RegularExpressions
 Imports System.Xml
+Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -5612,4 +5614,12 @@ Public Class frmStartOptions
             Label49.Text = dt.Rows.Count & "fin"
         End If
     End Sub
+
+    Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
+        If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
+
+        cPLOSE_Inv_Data.setDatenarchivID(txtPloseJahr.Text, True)
+
+    End Sub
+
 End Class