Update If bedingungen zur fallgenauen Unterscheidung

This commit is contained in:
ja
2021-09-20 14:18:07 +02:00
parent dee6f7a21f
commit 4b0bc6bc9d

View File

@@ -154,24 +154,28 @@ Partial Class Kundenbereich_Default
Kdnrtext = Session.Item("CustomerID").ToString Kdnrtext = Session.Item("CustomerID").ToString
dt = Nothing dt = Nothing
If txt_Absender.Text IsNot "" Or txt_Absender_M.Text IsNot "" Then If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Absender = txt_Absender.Text Absender = txt_Absender.Text
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled ElseIf txt_Empfaenger.Text IsNot "" Then
Absender = txt_Absender_M.Text
ElseIf txt_Empfaenger.Text IsNot "" Or txt_Empfaenger_M.Text IsNot "" Then
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Empfaenger = txt_Empfaenger.Text Empfaenger = txt_Empfaenger.Text
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled ElseIf txt_KdNrAuftrag.Text IsNot "" Then
Empfaenger = txt_Empfaenger_M.Text
ElseIf txt_KdNrAuftrag.Text IsNot "" Or txt_KdNrAuftrag_M.Text IsNot "" Then
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
KDNAFNR = txt_KdNrAuftrag.Text KDNAFNR = txt_KdNrAuftrag.Text
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled ElseIf txt_LKWNr.Text IsNot "" Then
KDNAFNR = txt_KdNrAuftrag_M.Text
ElseIf txt_LKWNr.Text IsNot "" Or txt_LKWNr_M.Text IsNot "" Then
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
LKWNR = txt_LKWNr.Text LKWNR = txt_LKWNr.Text
ElseIf txt_Absender_M.Text IsNot "" Then
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Absender = txt_Absender_M.Text
ElseIf txt_Empfaenger_M.Text IsNot "" Then
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Empfaenger = txt_Empfaenger_M.Text
ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
KDNAFNR = txt_KdNrAuftrag_M.Text
ElseIf txt_LKWNr_M.Text IsNot "" Then
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
LKWNR = txt_LKWNr_M.Text LKWNR = txt_LKWNr_M.Text
End If End If