From 1d18f8dcca43805af53d08ef80af023254d9ed4e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 8 Nov 2022 08:26:01 +0100 Subject: [PATCH] PosNr bei Gesamtsicherheiten, FO-Webservice --- .../Finanzonline/cFinanzOnlineWebService.vb | 2 +- VERAG_PROG_ALLGEMEIN/cSicherheiten.vb | 15 ++++++++++++++- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb index 16c2228e..2f8990cd 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb @@ -89,7 +89,7 @@ Public Class cFinanzOnlineWebService - Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode) As VERAG_PROG_ALLGEMEIN.cUIDPruefung + Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung Dim AD As New cAdressen(ba_KundenNr) If AD IsNot Nothing Then If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 13103990..9dd079e0 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -98,6 +98,19 @@ Public Class cSicherheiten + Public Function UPDATEWithNewPosNr() As Integer + + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN " & getUpdateCmd() & " END " + + gs_gsId = SQL.doSQLVarListID(gs_gsId, sqlstr, "AVISO", , List) + Return gs_gsId + End Function + + + + Public Sub LOAD() Try hasEntry = False @@ -170,7 +183,7 @@ Public Class cSicherheiten End If Next str = str.Substring(0, str.Length - 1) 'wg. ',' - Return (" UPDATE [tblGesamtsicherheit] SET " & str & " WHERE gs_gsId=@gs_gsId AND gs_posNr=@gs_posNr ") + Return (" UPDATE [tblGesamtsicherheit] SET " & str & " WHERE gs_gsId=@gs_gsId") ' AND gs_posNr=@gs_posNr ") Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)