Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/frmEintragAviso.vb

@@ -97,11 +97,22 @@ Public Class frmEintragAviso
         kdAvisierer.initKdBox(Me)
         kdAuftraggeber.initKdBox(Me)
 
+
+        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("", ""))
         cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
@@ -271,12 +282,12 @@ 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")
+            '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
@@ -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