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

Mahnungen, Ust-Antrag, Kundenuebersicht, EORI, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-06-05 11:51:52 +02:00
parent 9dc2d9f29e
commit 2ac6eed7ae
16 changed files with 276 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Classes/cEORIPruefung.vb
View File

@@ -12,6 +12,9 @@ Public Class cEORIPruefung
Property eori_sendungsid As Object = Nothing
Property eori_firma As Object = Nothing
Property eori_sachbearbeiter As Object = Nothing
Property eori_sessionID As Object = Nothing
Property eori_AvisoID As Object = Nothing
Property eori_Nr As Object = Nothing
Public hasEntry = False
@@ -35,6 +38,9 @@ Public Class cEORIPruefung
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sendungsid", eori_sendungsid))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_firma", eori_firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sachbearbeiter", eori_sachbearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_sessionID", eori_sessionID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_AvisoID", eori_AvisoID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_Nr", eori_Nr))
Return list
End Function

20
SDL/Classes/cEORIWebService.vb
View File

@@ -131,10 +131,10 @@ Public Class cEORIWebService
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
Firma = EORI_ERG.Result(0).Name & vbNewLine
Firma &= EORI_ERG.Result(0).Street & vbNewLine
Firma = EORI_ERG.Result(0).Name & " "
Firma &= EORI_ERG.Result(0).Street & " "
Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City
Firma = Firma.Trim
Firma = Firma
EORI_ERGInt = EORI_ERG.Result(0).Status
Select Case EORI_ERG.Result(0).Status
@@ -142,7 +142,7 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(KdNr, SendungsId, EORI_ERG)
setEORIEntry(KdNr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, EORI_ERG.Result(0).Eori)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
@@ -196,10 +196,10 @@ Public Class cEORIWebService
If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then
Firma = EORI_ERG.Result(0).Name & vbNewLine
Firma &= EORI_ERG.Result(0).Street & vbNewLine
Firma = EORI_ERG.Result(0).Name & " " & vbNewLine
Firma &= EORI_ERG.Result(0).Street & " " & vbNewLine
Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City
Firma = Firma.Trim
'Firma = Firma.Trim
EORI_ERGInt = EORI_ERG.Result(0).Status
Select Case EORI_ERG.Result(0).Status
@@ -207,7 +207,7 @@ Public Class cEORIWebService
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
setEORIEntry(kdnr, SendungsId, EORI_ERG)
setEORIEntry(kdnr, SendungsId, AvisoId, EORI_ERG, tmp_SESSION_ID, txtEORI)
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId)
@@ -228,7 +228,7 @@ Public Class cEORIWebService
End Function
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, EORI_ERG As EoriResponseModel)
Shared Sub setEORIEntry(kdnr As Integer, SendungsID As Integer, avisoID As Integer, EORI_ERG As EoriResponseModel, tmp_SESSION_ID As String, txtEORI As String)
Dim EORIPruefung = New cEORIPruefung()
Dim kdErw = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
@@ -246,6 +246,8 @@ Public Class cEORIWebService
EORIPruefung.eori_sendungsid = SendungsID
EORIPruefung.eori_firma = (EORI_ERG.Result(0).Name & EORI_ERG.Result(0).Street & EORI_ERG.Result(0).Country & EORI_ERG.Result(0).PostalCode & EORI_ERG.Result(0).City).Trim
EORIPruefung.eori_sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
EORIPruefung.eori_sessionID = tmp_SESSION_ID
EORIPruefung.eori_AvisoID = avisoID
EORIPruefung.SAVE()
End Sub