Index: APPS/PM/impl/ProductKopieerder.cls.xml
===================================================================
diff -u -r29059 -r43071
--- APPS/PM/impl/ProductKopieerder.cls.xml	(.../ProductKopieerder.cls.xml)	(revision 29059)
+++ APPS/PM/impl/ProductKopieerder.cls.xml	(.../ProductKopieerder.cls.xml)	(revision 43071)
@@ -212,6 +212,7 @@
 <Method name="KopieerBouwstenen">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+ 	New BSPopGrp, BSPopNm, BSDefCod, EindTyp, BSNode, IsOrgal, sMod
  	New %J Set %J=$$%J^vhRtn1()	Kill ^HULP(%J)
  	Do FETCH^PRBS(..ProductIDOrigineel)
  	Do SAVE^PRBS(..ProductIDNieuw)