Index: DCTOE.mac.rou
===================================================================
diff -u -r32444 -r59832
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 32444)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 59832)
@@ -155,7 +155,7 @@
  Quit
  ;
  ; Afdruk titel Halux
-HTITEL
+HTITEL(PrintVerzendwijze=1)
  New OrdDat,I,R,T,Blank,Titel,Allign,VPerfo,ToeRef,LevInd,Aanspr,Naam,Woonpl,ORDNr,KLNr,KlTaal,DueOut,VerzW,bl,arCnt,TipOn,SifSpb,Baliko,Hangmap,Specials,Stapelhoogte
  New ToeleveringAPI, Toelevering, ToeleveringProductInfo
  Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
@@ -209,7 +209,7 @@
  .Set T=$$TXT("DueOut")
  .Do PASTE(PCount,Blank,T,2,"","")
  .Set T=$$FMTDT^vhLib.DataTypes(DueOut)
- .Set:$L($G(VerzW)) T=T_"  "_VerzW
+ .Set:($L($G(VerzW))&&PrintVerzendwijze) T=T_"  "_VerzW
  .Do PASTE(PCount,Blank,T,Allign+4,"","")
  If PCount=1,Stapelhoogte Do
  .Set T=$$TXT("StapelH")_":"_$$EXTNUM^vhLib.DataTypes(Stapelhoogte,5,".",2)_"m"
@@ -415,11 +415,11 @@
  Quit $G(LijnBevatDetail)
  ;
  ; Afdrukken detailblad Halux
-DetailHalux(TOENr)
+DetailHalux(TOENr, PrintVerzendwijze=1)
  New TLNr,Paste,DetailHalux,EerstePagina
  Set DetailHalux=1
  Set EerstePagina=1
- Do HTITEL,DHEADER
+ Do HTITEL(PrintVerzendwijze),DHEADER
  Set BCount=0
  Set TLNr=100
  For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do