neu

initATLASAufschubkonten/frmStartOptions.vb

@@ -1,4 +1,5 @@
-Imports System.IO
+Imports System.Data.OleDb
+Imports System.IO
 Imports System.Net
 Imports System.Text
 Imports System.Xml
@@ -1018,7 +1019,7 @@ Public Class frmStartOptions
 
 
     End Sub
-    Function getISett ()As cVERAG_Interface_Settings
+    Function getISett() As cVERAG_Interface_Settings
         getISett = New cVERAG_Interface_Settings
         getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked
         getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked
@@ -1052,4 +1053,76 @@ Public Class frmStartOptions
         f.ShowDialog()
         Me.Visible = True
     End Sub
+
+    Private Sub LinkLabel31_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel31.LinkClicked
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        ASFINAG_LKW()
+    End Sub
+
+    Function ASFINAG_LKW()
+        Try
+            Dim SQl As New VERAG_PROG_ALLGEMEIN.SQL
+
+            ' CLF-Einträge aus den bestehenden SDL-Datensätzen entfernen,
+            ' damit nach dem Aktualisierungslauf der Istzustand der CLF in der SDL hergestellt wird.
+            If Not SQl.getValueTxtBySql("UPDATE SDL Set  OBUID = NULL, Vertragsabschlussdatum = NULL, Kategorie = NULL, Status = NULL WHERE (SDLNr = 200) AND (NOT Vertragsabschlussdatum IS NULL)", "SDL") Then
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "Fehler beim Reset SDL-Daten.", System.Reflection.MethodBase.GetCurrentMethod.Name)
+                Return False
+            End If
+
+            ' Nummer der Speditionsdienstleistung für MautAT einlesen.
+            Dim SDLNr = SQl.getValueTxtBySql("SELECT isnull(SDLNr,'') FROM vwSpeditionsdienstleistungen WHERE (Sicht = 'vwMautAT')", "SDL")
+            If SDLNr = "" Then
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("ERROR", "SDL-Nr nicht gefunden.", System.Reflection.MethodBase.GetCurrentMethod.Name)
+                Return False
+            End If
+
+
+
+
+            ' Verbindung zur ASFINAG Datenbank herstellen
+            Dim connectionString = ""
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\Mautmanager.adp"
+            Else
+                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\Mautmanager.adp"
+            End If
+            Dim con As New OleDbConnection(connectionString)
+            Dim cmd As New OleDbCommand
+            Dim var1 As String
+            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
+            Dim reader As OleDbDataReader = Nothing
+
+            ' Kfz Kennzeichen einlesen.
+            Dim SQLQuery = "SELECT CardNumber, ValidTo, OBUID, KfzKennzeichen, Nationalität, DatumVertragsabschluss, Kategorie, Schadstoffklasse, Status FROM vwCLFBody "
+            Using Command As New OleDbCommand(SQLQuery, con)
+                Using oRDR As OleDbDataReader = Command.ExecuteReader
+                    While (oRDR.Read)
+                        Dim KartenNr = oRDR.GetValue("CardNumber")
+
+
+                        ' Kundennummer einlesen
+                        Dim KdNr = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL")
+
+                        'Dim SDL = New cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr, History)
+
+
+                        'Call fktKundenSDLVerwalten(rstKreditkarten!AdressenNr, rstSDL!SDLNr, , "ASFINAG")
+                        'Call fktKundenLkwVerwalten(rstKreditkarten!AdressenNr, rstCLFBody!KfzKennzeichen, rstCLFBody!Nationalität, "ASFINAG")
+
+
+                    End While
+                End Using
+            End Using
+            con.Close()
+
+            Return True
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+    End Function
+
+
 End Class