Asfinag, ZE-MA-Ansicht

initATLASAufschubkonten/frmStartOptions.vb

@@ -3232,14 +3232,14 @@ Public Class frmStartOptions
 
                 ' Kfz Kennzeichen einlesen.
 
-
                 Dim strSQLASFINAG = "SELECT cardNumber, ValidTo, OBUID, vehicleLicensePlate, nationality, contractDate, vehicleCategory, emissionCategory, status FROM vwCLFBody"
 
                 Dim dtAsfinag As DataTable = SQl.loadDgvBySql_Param(strSQLASFINAG, "ASFINAG")
 
-                If dtAsfinag.Rows.Count < 1 Then
-                    Return False
-                End If
+                ' ????????
+                'If dtAsfinag.Rows.Count < 1 Then
+                '    Return False
+                'End If
 
                 For Each row As DataRow In dtAsfinag.Rows
 
@@ -3264,7 +3264,7 @@ Public Class frmStartOptions
                         Else
                             SDL.Änderungsdatum = Now
                         End If
-                        SDL.Sachbearbeiter = "ASFINAG"
+                        SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
 
                         Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
 
@@ -3595,23 +3595,23 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel44_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel44.LinkClicked
         Me.Visible = False
-        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
-        Dim f As New frmAsfinag_NachrichtenVerabeitung("ttr")
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
+        Dim f As New frmAsfinag_NachrichtenVerabeitung("TTR")
         f.ShowDialog()
         Me.Visible = True
     End Sub
 
     Private Sub LinkLabel43_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel43.LinkClicked
         Me.Visible = False
-        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
-        Dim f As New frmAsfinag_NachrichtenVerabeitung("clf")
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
+        Dim f As New frmAsfinag_NachrichtenVerabeitung("CLF")
         f.ShowDialog()
         Me.Visible = True
         'ASFINAG_LKW(False)
     End Sub
 
     Private Sub LinkLabel42_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel42.LinkClicked
-        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
         Me.Cursor = Cursors.WaitCursor
         Dim blt = New cAsfinag.Exportist
         blt.initExportPfade()
@@ -3620,7 +3620,7 @@ Public Class frmStartOptions
     End Sub
 
     Private Sub LinkLabel41_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel41.LinkClicked
-        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
         Me.Cursor = Cursors.WaitCursor
         Dim blt = New cAsfinag.Exportist
         blt.initExportPfade()
@@ -3909,7 +3909,7 @@ Public Class frmStartOptions
     End Function
 
     Private Sub LinkLabel47_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel47.LinkClicked
-        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox8.Checked
         showPic(ASFINAG_LKW(False), PictureBox21)
     End Sub