cT181A6	;Controlelijst analytische boekhouding ;%T193; [ 01/02/01  11:55 AM ]
	G 1
	;
T0	;Controlelijst analytische boekhouding ;
T1	;Er is geen controle beschikbaar !;
T2	;Laatste controle : ;
T4	;blz :;
T5	; (vervolg);
T6	;* Stuur deze lijst op naar :;
T7	;De controle werd niet volledig afgewerkt !;
T8	;Einde controle;
	;
T0F	;Edition du contrôle de la comptabilité analytique ;
T1F	;Il n'y a pas de résultats disponibles !;
T2F	;Dernier contrôle : ;
T4F	;page:;
T5F	; (suite);
T6F	;* Veuillez envoyer cette liste à :;
T7F	;Le contrôle n'était pas terminé !;
T8F	;*** Fin ***;
	;
T0E	;Report check analytical accounting ;
T1E	;There is no check available !;
T2E	;Last check : ;
T4E	;pge :;
T5E	; (continuation);
T6E	;* Send this report to :;
T7E	;The check has not been fully completed !;
T8E	;End check;
	;
S1	I LN>LNMAX S SW=1 D 8 S SW=0
S1Z	S LN=LN+1 Q
	;
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	I '$D(@("^"_Q_"CNTRLA")) G F1
13	S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),X=@("^"_Q_"CNTRLA"),FP=403 W @F,$P($T(@("T2"_QT)),U,2),$P(X,D,2)," - ",$P(X,D,3)
15	I $P(X,D,4)="" S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250)
	;
2	D ^cAN3223("","1",">80") G YZ:K="-" X F70 W @F80
21	S Q1="^"_Q_"CNTRLA(I1)",Q2="^"_Q_"CNTRLA(I1,I2)",Q3="^"_Q_"CNTRLA(I1,I2,I3)",Q4="^"_Q_"CNTRLA(I1,I2,I3,I4)"
23	S Q5="^"_Q_"CNTRLA(I1,I2,I3,I4,I5)",(I1,I2,I3,I4,I5,SW,BLZ)="" D 8
25	S K(1)="Data-M" S:$D(^cLOG(0,"ADRES",0)) K=^(0),K=^(K,1) F I=1:1:5 S:$D(^(I)) K(I)=^(I)
27	S K="",$P(K,"*",62)="",LN=LN+6 W !!,K,!,$P($T(@("T6"_QT)),U,2),?60,"*" F I=1:1:5 I $D(K(I)) W !,"*",?20,K(I),?60,"*",!,"*",?60,"*" S LN=LN+2
29	W !,K,!! K K
	;
3	S I1=$O(@Q1),SW=0 G 4:I1="" S K=$D(^(I1)) G 3:K<10 I K#10 S X=^(I1) D 81
31	S I2=$O(@Q2) G 3:I2="" S LN=LN+1 D S1 W !!,I2," : " W:$D(^(I2))#10 ^(I2)
33	S I3=$O(@Q3) G 31:I3="" D S1 W !,?$L(I2)+3,I3," : " W:$D(^(I3))#10 ^(I3)
35	S I4=$O(@Q4) G 33:I4="" D S1 W !,?$L(I2_I3)+6,I4," : " W:$D(^(I4))#10 ^(I4)
37	S I5=$O(@Q5) G 35:I5="" D S1 W !,?$L(I2_I3_I4)+9,I5," : ",^(I5) G 37
	;
4	S X=$P($T(@("T8"_QT)),U,2) D 81 W $$FF^cA334 X F71 G YZ
	;
8	W:BLZ $$FF^cA334 S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?124,DT,!,NM3,?125,TD
81	S LN=LN+2 W !!,@F85,X W:SW $P($T(@("T5"_QT)),U,2) W @F83 Q
	;
YZ	Q
F1	S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
	;
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
	;
Z	X ^cZ Q
ZZ	; 04.11.04 - 10 u 11 * V8.02