cT890 ;Boeking koersverschillen ;%T89 ; [ 01/12/01  10:09 AM ]
 ;
T0 ;Boeking koersverschillen ;
T1 ;Boekingsmaand\"-[] = einde programma";
T2 ;Boekingsmaand : ;
T3 ;Fin. rekening;
 ;
T0F ;Imputation écarts de cours ;
T1F ;Mois comptable\"-[] = fin du programme";
T2F ;Mois comptable: ;
T3F ;Compte financier;
 ;
T0E ;Account difference in exchange rate ;
T1E ;Fiscal month\"-[] = end program";
T2E ;Fiscal month  : ;
T3E ;Fin. account;
 ;
 ; boekingsmaand
1 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K=""-""!(K&(K<13))" D R0 G YZ:K="-"
11 S R=+K_D_D_1 D ^cT163 I 'OK G 1
13 S FP=150 W @F,@F4,$P($T(@("T2"_QT)),U,2),BP," ",@F5,@F2
15 S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2)
17 S HBF=BF,VM(HBF)=$P(@("^"_Q_"BA(11,HBF)"),D)
 ;
 ; periode
2 S BPB=$P(@("^"_Q_"BA(2)"),D,1,3),(BPE,BPEC)=$G(^("SWBP")) I $L(BPE) D @BPEC
 ;
3 D ^cT891 G 1:K="-" S FP=402 W @F,@F6,$P($T(@("T3"_QT)),U,2),@F9,@F1 S FP=420 W @F,": ",RB," ",NMB
31 L @Q93:2 E  S R=16 D F2 G 3
 ;
4 S R="01."_$E(BP,6,7)_"."_$E(BP,3,4)_"\0DEM" D ^cA104 S DAT=R
41 S R=DAT_D_DT D ^cA326 I R>0 S DAT=DT
43 S NUM=$E($G(DAT),1,5)
45 S J=$E(DAT,7,8),J=J<50+19_J,K=J_$E(DAT,4,5)_$E(DAT,1,2),Q93="^"_Q_"BA(4,RB,"_K_")",@Q93=$G(@Q93,K_"0001")
 ;
6 S @%Q1=0,(BNR,BNR0)=@Q93
65 G ^cT892
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84