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

MDM USTVA reorder Position

Browse Source
This commit is contained in:
d.breimaier
2025-02-07 11:52:04 +01:00
parent 0af96e5582
commit 7223ee1e98
4 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb
View File

@@ -356,6 +356,7 @@ Public Class cUStVPositionen
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
@@ -424,7 +425,7 @@ Public Class cUStVPositionen
Public Function DELETE(UStVAn_ID, UStVPo_ID) As Boolean
Dim sqlstr = " DELETE FROM tblUStVPositionen WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID & " AND UStVPo_ID=" & Me.UStVPo_ID
Dim sqlstr = " DELETE FROM tblUStVPositionen WHERE UStVAn_ID=" & Me.UStVAn_ID & " AND UStVPo_ID=" & Me.UStVPo_ID
Return SQL.doSQL(sqlstr, "FMZOLL")
End Function