Index: DCTOE.mac.rou
===================================================================
diff -u -r1265 -r1311
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1265)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1311)
@@ -165,7 +165,8 @@
  Set TipOn=ToeleveringProductInfo.AantalTipon
  Set SifSpb=ToeleveringProductInfo.AantalSifon + ToeleveringProductInfo.AantalSpoelbak
  Set Baliko=ToeleveringProductInfo.AantalBaliko
- Set Stapelhoogte=0 ; $$Stapelhoogte(TOENr)
+ Set StapelingService = ##class(APPS.Halux.common.StapelService).%New(Toelevering)
+ Set Stapelhoogte = (StapelingService.GeefStapelHoogte()/1000)
  Set Specials=""
  For I="TipOn","SifSpb","Baliko" Do:@I
  . Set $P(Specials,D)=$P(Specials,D)+1
@@ -210,7 +211,7 @@
  .Set:$L($G(VerzW)) T=T_"  "_VerzW
  .Do PASTE(PCount,Blank,T,Allign+4,"","")
  Do:Stapelhoogte
- .Set T=$$TXT("StapelH")_":"_$$EXTNUM^vhDTyp(Stapelhoogte,5,".",2)
+ .Set T=$$TXT("StapelH")_":"_$$EXTNUM^vhDTyp(Stapelhoogte,5,".",2)_"m"
  .Do PASTE(PCount,Blank,T,"",78,"B")
  Quit
  ;