cTA7 ;Ingave van de analytische rekening ;;; [ 01/02/01  5:49 PM ]
 G 1
 ;
 ; input : AVE=$P(@("^"_Q_"AR(BR,0)"),D,6)
 ;
 ; output: BRA="A"_nummer analytische rekening ( met spatie )
 ;         BRA="K"_nummer analytische verdeelcurve
 ;
T0 ;Ingave van de analytische rekening ;
T1 ;via curve;
T8 ;Enkel boekingsrekeningen zijn toegelaten ;
 ;
T0F ;Introduction  du compte analytique ;
T1F ;par courbe;
T8F ;Uniquement des comptes comptables s.v.p. ;
 ;
T0E ;Input of the analytical account ;
T1E ;via curve;
T8E ;Only valid accounts are allowed ;
 ;
1 S R10=$P(AVE,"#",1),R11=$P(AVE,"#",2) G 3:R10="A",4:R10="K"
 ;
 ; ja = standaard selectie
2 S K=$$^cANSYN("ARA","","",1,0,"","","",$P($T(@("T1"_QT)),U,2))
21 G YZ:K="-",27:K=""
23 I $P(^(0),D,13) D F2 G 2
25 S K="A"_K_" " G YZ
27 S K=$$^cANSYN("AK") G 2:K="-" S K="K"_$P(K," ",2) ; curve
29 G YZ
 ;
 ; vaste rekening
3 S K=$$^cANSYN("ARA","",$P(R11," ")) G YZ:K="-"
31 S K="A"_K G YZ
 ;
 ; vaste analytische curve
4 S K=$$^cANSYN("AK","",R11) G YZ:K="-"
41 S K="K"_$P(K," ",2) G YZ
 ;
YZ S BRA=K K R,R10,R11 Q
 ;
F2 S K=$P($T(@("T8"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84