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

UID Pruef 1x/Min, Aviso Anhänge markierte drucken

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-09-08 13:46:04 +02:00
parent c00c728c4d
commit ca264eee57
4 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb
View File

@@ -15,6 +15,7 @@ Public Class cAvisoAnhaenge
Property anh_markiert As Boolean = False
Property anh_size As Double
Property anh_cmrId As Integer
Property anh_MarkierungDruck As Boolean = False
Public hasEntry As Boolean = False
@@ -66,6 +67,7 @@ Public Class cAvisoAnhaenge
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_markiert", anh_markiert))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_size", anh_size))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_cmrId", anh_cmrId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_MarkierungDruck", anh_MarkierungDruck))
Return list
End Function
@@ -191,4 +193,9 @@ Public Class cAvisoAnhaenge
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
End Function
Public Shared Function toggleMarkiereDruck(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_MarkierungDruck] = 1 - [anh_MarkierungDruck] WHERE anh_id=" & id
Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO")
End Function
End Class