cTA11 ;Analytische rekening in facturatie ;%TA11 ; [ 03/23/98  1:48 PM ]
 G 1
 ;
T0 ;Analytische rekening in facturatie ;
 ;
T0F ;Compte analytique en facturation ;
 ;
T0E ;Analytische rekening in facturatie ;
 ;
1 S SWAN=$P($G(@("^"_Q_"BA(300)")),D,3)
10 G YZ:'SWAN,YZ:'$L($P(B(1),D)),YZ:'$D(@("^"_Q_"AR($P(B(1),D),0)"))
11 S AVE=$P(^(0),D,6),SWAV="\1\A\K\"[(D_$P(AVE,"#")_D)
13 I $D(WZ),'SWAV S:K'="-" K="" G YZ
15 I $D(WZ),SWAV,$L($P(B(1),D,44)) S AVE="A#"_$P(B(1),D,44)
17 S:K'="-" K="" G YZ:'SWAV,2:$P(AVE,"#")="A"
19 S K=$$^cANSYN("ARA") G YZ
 ;
2 S K=$P($P(AVE,"#",2)," "),K=$$^cANSYN("ARA","",K) G YZ:K="-"
21 I '$D(@("^"_Q_"ARA(K,0)")) S R=20 D F2 G 19
23 I $P(^(0),D,13) S R=200 D F2 G 19
 ;
YZ K AVE,SWAV Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84