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

PosNr bei Gesamtsicherheiten, FO-Webservice

Browse Source
This commit is contained in:
d.breimaier
2022-11-08 08:26:01 +01:00
parent 96743b8d6c
commit 1d18f8dcca
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb
View File

@@ -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) Dim AD As New cAdressen(ba_KundenNr)
If AD IsNot Nothing Then If AD IsNot Nothing Then
If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then

15
VERAG_PROG_ALLGEMEIN/cSicherheiten.vb
View File

@@ -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() Public Sub LOAD()
Try Try
hasEntry = False hasEntry = False
@@ -170,7 +183,7 @@ Public Class cSicherheiten
End If End If
Next Next
str = str.Substring(0, str.Length - 1) 'wg. ',' 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 Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)