neu

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

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 "

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