cT61 ;Voorbereiden betalingen ;%T61 ;Go naar %T62 ; [ 01/04/99  3:22 PM ]
 G 1
 ;
T0 ;Voorbereiden betalingen ;
T1 ;De financiële rekening;
T2 ;Actueel saldo :;
T3 ;Betalingscumul.:;
 ;
T0F ;Préparation des paiements ;
T1F ;Compte financier;
T2F ;Solde actuel  :;
T3F ;Cumul de paiem.:;
 ;
T0E ;Voorbereiden betalingen ;
T1E ;De financiële rekening;
T2E ;Actueel saldo :;
T3E ;Betalingscumul.:;
 ;
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
 ;
 ; 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=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
11 L (@("^"_Q_"L3"),@("^"_Q_"L2")):2 E  S R=14 D F2 G YZ
13 S R=201_D_469 D ^cA319
 ;
 ; intialisatie
2 S K=@("^"_Q_"BA(2)"),BP=$P(K,D,2),BJ=BP\1,BA39=^(39),BF=$P(BA39,D)
21 S 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)",(NR,K)=0 G E2:'$D(@Q1) S (SWB,SWBB)=^(0)
25 S FP=318 W @F,@F5 S FP=302 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=352 W @F,@F5 S FP=335 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5
 ;
 ; keuze fin.rek.
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),S2=$P(A,D,9),S1=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12) S:HBF="" HBF=BF
33 G E1:HBF'=BF&'SWB S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,(SWB,SWBB)=1 D S1
34 S HQD=$S('SWB:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0)
35 S FP=180 W @F,@F5 S FP=153 W @F,@F4,$E(BNK,1,25)," ",@F5 S FP=321 W @F S R=X_D_11_D_D_HQD D R3
37 S K=$$OMREK^cAFE1(Q,1,HBF,"EUR","F",99) I $P(BA39,D,11)'="" S K=$$OMREK^cAFE1(Q,1,"EUR",$P(BA39,D,9),"F",99)
39 S TREC=D_BNK_D_PRO_D_D_1000_D_D_HBF_D_HQD_D_SWBB_D_K_D,SOM=0,LN=4,VNR=1000,DATUM=""
 ;
 ; voorlopige betaling
4 S DATUM=$O(@Q4) G 45:$L(DATUM) S DATUM=DJ_DM_DD
41 I $D(@Q4) S DATUM=DATUM+.01 G 41
43 S @Q4=TREC G 49
45 G 4:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=354,R=SOM_D_14_D_D_HQD,VNR=$P(TREC,D,5),SWBB=$P(TREC,D,9) W @F D R3
49 S FP=370 W @F,@F4,$$DCO^cAFA1(DATUM\1)," ",@F5
 ;
5 G ^cT62
 ;
YZ K ^HULP(boot,$J) Q
 ;
E1 S R=54 D F2 G 3
E2 S R=257 D F2 G YZ
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84