StartOptions, RMC

initATLASAufschubkonten/frmStartOptions.vb

@@ -3498,7 +3498,7 @@ Public Class frmStartOptions
 
                 ' Kfz Kennzeichen einlesen.
 
-                Dim strSQLASFINAG = "SELECT cardNumber, ValidTo, OBUID, vehicleLicensePlate, nationality, contractDate, vehicleCategory, emissionCategory, status FROM vwCLFBody"
+                Dim strSQLASFINAG = "SELECT cardNumber, ValidTo, OBUID, vehicleLicensePlate, nationality, contractDate, vehicleCategory, emissionCategory, status, CO2EmissionsClass FROM vwCLFBody"
 
                 Dim dtAsfinag As DataTable = SQl.loadDgvBySql_Param(strSQLASFINAG, "ASFINAG")
 
@@ -3545,6 +3545,8 @@ Public Class frmStartOptions
                         SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
                         SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
                         SDL.Status = SQL.checkNullStr(row.Item("status"))
+                        SDL.Nationalitaet = SQL.checkNullStr(row.Item("nationality"))
+                        SDL.CO2Kategorie = SQL.checkNullStr(row.Item("CO2EmissionsClass"))
                         SDL.SAVE()
                     End If
 
@@ -4356,5 +4358,7 @@ Public Class frmStartOptions
 
     End Sub
 
+    Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
 
+    End Sub
 End Class