cT66Y2	;Leveranciersbetalingen V6 ;%T66 ; [ 03/13/01  4:38 PM ]
	G 1
	;
T0	; Kopiëren voorstel ;
T1	;Betalingstype;allemaal;
T2	;Muntcode;allemaal;
T3	;Maximum bedrag;bedrag in ;er is ; beschikbaar;
T4	;Bevestiging\"[] = ok";
T5	;Factuurnummer; komt reeds voor bij deze betaling; reeds betaald;
	;
T0F	; Copier proposition ;
T1F	;Type de paiement;tous;
T2F	;Code mon.;tous;
T3F	;Montant maximum;montant en ;il y a ; disponible;
T4F	;Confirmation\"[] = ok";
T5F	;N° de facture; existe déjà pour ce paiement; déjà payé;
	;
T0E	; Kopiëren voorstel ;
T1E	;Betalingstype;allemaal;
T2E	;Muntcode;allemaal;
T3E	;Maximum bedrag;bedrag in ;er is ; beschikbaar;
T4E	;Bevestiging\"[] = ok";
T5E	;Factuurnummer; komt reeds voor bij deze betaling; reeds betaald;
	;
	; via module Y[] vanuit BVS.DET
1	;D O^cA612(7,1,15,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,1,1,0,0) ;10.03.00
	D P^cA612(7,1,15,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,1,1,0,0)
	;
	; vraagstelling
2	S TYPE=""
21	D  G YZ:K="-"
	. N UQC,USC D DMS^cAN000("UQC","USC","CODE.9045",1) Q:UQC=""!(USC="")
	. S TYPE=$$^cANSYN("CODE.9045","",$G(TYPE),1,0,"","","",$P($T(@("T1"_QT)),U,3)) Q:K="-"
	. W /CUP(1,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(1,20),": ",$S(TYPE="":$P($T(@("T1"_QT)),U,3),1:$$COM^cAFO3("CODE.9045",TYPE)),@F2
	; 
	; indien Europese betaling geen vraag naar muntcode
23	I K="-" G 2
	I '$$SIG^cAFA1("BVB",BVB,107) S CODE="EUR" G 25
	S CODE=$$^cANSYN("KODE.VM","",$G(CODE),1,0,"","","",$P($T(@("T2"_QT)),U,3)) G 2:K="-"
	;
25	W /CUP(2,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,/CUP(2,20),": ",CODE,@F2 I CODE="" W $P($T(@("T2"_QT)),U,3)
27	S R="MAX\22\3\"_$P($T(@("T3"_QT)),U,2)_"\COM\10\\$$W^cAFI2(K,HQD,0)!(K=""-"")" D R0 G 23:K="-"
29	W /CUP(3,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,/CUP(3,20),": ",$S($L(MAX):$$IP^cAFA1(MAX,HQD,0)_HBF,1:$$Z^cAFO1),@F2
	;
	; bevestiging
3	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1" D R0 G 27:K="-",2:$L(K)
31	D EG^cAFA1
33	D VM(HBF) I $L(CODE) D VM(CODE)
	;
	; voorstel lijn per lijn aflopen; opdelen per combinatie lev_munt
	; UREF = BVS.DET
4	S UI1=0 K ^HULP(boot,$J)
41	S UI1=$O(@UREF) I UI1="" G 6
43	S KC=$P(^(UI1),D),FNR=$P(^(UI1),D,2)
45	S I1=$$UI1^cAFA1("LE",101,KC) D S2
47	S MF=$P(OF,D,9) D VM(MF) I MF="" S MF=BF
	;
	; diverse testen
5	I $L(TYPE),$$SIG^cAFA1("LE",I1,112)'=TYPE G 41    ; betalingstype
51	I $L(CODE),VM(MF)'=VM(CODE) G 41                  ; muntcode
53	S R=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S R=-R ;-$P(OF,D,6)
55	S K=$P(@UREF,D,3) I $P(OF,D)="F",K>R S K=R        ; bedrag
57	I OF=""!'R S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,4) D TXT^cAFA1(250) K @UREF G 41
	;
	S OKDET=$$CHKDET^cT66SE(BVB,^DATA(Q,"BVB",BVB,0),KC,OF)
	I 'OKDET G 41  ; S K=$P(OKDET,D,2) D TXT^cAFA1(250) G 41
59	S R=$$OMREK^cAFA1(K,MF,HBF,"A",1),^HULP(boot,$J,KC,VM(MF),UI1)=R,R=R+$G(^HULP(boot,$J,KC,VM(MF))),^(VM(MF))=R G 41
	;
	; kopiëren naar betaling per combinatie lev_munt in functie van bedrag
6	S KC=0,TOT=0
61	S KC=$O(^HULP(boot,$J,KC)),MF="" I KC="" D CUM^cT661,C^cA612 G Y
62	S I1=$$UI1^cAFA1("LE",101,KC)
63	S MF=$O(^HULP(boot,$J,KC,MF)),UI1="" I MF="" G 61
64	S R=^(MF) I $L(MAX),TOT+R>MAX G 63
65	S UI1=$O(^HULP(boot,$J,KC,MF,UI1)) I UI1="" G 63
66	I '$D(@UREF) G 65
	;
	; 1 lijn kopiëren
7	S FNR=$P(^(UI1),D,2) D S2
73	S R=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S R=-R ;-$P(OF,D,6)
75	S K=$P(@UREF,D,3) I $P(OF,D)="F",K>R S K=R        ; bedrag
77	I OF=""!'R S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,4) D TXT^cAFA1(250) K @UREF G 65
79	S R=$$OMREK^cAFA1(K,MF,HBF,"A",1) K @UREF D S1 G 65
	;
	; einde kopiëren
Y	S UI1=0,UI1=$O(@UREF) I UI1="" D X^cAN220("BVS",0,BVS) ; kill voorstel
YA	K ^HULP(boot,$J)
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; openstaande factuur
S2	S OF=$G(@("^"_Q_"LE(I1,FNR)")) W /CUP(1,40),FNR
S2Z	Q
	;
	; testen + kopiëren
S1	N UQC,USC,UREF,UI1
S1A	D DMS^cAN000("UQC","USC","BVB.DET")
S1B	S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=0,VNR=0,SW=0
S1C	F  Q:SW  S UI1=$O(@UREF) Q:UI1=""  D
	. I $P(^(UI1),D)=KC S VNR=$P(^(UI1),D,5)
	. I $P(^(UI1),D,2)=FNR,FNR<990000 S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,3) D TXT^cAFA1(250) S SW=1
S1D	I 'SW D
	. I 'VNR S UI1=0,VNR=$P(@UREF,D,8)+1,$P(@UREF,D,8)=VNR
	. S UI1=VNR*1E6+FNR+1E12,@UREF=KC_D_FNR_D_K_D_R_D_VNR_D_$P(OF,D,9)
	. S NUI1=UI1,TOT=TOT+R
S1Z	Q
	;
	; commentaar bij max. bedrag
COM	W !?2,$P($T(@("T3"_QT)),U,3),HBF,"   [] = ",$$Z^cAFO1
COMA	W !?2,$P($T(@("T3"_QT)),U,4) N M,K D SAL^cT66 S M=K D UIT^cT66 S M=M-K-$$SIG^cAFA1("BVB",BVB,105)
COMB	W $$IP^cAFA1(M,HQD,0),HBF,$P($T(@("T3"_QT)),U,5)
COMZ	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.12.07 - 15 u 46 * V9.00