edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-21 07:41:36 +02:00
parent 00cd158bf0
commit dcb3cea10e
3 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -686,7 +686,6 @@ Public Class usrcntlKundeBearbeitenFull
cboFiliale.changeItem("5601") cboFiliale.changeItem("5601")
Case "AMBAR" Case "AMBAR"
cboFiliale.changeItem("5701") cboFiliale.changeItem("5701")
MsgBox("AMBAR")
Case "ATILLA" Case "ATILLA"
cboFiliale.changeItem("4801") cboFiliale.changeItem("4801")
Case Else Case Else

8
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb
View File

@@ -345,6 +345,10 @@ Public Class KdSearchBox
SQLstr &= " ) " SQLstr &= " ) "
End If 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 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then 'Keine
@@ -429,6 +433,10 @@ Public Class KdSearchBox
End If 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%'" If Not _displayWoelflKd Then SQLstr &= " AND AdressenNr NOT LIKE '15%'"
SQLstr &= " order by Ordnungsbegriff " SQLstr &= " order by Ordnungsbegriff "

2
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtignunen.vb
View File

@@ -24,7 +24,7 @@
Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER Dim prog = ME_Form.GetType.Module.Name.Replace(".exe", "") 'FEHLER
Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0) Return (CHECK_BERECHTIGUNG(Berechtigung_Bezeichnung, prog) = 0)
Catch ex As Exception 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 Return False
End Try End Try
End Function End Function