From 7314f1c5dbf07baa6cb03bddfa7de2360a552ebc Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 31 Oct 2022 15:46:26 +0100 Subject: [PATCH 1/2] =?UTF-8?q?UID-Pr=C3=BCfung:=20internal=20ErrorCode=20?= =?UTF-8?q?=3D=20-99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 2 +- .../Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index 18720d4d..420f3488 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -187,7 +187,7 @@ Public Class cUIDPruefung counter += 1 - Dim errorCode = 0 + Dim errorCode = -99 Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode) If UID_TMP IsNot Nothing Then If UID_TMP.uid_valid Then diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb index 2f8990cd..16c2228e 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 = 0) 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) 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 From 1d18f8dcca43805af53d08ef80af023254d9ed4e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 8 Nov 2022 08:26:01 +0100 Subject: [PATCH 2/2] 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)