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

TimasAPI, Uberstunden, Mailvorlagen, etc,

Browse Source
This commit is contained in:
d.breimaier
2024-04-24 11:09:58 +02:00
parent a7371e22ae
commit 41a236ad45
12 changed files with 323 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
VERAG_PROG_ALLGEMEIN/Classes/Berechtigungen/cBerechtigungsObjekte.vb
View File

@@ -13,8 +13,8 @@ Public Class cBerechtigungsObjekte_List
LOAD_LIST()
End Sub
Sub New(progID)
LOAD_LIST(progID)
Sub New(progID, searchparam)
LOAD_LIST(progID, searchparam)
End Sub
Public Sub CLEAR()
@@ -54,11 +54,11 @@ Public Class cBerechtigungsObjekte_List
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Sub LOAD_LIST(bero_progId)
Public Sub LOAD_LIST(bero_progId, searchparam)
Try
LIST.Clear()
Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId", conn)
Using cmd As New SqlCommand("SELECT * FROM tblBerechtigungsObjekte WHERE bero_progId=@bero_progId" & searchparam, conn)
cmd.Parameters.AddWithValue("@bero_progId", bero_progId)
Dim dr = cmd.ExecuteReader()
While dr.Read