cT661T	;Betalingsvoorstel leveranciers ;%T66 ; [ 11/25/99  10:51 AM ]
	G 1
	;
T0	;Subtotaal per betalingstype ;
	;
T0F	;Sous-total par type de paiement ;
	;
T0E	;Subtotaal per betalingstype ;
	;
	; betalingstype bepalen
S1	S KC0=KC,TYPE=$$SG^cAFA1("LE",KC,112) I 'TYPE S TYPE=0
S1A	I TYPE'=TYPE0 D S2
S1Z	Q
	;
S2	S TYPE0=TYPE I 'TYPE S CODE=""
S2A	E  S CODE=$$SIG^cAFA1("CODE.9045",TYPE,101)
S2B	S CODE=CODE_$J("",6)_TYPE
S2Z	Q
	;
	; opbouw subtotaal via module T[] bij BVS.DET
1	D EG^cAFA1 K ^HULP(boot,$J)
	;
	; detaillijnen BVS.DET groeperen per betalingstype
	; UREF = BVS.DET
2	S UI1=0,(KC0,TYPE0)=0
21	S UI1=$O(@UREF) I UI1="" G 3
23	S R=^(UI1),KC=$P(R,D) I KC'=KC0 D S1
25	S K=$G(^HULP(boot,$J,CODE))+$P(R,D,4),^(CODE)=K
29	G 21
	;
	; scroll tonen
3	D C^cA612
31	D RS^cAN210("BVS.DET.TYPE",1,0,0,0)
	;
	; einde
Y	K ^HULP(boot,$J),KC,KC0,TYPE,TYPE0,CODE
YZ	Q
	;
ZZ	; 05.12.07 - 15 u 46 * V9.00