cABI01	;(De)Installatieprogramma's  ;%ABI0  [ 13/03/2002 - 17:07:01 - 58876,61621 ]
	;
	G 1
	;
T1	;  1. (De)installatie (producten);^cABI1;
T2	;  2. (De)installatie toonbank;^cFW999;
T3	;  3. (De)installatie codebestanden;^cABI3;
T4	;  4. (De)installatie leveringsadressen;^cABI4;
T5	;  5. (De)installatie factuurlijnen;^cABI5;
T6	;  6. (De)installatie wissels;ZZ;
T7	;  7. (De)installatie afschrijvingen;ZZ;
T8	;  8. (De)installatie CODA;ZZ;
T9	;  9. (De)installatie doorboekingen;ZZ;
T10	; 10. (De)installatie stockbeheer;ZZ;
T11	; 11. (De)installatie analytische BH;ZZ;
T12	; 12. (De)installatie intrastat;ZZ;
T13	; 13. (De)installatie budgetten;ZZ;
T14	; 14. (De)installatie statistieken;ZZ;
T15	; 15. (De)installatie utili-data;ZZ;
T16	; ;ZZ;
T17	; ;ZZ;
T18	; ;ZZ;
T19	; ;ZZ;
T20	; ;ZZ;
T21	; 21. Niet-beheerbare parameters Verkoop;ZZ;
T22	; 22. Niet-beheerbare parameters Prod.;ZZ;
T23	; 23. Niet-beheerbare parameters Aankoop;ZZ;
T24	; 24. Niet-beheerbare parameters Klanten;ZZ;
T25	; ;ZZ;
T26	; ;ZZ;
T27	; 27. (De)Installatie klantenstock;^cABI27;
T28	; 28. (De)Installatie verkoopadm.;ZZ;
T29	; 29. (De)Installatie aankoopadm.;ZZ;
T30	; 30. (De)Installatie deelproducten;ZZ;
T31	; 31. (De)Installatie productienota's;ZZ;
T32	; 32. (De)Installatie bestelvoorstel;ZZ;
T33	; 33. (De)Installatie toestellen;ZZ;
T34	; 34. (De)Installatie machines;ZZ;
T35	; 35. (De)Installatie autom.teksten;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 31
	D T^cA612("Q="""_Q_"""",1,2,7,0,0)
	D ^cA604
	;
	; Mogelijkheden
	F I=1:1:35 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP($S(I<21:I,1:I-20)+2,$S(I<21:1,1:41)),J
2	;F I=1:1:15 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP(I+2,1),J
	;F I=21:1:35 S J=$P($T(@("T"_I)),U,2) Q:J=""  W /CUP((I-20)+2,41),J
	;
	; Nummer element
3	S R="U1\22\3\"_$P($T(T99),U,2)_"\2",$P(R,D,11)=1 D R0 G YZ:K="-"
31	I K="Q" S R="Q\22\3\Q\""XX[] = Q-waarde""\3\\K?1.3A\\\1" D R0 G 1
	I K,K<36 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é
33	G 3
	;
YZ	D E^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93