edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ATEZ Implementierung RoutineM.

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-03 10:37:46 +02:00
parent 847f01c38b
commit 22aa4dbe18
4 changed files with 129 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -149,6 +149,21 @@ Public Class frmStartOptions
AddHandler f.FormClosed, AddressOf closeMe
Case "NCTSTR_EINARBEITUNG_ATEZ_TEST"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ(True)
' Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "NCTSTR_EINARBEITUNG_ATEZ_PROD"
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ(True)
' Me.Visible = False
f.Show()
AddHandler f.FormClosed, AddressOf closeMe
Case "UPDATE_SMS"
Dim f As New frmInfo(PARAM)
f.Show()
@@ -3321,7 +3336,7 @@ Public Class frmStartOptions
Me.Cursor = Cursors.Default
End Sub
Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel40.LinkClicked
Private Sub LinkLabel40_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel40.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ
@@ -3329,7 +3344,7 @@ Public Class frmStartOptions
Me.Visible = True
End Sub
Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) 'Handles LinkLabel39.LinkClicked
Private Sub LinkLabel39_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel39.LinkClicked
Me.Visible = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim f As New frmTRNCTS_NachrichtenVerarbeitung_ATEZ