From 9d9fc2ed8d3ec03a312723cb3bab2e86120cc536 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 19 May 2023 14:41:58 +0200
Subject: [PATCH] Fiskaluebersicht

---
 Aviso/Aviso.vbproj             | 2 +-
 Aviso/frmSendungsdetailsNEU.vb | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

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 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
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