cT261 ;INGAVE FIN.REKENING ;%T1 ; [ 01/03/01  6:54 PM ]
 G 1
 ;
T0 ;Ingave fin.rekening ;
T1 ;[] = Financiële rekening    D[] = diversen\;
T2 ;Journaal\"xxx[] = bepaald journaal   .[] = vervolg overzicht";
T3 ;Diversen;
T4 ;De financiële rekening;
 ;
T0F ;Introd.compte financier ;
T1F ;[] = Compte financier   D[] = divers\;
T2F ;Journal\"xxx[] = journal spécifique   .[] = suite de l'aperçu";
T3F ;Divers;
T4F ;Compte financier;
 ;
T0E ;Input fin.account ;
T1E ;[] = Financial account   D[] = Miscellaneous transactions\;
T2E ;Journal\"xxx[] = particular journal   .[] = continuation survey";
T3E ;Miscellaneous transactions;
T4E ;The financial account;
 ;
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),$D(^(S3-1)) S S1=^(S3-1),S2=^(S3-.98),X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I)
S1B S S1=^(S3),S2=^(S3+.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I)
S1C 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
 ;
1 S HQD=QD,(BF,HBF)="BF",PAR=1,(UX,VMSW,PRO)=0 I $D(@("^"_Q_"BA(39)")) S (BF,HBF)=$P(^(39),D)
 ;
2 S SRT="",R="K\20\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""D-""[K\\\1" D R0 G YZ:K="-" I K="D" S Q93="^"_Q_"BA(4,""D"",BJ)" G 4
 ;
3 S Q93="^"_Q_"BA(4,RB)",R="BR\2000\1\1\1\1\1\1" D ^cT278 G 2:K="-"
31 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),S3=BJ D S1
33 S SAL=X G 39:R=BF S S3=BJ+.01 D S1 S SAL=X G F1:'$D(@("^"_Q_"BA(10,0)")),F2:'$D(@("^"_Q_"BA(11,R)"))
35 S HBF=R,VMSW=1,PAR=$P(^(R),D,6)/$P(^(R),D,3),HQD=+$P(^(R),D,7)
39 S S1="" G 6
 ;
4 D YZ S R="SRT\D\1300\\1800" D ^cA336 G 2:K="-" S K="D"_$E(1000+SRT,2,4),S1="" G 5:SRT=""
49 S K=^(K) S:$P(K,D,2)="" $P(K,D,2)="DV" S S1=$P(K,D,2)_" "_$E($P(K,D),1,23)
 ;
5 S BR="D",NMB=$P($T(@("T3"_QT)),U,2),CD="DV",SAL=0,RB=BR_SRT
 ;
6 S:S1="" S1=CD_" "_$E(NMB,1,23) S Q93="^"_Q_"BA(4,RB)"
 ;
YZ S FP=2001 W @F,@F1 Q
 ;
F1 D TXT^cAFA1(55) G 3
F2 D TXT^cAFA1(63) G 3
F4 D TXT^cAFA1(183) Q
 ;
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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84