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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-11-19 14:45:28 +01:00
parent f4813a04a9
commit 50df683d3b
85 changed files with 10521 additions and 1508 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
VERAG_PROG_ALLGEMEIN/Classes/cOffene_Posten.vb
View File

@@ -42,7 +42,8 @@ Public Class cOffene_Posten
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID, , True, True))
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID, , True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OP_ID", OP_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontonummer", Kontonummer))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kontoname", Kontoname))
@@ -88,6 +89,13 @@ Public Class cOffene_Posten
End Function
Public Function INSERT() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
OP_ID = SQL.doSQLVarListID(OP_ID, getInsertCmd(), "FMZOLL", , list)
Return OP_ID > 0
End Function
Public Sub LOAD()
Try