TBF : iPerl : Two bug fixes : (1) checking previous records, (2) evaluating MaxProefindex

2019-06-19 15:31:56 +02:00
parent 59eb1902f7
commit b873dd5bf5
3 changed files with 10 additions and 10 deletions
@@ -134,7 +134,7 @@ namespace TBF.BenchControl.TestMethods.iPerlCommunication
 #if ORACLE_DB
                                if (arg.ToLower() == "pruefindex")
                                {
-                                    if (wm.Pruefindex > maxTestIndex)
+                                    if ((wm.Pruefindex % 100) > maxTestIndex)
                                    {
                                        anyErrorOfThisMeter = true;
                                        message += string.Format("iPerl{0} : Príliš veľa opakovaní testu vodomera{1}", wm.WMPosition, Environment.NewLine);
@@ -165,7 +165,7 @@ namespace TBF.BenchControl.TestMethods.iPerlCommunication

                                if (arg.ToLower() == "prevworkstep")
                                {
-                                    if (!wm.IsLastRecordOk)
+                                    if (wm.LastRecordIsNok)
                                    {
                                        wm.ErrorFlags |= (int)Config.Entities.ErrorFlagMask.E28;        /// Set E28
                                    }