cABI6	;Wissels ;%ABI0 ; [ 02/14/02  5:00 PM ]
	;
T0	;Wissels ;
T1	;Keuze\"I[] = installatie   D[] = de-installatie";       
T2	;De-installatie;verwijderd.;
T3	;Installatie;opgezet.;
T4	;Klanten\"0[] = neen   1[] = ja";
	;
1	D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
	W /CUP(2,3) ZW Q
	W /CUP(3,3) ZW QN
11	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""ID-""[K&$L(K)\\\1" D R0 G YZ:K="-"
	;
	; de-installatie
2	I K="I" G 3
	I K="D" D
	. W /CUP(5,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,!
	. K @("^"_Q_"BA")@("MENU",10,29) D S1
	. K @("^"_Q_"BA")@("MENU",11,29) D S1
	. K @("^"_Q_"BA")@("MENU",15,7) D S1
	. S ^DPAR(Q,"SETUP","WI",0)=0_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0)_D_D_D_0_D_0_D D S2
	. D TXT^cAFA1(4)
	G YZ
	;
	; installatie
3	W /CUP(5,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,!
31	S R="KL\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""01-""[K&$L(K)\\\1" D R0 G 11:K="-"
	I KL=1 D
	. S @("^"_Q_"BA")@("MENU",10,29)="Openstaande wissels\13\43\^cT156;KL\D\^cT156\\\\\Journal des traites impayées" D S2
	S R="LE\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""01-""[K&$L(K)\\\1" D R0 G 31:K="-"
	I LE=1 S @("^"_Q_"BA")@("MENU",11,29)="Openstaande wissels\13\43\^cT156;LE\D\^cT156\\\\\Journal des traites impayées" D S2
	I KL'=0&(LE'=1) G 11
	S @("^"_Q_"BA")@("MENU",15,7)="Inboeken wissels\11\3\^cT158\D\^cT158\\\\\Inscription des traites" D S2
	S ^DPAR(Q,"SETUP","WI",0)=1_D_DT_D_TD_D_$H_D_QU_D_boot_D_cs_D_$T(+0)_D_D_D_0_D_0_D D S2
	D TXT^cAFA1(4)
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S1	W !?5,$ZR,?40,$P($T(@("T2"_QT)),U,3)
S1Z	Q
	;
S2	W !?5,$ZR,?40,$P($T(@("T3"_QT)),U,3)
S2Z	Q
	;
ZZ	; 19.05.04 - 16 u 09 * V8