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

201020

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-20 09:03:00 +02:00
parent 75b12f314d
commit 00cd158bf0
54 changed files with 11763 additions and 323 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
SDL/Classes/cFinanzOnlineWebService.vb
View File

@@ -15,6 +15,13 @@ Public Class cFinanzOnlineWebService
'Shared pin As String = "webserv99"
'Shared uid As String = "ATU53187000"
' 'VERAG CS:
'Shared tid As String = "19379933"
'Shared benid As String = "WEBserv99"
'Shared pin As String = "WEBserv99"
'Shared uid As String = "XXXX"
''FRONT-Office:
'Shared tid As String = "67493371k039"
'Shared benid As String = "WEBserv99"
@@ -45,10 +52,14 @@ Public Class cFinanzOnlineWebService
pin = "WEBserv99"
uid = "ATU74813856"
Case Else 'VERAG:
tid = "1000103u3032"
benid = "webserv99"
pin = "webserv99"
tid = "13390891m005"
benid = "WEBserv99"
pin = "WEBserv99"
uid = "ATU53187000"
'tid = "1000103u3032"
'benid = "webserv99"
'pin = "webserv99"
'uid = "ATU53187000"
End Select
End Sub
@@ -59,8 +70,7 @@ Public Class cFinanzOnlineWebService
Dim rc = ""
Dim msg = ""
SESSION_ID = CallWebService.login(tid, benid, pin, uid, rc, msg)
MsgBox("msg " & msg)
MsgBox(SESSION_ID)
Return rc
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -136,14 +146,14 @@ Public Class cFinanzOnlineWebService
End Function
Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
Try
Dim msgErgebnis = ""
Dim tmp_SESSION_ID = ""
Dim Firma = ""
Dim tmp_SESSION_ID = ""
Dim Firma = ""
Dim UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
If UID_ERG = 0 Or UID_ERG = 1 Then
Select Case UID_ERG
@@ -154,7 +164,7 @@ Public Class cFinanzOnlineWebService
Dim PdfTmp = SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId)
If PdfTmp <> "" Then
Dim fileName = txtUid & ".pdf"
Dim fileName = "UID_Prüfung_" & txtUid & ".pdf"
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UID_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtUid, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff")
If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
@@ -162,7 +172,7 @@ Public Class cFinanzOnlineWebService
Dim destPath = DS.GET_TOP1_PATH
If AvisoId > 0 And SendungsId > 0 Then
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "PDF", "UID", SendungsId)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId)
If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False
Dim anhId = ANH.anh_id
End If
@@ -177,13 +187,17 @@ Public Class cFinanzOnlineWebService
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return ""
End Function
Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "", Optional SaveErgInAdressenKdNr As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
initValues()
If Call_Web_Service_MethodUID_Login_NEU2020() <> 0 Then
MsgBox("FEHLER FO LOGIN")
Return -1
End If
tmp_SESSION_ID = SESSION_ID