Index: APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r57547 -r62525
--- APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 57547)
+++ APPS/Halux/Component/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 62525)
@@ -172,13 +172,78 @@
 	
 	Do ..VulAanCodes()
 	Do ..VulAanBouwsteen()
-	
-	Do ..ComponentTransfer.Save()
+	Do ..PostProcessing()
+	Do:..IsGeldig() ..ComponentTransfer.Save()
 	;Write "  ",Hoofdgroep, " ",Groep, " ",Selector,!
 	;Do DumpObject^%apiOBJ(..ResourceLijn)
 ]]></Implementation>
 </Method>
 
+<Method name="PostProcessing">
+<Implementation><![CDATA[
+	If ..ComponentTransfer.TransferTo[";"
+	{
+		If (..ComponentTransfer.BSKey="TOBSYS") && (..ComponentTransfer.KindProductGetObjectId()=1297240) ; Syncro Stang op in te korten
+		{ 
+			Set ..ComponentTransfer.TransferTo=$P(..ComponentTransfer.TransferTo,";",2)
+		}
+		
+		ElseIf (..ComponentTransfer.BSKey="INSCHFV") && ($$$ProductGet($P(..BSRec,"\",1),$$$KortTekst)["1083") ; Glas
+		{ 
+			Set ..ComponentTransfer.TransferTo=$P(..ComponentTransfer.TransferTo,";",2)
+		}
+
+		ElseIf (..ComponentTransfer.BSKey="KIND") && ($$$ProductGet($P(..BSRec,"\",1),$$$KortTekst)["1150") ; ZW7.1150 voorstuk
+		{ 
+			Set ..ComponentTransfer.TransferTo=$P(..ComponentTransfer.TransferTo,";",2)
+		}
+
+		Else
+		{
+			Set ..ComponentTransfer.TransferTo=$P(..ComponentTransfer.TransferTo,";",1)
+		}
+	}
+
+	If ((..ComponentTransfer.BSKey="TOBSYS") ||(..ComponentTransfer.BSKey="PRTOSTANG")) && (..ComponentTransfer.TransferTo["INKORTEN") && ('..ComponentTransfer.DimensieNetto)  ; Dimensie toevoegen
+		{ 
+			Set ..ComponentTransfer.DimensieNetto=..IngegevenKenmerken.Internebreedte-80
+		}
+		
+	If (..ComponentTransfer.BSKey="INSCHFV") && (..ComponentTransfer.TransferTo["INKORTEN") && ('..ComponentTransfer.DimensieNetto)  ; Dimensie toevoegen
+		{ 
+			Set ..ComponentTransfer.DimensieNetto=..IngegevenKenmerken.Internebreedte-100
+		}
+
+
+	If (..ComponentTransfer.BSKey="OPVULLIJ") && (..ComponentTransfer.DimensieNetto) && ($$$ProductGet($P(..BSRec,"\",1),$$$WerkvloerGrootteNetto)) && (..ComponentTransfer.DimensieNetto<$$$ProductGet($P(..BSRec,"\",1),$$$WerkvloerGrootteNetto)) ; KPR opvullijst
+		{ 
+			Set ..ComponentTransfer.TransferTo="INKORTEN PVC>ONDERDELEN"
+		}
+	
+	If ..ComponentTransfer.TransferTo["ONDERDELEN" 
+	{ If (..VerpakCode="V1")
+		{
+			set ..ComponentTransfer.TransferTo=..ComponentTransfer.TransferTo_" V1"
+		}
+		else
+		{
+			set ..ComponentTransfer.TransferTo=..ComponentTransfer.TransferTo_" PROBOX"
+		}
+	}
+
+	If (..ComponentTransfer.TransferTo["?NP") && ($E($$$ProductGet(..ComponentTransfer.KindProductGetObjectId(),$$$KortTekst),1,3)="HDP")
+	{
+		; niet geldig
+		Set ..ComponentTransfer.TransferTo=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldig">
+<Implementation><![CDATA[	Quit ..ComponentTransfer.TransferTo'=""
+]]></Implementation>
+</Method>
+
 <Method name="InitContext">
 <Implementation><![CDATA[
 	Set ..ComponentTransfer=##class(APPS.Halux.Component.impl.Transfer).%New()
@@ -211,7 +276,8 @@
 	If NettoGrootte && $P(..BSDimRec,"\",1)
 	{
 		Set ..ComponentTransfer.DimensieMetUitval=$P(..BSDimRec,"\",3)/NettoGrootte
-		Set ..ComponentTransfer.DimensieNetto=$P(..BSDimRec,"\",1)/NettoGrootte
+		Set ..ComponentTransfer.DimensieNetto=$P(..BSDimRec,"\",1)
+		;s x=$S($$$ProductGet(KindPRNr,$$$WerkvloerEenheid)="MM":rs.Data("DimensieNetto")*$$$ProductGet(KindPRNr,$$$WerkvloerGrootteNetto),1:"")
 		Set ..ComponentTransfer.BenodigdAantal=..ComponentTransfer.KindAantal*..ComponentTransfer.DimensieMetUitval
 	}
 	else