Index: DCTOE.mac.rou
===================================================================
diff -u -r1033 -r1265
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1033)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1265)
@@ -155,7 +155,7 @@
  ;
  ; Afdruk titel Halux
 HTITEL
- New OrdDat,I,R,T,Blank,Titel,Allign,VPerfo,ToeRef,LevInd,Aanspr,Naam,Woonpl,ORDNr,KLNr,KlTaal,DueOut,VerzW,bl,arCnt,TipOn,SifSpb,Baliko,Specials
+ New OrdDat,I,R,T,Blank,Titel,Allign,VPerfo,ToeRef,LevInd,Aanspr,Naam,Woonpl,ORDNr,KLNr,KlTaal,DueOut,VerzW,bl,arCnt,TipOn,SifSpb,Baliko,Specials,Stapelhoogte
  
  New ToeleveringAPI, Toelevering, ToeleveringProductInfo
  Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
@@ -165,6 +165,7 @@
  Set TipOn=ToeleveringProductInfo.AantalTipon
  Set SifSpb=ToeleveringProductInfo.AantalSifon + ToeleveringProductInfo.AantalSpoelbak
  Set Baliko=ToeleveringProductInfo.AantalBaliko
+ Set Stapelhoogte=0 ; $$Stapelhoogte(TOENr)
  Set Specials=""
  For I="TipOn","SifSpb","Baliko" Do:@I
  . Set $P(Specials,D)=$P(Specials,D)+1
@@ -208,6 +209,9 @@
  .Set T=$$FMTDT^vhDTyp(DueOut)
  .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)
+ .Do PASTE(PCount,Blank,T,"",78,"B")
  Quit
  ;
  ; Afdruk afsluiting (eerste bladzijden)
@@ -399,4 +403,5 @@
 TBetVw ;Betalingsvoorwaarde\Conditions de paiement\Zahlungsbedingung\Betalingsvoorwaarde
 TTipOn ;Tip-on\Tip-on\Tip-on\Tip-on
 TSifSpb ;Sif/spb\Sif/spb\Sif/spb\Sif/spb
-TBaliko ;Baliko\Baliko\Baliko\Baliko
\ No newline at end of file
+TBaliko ;Baliko\Baliko\Baliko\Baliko
+TStapelH ;Stapelhoogte\Stapelhoogte\Stapelhoogte\Stapelhoogte
\ No newline at end of file