Index: APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml
===================================================================
diff -u -r1866 -r2091
--- APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 1866)
+++ APPS/VisiDot/impl/VHossSlotDetectionHelper.cls.xml	(.../VHossSlotDetectionHelper.cls.xml)	(revision 2091)
@@ -18,17 +18,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewerkOmschrijving">
+<FormalSpec>Omschrijving</FormalSpec>
+<Implementation><![CDATA[
+	Set Omschrijving=""
+	Set Dual=..Detection.DUAL.GetAt(1)
+	If $isObject(Dual)
+	{
+		Set Omschrijving="Row:"_Dual.RowInPallet_" Col:"_Dual.ColInPallet
+	}
+	Set Omschrijving=Omschrijving_" SlotNr:"_..GeefSlotNr()
+	Quit Omschrijving
+]]></Implementation>
+</Method>
+
 <Method name="ZetInfo">
 <FormalSpec>Toelevering,Dossier,Omschrijving</FormalSpec>
 <Implementation><![CDATA[
+		
+		Set Dual=..Detection.DUAL.GetAt(1)
 		Do ..ZetData("Toelevering",Toelevering)
 		Do ..ZetData("Dossier",Dossier)
-		Do ..ZetData("Omschrijving",Omschrijving)
+		Do ..ZetData("Omschrijving",..BewerkOmschrijving(Omschrijving))
 		
 		Set TekstToolTip = "Toelevering: "_Toelevering_..#ToolTipEndOfLine
 		Set TekstToolTip = TekstToolTip_"Dossier: "_Dossier_..#ToolTipEndOfLine
-		Set TekstToolTip = TekstToolTip_"Omschrijving: "_Omschrijving
+	
+		Set Omschrijving2 = Omschrijving
+		If $isObject(Dual)
+		{
+			Set Omschrijving2 = Omschrijving2_"Row:"_Dual.RowInPallet_" Col:"_Dual.ColInPallet_"SlotNr:"_..GeefSlotNr()
+		}
 		
+		Set TekstToolTip = TekstToolTip_"Omschrijving: "_Omschrijving2
+		
 		Do ..ZetToolTip(TekstToolTip)
 ]]></Implementation>
 </Method>