DataEntry dlg at the beginning closes at the end of the 1st test (at the latest)

TODO.txt

@@ -1,4 +1,3 @@
-- zdruzeny: vysledky na process obrazovke sa opakuju 3x
 - s/n sa nedostalo do vysledkov
 - oprava process obrazovky
 

TestBenchFramework/BenchControl/Sequences/MainSeq.cs

@@ -29,6 +29,8 @@ namespace TBF.BenchControl.Sequences
         /// <returns></returns>
 		public IList<Event> Execute(Entities.Test dummyArg)
         {
+			bool beginningDlgClosed = true;
+
 			/// Operations running in more then one state
             checkUiOp = new CheckUIOp(true);
 
@@ -209,19 +211,8 @@ namespace TBF.BenchControl.Sequences
 				case Event.UiCmdStop: goto stop;
 			}
 
-			//--------------------------------
+			if (OpenDataEntryBeginning()) goto stop;
-			GenericDevices.IDataEntry dataEntryCmpnt =
+			beginningDlgClosed = false;
-                TbfComponents.FindComponent(StateMachine.Procedure.DataEntry) as GenericDevices.IDataEntry;
-			if (dataEntryCmpnt is IHasCycleBeginForm)
-			{
-				Bridge.OnActivity(this, "Enter the water meter data");
-				State.Create("MainSeq : Enter begin data")
-					.AddPermanentOperation((dataEntryCmpnt as IHasCycleBeginForm).ShowCycleBeginFormOp(WaterMeters))
-					.AddOperation(checkUiOp)
-					.EnterState();
-				e = StateMachine.WaitRunDevsRunOps();
-				if (e.Contains(Event.UiCmdStop)) goto stop;
-			}
 
 		assume_bench_filled:
 
@@ -283,6 +274,12 @@ namespace TBF.BenchControl.Sequences
 						//--------------------------------------------------------------
 						e = testMethodSequence.Execute(test);
 
+						if (!beginningDlgClosed)
+						{
+							beginningDlgClosed = true;
+							if (OpenDataEntryBeginning()) goto stop;
+						}
+
 						if (e.Contains(Event.Error))		   goto error;
 						if (e.Contains(Event.OpArgumentError)) goto config_error;
 						if (e.Contains(Event.UiCmdStop))	   goto stop;
@@ -316,6 +313,12 @@ namespace TBF.BenchControl.Sequences
                     //--------------------------------------------------------------
 					e = testMethodSequence.Execute(test);
 
+					if (!beginningDlgClosed)
+					{
+						beginningDlgClosed = true;
+						if (OpenDataEntryBeginning()) goto stop;
+					}
+
 					if (e.Contains(Event.Error)) goto error;
 					if (e.Contains(Event.OpArgumentError)) goto config_error;
 					if (e.Contains(Event.UiCmdStop))	   goto stop;
@@ -340,37 +343,11 @@ namespace TBF.BenchControl.Sequences
 
 			//--------------------------------
 			string protocolTitle = string.Empty;
-			dataEntryCmpnt = TbfComponents.FindComponent(StateMachine.Procedure.DataEntry) as GenericDevices.IDataEntry;
+			GenericDevices.IDataEntry dataEntryCmpnt = TbfComponents.FindComponent(StateMachine.Procedure.DataEntry) as GenericDevices.IDataEntry;
 			if (dataEntryCmpnt != null)
 			{
 				Bridge.OnActivity(this, "Enter the protocol data");
 
-                if (dataEntryCmpnt is IHasCycleBeginForm)
-                {
-                    if (!State.LastEvents.Contains(Event.ModelessFormClosed))
-                    {
-                        /// Wait until modeless dialg is closed
-                        State.Create("MainSeq : Check whether the entry form is closed")
-                            .AddOperation(checkUiOp)
-                            .EnterState();
-                        do
-                        {
-                            e = StateMachine.WaitRunDevsRunOps();
-                            if (e.Contains(Event.UiCmdStop)) goto stop;
-                        }
-                        while (!e.Contains(Event.ModelessFormClosed));
-                    }
-
-				    /// A state without any dataEntryCmpnt operation so that Stop() when entering
-				    /// this state and Start() when entering the following state are executed.
-				    State.Create("MainSeq : Nothing")
-					    .AddOperation(checkUiOp)
-					    .RemovePermanentOperation(dataEntryCmpnt as IOperation)
-					    .EnterState();
-				    e = StateMachine.WaitRunDevsRunOps();
-				    if (e.Contains(Event.UiCmdStop)) goto stop;
-                }
-
                 if (dataEntryCmpnt is IHasCycleEndForm)
                 {
                     /// Open the modeless form for the end of the cycle
@@ -715,6 +692,65 @@ namespace TBF.BenchControl.Sequences
             while (true) StateMachine.WaitRunDevsRunOps();
         }
 
+		/// <summary>
+		/// Opens a modeless dialog for entering data at the beginning of a procedure (serial numbers)
+		/// </summary>
+		/// <returns>false = OK, true = stop pressed</returns>
+		bool OpenDataEntryBeginning()
+		{
+			IList<Event> e;
+			GenericDevices.IDataEntry dataEntryCmpnt =
+				TbfComponents.FindComponent(StateMachine.Procedure.DataEntry) as GenericDevices.IDataEntry;
+			if (dataEntryCmpnt is IHasCycleBeginForm)
+			{
+				Bridge.OnActivity(this, "Enter the water meter data");
+				State.Create("MainSeq : Enter begin data")
+					.AddPermanentOperation((dataEntryCmpnt as IHasCycleBeginForm).ShowCycleBeginFormOp(WaterMeters))
+					.AddOperation(checkUiOp)
+					.EnterState();
+				e = StateMachine.WaitRunDevsRunOps();
+				if (e.Contains(Event.UiCmdStop)) return true;
+			}
+			return false;
+		}
+
+		/// <summary>
+		/// Waits until a modeless dialog for entering data at the beginnig of a procedure is closed.
+		/// This function is typically called at the end of the first test of the procedure.
+		/// </summary>
+		/// <returns>false = OK, true = stop pressed</returns>
+		bool CloseDataEntryBeginning()
+		{
+			IList<Event> e;
+			GenericDevices.IDataEntry dataEntryCmpnt =
+				TbfComponents.FindComponent(StateMachine.Procedure.DataEntry) as GenericDevices.IDataEntry;
+			if (dataEntryCmpnt as IHasCycleBeginForm != null)
+			{
+				if (!State.LastEvents.Contains(Event.ModelessFormClosed))
+				{
+					/// Wait until modeless dialg is closed
+					State.Create("MainSeq : Check whether the entry form is closed")
+						.AddOperation(checkUiOp)
+						.EnterState();
+					do
+					{
+						e = StateMachine.WaitRunDevsRunOps();
+						if (e.Contains(Event.UiCmdStop)) return true;
+					}
+					while (!e.Contains(Event.ModelessFormClosed));
+				}
+
+				/// A state without any dataEntryCmpnt operation so that Stop() when entering
+				/// this state and Start() when entering the following state are executed.
+				State.Create("MainSeq : Nothing")
+					.AddOperation(checkUiOp)
+					.RemovePermanentOperation(dataEntryCmpnt as IOperation)
+					.EnterState();
+				e = StateMachine.WaitRunDevsRunOps();
+				if (e.Contains(Event.UiCmdStop)) return true;
+			}
+			return false;
+		}
 
         /// <summary>
         /// Perform a camera test