cAFVBA05	; Functies ivm multi-select in dotNET; cAFVBA05
	;
T1	;
	;
T1F	;
	;
T1E	;
	;
T1D	;
	;
YZ	Q
	;
	; Mtemp99 opbouwen met alle (niet verwijderde) records van het doorgegeven bestand
KEU(Q,DMS,SWOP)	
	; Input: Q:    Vennootschap, NIET doorgeven als referentie!
	;        DMS:  DMS van het bestand waarvoor IREF moet bepaald worden
	;        SWOP: "",0: Enkel operationele
	;              1: Alle
	; Output: Index-global
	N IREF,KEU,I3,I4,UI1,REF,UREF
	;
	; Q(49) bepalen voor doorgegeven DMS
KEU1	D Q49^cAFA10(Q,DMS)
	; 
	; Index-global bepalen (ofwel 101 ofwel multiple met B-indexen 149 en 101)
KEU2	S REF=$$REF^cAFA10(.Q,DMS,101),UREF=$P(REF,D),IREF=$P(REF,D,3) I '$L(IREF) S KEU="" G KEUZ
	;
	; Nieuw gridid ophalen
KEU3	S KEU=$$GRIDID^cAFVBF01()
	;
	; Mtemp99 met alle records opzetten
KEU4	S I3=""
KEU41	S I3=$O(@IREF@(I3)),I4="" I '$L(I3) G KEUZ
KEU42	S I4=$O(@IREF@(I3,I4)) I '$L(I4) G KEU41
	S UI1=$P(^(I4),D)
	I +$G(SWOP)=0 I $P(@UREF@(0),D,30) G KEU42 ; Enkel operationele
	S ^mtemp99(KEU,"COMMON",UI1)=""
	G KEU42
	;
KEUZ	Q KEU
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09