From 42808b5d259f8002a29751d763f5e20ae873c199 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 2 Sep 2026 08:33:37 +0200 Subject: [PATCH] SPedbuch --- .../usrCntlSpeditionsBuchSuche.vb | 22 ++++++++++++------- 1 file changed, 14 insertions(+), 8 deletions(-) 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