From dcb3cea10e5177f051e371e7af6f79e01485c06e Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 21 Oct 2020 07:41:36 +0200 Subject: [PATCH] neu --- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 1 - .../Benutzerdefinierte Steuerelemente/KdSearchBox.vb | 8 ++++++++ .../Classes/Berechtigungen/cBerechtignunen.vb | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index f0d55407..f4774a80 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -686,7 +686,6 @@ Public Class usrcntlKundeBearbeitenFull cboFiliale.changeItem("5601") Case "AMBAR" cboFiliale.changeItem("5701") - MsgBox("AMBAR") Case "ATILLA" cboFiliale.changeItem("4801") Case Else diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb index 16b56633..1a51cd36 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb @@ -345,6 +345,10 @@ Public Class KdSearchBox SQLstr &= " ) " End If + 'AUSNAHME BIS BESSERE LÖSUNG: + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + SQLstr &= " and Filialen.Firma NOT IN ('AMBAR') " + End If 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine @@ -429,6 +433,10 @@ Public Class KdSearchBox End If + 'AUSNAHME BIS BESSERE LÖSUNG: + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then + SQLstr &= " and Filialen.Firma NOT IN ('AMBAR') " + End If If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'" SQLstr &= " order by Ordnungsbegriff " diff --git a/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb b/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb index 96314138..c50082f0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb @@ -24,7 +24,7 @@ Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0) Catch ex As Exception - MsgBox(Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) + MsgBox("BERECHTIGUNGSERR: " & Berechtigung_Bezeichnung & vbNewLine & vbNewLine & ex.Message & vbNewLine & ex.StackTrace) Return False End Try End Function