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

10
VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
View File

@@ -44,7 +44,7 @@ Public Class cTextkonserve_LIST
Try
SPRACHENLIST.Clear()
For Each r In SQL.loadDgvBySql("Select distinct(txt_sprache) FROM [tblTextkonserve] WHERE txt_FIRMA = '" & txt_FIRMA & "' order by txt_sprache", "FMZOLL").Rows
For Each r In SQL.loadDgvBySql("Select distinct(txt_sprache) FROM [tblTextkonserve] WHERE txt_FIRMA = '" & txt_FIRMA & "' and txt_dynMailvorlage = 1 order by txt_sprache", "FMZOLL").Rows
SPRACHENLIST.Add(r("txt_sprache"))
Next
@@ -71,6 +71,11 @@ Public Class cTextkonserve
Property txt_letzteAenderungUser As String
Property txt_letzteAenderung As DateTime
Property txt_sendungsvermerk As Boolean
Property txt_sendungsvermerkId As Integer
Property txt_sendungsvermerkText As String
Public hasEntry As Boolean = False
@@ -110,6 +115,9 @@ Public Class cTextkonserve
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_dynMailvorlage", txt_dynMailvorlage))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderungUser", txt_letzteAenderungUser))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderung", txt_letzteAenderung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerk", txt_sendungsvermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkId", txt_sendungsvermerkId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_sendungsvermerkText", txt_sendungsvermerkText))
Return list
End Function