cT801 ;Fin & div: ingave rekening ;%T80 ; [ 01/12/01  9:40 AM ]
 G 1
 ;
T0 ;Fin & div: ingave rekening ;
T1 ;[] = financiële rekening    D[] = diversen\;
T2 ;Diversen\DV;
T3 ;Gelieve programma '9.7. Rekeningen koersverschillen' uit te voeren ;
T4 ;Gelieve programma '7.3. Instellen muntpariteiten' uit te voeren ;
 ;
T0F ;Fin & div: sélection compte ;
T1F ;[] = opération financière   D[] = opération diverse\;
T2F ;Diverses\OD;
T3F ;Veuillez exécuter le programme '9.7. Comptes écarts des cours' ;
T4F ;Veuillez exécuter le programme '7.3. Etabl. des parités monétaires' ;
 ;
T0E ;Financial and miscellaneous transactions: input account ;
T1E ;[] = financial account    D[] = miscellaneous transactions\;
T2E ;Miscellaneous transactions\MT;
T3E ;Please execute program '9.7 Account differences in exchange rate' ;
T4E ;Please execute program '7.3 Exchange rates' ;
 ;
 ; Saldo VM
S0 S S1=D,$P(S1,D,23)="" F S2=BJ:.01:BJ+.03 I '$D(^(S2)) S ^(S2)=S1
S0A S X=^(S3) I BP>$P(BPB,D,2) S S1=$G(^(S3-1)),S2=$G(^(S3-.98)),X=S1 D S3
S0Z K S1,S2,S3 Q
 ;
 ; Saldo VM
S1 S S1=D,$P(S1,D,23)="" F S2=BJ:.01:BJ+.03 I '$D(^(S2)) S ^(S2)=S1
S1A S X=^(S3) I BP>$P(BPB,D,2) S S1=$G(^(S3-1)),S2=$G(^(S3-.98)),X=S1 D S3
S1B S S1=^(S3),S2=^(S3+.02) D S3
S1C S S1=$G(^(S3+1)),S2=$G(^(S3+1.02)) D S3
S1Z K S1,S2,S3 Q
 ;
 ; Saldo BF
S2 S S1=D,$P(S1,D,23)="" F S2=BJ:.01:BJ+.03 I '$D(^(S2)) S ^(S2)=S1
S2B S S1=^(S3),S2=^(S3+.02) D S3
S2C S S1=$G(^(S3+1)),S2=$G(^(S3+1.02)) D S3
S2Z K S1,S2,S3 Q
 ;
 ; alle maanden debet-credit
S3 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I)
S3Z Q
 ;
 ; keuze fin/div
1 I '$D(BA39) S BA39=@("^"_Q_"BA(39)")
11 S HBF=BF,HQD=QD,PAR=1,(UX,VMSW,PRO,SWMU,SWKAS)=0,SRT="",VMKAS=HBF
13 S R="K\20\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""D-""[K\\\1" D R0 G YZ:K="-",3:K="D"
 ;
 ; fin.rekening
2 S R="BR\2000\1\1\1\1\1\1" D ^cT278 G 1:K="-"
21 S RB=$P(BR," "),K=@Q41,NMB=$P(K,D,2),CD=$P(K,D,10),R=$P(K,D,11),PRO=$P(K,D,12)
210 S VMKAS=$P(K,D,4) I $P(BA39,D,11)=""!(VMKAS="") S VMKAS=R
211 I $P(BA39,D,11)'="",BJ<$P(BA39,D,6) S R=VMKAS
212 I $P(BA39,D,11)'="",$P(BPB,D,2)\1<$P(BA39,D,6) S R=VMKAS I R=$P(BA39,D,9) S R=""
213 S SWKAS=0 I $P(BA39,D,11)'="",$P(K,D,9)?1."0" S SWKAS=1
22 I R=""!(R=BF) S X=$$BSAL^cAFE1(Q,BJ,"AR",BR),S3=BJ D S2 S SAL=X G Y
23 S S3=BJ+.01 D S1 S SAL=X I '$D(@("^"_Q_"BA(11,R)")) S RT=63 D F2 G 2
231 I $P(^(R),D,12),$P(BA39,D,11)'="",$P(BPB,D,2)\1<$P(BA39,D,6),$D(@Q41) S S3=BJ+.01 D S0 S X=$$OMREK^cAFE1(Q,X,R,"EUR","F",""),S3=BJ D S2 S SAL=X G Y
25 S HBF=R,R=^(R),VM(HBF)=$P(R,D),VMSW=1,HQD=+$P(R,D,7),PAR=$$CNVC^cAFE1(Q,BJ,1,HBF,"F",99)
27 D  G 2:'VMSW I 'PAR S K=$P($T(@("T4"_QT)),U,2) D F1 G 2
 . S K=$G(@("^"_Q_"BA(10,0)"))           ; nadelige koersverschillen
 . S R=$P(K,D)_" " I R=" "!'$D(@("^"_Q_"AR(R)")) S VMSW=0
 . S R=$P(K,D,3)_" " I $P(SWAN,D,6)=1,R=" "!'$D(@("^"_Q_"ARA(R)")) S VMSW=0
 . S K=$G(@("^"_Q_"BA(10,1)"))           ; voordelige koersverschillen
 . S R=$P(K,D)_" " I R=" "!'$D(@("^"_Q_"AR(R)")) S VMSW=0
 . S R=$P(K,D,3)_" " I $P(SWAN,D,7)=1,R=" "!'$D(@("^"_Q_"ARA(R)")) S VMSW=0
 . I 'VMSW S K=$P($T(@("T3"_QT)),U,2) D F1
29 G Y
 ;
 ; Diversen
3 D YZ S R="SRT\D\1300\\1800" D ^cA336 G 1:K="-"
31 S K=$P($T(@("T2"_QT)),U,2) I SRT S K="D"_$E(1000+SRT,2,4),K=^(K)
33 S BR="D",NMB=$P(K,D),CD=$P(K,D,2),SAL=0,RB=BR_SRT
 ;
 ; uitgang
Y S Q93="^"_Q_"BA(4,RB)",SAL=$J(SAL,0,HQD)
YZ S FP=2001 W @F,@F1 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S RT=250
F2 D TXT^cAFA1(RT)
FZ K RT Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84