ATBChecked

This commit is contained in:
2024-07-04 13:55:48 +02:00
parent 5375b5e04f
commit af86be82e6
2 changed files with 9 additions and 3 deletions

View File

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

View File

@@ -1500,7 +1500,11 @@ Public Class frmSendungsdetailsNEU
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Indeterminate
Else
usrcntl_ATB.cbxATBFakturieren.Checked = CBool(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren)
If CBool(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren) Then
usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Checked
Else
usrcntl_ATB.cbxATBFakturieren.CheckState = CheckState.Unchecked
End If
End If
pnlT1.Controls.Add(usrcntl_ATB)
@@ -3038,6 +3042,8 @@ Public Class frmSendungsdetailsNEU
Dim sperren = False
If cbxFremdspedition.Checked Then
sperren = True
ElseIf cboAbfertigungsart._value = "44" Then
sperren = False
Else
If cboFiliale._value <> "" Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA