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

Aviso/frmEintragAviso.vb

@@ -267,30 +267,32 @@ Public Class frmEintragAviso
 
         btnOK.Enabled = True
 
+
+
         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
+                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
+
             End If
-
-
-            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)
+            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
@@ -313,6 +315,9 @@ Public Class frmEintragAviso
                     cboGrenzstelle.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG)
                 End If
             End If
+            If FIRMA_TMP = "ATILLA" Then
+                cboGrenzstelle.changeItem("AMB")
+            End If
         Else
             Me.Text = "Änderung LKW-Aviso"
             'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
@@ -871,9 +876,9 @@ Public Class frmEintragAviso
             myAviso.Transportmittelart = cboTransportmittelart._value
 
 
-            If FIRMA_TMP = "AMBAR" Then
-                myAviso.Grenzstelle = "AMB"
-            End If
+            'If FIRMA_TMP = "AMBAR" Then
+            '    myAviso.Grenzstelle = "AMB"
+            'End If
 
 
             '  myAviso.Buero = cboGrenzstelle.Text