API-Filter, Sendungsdetails, etc.
This commit is contained in:
@@ -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")>
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user