cAFE6(X) ;Rapportering ;%AFE6 ; [ 01/03/01  5:08 PM ]
 G 1
 ;
T0 ;Rapportering;
T1 ; decimalen;
 ;
T0F ;Rapportage;
T1F ; décimals;
 ;
T0E ;Reporting;
T1E ; decimals;
 ;
 ; wat geprint
S1(K) N BA39 D S2
S1A N R S R=$P(BA39,D,$S(K=3:9,1:7))_", "_$S(K=3:$P(BA39,D,10),K=2:$P(BA39,D,8),1:0)_$P($T(@("T1"_QT)),U,2)
S1Z Q R
 ;
 ; ophalen muntcodes
S2 S BA39=@("^"_Q_"BA(39)")
S2A I $P(BA39,D,7)="" S $P(BA39,D,7)="EUR",$P(BA39,D,8)=2
S2B I $P(BA39,D,9)="" S $P(BA39,D,9)=$P(BA39,D),$P(BA39,D,10)=QD
S2Z Q
 ;
1 N BA39 D S2
11 S R="X\22\3\"_$P($T(@("T0"_QT)),U,2)_"\C1\1\\""-123""[K&$L(K)\\\\\1" D R0
 ;
YZ Q
 ;
 ; commentaar
C1 W !?2,"1[] = ",$P(BA39,D,7),", 0",$P($T(@("T1"_QT)),U,2)
C1A W "   3[] = ",$P(BA39,D,9),", ",$P(BA39,D,10),$P($T(@("T1"_QT)),U,2)
C1B W !?2,"2[] = ",$P(BA39,D,7),", ",$P(BA39,D,8),$P($T(@("T1"_QT)),U,2)
C1Z 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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84