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

RPT

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-08-14 12:47:08 +02:00
parent 801924c221
commit 2f996886a7
247 changed files with 78292 additions and 183 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
VERAG_PROG_ALLGEMEIN/AuditFlow/Classes/cAuditFlow_Pruefobjekte.vb
View File

@@ -11,7 +11,7 @@ Public Class cAuditFlow_Pruefobjekte
Public Property wartPO_Kategorie As String
Public Property wartPO_Firma As String
Public Property wartPO_Niederlasung As String
Public Property wartPO_Standort As String
Public Property wartPO_StandortId As Integer
Public Property wartPO_Aktiv As Boolean = True
Public Property wartPO_IntervallTyp As String ' VARCHAR(30)
Public Property wartPO_IntervallWert As Nullable(Of Integer) ' NULL
@@ -58,7 +58,7 @@ Public Class cAuditFlow_Pruefobjekte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Kategorie", wartPO_Kategorie))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Firma", wartPO_Firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Niederlasung", wartPO_Niederlasung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Standort", wartPO_Standort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_StandortId", wartPO_StandortId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Aktiv", wartPO_Aktiv))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_IntervallTyp", wartPO_IntervallTyp))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_IntervallWert", wartPO_IntervallWert))
@@ -166,6 +166,27 @@ Public Class cAuditFlow_Pruefobjekte
Return ""
End Try
End Function
Private Function DELETE_ALL_OPEN_FAELLIGE() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim setParts As New List(Of String)
For Each i In list
If Not i.isPrimaryParam Then
setParts.Add("[" & i.Text & "]=@" & i.Scalarvariable)
End If
Next
Dim setClause As String = String.Join(",", setParts)
Return "UPDATE [tblAuditFlow_Pruefobjekte] SET " & setClause & " WHERE [wartPO_Id]=@wartPO_Id"
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return ""
End Try
End Function
Public Shared Function LoadAllAktiv() As List(Of cAuditFlow_Pruefobjekte)
Dim result As New List(Of cAuditFlow_Pruefobjekte)