Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml
===================================================================
diff -u -r1196 -r1211
--- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 1196)
+++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 1211)
@@ -181,12 +181,12 @@
 
 <Method name="ZetAfmeting">
 <Implementation><![CDATA[
-	Set PRNr=..PRNr   ; ..Product.%Id()
+	Set PRNr=..PRNr
 	Set ..Afmeting=""
 	If (..BasisType="BODEM")||(..BasisType="BODEMSTRK") {
 		Set LadeDiepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"LadeDiepte"),1)
 		Set BreedteIntern=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"BreedteIntern"),1)
-		Set:LadeDiepte LadeDiepte=LadeDiepte-$S($$$Trim($P(..Kleur,"/"))?2A1"S":22,1:24)   ; Fixed bug
+		Set:LadeDiepte LadeDiepte=LadeDiepte-$S($$$Trim($P(..Kleur,"/"))?2A1"S":22,1:24)   ; Fixed bug 
 		Set ..Afmeting=$S(LadeDiepte:"D"_LadeDiepte,1:"")
 		Set:(BreedteIntern>0) ..Afmeting=..Afmeting_$S($L(..Afmeting):" ",1:"")_"B"_(BreedteIntern-75)
 	}