cT169 ;Rekeningen koersverschillen ;%T169 ; [ 01/12/01  10:40 AM ]
 ;
T0 ;Rekeningen koersverschillen ;
T1 ;Nadelig koersverschil;
T2 ;Voordelig koersverschil;
T3 ;Nummer element\"-[] = einde programma";
T4 ;Analytische rekening;
 ;
T0F ;Comptes écarts de cours ;
T1F ;Différences désavantageuses;
T2F ;Différences avantageuses;
T3F ;Numéro d'élément\"-[] = fin du programme";
T4F ;Compte analytique;
 ;
T0E ;Accounts differences in exchange rate ;
T1E ;Disadvantageous difference;
T2E ;Advantageous difference; 
T3E ;Number element\"-[] = end program";
T4E ;Analytical account;
 ;
 ; initialisatie
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 SWAN=$G(@("^"_Q_"BA(300)")),SWAN(1)=$P(SWAN,D,6)=1,SWAN(2)=$P(SWAN,D,7)=1
13 S K=0 F I=1,2 S FP=I*2+2*100+3,K=K+1 D
 . W @F,K,". ",$P($T(@("T"_I_QT)),U,2) S FP=FP+34 W @F," :"
 . I SWAN(I) S FP=FP+100 W @F," :" S FP=FP-34,K=K+1 W @F,K,". ",$P($T(@("T4"_QT)),U,2)
15 S K=0 F I=1,2 S X=$G(@("^"_Q_"BA(10,I-1)")),K=K+1,Z(K)=$P(X,D) I SWAN(I) S K=K+1,Z(K)=$P(X,D,3)
17 S K=0 F I=1,2 S FP=I*2+2*100+40,K=K+1 W @F,@F2 D
 . S I1=Z(K)_" ",X=$$SIGN^cAFA1("AR",I1,0) W @F,I1,$E($P(X,D,2),1,30)
 . I $P(X,D,30) S FP=FP+24 W @F,@F94,$$NIV^cAFO1($P(X,D,30)),@F95
 . I SWAN(I) S FP=FP\100+1*100+40,K=K+1 W @F,@F2 D
 .. S I1=Z(K)_" ",X=$$SIGN^cAFA1("ARA",I1,0) W @F,I1,$E($P(X,D,2),1,30)
 .. I $P(X,D,30) S FP=FP+24 W @F,@F94,$$NIV^cAFO1($P(X,D,30)),@F95
 ;
2 S R="X\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\K=""-""!$D(Z(+K))" D R0 G Y:K="-"
21 S I1=$$^cANSYN($S(X=1!(X=2&'SWAN(1))!(X=3&SWAN(1)):"AR",1:"ARA"),"",Z(X)) G 2:K="-"
27 S K=^(I1,0) I $P(K,D,13)!$P(K,D,30) S R=200 D F2 G 21
29 S Z(X)=$P(K,D) G 17
 ;
Y ; update
YA S K=0 F I=1,2 S X=$G(@("^"_Q_"BA(10,I-1)")),K=K+1,$P(X,D)=Z(K) D
 . I SWAN(I) S K=K+1,$P(X,D,3)=Z(K)
 . S $P(X,D,2)="",$P(X,D,4)="",^(I-1)=X
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