API-Filter, Sendungsdetails, etc.

This commit is contained in:
2026-07-22 10:38:00 +02:00
parent df3bf73963
commit 549f1e8dd4
2 changed files with 10 additions and 6 deletions

View File

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

View File

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