Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml
===================================================================
diff -u -r41220 -r41221
--- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 41220)
+++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 41221)
@@ -113,7 +113,7 @@
 	Set ..FSCCode=Product.FSCHout
 	Do ..FSCLogoURL()
 	Set ..LeveranciersReferentie=$$$Trim(ProductPrijs.LeveranciersReferentie)
-	Set BasisType=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"BasisType"),1)
+	#dim BasisType As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"BasisType"),1)
 	If BasisType="HOEKKAST" {
 		Do ..HoekKastLade(BasisType)
 	}ElseIf BasisType="" {
@@ -123,7 +123,7 @@
 	} Else {
 		Set ..BasisType=$S(BasisType?1"BODEM".E:"BODEM", BasisType?1"RUG".E:"RUG", 1:BasisType)
 		Set ..BasisTypeOms=$S(..BasisType=BasisType:"", 1:BasisType)
-		Set KleurDelim=" / "
+		#dim KleurDelim As %String = " / "
 		Do ..ZetKleur("TB",KleurDelim)
 		Do ..ZetAfmeting()
 		Do:(..BasisType="BODEM") ..MaakKorteVersieBodemKleur(KleurDelim)
@@ -231,7 +231,7 @@
 <Method name="ZetKleur">
 <FormalSpec>GroepID:%String,Delim:%String="\"</FormalSpec>
 <Implementation><![CDATA[
-	Set PRNr=..PRNr
+	#dim PRNr As %String = ..PRNr
 	#dim KenmerkNaam As %String = "Kleur"
 
 	Set ..Kleur=$$ListToPieces^vhLib(##class(Prod.Kenmerk.DataDefinitie).Get(GroepID,PRNr,KenmerkNaam),Delim)