Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml =================================================================== diff -u -r2812 -r2855 --- APPS/VisiDot/impl/VHossControleurEnd.cls.xml (.../VHossControleurEnd.cls.xml) (revision 2812) +++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml (.../VHossControleurEnd.cls.xml) (revision 2855) @@ -86,16 +86,15 @@ Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).OK()) Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Goed() Do ..CaptureHelper.ZetOK() - + + Set Afhandelaar = ##class(APPS.VisiDot.impl.EndAfhandelaar).%New() + Do Afhandelaar.Verwerk(..CaptureHelper.GeefData()) } Else { Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Fout() } Set ProcessedData=..CaptureHelper.GeefData() - - Set Afhandelaar = ##class(APPS.VisiDot.impl.EndAfhandelaar).%New() - Do Afhandelaar.Verwerk(ProcessedData) ]]> Index: vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml =================================================================== diff -u -r2260 -r2855 --- vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml (.../BuildVHossCapture.cls.xml) (revision 2260) +++ vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml (.../BuildVHossCapture.cls.xml) (revision 2855) @@ -105,7 +105,11 @@ Do ..AddCamera() ; Onderste Set QueueIterator = ##class(BL.PPS.TBX.Sequencer).GeefQueueIterator(..BatchID) - + &SQL(delete FROM EWMS.Locations WHERE (loc_m = 4) AND (loc_g = 2) AND + (loc_x = 1) AND (loc_y = 1) AND (loc_id= 'O1000077')) + &SQL(delete FROM EWMS.Locations WHERE (loc_m = 4) AND (loc_g = 2) AND + (loc_x = 1) AND (loc_y = 1) AND (loc_id= 'O1000099')) + Set Detection=..BuildFrameDetection($S(VHossNr=1:77,1:99),Zijkant) Do ..AddDetection2Capture(Detection,0) Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml =================================================================== diff -u -r2786 -r2855 --- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml (.../TestVHossXML.cls.xml) (revision 2786) +++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml (.../TestVHossXML.cls.xml) (revision 2855) @@ -245,7 +245,7 @@ Set ErrorCode=..Finish(ProcessedData) - Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).OK(),"End Order was correct.") + Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekendeFrame(),"End Order was correct.") ]]>