Index: vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml
===================================================================
diff -u -r1773 -r1791
--- vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 1773)
+++ vhUnitTest/APPS/VisiDot/impl/BuildVHossCapture.cls.xml	(.../BuildVHossCapture.cls.xml)	(revision 1791)
@@ -6,28 +6,10 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="QueueList">
-<Description>
-format PRNr;Aantal;VHOSS.Zijkant</Description>
-<Default>418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2</Default>
-</Parameter>
-
 <Property name="BatchID">
 <Type>%Integer</Type>
 </Property>
 
-<Property name="VHossID">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="SlotLabel">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="SequenceNr">
-<Type>%Integer</Type>
-</Property>
-
 <Property name="VHoss">
 <Type>%String</Type>
 <MultiDimensional>1</MultiDimensional>
@@ -216,8 +198,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Dual=##class(APPS.VisiDot.dto.DUAL).%New()
-	Set Dual.RowInPallet=(SlotNr-1)\10+1
-	Set Dual.ColInPallet=(SlotNr-1#10)+1
+	Set Dual.RowInPallet=(3-((SlotNr-1)\10))
+	Set Dual.ColInPallet= (((SlotNr-1)#10)+1)
+	//w "BuildDual : ",SlotNr," -> R",Dual.RowInPallet," C",Dual.ColInPallet,!
 	Quit Dual
 ]]></Implementation>
 </Method>