diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 57ab87b..784ddd6 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.8.5.0")>
-<Assembly: AssemblyFileVersion("3.8.5.0")>
+<Assembly: AssemblyVersion("3.8.5.2")>
+<Assembly: AssemblyFileVersion("3.8.5.2")>
diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb
index 7b18c2a..17d9d8f 100644
--- a/Aviso/frmEintragAviso.vb
+++ b/Aviso/frmEintragAviso.vb
@@ -97,10 +97,21 @@ Public Class frmEintragAviso
         kdAvisierer.initKdBox(Me)
         kdAuftraggeber.initKdBox(Me)
 
-        cboGrenzstelle.Items.Clear()
-        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
-        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
-        cboGrenzstelle.changeItem("")
+
+        Select Case FIRMA_TMP
+            Case "ATILLA"
+                cboGrenzstelle.Items.Clear()
+                cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Grenzstelle] IN ('SUB','NEU') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
+                cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+                'cboGrenzstelle.changeItem("")
+
+            Case Else
+                cboGrenzstelle.Items.Clear()
+                cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
+                cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+                cboGrenzstelle.changeItem("")
+
+        End Select
 
         cboTransportmittelart.Items.Clear()
         cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -270,29 +281,29 @@ Public Class frmEintragAviso
 
 
         If FIRMA_TMP = "ATILLA" Then
-                cbxFrächterUnbekannt.Visible = True
-                cboGrenzstelle.Visible = False
-                lblGrenze.Visible = False
-                grpAktVerzollung.Visible = False
-                cbxSendungsvorlagen.Visible = False
-                Button3.Visible = False
-                cboGrenzstelle.changeItem("SUB")
-                cbxAuftraggeberfurAlleSendungen.Visible = False
-                If ATILLA_NEUERAKTENDECKEL Then
-                    UsrCntlEintragAvisoAtilla.Visible = True
-                    lblAenderungen.Visible = False
-                    txtÄnderungen.Visible = False
-                    cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
-
-                End If
-
-                lblAtr.Visible = True
-                kdAuftraggeber.Visible = True
-                btnAuftraggeber.Visible = True
-                lblAtrAvis.Visible = True
+            cbxFrächterUnbekannt.Visible = True
+            grpAktVerzollung.Visible = False
+            cbxSendungsvorlagen.Visible = False
+            Button3.Visible = False
+            'lblGrenze.Visible = False
+            '  cboGrenzstelle.Visible = False
+            cboGrenzstelle.changeItem(If(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "SUB"))
+            cbxAuftraggeberfurAlleSendungen.Visible = False
+            If ATILLA_NEUERAKTENDECKEL Then
+                UsrCntlEintragAvisoAtilla.Visible = True
+                lblAenderungen.Visible = False
+                txtÄnderungen.Visible = False
+                cbxAktenzettelDrucken.Visible = True ': cbxAktenzettelDrucken.Checked = True --> checked, wenn ohne AVISO
 
             End If
-            Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
+
+            lblAtr.Visible = True
+            kdAuftraggeber.Visible = True
+            btnAuftraggeber.Visible = True
+            lblAtrAvis.Visible = True
+
+        End If
+        Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
 
         If cGlobal.Aktive_ID = 0 Then
             'es erfolgt eine Neuanlage
@@ -315,7 +326,7 @@ Public Class frmEintragAviso
                     cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
                 End If
             End If
-            If FIRMA_TMP = "ATILLA" Then
+            If FIRMA_TMP = "AMBAR" Then
                 cboGrenzstelle.changeItem("AMB")
             End If
         Else