Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r1808 -r1812
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 1808)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 1812)
@@ -31,8 +31,8 @@
 	Set KLNr=1239
 	Set SequenceNr=0	
 	Set QueueList = "418715;1;1.1\418582;1;1.1\418589;1;1.1\418582;2;1.1\418588;3;1.1\418581;1;1.1\418609;1;1.1\"
-	Set QueueList = QueueList_"418703;1;1.1\418589;2;1.1\418703;1;1.1\418582;1;1.1\418581;2;1.1\418582;1;1.1\418715;1;1.1\418588;1;1.1"
-	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1\418582;1;1.1\418703;1;1.1\418704;1;1.1\418715:1:1.1\418704;1;1.1"
+	Set QueueList = QueueList_"418703;1;1.1\418589;2;1.1\418703;1;1.1\418582;1;1.1\418581;2;1.1\418582;1;1.1\418715;1;1.1\418588;1;1.1\"
+	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1\418582;1;1.1\418703;1;1.1\418704;1;1.1\418715;1;1.1\418704;1;1.1"
 	
 	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
@@ -182,7 +182,7 @@
 	D ##class(APPS.VisiDot.zTryout).%New().ShowVHoss(CaptureInfo)
 	
 	Set ErrorCode=..Finish(ProcessedData)	
-	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
+	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend(),"Capture bevat een ontbrekende lade")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml
===================================================================
diff -u -r1791 -r1812
--- vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 1791)
+++ vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 1812)
@@ -110,7 +110,7 @@
 		Set oQ.BatchID=..BatchID
 		Set oQ.Status=$$$tsWachtend
 		Set oQ.WPVerpak=##class(BL.PPS.TBX.WPVerpak).CreateVHoss(..KLNr,oQ.TOENr,oQ.TLUNr,PRNr,1,$P(VHossID,"."),$P(VHossID,".",2),..SlotLabel,..SequenceNr)
-		Set Status=oQ.%Save() D:$$$ISERR(Status) WE^vhDBG(Status,"PPSTBX AddBatch")
+		Set Status=oQ.%Save() D:$$$ISERR(Status) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Fout save QueueElement:"_$$ParseStatus^vhLib(Status)))
 		;w $$ParseStatus^vhLib(Status)
 		;Set ..VHoss($P(VHossID,"."),$P(VHossID,".",2),oQ.%Id())=""
 	}
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1808 -r1812
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1812)
@@ -73,6 +73,7 @@
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
+		d WLIP^vhDBG(127,"BatchID :"_..BatchID_", VHOssVolgNr: "_..VHossVolgNr_", VhossZijkant:"_..VHossZijkant)
 		Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant)
 		Do ..ControleAanwezigeLades() ; de gedetecteerde lades zijn correct
 		Do ..ProductionHelper.SaveCache()
Index: vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml
===================================================================
diff -u -r1791 -r1812
--- vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 1791)
+++ vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml	(.../TestVHoss.cls.xml)	(revision 1812)
@@ -93,7 +93,7 @@
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), Capture, .ResultDesc, .ProcessedData)
 
 	Set ErrorCode=..Finish(ProcessedData)	
-	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend(),"Capture bevat een ontbrekende lade")
+	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend(),"Capture bevat een ontbrekende lade")
 ]]></Implementation>
 </Method>