cT662	;Betalingsvoorstel leveranciers ;%T66 ; [ 03/13/01  4:35 PM ]
	G 1
	;
T0	;Betalingsvoorstel leveranciers ;
T1	;Leverancier;
T2	;Te betalen;
T5	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; verkeerde muntcode;
	;
T0F	;Proposition de paiement ;
T1F	;Fournisseur;
T2F	;A payer;
T5F	;N° de facture; existe déjà pour ce proposition; déjà payé; code mon. ne correspond pas;
	;
T0E	;Betalingsvoorstel leveranciers ;
T1E	;Leverancier;
T2E	;Te betalen;
T5E	;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; verkeerde muntcode;
	;
	; Enter : beheer combinatie leverancier_muntcode in BVS.LE
	; UREF = BVS.LE
1	N BVSLE,DEC S BVSLE=@UREF,BVSLE(1)=UI1,DEC=$$DEC^cAFA1($P(BVSLE,D,4))
11	N BEGIN,EINDE,FILTER,I1 S I1=$$UI1^cAFA1("LE",101,$P(BVSLE,D))
13	S BEGIN=$P(BVSLE,D,5)*1E6+1E12,EINDE=BEGIN+1E6,FILTER="I $P(^(UI1),D,6)="""_$P(BVSLE,D,4)_""""
15	D BS^cAN210("BVS.LE.DET",1,1,0,0)
	;
	; einde
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
CUM	; berekenen cumul = som detaillijnen; UREF = BVS.LE.DET
	S K=0,UI1=BEGIN F I=0:1 S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE)  I $P(^(UI1),D,6)=$P(BVSLE,D,4) S K=K+$P(^(UI1),D,3)
	S $P(^DATA(Q,"BVS.LE",BVS,BVSLE(1)),D,2)=I,$P(^(BVSLE(1)),D,3)=K
CUMZ	D CUM^cT661 Q
	;
F	; manueel factuur ingeven
FA	S R="FNR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\6\\K?6N!(K=""-"")" D R0 G FZ:'K
FB	I '$D(@("^"_Q_"LE(I1,FNR)")) S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,4) D TXT^cAFA1(250) G FA
FC	S KC=$P(BVSLE,D),OF=$G(@("^"_Q_"LE(I1,FNR)")),MF=$P(OF,D,9) D VM(MF) I MF="" S MF=BF
FD	I VM(MF)'=VM($P(BVSLE,D,4)) S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,3) D TXT^cAFA1(250) G FA
FE	S K=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S K=-K ;-$P(OF,D,6)
FF	S R=$$OMREK^cAFA1(K,$P(OF,D,9),BF,"A",1),UI1=0,VNR=0
FG	S UI1=$O(@UREF) I UI1="" D  G FZ
	. S UI1=0,BVSNR=$P(@UREF,D,12),$P(@UREF,D,12)=BVSNR+1
	. I 'VNR S VNR=$P(@UREF,D,8),$P(@UREF,D,8)=VNR+1
	. S UI1=VNR*1E6+FNR+1E12,@UREF=KC_D_FNR_D_K_D_R_D_VNR_D_$P(OF,D,9)_D_BVSNR
	. S NUI1=UI1,^DATA(Q,"BVS.NR",BVS,BVSNR)=UI1
FH	I $P(^(UI1),D)=KC S VNR=$P(^(UI1),D,5)
FI	I $P(^(UI1),D,2)'=FNR G FG
FJ	S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,3) D TXT^cAFA1(250) G FA
FZ	Q
	;
REF	; refresh TOP van BVS.LE.DET
	S BVSLE=^DATA(Q,"BVS.LE",BVS,BVSLE(1)) D TOP W /SGR(0)
	S I="" F  S I=$O(UTOP(I)) Q:I=""  S J=UTOP(I) W /CUP($P(J,D),$P(J,D,2)),/SGR(+$P(J,D,4)),$P(J,D,3),/SGR(0)
REFZ	S OK=1 Q
	;
TOP	; opzetten top ; B(1) = BVS
	N R
	S UTOP(1)="1\1\"_$P($T(@("T1"_QT)),U,2)_"\4"      ; leverancier
	S UTOP(1.1)="1\14\: "_$$KL^cAFO1("LE",$P(BVSLE,D))
	S UTOP(2)="2\1\"_$P($T(@("T2"_QT)),U,2)_"\4"      ; te betalen
	S UTOP(2.1)="2\14\: "_$$IP^cAFA1($P(BVSLE,D,3),DEC,13)_" "_$P(BVSLE,D,4)
	S OK=0    ; niet meer converteren
TOPZ	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	; 30.03.01 - 13 u 39 * V7.85