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

Umstellung auf neuen Webservice bei PDF-Anzeige von UID-Prüfung

Browse Source
This commit is contained in:
d.breimaier
2022-11-08 10:57:18 +01:00
parent 3d99eb3bbe
commit ea01d6026b
3 changed files with 100 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
'Imports DocumentFormat.OpenXml.Drawing.Charts
Imports SDL.EORI
Imports sun.invoke.empty
@@ -1934,13 +1935,17 @@ Public Class usrCntlKundenuebersicht
If uid Is Nothing Then Exit Sub
If uidKz = "" Then Exit Sub
If uid = "" Then Exit Sub
Dim url = "http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
If pdf <> "" Then Process.Start(pdf)
Dim url = SDL.cFinanzOnlineWebService.genUID_FormularWithoutSaving(uidKz + uid)
'Dim url = "http://ec.europa.eu/taxation_customs/vies/vatResponse.html?memberStateCode=" & uidKz & "&number=" & uid & "&requesterMemberStateCode=" & uidKz_antragsteller & "&requesterNumber=" & uid_antragsteller ' alte SOAP-Abfrage!!!
If url <> "" Then
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
End If
End Sub
Sub printEORI(eoriNr, Optional pdfPath = "")
timer_EORI.Interval = 2000
If eoriNr Is Nothing Then Exit Sub
@@ -2355,9 +2360,20 @@ Public Class usrCntlKundenuebersicht
Me.Cursor = Cursors.WaitCursor
'printEORI(KUNDE.EORITIN, "C:\Users\DEVELOPER1\Desktop\test.pdf")
Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & KUNDE.EORITIN & "&Expand=true"
'Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & KUNDE.EORITIN & "&Expand=true"
Dim EORI_NR = KUNDE.EORITIN.ToString()
EORI_NR.Replace("-", "").Replace(" ", "").Trim
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim url = SDL.cEORIWebService.genEORI_Formular(EORI_NR)
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
If pdf <> "" Then Process.Start(pdf)
'If pdf <> "" Then Process.Start(pdf)
Me.Cursor = Cursors.Default
End Sub