cTA6 ;Ingave analytische ventilatie ;%TA6; [ 01/03/01  4:41 PM ]
 G 1
 ;
T0 ;Ingave analytische ventilatie ;
T1 ;Analytische ventilatie\"[] = neen   1[] = ja   A[] = vaste analyt. rekening   K[] = vaste curve";
T4 ;neen;ja;vaste rek. : ;vaste curve : ;
T6 ;Enkel boekingsrekeningen zijn toegelaten;
 ;
T0F ;Introduction imputation analytique ;
T1F ;Imputation analytique\"[] = non   1[] = oui   A[] = compte analytique fixe   K[] = par courbe";
T4F ;non;oui;compte fixe: ;courbe fixe : ;
T6F ;Uniquement des comptes comptables s.v.p.;
 ;
T0E ;Input analytical ventilation ;
T1E ;Analytical ventilation\"[] = no   1[] = yes   A[] = fixed analytical accounts   K[] = fixed curve";
T4E ;no;yes;fixed acc. : ;fixed curve : ;
T6E ;Only valid accounts are allowed;
 ;
 ; vraagstelling
1 S R="SS1\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""1AK-""[K\\\1" D R0 G YZ:K="-" I 1[K S SS1=+K,SS2="" G 19
11 I SS1="A" S SS2=$$^cANSYN("ARA") G 1:K="-" I $P(^(K,0),D,13) D F1 G 11
12 I SS1="K" S K=$$^cANSYN("AK") G 1:K="-" S SS2=$P(K," ",2)
19 S K=SS1_"#"_SS2 G YZ
 ;
 ; wat geprint
2 S SS1=$P(K,"#",1),SS2=$P(K,"#",2) I SS1="" S SS1=0
21 S U3=$P($T(@("T4"_QT)),U,$F("01AK",SS1)) I "AK"[SS1 S U3=U3_SS2
 ;
YZ K SS1,SS2 Q
 ;
F1 S K=$P($T(@("T6"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84