Index: vhUnitTest/BL/Legacy/EWPR.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/Legacy/EWPR.cls.xml	(revision 0)
+++ vhUnitTest/BL/Legacy/EWPR.cls.xml	(revision 53219)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.Legacy.EWPR">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestKortAfIdentNrTotMaxLengteVoorEgemin">
+<Implementation><![CDATA[
+	Do $$$AssertEquals($$KortAfIdentNrTotMaxLengteVoorEgemin^EWPR("0.123.456.7"), "0.123.456.7")
+	Do $$$AssertEquals($$KortAfIdentNrTotMaxLengteVoorEgemin^EWPR("0.123.456.78"), "0.123.45678")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EWPR.mac.rou
===================================================================
diff -u -r52428 -r53219
--- EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 52428)
+++ EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 53219)
@@ -113,7 +113,7 @@
  Kill C
  Set C="P01" ; Produkt record
  Set C("PRNR")=PRNr
- Set C("IDNR")=$S($L($P(P(2),D,25))>11:$Reverse($P($Reverse($P(P(2),D,25)),".")_$P($Reverse($P(P(2),D,25)),".",2,9)),1:$P(P(2),D,25))
+ Set C("IDNR")=$$KortAfIdentNrTotMaxLengteVoorEgemin($P(P(2),D,25))
  Set C("KORTTEKST")=$P(P(0),D,1)
  Set C("OMSCHRIJFNED")=$$TEKST(45,"0.2;0.11;6.1;6.2;6.3;6.4")
  Set KleurC=$E($P(P(0),D,1),22,25)
@@ -160,6 +160,11 @@
  ;Set C("LEVREFOMS")=$TR(C("LEVREFOMS"),FVAN,FNAAR)
  Quit
  
+KortAfIdentNrTotMaxLengteVoorEgemin(Identnr)
+ New KortIdentnr
+ Set KortIdentnr = $S($L(Identnr)>11:$Reverse($P($Reverse(Identnr),".")_$P($Reverse(Identnr),".",2,9)),1:Identnr)
+ Quit KortIdentnr
+ 
 ZENDEMPTY ; Opvullend van de cache met de produktgegevens
  New P,KleurC,KleurO
  Kill C