cTR2	; Printen recyclagebijdragen; cTR2
	;
	G 1
	;
T0	; Printen recyclagebijdragen;
T1	;Printen recyclagebijdragen;
T2	;Van maand\"jjjj.mm[] = maand";
T3	;Tot maand\"jjjj.mm[] = maand";
T4	;Detail\"[] = detail per factuur   1[] = geen detail per factuur";
T5	;detail per factuur;geen detail per factuur;
T6	; Maand \ Code \ Omschrijving \ Fact. \ Aant. ; Maand \ Code \ Omschrijving \ Aant.
	;
T0F	; Imprimer contribution recyclage;
T1F	;Imprimer contribution recyclage;
T2F	;Mois initial\"aaaa.mm[] = mois";
T3F	;Mois final\"aaaa.mm[] = mois";
T4F	;Detail\"[] = detail par facture   1[] = sans detail par facture";
T5F	;detail par facture;sans detail par facture;
T6F	; Mois\ Code\ Description\ Fact. \ Nombr.; Mois\ Code\ Description\ Nombr.
	;
	;
1	D P^cA612(2,1,20,80,1,0,0,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
	S VAN=DJ_"."_DM
5	S R="VAN\22\3\"_$P($T(@("T2"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" D R0 I K="-" G YZ
	W /CUP(3,3),@F6,$P($P($T(@("T2"_QT)),U,2),D),@F9,":",/CUP(3,20),VAN
	S TOT=VAN
10	S R="TOT\22\3\"_$P($T(@("T3"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K="""")!(K=""-"")\\\\\1" D R0 I K="-" G 5
	I TOT<VAN G 10
	W /CUP(4,3),@F6,$P($P($T(@("T3"_QT)),U,2),D),@F9,":",/CUP(4,20),TOT
11	S R="DETAIL\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\K=""""!(K=""1"")!(K=""-"")\\\\\1" D R0 I K="-" G 10
	I 'DETAIL W /CUP(5,3),@F6,$P($P($T(@("T4"_QT)),U,2),D),@F9,":",/CUP(5,20),$P($T(@("T5"_QT)),U,2) G 20
	W /CUP(5,3),@F6,$P($P($T(@("T4"_QT)),U,2),D),@F9,":",/CUP(5,20),$P($T(@("T5"_QT)),U,3)
	        ; printkeuze
20	D ^cAN3223("","1#2#5") G 11:K="-"
	; posities van de scheidingslijnen tussen de kolommen
	S TAB="8\17\65\72\79"
	I DETAIL,PTS'=4 S TAB="8\17\72\79"
	; hoofding
	S HD(1)="",HD(2)=D_$P($T(@("T0"_QT)),U,2)_D,HD(3)=""
	; titel kolommen
	S TIT(1)=$P($T(@("T6"_QT)),U,2)
	I DETAIL,PTS'=4 S TIT(1)=$P($T(@("T6"_QT)),U,3)
	; aanmaken TEMP
	D SORT($G(VAN),$G(TOT))
	S UI1=""
	S TOT=0,TEL=0
40	F  S UI1=$O(^TEMP(boot,$J,UI1)) Q:UI1=""  D  
	. S NODE=^(UI1)
	. D PRINT(UI1,NODE,DETAIL)
	S END=1 D ^cA334
	;
Y	K ^TEMP(boot,$J)
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
PRINT(UI1,NODE,DETAIL)	; printen recyclagebijdragen
	N NEWNODE,ENDMONTH,NUI1
	S $ZT="TRAP^cAN000"
	; verschillende kolommen opvullen
	S TXT(1)=$P(NODE,D)_D_D_D_D_D_D_D_D_D_1
	S TXT(2)=$P(NODE,D,2)_D_D_D_D_D_D_D_D_D_1
	S TXT(3)=$P(NODE,D,3)_D_D_D_D_D_D_D_D_D_1
	S TXT(4)=$P(NODE,D,4)
	I 'DETAIL!(PTS=4) S TXT(5)=$P(NODE,D,5)_D_1_D_D_1
	S TOT=TOT+$P(NODE,D,5),TEL=TEL+1
	; printen naar excel -> alles tonen
	I DETAIL,PTS'=4 G PRINTA        ; detail = 1 => printen met geen detail
	D ^cA334
PRINTA	S NUI1=$O(^TEMP(boot,$J,UI1))
	I 'NUI1 D  G PRINTZ     ; bij laatste element, enkel nog totaal tonen
	. I TEL>1,PTS'=4,'DETAIL D LIJN(2) D ^cA334 S TXT(2)="",TXT(3)="",TXT(4)="",TXT(5)=TOT_D_1_D_D_1 D ^cA334
	. I DETAIL,PTS'=4 S TXT(2)=$P(NODE,D,2),TXT(3)=$P(NODE,D,3),TXT(4)=TOT_D_1_D_D_1 D ^cA334
	S NEWNODE=^(NUI1),ENDMONTH=""
	I $P(NEWNODE,D)'=$P(NODE,D) S ENDMONTH=1        ; testen nieuwe maand
	I 'ENDMONTH,($P(NEWNODE,D,2)=$P(NODE,D,2)) G PRINTZ     ; testen nieuwe code
	I TEL>1,'ENDMONTH,PTS'=4,'DETAIL D LIJN(4) D ^cA334     ; geen nieuwe maand en in detail : lijn in laatste 2 kolommen trekken
	I ENDMONTH,PTS'=4,'DETAIL D LIJN(2) D ^cA334    ; nieuwe maand en in detail : lijn trekken in alle kolommen behalve de eerste
	; als er een subtotaal is: tonen op scherm / bij printen
	I TEL>1,PTS'=4,'DETAIL S TXT(2)="",TXT(3)="",TXT(4)="",TXT(5)=TOT_D_1_D_D_1 D ^cA334
	; geen detail printen : eenmaal maand, code, omschrijving en aantal (subtotaal) tonen
	I DETAIL,PTS'=4 S TXT(2)=$P(NODE,D,2),TXT(3)=$P(NODE,D,3),TXT(4)=TOT_D_1_D_D_1 D ^cA334
	S TOT=0,TEL=0
	I PTS'=4 D LIJN(2)
	I ENDMONTH S END=145
	I PTS'=4 D ^cA334
PRINTZ	Q
	;
SORT(VAN,TOT)	; aanmaken TEMP
	; maand/code/omschrijving/FNR/aantal
	N OK,DATUM,I1,INRB,NODE,CODE
	S $ZT="TRAP^cAN000"
	S OK=1
	K ^TEMP(boot,$J)
	S DATUM=$TR(VAN,".")-1
	F  S DATUM=$O(^INDEX(Q,"AA.REC","M1",DATUM)) Q:DATUM>$TR(TOT,".")!(DATUM="")  D
	. S I1=""
	. F  S I1=$O(^INDEX(Q,"AA.REC","M1",DATUM,I1)) Q:I1=""  D
	.. S INRB=^(I1)
	.. S NODE=$G(^DATA(Q,"AA.REC",INRB,0))
	.. I $P(NODE,D,30) Q
	.. S CODE=$$SIGN^cAFA1("CODE.9023",$P(NODE,D,5),0)
	.. S ^TEMP(boot,$J,DATUM_" "_$P(NODE,D,5)_" "_$P(NODE,D)_" "_I1)=$E(DATUM,1,4)_"."_$E(DATUM,5,6)_D_$P(CODE,D)_D_$P(CODE,D,QTU*10-8)_D_$P(NODE,D)_D_$P(NODE,D,6)
SORTZ	Q OK
	;
LIJN(VANKOL)	; Trekken lijn vanaf kolom 'VANKOLOM'
	        N R1,R2,R3,R4
	        S $ZT="TRAP^cAN000"
	        S TXT(2)="",TXT(3)="",TXT(4)="",TXT(5)=""
	        F R1=VANKOL:1:$L(TAB,D) S R2=$P(TAB,D,R1-1)+1,R3=$P(TAB,D,R1)-1 F R4=R2:1:R3 S TXT(R1)=$G(TXT(R1))_"-"
LIJNZ	   Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06