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

Änderungen Fiskalübersicht und Creditsafe

Browse Source
This commit is contained in:
d.breimaier
2023-05-26 15:55:53 +02:00
parent a508c89c3a
commit c0ebab418b
6 changed files with 247 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
View File

@@ -52,7 +52,7 @@ Public Class cFiskalkundenAnhaenge
Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
ANH_LIST.Clear()
Dim SQL As New SQL
Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " And fka_Art = " & fka_Art & " ORDER BY fka_Datum desc", "AVISO")
Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " And fka_Art = '" & fka_Art & "'" & " ORDER BY fka_Datum desc", "AVISO")
If dgv IsNot Nothing Then
For Each r In dgv.Rows
@@ -145,12 +145,12 @@ Public Class cFiskalkundenAnhaenge
End Function
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_id=" & Me.fka_id
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WHERE fka_id=" & fka_id
Return SQL.doSQL(sqlstr, "AVISO")
End Function
Public Function DELETEALL(fka_KdNr As Integer, fka_fkId As Integer) As Boolean
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_KdNr=" & Me.fka_KdNr & " and fka_fkId=" & Me.fka_fkId
Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " and fka_fkId=" & fka_fkId
Return SQL.doSQL(sqlstr, "AVISO")
End Function