Index: PRDUPLI.mac.rou
===================================================================
diff -u -r734 -r918
--- PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 734)
+++ PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 918)
@@ -31,8 +31,8 @@
  .Set IdentNr=$$ASK^vhINP("Ingave nieuw identnummer : ",11,IdentNr,,,,,,"E")
  .If ".-"[IdentNr Set Stop=1 Quit
  .Set:IdentNr?8N IdentNr=$E(IdentNr)_"."_$E(IdentNr,2,4)_"."_$E(IdentNr,5,7)_"."_$E(IdentNr,8)
- .If IdentNr'?1N1"."3N1"."3N1"."1N Do TXT^vhINP("Identnummer heeft foutief formaat") Quit
- .If "0,1,2,3,5,4,6,7,8"'[$E(IdentNr)!(IdentNr="") Do TXT^vhINP("Foutief beginnummer voor een identnummer") Quit
+ .If '$$IsValidIdentNr^PRODUKT2(IdentNr) Do TXT^vhINP("Identnummer heeft foutief formaat") Quit  ;[IDENT] CW
+ .;If "0,1,2,3,5,4,6,7,8"'[$E(IdentNr)!(IdentNr="") Do TXT^vhINP("Foutief beginnummer voor een identnummer") Quit  ;[IDENT] CW
  .Set Som=$E(IdentNr,3)*6+($E(IdentNr,4)*5)+($E(IdentNr,5)*4)+($E(IdentNr,7)*3)+($E(IdentNr,8)*2)#11
  .Set CheckD=$S(Som=0:1,Som=1:0,1:11-Som)
  .; Index kan op raad van BLUM verhoogd worden
@@ -46,7 +46,7 @@
  ...Do TXT^vhINP("IdentNummer met mogelijk foutieve checkdigit") Quit
  ..Else  Do  ; Controle tweede wijze
  ...Do TXT^vhINP("IdentNummer OK, dit voor onderdelen, promotieartikelen en katalogen") Quit
- .If $D(^KPR2($$TRIMN^vhRtn1(IdentNr)_" ")) Do TXT^vhINP("IdentNr bestaat reeds") Quit
+ .If $D(^KPR2($$TRIMIDENT^vhRtn1(IdentNr)_" ")) Do TXT^vhINP("IdentNr bestaat reeds") Quit  ;[IDENT] CW
  .Set Stop=2
  If LevNr'=5005 For  Do  Quit:Stop  
  .Set Stop=0