diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index e7262cf7..3337a11d 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -577,18 +577,24 @@ Public Class usrCntlSpeditionsBuchSuche Button16.Visible = True Button17.Visible = True btnnachLeistungsNr.Visible = True - ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then - pnlBerichte.Visible = True - For Each p In pnlBerichte.Controls - p.Visible = False - Next - cbxHandlingAbrechnen.Visible = True - pnlHandling.Visible = False - pnlHandlingAmbar.Visible = True + + 'darf nur angezeigt werden, wenn Berechtigung: ZOLL_Auswertungen + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then + pnlBerichte.Visible = True + For Each p In pnlBerichte.Controls + p.Visible = False + Next + cbxHandlingAbrechnen.Visible = True + pnlHandling.Visible = False + pnlHandlingAmbar.Visible = True + + End If End If + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen_Erlöse", "SDL") Then btnSpedBuchEinnahmen.Visible = True End If