Index: EWPR.mac.rou
===================================================================
diff -u -r47552 -r52428
--- EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 47552)
+++ EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 52428)
@@ -113,14 +113,15 @@
  Kill C
  Set C="P01" ; Produkt record
  Set C("PRNR")=PRNr
- Set C("IDNR")=$P(P(2),D,25)
+ 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("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)
  Set KleurO=$G(^KCOL(KleurC_" ","N"))
  Set:$L(KleurO) $E(C("OMSCHRIJFNED"),45-$L(KleurO)+1,45)=KleurO
  Set C("OMSCHRIJFFRANS")=$$TEKST(45,"1.22;3.21;8.1;8.2;8.3;8.4")
  Set KleurO=$G(^KCOL(KleurC_" ","F"))
+ d 
  Set:$L(KleurO) $E(C("OMSCHRIJFFRANS"),45-$L(KleurO)+1,45)=KleurO
  Set KleurO=$G(^KCOL(KleurC_" "),"N")
  Set C("LEVNR")=$P(P("J"),D,1)