cT661S	;Betalingsvoorstel leveranciers ;%T66 ; [ 11/25/99  10:18 AM ]
	G 1
	;
T0	;Subtotaal per muntcode ;
	;
T0F	;Sous-total par code mon. ;
	;
T0E	;Subtotaal per muntcode ;
	;
	; opbouw subtotaal via module S[] bij BVS.DET
1	N UI1,BF,OF,VM
11	D EG^cAFA1 K ^HULP(boot,$J)
13	S BF=$$BF^cAFA1 D VM(BF)
	;
	; detaillijnen BVS.DET groeperen per leverancier_muntcode
	; UREF = BVS.DET
2	S UI1=0
21	S UI1=$O(@UREF) I UI1="" G 3
23	S OF=^(UI1),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF
25	S $P(^(VM(MF)),D)=$P($G(^HULP(boot,$J,VM(MF))),D)+$P(OF,D,3)
27	S $P(^(VM(MF)),D,2)=$P($G(^HULP(boot,$J,VM(MF))),D,2)+$P(OF,D,4)
29	G 21
	;
	; scroll tonen
3	D C^cA612
31	D RS^cAN210("BVS.DET.SUB",1,0,0,0)
	;
	; einde
Y	K ^HULP(boot,$J)
YZ	Q
	;
	; officiële muntcode
VM(K)	I K="" S K=BF
	I '$D(VM(K)) S VM(K)=K I $D(@("^"_Q_"BA(11,K)")) S VM(K)=$P(^(K),D)
VMZ	Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84