cT63	;Uitvoeren betalingen ;%T63 ;Go naar %T130 ; [ 04/12/01  9:57 AM ]
	G 1
	;
T0	;Uitvoeren betalingen ;
T1	;De financiële rekening;
T2	;Actueel saldo  :;
T3	;Betalingscumul.:;
T4	;Betaling via\"[] = overschrijvingen   .[] = cheques";
T10	;Kostencode ontbreekt voor leverancier ;
T11	;Bankcode ontbreekt voor leverancier ;
T12	;ISO-landcode verschilt voor leverancier ;
T13	;Meerdere banknummers voor leverancier ;
	;
T0F	;Exécution des paiements ;
T1F	;Compte financier;
T2F	;Solde actuel   :;
T3F	;Cumul de paiem.:;
T4F	;Paiement par\"[] = virements   .[] = chèques";
T10F	;Code frais manque pour fournisseur ;
T11F	;Code bancair manque pour fournisseur ;
T12F	;Code pays ISO différent pour fournisseur ;
T13F	;Plusieurs n° de banque pour fournisseur ;
	;
T0E	;Uitvoeren betalingen ;
T1E	;De financiële rekening;
T2E	;Actueel saldo  :;
T3E	;Betalingscumul.:;
T4E	;Betaling via\"[] = overschrijvingen   .[] = cheques";
T10E	;Kostencode ontbreekt voor leverancier ;
T11E	;Bankcode ontbreekt voor leverancier ;
T12E	;ISO-landcode verschilt voor leverancier ;
T13E	;Meerdere banknummers voor leverancier ;
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
	; saldoberekening
S1	S (S1,S2)=D S:$D(^(S3)) S1=^(S3),S2=^(S3+.02) S X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I)
S1A	I 'SWB S X=$$BEDR^cAFE1(Q,X,$P($$MNTC^cAFE1(Q,S3),D),BF,"F")
S1B	I $D(^(S3+1)) S S1=^(S3+1),S2=^(S3+1.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I)
S1Z	K S1,S2,S3 Q
	;
	; schermopbouw
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S R=301_D_673 D ^cA319
	;
	; initialisatie
2	S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BA39=^(39),BF=$P(BA39,D)
21	S Q41="^"_Q_"AR(BR,0)",Q5="^"_Q_"R1(R2)",Q1="^"_Q_"L2(NR)",Q2="^"_Q_"L1(LNR)",Q3="^"_Q_"LE(I1,0)",Q4="^"_Q_"L3(PRO,DATUM)"
23	S Q51="^"_Q_"L3(PRO,DATUM,LNR,I1)",Q50="^"_Q_"L3(PRO,DATUM,LNR)",Q52="^"_Q_"L3(PRO,DATUM,LNR,J1)",NR=0 I '$D(@Q1) D TXT^cAFA1(257) G YZ
25	S K=0,FP=440 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=540 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5
	;
	; keuze bank
3	S R="BR\1000\1\1\1\1\1\1\" D ^cT278 G YZ:K="-"
31	S A=^(K,0),BNK=$P(A,D,2),BNR=$P(A,D,9),AFK=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12)
33	S:HBF="" HBF=BF S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,SWB=1 S HQD=$S(HBF=BF:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0),A=@Q41 D S1
35	S FP=403 W @F,$E(BNK_$J("",35),1,35) S FP=461 W @F S R=X_D_11_D_D_HQD D R3
	;
	; opzoeken betaling
4	S DATUM=""
41	S DATUM=$O(@Q4) I DATUM="" S FP=530 W @F,$J("",8) S FP=561 W @F,$J("",11) D TXT^cAFA1(56) G 3
43	G 41:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=561,R=SOM_D_11_D_D_HQD,VNR=$P(TREC,D,5) W @F D R3
45	S FP=530 W @F,$$DCO^cAFA1(DATUM\1)
	;
	; uitvoeren betaling
5	I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="NL" G YZ
51	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.""[K" D R0:$D(@("^"_Q_"BA(""AR"")")) G 11:K="-" I K="." D ^cT630 G 51:K="-",YZ
53	S (SW,SWBB)=0 I 'SWB K ^HULP(boot,$J) D
	. S LNR="" F  S LNR=$O(@Q50) Q:LNR=""  D
	.. S J1="" F  S J1=$O(@Q52) Q:J1=""  D
	... S K=^(J1)
	... I $P(K,D,8)'?12N S SWBB=1 D         ; buitenlands banknummer
	.... S IL=$E($P(K,D,8),1,2) I '$D(^HULP(boot,$J,LNR)) S ^(LNR)=IL Q
	.... I ^(LNR)'=IL S K=$E($P($T(@("T13"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q
	... I $P(J1," ")'=HBF S SWBB=1 D        ; andere muntcode
	.... S K=$P(K,D,16) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=$P(^(K),D),$P(@Q52,D,16)=K
55	I 'SW,SWBB D
	. S LNR="" F  S LNR=$O(@Q50) Q:LNR=""  D
	.. S K=$$SGN^cAFA1("LE",LNR,2)
	.. I '$P(K,D,3) S K=$E($P($T(@("T10"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q
	.. I '$D(^HULP(boot,$J,LNR)) Q          ; geen SWIFT voor Belg.nr/VM
	.. I '$L($P(K,D,5)) S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q
	.. S K=$$SIG^cAFA1("SWIFT",$P(K,D,5),105)          ; intern nummer
	.. S IL=$$SIG^cAFA1("ISO.LAND",K,101)              ; letters landcode
	.. S J1="" F  Q:SW  S J1=$O(@Q52) Q:J1=""  D
	... S K=^(J1)
	... I $E($P(K,D,8),1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q
57	I 'SW G ^cT130
	;
YZ	Q
	;
	;
ZZ	; 05.12.07 - 15 u 46 * V9.00