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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-05-24 22:23:21 +02:00
parent 06109e547b 9d9fc2ed8d
commit 9f34befdea
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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