Index: BLIMPPR.mac.rou
===================================================================
diff -u -r29059 -r69290
--- BLIMPPR.mac.rou	(.../BLIMPPR.mac.rou)	(revision 29059)
+++ BLIMPPR.mac.rou	(.../BLIMPPR.mac.rou)	(revision 69290)
@@ -16,7 +16,9 @@
  G C2a:RecType'=11
  Set PrijsLijst="" 
  Set RecNaam="DMS-PR-11" Do TF
+ Set PrijsLijst="E"_+PrijsLijst
  If PrijsLijst="" Goto C2a
+ Set PrijsLijst=$S(+PrijsLijst=43:"K",1:"E")_+PrijsLijst
 C2b Do NextRec Goto C6:RecNr=-1
  G C2b:RecType'=21 
 Prod Set RecNaam="DMS-PR-21",(SetNr,ComNr,LanNr)=1 Do TF,TC