diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb index a4b70ab..346644b 100644 --- a/Aviso/frmEintragAviso.vb +++ b/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