Index: zTryout/WV/PM/Test.cls.xml
===================================================================
diff -u -r64902 -r64979
--- zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 64902)
+++ zTryout/WV/PM/Test.cls.xml	(.../Test.cls.xml)	(revision 64979)
@@ -249,6 +249,112 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HermaakKaderdeurProducten">
+<Description>
+Do ##class(zTryout.WV.PM.Test).%New().HermaakKaderdeurProducten()</Description>
+<Implementation><![CDATA[
+	#dim KadIdFromAdmin As %String
+	
+	Set KadIdFromAdmin = "884835/351911"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+
+	Set KadIdFromAdmin = "877721/351521"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "629192/328548"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "333308/285989"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "333309/285990"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "67793/17263"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "436742/309133"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "528746/319479"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "131806/89383"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "889805/352044"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890472/352079"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890473/352080"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890474/352081"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890475/352082"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890454/352075"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+	Set KadIdFromAdmin = "890472/352079"
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+ /*	
+	Set KadIdFromAdmin = ""
+	Do ..HermaakKadProductVanGADef( $P(KadIdFromAdmin,"/",2) , $$$True)
+	
+ */
+]]></Implementation>
+</Method>
+
+<Method name="HermaakKadProductVanGADef">
+<Description>
+d ##class(zTryout.WV.PM.Test).%New().HermaakKadProductVanGADef(id,)</Description>
+<FormalSpec>GADefKadId:%String,CheckProductBestaat:%Boolean=1</FormalSpec>
+<Implementation><![CDATA[
+	#dim GADefKaderDeur As Prod.GADef.KaderDeur = ##class(Prod.GADef.KaderDeur).%OpenId(GADefKadId)
+	#dim OorspronkelijkKprProductId As %String = GADefKaderDeur.ProductGetObjectId()
+	
+	#dim HermaakProduct As %Boolean = $$$True
+	If CheckProductBestaat {
+		#dim BestaatProduct As %Boolean = ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(OorspronkelijkKprProductId) 
+		If BestaatProduct {
+			Write !,"KADProduct '"_OorspronkelijkKprProductId_"' bestaat reeds. Zal NIET hermaakt worden. Om toch te hermaken, zet 2e parameter 'CheckProductBestaat' op 0 (false).",!
+			Set HermaakProduct = $$$False
+		}
+		Else {
+			Write !,"KADProduct '"_OorspronkelijkKprProductId_"' bestaat niet meer. Zal meteen hermaakt worden ... "
+			Set HermaakProduct = $$$True
+		}
+	}
+	
+	If HermaakProduct {
+		#dim GenerischProductId As %String = ""   ; wordt gedefault naar GAProd.GenerischPRNr() 
+		#dim ForceRecalc As %Boolean = $$$True
+		#dim KostPrijs = GADefKaderDeur.KostPrijs("1","",$$$True,ForceRecalc)
+		Do GADefKaderDeur.KPRCreate(GenerischProductId)
+		
+		#dim NieuwProductId As %String = GADefKaderDeur.ProductGetObjectId()
+		If ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(NieuwProductId) {
+			Write !,"KADProduct is opnieuw gemaakt met ProductId '"_NieuwProductId_"'."
+			Write:(NieuwProductId '= OorspronkelijkKprProductId) !!,"!!! LET OP: productId is gewijzigd t.o.v. de oorspronkelijke waarde (was initieel Id '"_OorspronkelijkKprProductId_"').  !!! ",!
+			;Write !,"DisplayKenmerken wordt nu oproepen:",!
+			;Do ..DisplayKenmerken(NieuwProductId)
+		}
+		Else {
+			Write !,"KADProduct '"_OorspronkelijkKprProductId_"' hermaken is blijkbaar NIET gelukt!.  Breakpoint om hier te kunnen debuggen.  Druk op 'g' om voorbij Breakpoint te gaan.",!
+		}
+	}
+	Else {
+		Write !!,"Geen Hermaak."
+	}
+]]></Implementation>
+</Method>
+
 <Method name="DisplayKenmerken">
 <Description>
 Do ##class(zTryout.WV.PM.Test).%New().DisplayKenmerken(id)</Description>