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

API-Filter, Sendungsdetails, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-22 10:38:00 +02:00
parent df3bf73963
commit 549f1e8dd4
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.9.7")> <Assembly: AssemblyVersion("4.2.9.8")>
<Assembly: AssemblyFileVersion("4.2.9.7")> <Assembly: AssemblyFileVersion("4.2.9.8")>

12
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -148,6 +148,7 @@ Public Class frmSendungsdetailsNEU
loadDataInLIST() loadDataInLIST()
doVeranlagungsValidation() doVeranlagungsValidation()
If VALIDATE_ME() Then If VALIDATE_ME() Then
SAVE_ME = True SAVE_ME = True
@@ -296,7 +297,6 @@ Public Class frmSendungsdetailsNEU
'End If 'End If
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then If Not IsValid18AlphaNumericCode(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1) Then
Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!" Dim err = "T1/Vorpapier nicht korrekt (18-stellig)!"
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
@@ -2884,18 +2884,22 @@ Public Class frmSendungsdetailsNEU
Case "44" Case "44"
pnlT1.Controls.Add(usrcntl_ATB) pnlT1.Controls.Add(usrcntl_ATB)
cboVorpapier._value = "" cboVorpapier.changeItem("")
cboVorpapier2._value = "" cboVorpapier2.changeItem("")
cboVorpapier3._value = "" cboVorpapier3.changeItem("")
txtVorpapierPos.Text = "" txtVorpapierPos.Text = ""
txtVorpapier2Pos.Text = "" txtVorpapier2Pos.Text = ""
txtVorpapier3Pos.Text = "" txtVorpapier3Pos.Text = ""
cboVorpapier.Enabled = False cboVorpapier.Enabled = False
cboVorpapier2.Enabled = False cboVorpapier2.Enabled = False
cboVorpapier3.Enabled = False cboVorpapier3.Enabled = False
txtVorpapierPos.Enabled = False txtVorpapierPos.Enabled = False
txtVorpapier2Pos.Enabled = False txtVorpapier2Pos.Enabled = False
txtVorpapier3Pos.Enabled = False txtVorpapier3Pos.Enabled = False
End Select End Select