cABI2	;Hulpprogramma's boekhouding ;%AB1 ; [ 06/29/01  2:42 PM ]
	G 1
	;
T1	;  1. Raadplegen 'data';DATA;
T2	; ;ZZ;
T3	; ;ZZ;
T4	;  4. Raadplegen verkoopdagboek;RS^cAN210("VE",0,0,0,0);
T5	;  5. Raadplegen aankoopdagboek;RS^cAN210("AA",0,0,0,0);
T6	;  6. Raadplegen financieel dagboek;RS^cAN210("FI",0,0,0,0);
T7	; ;ZZ;
T8	; ;ZZ;
T9	; ;ZZ;
T10	; ;ZZ;
T11	; ;ZZ;
T12	; ;ZZ;
T13	; ;ZZ;
T14	; 14. Raadplegen factuurbestand;^cT439;
T15	; ;ZZ;
T16	; 16. Raadplegen CODA-bestand;^cT369;
T17	; ;ZZ;
T18	; ;ZZ;
T19	; ;ZZ;
T20	; ;ZZ;
T99	;Nummer element\"Q[] = Q-waarde";
	;
	; Titel
1	D E^cA612,B^cA612
	D T^cA612($P($T(+1),U,2)_"["""_$ZU(5)_"""]",1,0,7,0,1)
	I $G(Q)'?1.3U S K="Q" G 34
	D T^cA612("Q="""_Q_"""",1,2,7,0,0)
	D ^cA604
	;
	; Mogelijkheden
2	F I=1:1:20 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP($S(I<11:I,1:I-10)+2,$S(I<11:1,1:41)),J
	D S2^cAB1
	;
	; Nummer element
3	S R="U1\22\3\"_$P($T(T99),U,2)_"\2",$P(R,D,11)=1 D R0 G YZ:K="-"
34	I K="Q" S R="Q\22\3\Q\""XX[] = Q-waarde""\3\\K?1.3A\\\1" D R0 G 1
	I K,K<21 S I=$T(@("T"_(+K))) D  S:K=""!($ZV["MSM") K=$P(I,U,3) D B^cA612,@K H 1 G 1
	. S K=$P(I,U,4) I $L(K),K'="ZZ",K'["^" S K="^"_K ; %-programma's Caché
39	G 3
	;
YZ	D E^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
	; ----------------------------------------------------------------------------
	; Raadplegen 'data' via DMA(0,"DATA")
DATA	S R=$NA(^DMA(0,"DATA"))
	I '$$LOCK^cANLOCK(R,"",R,1) G DATAZ
	S U1=$G(^DMA(0,"DATA",0,"DMS"))
	S R="U1\22\3\Kenletters DMS\\30",$P(R,D,13)=1 D R0
	I $L(K),K'="-",K'="," S ^DMA(0,"DATA",0,"DMS")=K D R^cAN200("DATA",0,"","") L
DATAZ	Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94