Index: PRODUKT2.mac.rou
===================================================================
diff -u -r1815 -r1842
--- PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 1815)
+++ PRODUKT2.mac.rou	(.../PRODUKT2.mac.rou)	(revision 1842)
@@ -544,12 +544,7 @@
  ;
  ; Volgend dossiernummer
 NextDossier(Node)
- New DosNr,Dossier
- Lock +^KPR(0,Node)
- Set DosNr=$G(^KPR(0,Node))+1,$P(^KPR(0,Node),"\")=DosNr
- Lock -^KPR(0,Node)
- Set Dossier=$$ALFAKEY^vhRtn1(DosNr,"A")
- Quit Dossier
+ Quit ##class(DOM.PM.Maatwerk.ProductUtils).GeefVolgendeDossierCode(Node)
  ;
  ; Dossierreferentie
 DossierRef(PRNr)