' EnableDuplicateChecker_InputControls ' ---------------------------------------------------------------------------- ' Diese Subroutine aktiviert sämtliche Eingabefelder auf einem Level. ' Parameter 1 (LEVEL) = Das aktuelle Showlevel übergeben. ' Parameter 2 (CTRLType)= "Static" aktiviert pauschal, "dynamic" aktiviert anhand anderer Laufzeitvariablen. ' ' ---------------------------------------------------------------------------- ' Copyright (c) 2021 by Digital Data GmbH ' ' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim ' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works ' ---------------------------------------------------------------------------- ' Creation Date / Author: 01.11.2021 / MK ' Version Date / Editor: 01.11.2021 / MK ' Version Number: 1.0.0.0 Sub EnableDuplicateChecker_InputControls(LEVEL,CTRLType) If ((LEVEL = 1) or (LEVEL = "1")) and (CTRLType = "static") Then LEVEL1_CMB_ProductComparisonField.Active = True LEVEL1_CHK_ProductIdentAndCharge.Active = True ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then LEVEL2_CMB_AccountComparisonField.Active = True LEVEL2_CHK_AccountNotOnlyCustomers.Active = True End if End Sub