cABI0	;Interne programma's ;%AB1 ; [ 13/03/2002 - 16:32:36 - 58876,59556 ]
	G 1
	;
T1	;  1. Controle database boekhouding;^cI3;
T2	;  2. Controle boekhouding;^cT181;
T3	;  3. Verwijderen verkoopfactuur;^cT3;
T4	;  4. Opzetten 0-factuur;^cT214;
T5	;  5. Parameters boekhouding;^cT167;
T6	;  6. Heropenen boekingsmaand/jaar;^cT93;
T7	;  7. Opzoeken reeksen factuurnummers;^cI35;
T8	;  8. Hulpprogramma's boekhouding;^cABI2;
T9	;  9. Uitkuisen database;^cI66;
T10	; 10. Uitkuisen boekhouding;^cT42;
T11	; 11. (De)installatieprogramma's;^cABI01;
T12	; 12. Codebestanden;^cABI02;
T13	; 13. Hulpprogramma's UGL;^cABI03;
T14	; 14. VB;^cABI04;
T15	; ;ZZ;
T16	; 16. Initialiseren beginstock;^cI50;
T17	; 17. Controle R-lijnen;OD^cI530;
T18	; 18. Controle T-lijnen;TO^cI530;
T19	; 19. Controle stock tov L-lijnen;^cI51;
T20	; 20. Controle stock tov H-lijnen;^cI56;
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
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94