diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb
index d898ee3..4936cd9 100644
--- a/UID/My Project/Resources.Designer.vb	
+++ b/UID/My Project/Resources.Designer.vb	
@@ -201,7 +201,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
         '''</summary>
         Friend ReadOnly Property connStringAdmin() As String
             Get
@@ -395,6 +395,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property llllllll() As String
+            Get
+                Return ResourceManager.GetString("llllllll", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -635,7 +644,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.6 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.7 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get
diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx
index b3d62c2..c3fe943 100644
--- a/UID/My Project/Resources.resx	
+++ b/UID/My Project/Resources.resx	
@@ -185,10 +185,10 @@
     <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="connStringAdmin" xml:space="preserve">
-    <value>Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.9.6</value>
+    <value>1.9.7</value>
   </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,4 +298,7 @@
   <data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="llllllll" xml:space="preserve">
+    <value />
+  </data>
 </root>
\ No newline at end of file
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 849d3ca..1184944 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -1100,16 +1100,43 @@ Public Class frmStartOptions
                     While (oRDR.Read)
                         Dim KartenNr = oRDR.GetValue("CardNumber")
 
+                        Dim KfzKennzeichen = fktConvert(oRDR.GetValue("KfzKennzeichen"))
 
                         ' Kundennummer einlesen
-                        Dim KdNr = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL")
+                        Dim KdNr As Integer = SQl.getValueTxtBySql("SELECT AdressenNr FROM Kreditkarten WHERE KartenNr='" & KartenNr & "'", "SDL",,, -1)
 
-                        'Dim SDL = New cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr, History)
+                        If KdNr > 0 Then
 
+                            Call fktKundenSDLVerwalten(KdNr, SDLNr)
+                            Call fktKundenLkwVerwalten(KdNr, oRDR.GetValue("KfzKennzeichen"), oRDR.GetValue("Nationalität"))
 
-                        'Call fktKundenSDLVerwalten(rstKreditkarten!AdressenNr, rstSDL!SDLNr, , "ASFINAG")
-                        'Call fktKundenLkwVerwalten(rstKreditkarten!AdressenNr, rstCLFBody!KfzKennzeichen, rstCLFBody!Nationalität, "ASFINAG")
+                            Dim SDL = New VERAG_PROG_ALLGEMEIN.cSDL(KdNr, oRDR.GetValue("KfzKennzeichen"), SDLNr)
+                            If Not SDL.hasentry Then
+                                SDL.KundenNr = KdNr
+                                SDL.KfzKennzeichen = KfzKennzeichen
+                                SDL.SDLNr = SDLNr
+                                SDL.History = 0 'fktLiefereHistorywert(!KundenNr, !SDLNr)
+                                SDL.Erfassungsdatum = Now
+                            Else
+                                SDL.Änderungsdatum = Now
+                            End If
+                            SDL.Sachbearbeiter = "ASFINAG"
 
+                            Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
+
+                            SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
+                            If Validto <> "" Then
+                                SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(Validto, 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.SAVE()
+
+                        End If
 
                     End While
                 End Using
@@ -1124,5 +1151,50 @@ Public Class frmStartOptions
         End Try
     End Function
 
+    Public Function fktConvert(KfzKennzeichen) As String
+        fktConvert = ""
+        Dim I As Integer
+
+        If KfzKennzeichen Is Nothing OrElse KfzKennzeichen Is DBNull.Value Then
+            Return Nothing
+        End If
+
+        For I = 1 To Len(KfzKennzeichen)
+            Select Case Mid(KfzKennzeichen, I, 1)
+                Case "A" To "Z"
+                    fktConvert = fktConvert & UCase(Mid(KfzKennzeichen, I, 1))
+                Case "0" To "9"
+                    fktConvert = fktConvert & Mid(KfzKennzeichen, I, 1)
+            End Select
+        Next I
+
+    End Function
+
+    Public Function fktKundenLkwVerwalten(ByRef KdNr As Integer, ByRef KfzKennzeichen As String, Nationalitaet As String)
+        Dim SDL_LKW As New VERAG_PROG_ALLGEMEIN.cSDL_LKW(KdNr, KfzKennzeichen)
+
+        If Not SDL_LKW.hasEntry Then
+            SDL_LKW.Erfassungsdatum = Now
+        Else
+            SDL_LKW.Änderungsdatum = Now
+        End If
+        SDL_LKW.Sachbearbeiter = "ASFINAG"
+        SDL_LKW.Nationalität = Nationalitaet
+
+        Return SDL_LKW.SAVE
+    End Function
+    Public Function fktKundenSDLVerwalten(ByRef KdNr As Integer, ByRef SDLNr As Integer) As Boolean
+        Dim KUNDEN_SDL As New VERAG_PROG_ALLGEMEIN.cKundenSDL(KdNr, SDLNr)
+
+        If Not KUNDEN_SDL.hasEntry Then
+            KUNDEN_SDL.Erfassungsdatum = Now
+        Else
+            KUNDEN_SDL.Änderungsdatum = Now
+        End If
+        KUNDEN_SDL.Sachbearbeiter = "ASFINAG"
+
+        Return KUNDEN_SDL.SAVE
+
+    End Function
 
 End Class
\ No newline at end of file