diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index d72adfb..c68bfbc 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -108,7 +108,7 @@
x64
- Aviso_TemporaryKey.pfx
+ LME.pfx
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 4b66dac..7348007 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -26,6 +26,7 @@ Public Class frmSendungsdetailsNEU
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FormularArt = ""
Dim loaded = False
+ Dim kdnrEORI As Integer = -1
Dim usrcntl_NCTS As usrCntlSND_NCTSGestellungsadresse
Dim usrcntl_FISKAL As usrCntlSND_NCTSFiskalEndempf
@@ -686,6 +687,7 @@ Public Class frmSendungsdetailsNEU
If kdSB IsNot Nothing Then
If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then
lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN ' & If(kdSB.KdData_KUNDE.EORITIN_NL, "")
+ kdnrEORI = kdSB.KdData_KUNDE.KundenNr
btnEORIPruef.Visible = True
End If
If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then
@@ -4489,7 +4491,7 @@ Public Class frmSendungsdetailsNEU
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim EORI_ERG As Integer = -1
- Dim path = SDL.cEORIWebService.genEORI_Formular(EORI_NR, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, EORI_ERG)
+ Dim path = SDL.cEORIWebService.genEORI_Formular(kdnrEORI, EORI_NR, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, EORI_ERG)
btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
Select Case EORI_ERG