Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r1789 -r1844
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 1789)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 1844)
@@ -79,7 +79,7 @@
 	#define lbHFToModifyLabels       $LB("PRBXKA","PRBXKARE")
   
 	New Rec,PRNr,HFPRNr,Rec,Key,Rec2,ProgLabel,ClassName,Qty,MetaTag,KostPlaats,VersieNrPRBS
-	New DItem,Label,iG,iS,iI,Groep,KostVolgNr,MatVolgNr,arTree,SortNr,BSNode
+	New DItem,Label,iG,iS,iI,Groep,KostVolgNr,MatVolgNr,arTree,SortNr,BSNode,InputWaarde
 	New blnModifySomeHF,lbHFToModifyLabels
 	Set PRNr=..ProductGetObjectId()
 	Quit:(PRNr'?4.7N)
@@ -102,8 +102,12 @@
 	// BasisParameters = invullen Prod.Kenmerken 
 	Set ProgLabel=""
 	For  Set ProgLabel=$O(..LookUp($$$NodePL,ProgLabel)) Quit:(ProgLabel="")  Do
-	. Set:(blnHADPR) ^HADPR("P",PRNr,"BP",ProgLabel)=..LookUp($$$NodePL,ProgLabel) ; Basis Parameters
-	. Set Status=##class(Prod.Kenmerk.DataDefinitie).Set(..MetaStruct.Code,PRNr,ProgLabel,..LookUp($$$NodePL,ProgLabel))
+	. Set InputWaarde=..LookUp($$$NodePL,ProgLabel)
+	. Set:(blnHADPR) ^HADPR("P",PRNr,"BP",ProgLabel)=InputWaarde ; Basis Parameters
+	. If InputWaarde="" Do 
+	. . Set sc=##class(Prod.Kenmerk.DataDefinitie).DeleteKM(..MetaStruct.Code,PRNr,ProgLabel)
+	. Else  Do
+	. . Set Status=##class(Prod.Kenmerk.DataDefinitie).Set(..MetaStruct.Code,PRNr,ProgLabel,InputWaarde)
 	
 	; Halffabrikaten en kosten
 	Set (KostVolgNr,MatVolgNr)=0