Index: DCTOE.mac.rou
===================================================================
diff -u -r1906 -r2185
--- DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 1906)
+++ DCTOE.mac.rou	(.../DCTOE.mac.rou)	(revision 2185)
@@ -20,7 +20,8 @@
  ;
 PASTEB(R,AddBlank) 
  New NewPage
- Set NewPage="Do FOOTER^"_$ZN_","_$S(LEVNr=$$$LevHalux:"HTITEL",1:"TITEL")_"^"_$ZN_",HEADER^"_$ZN
+ If $G(DetailHalux) Set NewPage="Do DFOOTER^"_$ZN_","_"HTITEL"_"^"_$ZN_",DHEADER^"_$ZN
+ Else  Set NewPage="Do FOOTER^"_$ZN_","_$S(LEVNr=$$$LevHalux:"HTITEL",1:"TITEL")_"^"_$ZN_",HEADER^"_$ZN
  Do PASTEB^DCALG(R,NewPage,$G(AddBlank))
  Quit
  ;
@@ -75,6 +76,19 @@
  If $D(L("B","S")) Do CACHE(L("B","S"))
  Quit
  ;
+ ; Afdruk hoofding detail
+DHEADER 
+ New T
+ If $D(VPerfoT) New VPerfo Set VPerfo=VPerfoT
+ Do CACHE(L("D","F"))
+ Do CACHE(L("D","B"))
+ Set T=$$TXT("Art")
+ Do PASTE(PCount,LCount,T,3,"","")
+ Set T=$$TXT("Aant")
+ Do PASTE(PCount,LCount,T,"",77,"")
+ If $D(L("D","S")) Do CACHE(L("D","S"))
+ Quit
+ ;
  ; Afdruk titel (volgende blazijden)
 TITEL 
  New OrdDat,LevInd,R,T,Blank,Titel,Allign,VPerfo
@@ -225,11 +239,26 @@
  Set C(PCount,LCount)=P("D",1)_C(PCount,LCount)
  Quit
  ;
+ ; Afdruk afsluiting detail (eerste bladzijden)
+DFOOTER 
+ Set C(PCount,LCount)=C(PCount,LCount)_P("D",0)
+ For I=LCount+1:1:MaxLines-1 Do CACHE(L("D","B"))
+ Do CACHE(L("D","L"))
+ Set T=" "_$$TXT("Vervt")_" "
+ Do PASTE(PCount,LCount,T,"",79,"")
+ Set C(PCount,LCount)=P("D",1)_C(PCount,LCount)
+ Quit
+ ;
  ; Afdruk afsluiting (laatste blad)
 LFOOTER 
  Do CACHE($S($LL(lbKenAnk):L("A","L"),LEVNr=$$$LevHalux:L("A","H"),1:L("A","L")))
  Quit
  ;
+ ; Afdruk afsluiting detail (laatste blad)
+LDFOOTER 
+ Do CACHE(L("D","L"))
+ Quit
+ ;
  ; Afdruk van de voorwaarden
 VOORW 
  New B,I,R,R1,T,BCount,%KontKrt,TKontKrt,BetVw,LeverVw,LTemp,VPerfoT
@@ -354,6 +383,9 @@
  Set LevInd=^KL1(LEVNr),R=^KLE(LevInd,0),Taal=$P(R,D,9) If Taal="" Set Taal="N"
  Do PRINT^LOG("TO",TOENr,$S($G(MetFax):"F",1:"P"))
  Do @$S(LEVNr=$$$LevHalux:"HTITEL",1:"FTITEL"),HEADER,BODY,VOORW:LEVNr'=$$$LevHalux,KENANK(lbKenAnk):$LL(lbKenAnk),LFOOTER,PPRINT
+ If LEVNr=$$$LevHalux,$$ToeleveringBevatDetailHalux(TOENr) Do
+ . Set PCount=PCount+1,LCount=0
+ . Do DetailHalux(TOENr),LDFOOTER,PPRINT
  Do:LEVNr=$$$LevHalux PrintToelevering^HADTBXPrep(TOENr,Print("DEV"))
  Set:$G(MetFax) Data("Pages")=$G(Data("Pages"))+PCount
  If 0'[SelPrint Do CLOSE^vhPRINTER Kill ^KTOB(TOENr)
@@ -374,6 +406,37 @@
  . Set:PRNr Ok=$P($$GENTYP^HAD(PRNr),D,1,2)="TBX\PR+"
  Quit Ok
  ;
+ ; Moet er een detailblad afgedrukt worden voor Halux
+ToeleveringBevatDetailHalux(TOENr)
+ New BevatDetail,TLNr
+ Set BevatDetail=0
+ Set TLNr=100
+ For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Set BevatDetail=$$LijnBevatDetailHalux(LEVNr,TOENr,TLNr) Quit:BevatDetail
+ Quit BevatDetail
+ ;
+ ; TBX, KAD en GRP moeten niet afgedrukt worden op het detailoverzicht
+LijnBevatDetailHalux(LEVNr,TOENr,TLNr)
+ New LijnBevatDetail,PRNr,GenTyp
+ Set PRNr=$P(^KTO(LEVNr,TOENr,TLNr),D,2)
+ Do:PRNr
+ . Set GenTyp=$$GENTYP^HAD(PRNr)
+ . If $P(GenTyp,D)'="TBX",$P(GenTyp,D)'="KAD",$P(GenTyp,D,2)'="GRP" Set LijnBevatDetail=1
+ . Else  Set LijnBevatDetail=0
+ Quit $G(LijnBevatDetail)
+ ;
+ ; Afdrukken detailblad Halux
+DetailHalux(TOENr)
+ New TLNr,Paste,DetailHalux
+ Set DetailHalux=1
+ Do HTITEL,DHEADER
+ Set BCount=0
+ Set TLNr=100
+ For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do
+ . Quit:'$$LijnBevatDetailHalux(LEVNr,TOENr,TLNr)
+ . Set Paste=$$TOELEVBS^DCDETAIL(TOENr,TLNr)
+ . If Paste Do PASTEB(L("D","K"))
+ Quit
+ ;
  ; Initialisatie
 INIT 
  If '$D(VH) Do VH^DCINIT