From 549f1e8dd4b4137126396534b22bfbd50e6f3ca3 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 22 Jul 2026 10:38:00 +0200
Subject: [PATCH] API-Filter, Sendungsdetails, etc.

---
 Aviso/My Project/AssemblyInfo.vb |  4 ++--
 Aviso/frmSendungsdetailsNEU.vb   | 12 ++++++++----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 4f808af..a85e36e 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.9.7")>
-<Assembly: AssemblyFileVersion("4.2.9.7")>
+<Assembly: AssemblyVersion("4.2.9.8")>
+<Assembly: AssemblyFileVersion("4.2.9.8")>
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 5e4f637..e74b133 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -148,6 +148,7 @@ Public Class frmSendungsdetailsNEU
         loadDataInLIST()
 
         doVeranlagungsValidation()
+
         If VALIDATE_ME() Then
 
             SAVE_ME = True
@@ -296,7 +297,6 @@ Public Class frmSendungsdetailsNEU
                 'End If
                 If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
 
-
                     If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then
                         Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!"
                         rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
@@ -2884,18 +2884,22 @@ Public Class frmSendungsdetailsNEU
             Case "44"
                 pnlT1.Controls.Add(usrcntl_ATB)
 
-                cboVorpapier._value = ""
-                cboVorpapier2._value = ""
-                cboVorpapier3._value = ""
+                cboVorpapier.changeItem("")
+                cboVorpapier2.changeItem("")
+                cboVorpapier3.changeItem("")
+
                 txtVorpapierPos.Text = ""
                 txtVorpapier2Pos.Text = ""
                 txtVorpapier3Pos.Text = ""
+
                 cboVorpapier.Enabled = False
                 cboVorpapier2.Enabled = False
                 cboVorpapier3.Enabled = False
+
                 txtVorpapierPos.Enabled = False
                 txtVorpapier2Pos.Enabled = False
                 txtVorpapier3Pos.Enabled = False
+
         End Select