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

UID und EORI markierbar

Browse Source
This commit is contained in:
d.breimaier
2024-01-08 16:37:40 +01:00
parent ee5055cd85
commit 2a895d0946
3 changed files with 40 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -714,16 +714,16 @@ Public Class frmSendungsdetailsNEU
Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox)
btnEORIPruef.Visible = False
btnUIDPruef.Visible = False
lblUID_Pruef.Text = "-"
lbleori_Pruef.Text = "-"
txtUIDPruef.Text = "-"
txteori_Pruef.Text = "-"
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, "")
txteori_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
lblUID_Pruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr
txtUIDPruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr
btnUIDPruef.Visible = True
End If
End If
@@ -4507,10 +4507,10 @@ Public Class frmSendungsdetailsNEU
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
Me.Cursor = Cursors.WaitCursor
Try
If lblUID_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
If txtUIDPruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
Dim UID_ERG As Integer = -1
Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(lblUID_Pruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG)
Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(txtUIDPruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG)
btnUIDPruef.BackgroundImage = My.Resources.fragezeichen
Select Case UID_ERG
@@ -4539,7 +4539,7 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.WaitCursor
Try
Dim EORI_NR = lbleori_Pruef.Text.Replace("-", "").Replace(" ", "").Trim
Dim EORI_NR = txteori_Pruef.Text.Replace("-", "").Replace(" ", "").Trim
If EORI_NR = "" Then Me.Cursor = Cursors.Default : Exit Sub
@@ -6606,4 +6606,5 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
End Class