neu

initATLASAufschubkonten/frmStartOptions.vb

@@ -89,6 +89,20 @@ Public Class frmStartOptions
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
 
+            Case "NCTSTR_EINARBEITUNG_TEST"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+            Case "NCTSTR_EINARBEITUNG_PROD"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+
+
             Case "DY_EINARBEITUNG_UNISPED"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -185,7 +199,7 @@ Public Class frmStartOptions
     Sub importFileFromEZOLL(datum As Date)
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [ezoll].[dbo].[zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
+        Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
                                                 where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00'  and pfad is not null", "EZOLL")
         If dt IsNot Nothing Then
             For Each row In dt.Rows
@@ -1197,4 +1211,11 @@ Public Class frmStartOptions
 
     End Function
 
+    Private Sub LinkLabel29_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim f As New frmTRNCTS_NachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
 End Class