cTI226	;Vraag factuurwaarde ;%TI226 ; [ 03/22/00  10:05 AM ]
	G 1
	;
STAT	N SWSTAT,PAR
	S PAR=$P(@("^"_Q_"INTR(""%P"",""P"")"),D,$S(US=29:30,1:20))
	I PAR="N" G STATZ
	S SWSTAT=1
	G 1
STATZ	Q
	;
T0	;Vraag statistische waarde ;
T1	;Factuurwaarde;in ;
T2	;Statistische waarde;
	;
T0F	;Demande de la valeur fact. ;
T1F	;Valeur facture;en ;
T2F	;Valeur stat.;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; fact.waarde
1	S K="" I $D(WZ) S K=$P(A(1),D,U7#100) S:$E(K)="-" K=-K_"-"
11	S R="K\22\3\"_$S($G(SWSTAT):$P($T(@("T2"_QT)),U,2),1:$P($T(@("T1"_QT)),U,2))_"\C1\"_$P(U2,U,9)_"\\""-,""[K"
13	S R=R_$S($L($P(U2,U,11)):"!("_$P(U2,U,11)_")",1:"!1")
15	D R0 G YZ:K="-"!(K=",") I $D(WZ) S:'$L(K) K=$P(A(1),D,U7#100) S:$E(K)="-" K=-K_"-"
	;
YZ	Q
	;
	; commentaar
C1	W !?2,$P($T(@("T1"_QT)),U,3),$S($P(UDB,D,24)="":$P(@("^"_Q_"BA(39)"),D),1:$P(UDB,D,24)) I $D(WZ) W:$L(K) "   [] = ",K
C1Z	W @F1 Q
	;
	; vanuit wat geprint
S1	I $E(U3,$L(U3))="-" S (K,U3,B(U7))=-U3
S1A	I 'U3 S (K,U3,B(U7))=""
S1Z	Q
	;
ZZ	; 22.11.04 - 16 u 14 * V8.02