Index: APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml
===================================================================
diff -u -r2785 -r2817
--- APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 2785)
+++ APPS/Halux/PPS/TBXZaag/impl/BeschadigingHelper.cls.xml	(.../BeschadigingHelper.cls.xml)	(revision 2817)
@@ -18,18 +18,20 @@
 <Method name="AddLeverancier">
 <Implementation><![CDATA[
 	Set Grp="Leverancier"
-	Do ..Voegtoe(Grp,"Laminaat","L;Laminaat")
-	Do ..Voegtoe(Grp,"Afkanting","L;Afkanting")
+	Set Verantw=##class(APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging).Leverancier()
+	Do ..Voegtoe(Grp,"Laminaat",Verantw_";Laminaat")
+	Do ..Voegtoe(Grp,"Afkanting",Verantw_";Afkanting")
 ]]></Implementation>
 </Method>
 
 <Method name="AddIntern">
 <Implementation><![CDATA[
 	Set Grp="Intern"
-	Do ..Voegtoe(Grp,"Zaag","I;Zaag")
-	Do ..Voegtoe(Grp,"Rugwand","I;Rugwand")
-	Do ..Voegtoe(Grp,"Montage","I;Montage")
-	Do ..Voegtoe(Grp,"Verpakking","I;Verpakking")
+	Set Verantw=##class(APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging).Productie()
+	Do ..Voegtoe(Grp,"Zaag",Verantw_";Zaag")
+	Do ..Voegtoe(Grp,"Rugwand",Verantw_";Rugwand")
+	Do ..Voegtoe(Grp,"Montage",Verantw_";Montage")
+	Do ..Voegtoe(Grp,"Verpakking",Verantw_"o;Verpakking")
 ]]></Implementation>
 </Method>
 </Class>