cT661L	;Betalingsvoorstel leveranciers ;%T66 ; [ 02/23/00  9:25 AM ]
	G 1
	;
T0	;Totaal per leverancier ;
T1	;Omschrijving;
T2	;Journaal;allemaal;
T3	;Muntcode;allemaal;
T4	;Subtotaal;
T5	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
T6	;Bevestiging\"+[] = enkel leveranciers met positief saldo";
	;
T0F	;Total par fournisseur ;
T1F	;Description;
T2F	;Journal;tous;
T3F	;Code mon.;tous;
T4F	;Sous-total;
T5F	;N° de facture; existe déjà pour ce proposition; déjà payé;
T6F	;Confirmation\"+[] = seulement fournisseurs avec un solde positif";
	;
T0E	;Totaal per leverancier ;
T1E	;Omschrijving;
T2E	;Journaal;allemaal;
T3E	;Muntcode;allemaal;
T4E	;Subtotaal;
T5E	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald;
T6E	;Bevestiging\"+[] = enkel leveranciers met positief saldo";
	;
	; opbouw BVS.LE via module L[] bij BVS.DET
	; UREF = BVS.DET
1	D EG^cAFA1
11	K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
13	S BF=$$BF^cAFA1 D VM(BF)
	;
	; detaillijnen BVS.DET groeperen per leverancier_muntcode
2	S UI1=0,VNR=0
21	S UI1=$O(@UREF) I UI1="" G 4
23	S OF=^(UI1),KC=$P(OF,D),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF
25	S I4=$G(^HULP(boot,$J,KC,VM(MF)))
27	I 'I4 S VNR=VNR+1,I4=VNR,^(VM(MF))=I4
	;
	; totaal per leverancier_muntcode
3	S R=$G(^DATA(Q,"BVS.LE",BVS,I4))
31	S $P(R,D)=KC                                 ; leverancier
32	S $P(R,D,2)=$P(R,D,2)+1                      ; aantal doc.
33	S $P(R,D,3)=$P(R,D,3)+$P(OF,D,3)             ; totaal bedrag
34	S $P(R,D,4)=MF                               ; muntcode
35	S $P(R,D,5)=$P(OF,D,5)                       ; vvvvvv
39	S ^DATA(Q,"BVS.LE",BVS,I4)=R G 21
	;
	; scroll tonen
4	D C^cA612
41	D BS^cAN210("BVS.LE",1,1,1,0)
	;
	; einde
Y	K KC,VM,VNR,I4,TOT
YA	K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J)
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; Delete : kill combinatie leverancier_muntcode in BVS.LE
	; UREF = BVS.LE
DEL	S R=@UREF K @UREF
DELA	N UQC,USC,UREF,UI1
DELB	D DMS^cAN000("UQC","USC","BVS.DET") S UREF=^DMC(UQC,USC,"DATA","REF")
DELC	N BEGIN,EINDE S BEGIN=$P(R,D,5)*1E6+1E12,EINDE=BEGIN+999999
DELD	S UI1=BEGIN F  S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE)  D
	. S OF=^(UI1) I $P(OF,D)=$P(R,D),$P(OF,D,6)=$P(R,D,4) K ^(UI1)
DELZ	D CUM^cT661 Q
	;
	; positief saldo : module +[] in BVS.LE
	; UREF = BVS.LE
POS	S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\K=""+""!(K=""-"")" D R0 G POSZ:K="-"
POSA	S UI1=0 F  S UI1=$O(@UREF) Q:UI1=""  I $P(^(UI1),D,3)<0 D DEL
POSZ	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