From 107d3240540856e6c875b82cc14b9b4a2e8f9a8a Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 26 Mar 2025 09:15:54 +0100
Subject: [PATCH] sql

---
 initATLASAufschubkonten/frmStartOptions.vb | 35 +++++++++++-----------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index ed723e6..46ec04b 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -3976,17 +3976,17 @@ Public Class frmStartOptions
                                 End If
                                 SDL.Sachbearbeiter = "ASFINAG"
 
-                                Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
+                                Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
 
-                                SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
+                                SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
                                 If Validto <> "" Then
                                     SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
                                 End If
-                                SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
-                                SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
-                                SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
-                                SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
-                                SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
+                                SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
+                                SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
+                                SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
+                                SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
+                                SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
                                 SDL.SAVE()
                             End If
 
@@ -4032,21 +4032,21 @@ Public Class frmStartOptions
                         End If
                         SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
 
-                        Dim Validto = SQl.checkNullStr(row.Item("contractDate"))
+                        Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
 
-                        SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber"))
+                        SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
                         If Validto <> "" Then
                             'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
                             SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
                         End If
 
-                        SDL.OBUID = SQl.checkNullStr(row.Item("OBUID"))
-                        SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate"))
-                        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.OBUID = SQL.checkNullStr(row.Item("OBUID"))
+                        SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
+                        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
 
@@ -5644,8 +5644,9 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
+    Private Sub LinkLabel90_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
 
+        Exit Sub
 
         Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%'"