diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb
index 85d2c2f..3a5748c 100644
--- a/initATLASAufschubkonten/cWorker_Verwahrung.vb
+++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb
@@ -101,10 +101,10 @@ Public Class cWorker_Verwahrung
                             Select Case BezugsNr.Substring(0, 4)
                                 Case 4803, 4809
                                     Standort = "VERAG AG"
-                                Case 5601
-                                    Standort = "UNISPED GmbH"
-                                Case 5701
-                                    Standort = "AMBAR GmbH"
+                                'Case 5601
+                                '    Standort = "UNISPED GmbH"
+                                'Case 5701
+                                '    Standort = "AMBAR GmbH"
                                 Case 4810, 5103, 5901
                                     Standort = "VERAG GmbH"
                                 Case 5501
diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb
index cae6f4e..a100e00 100644
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -2247,6 +2247,7 @@ Partial Class frmStartOptions
         '
         'TabPage4
         '
+        Me.TabPage4.Controls.Add(Me.LinkLabel67)
         Me.TabPage4.Controls.Add(Me.cbxUTATestkunden)
         Me.TabPage4.Controls.Add(Me.cbxITalt)
         Me.TabPage4.Controls.Add(Me.cbxPlose)
diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index 1c6d76b..2857535 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -3884,18 +3884,18 @@ 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
 
@@ -3941,21 +3941,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
 
@@ -5339,15 +5339,27 @@ Public Class frmStartOptions
         showPic(ok, PictureBox25)
     End Sub
 
-    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked
+    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked
+
+        Dim iso2Laneder = ""
+
+        Select Case sender.Name
+            Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
+            Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
+
+        End Select
 
-        Dim iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Dim dtiso2Laneder As DataTable = SQL.loadDgvBySql(iso2Laneder, "FMZOLL")
 
         If dtiso2Laneder.Rows.Count > 0 Then
             For Each r As DataRow In dtiso2Laneder.Rows
-                SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
+                Select Case sender.Name
+                    Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
+                    Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
+                End Select
+
+
             Next
             MsgBox("alle Länder gesetzt!")
         Else