Index: EWPR.mac.rou
===================================================================
diff -u -r29059 -r47552
--- EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 29059)
+++ EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 47552)
@@ -145,13 +145,13 @@
  Set C("BARCODE")=$P(P(2),D,14)
  Set C("SORTKEY")=$$SORTKEY^PRODUKT(PRNr)
  Set C("GEWICHT")=$P(P(1),D,13)*1000 ; in mg, moet nauwkeuriger ingegeven kunnen worden
- Set C("SAMPLETYPE")=$P(P(2),D,12)
+ Set C("SAMPLETYPE")="" ;$P(P(2),D,12)
  Set C("HOOGTE")=$P(P(1),D,4)
  Set C("BREEDTE")=$P(P(1),D,5)
  Set C("LENGTE")=$P(P(1),D,6)
  Set C("DATUMFIFO")=$P(P(1),D,8)
  Set C("OPSLAGZONE")=$P(P(2),D,15)
- Set C("TELWIJZE")=$P(P(2),D,11)
+ Set C("TELWIJZE")="" ;$P(P(2),D,11)
  ;Wijzig accenten in std. ascii
  ;Do VANNAAR^vhTERMINA("ASCII")
  ;Set C("OMSCHRIJFNED")=$TR(C("OMSCHRIJFNED"),FVAN,FNAAR)