jcINFO
 
 
 
#Define LadeDiepteBruto2Netto = 24
 
GemM2opStock
 
 
	New PRNr Set PRNr = 0
	New Stock 
	For  Set PRNr = $O(^KPR(PRNr)) Q:PRNr=""  D
	. Set BasisType=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"BasisType"))
	. If ( BasisType="BODEMSTRK" ) ! ( BasisType="BODEM" ) ! ( BasisType="RUGSTRK" ) Do
	. . Set Stock = $P($G(^PRSTOCK("D",PRNr)),"\",5)  ; ophalen werkvloer stock
	. . If ( BasisType="BODEMSTRK" ) Do
	. . . Set Lengte = $$$PRGet($$$WerkVloerGrootteBruto)
	. . . Set Breedte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"LadeDiepte"))
	. . . Set Breedte = Breedte - LadeDiepteBruto2Netto 
	. . If ( BasisType="RUGSTRK" ) Do
	. . . Set Lengte = $$$PRGet($$$WerkVloerGrootteBruto)
	. . . Set Breedte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"RugHoogte"))
	. . If ( BasisType="BODEM" ) Do
	. . . Set Lengte = $$$PRGet($$$InterneBreedte)
	. . . Set Breedte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"LadeDiepte"))
	. . . Set Breedte = Breedte - LadeDiepteBruto2Netto