MCFORMS.FORMS_LIST_SHOW

//Scriptfunktion 'MCFORMS.FORMS_LIST_SHOW'

//Zeigt eine MCFORM-Liste, die zuvor mit MCFORMS.FORMS_LIST_ADD gefüllt wurde.

//Parameter:
// Titel: Überschrift der Liste
// Anzahl der Werte, die man auswählen kann
// Position der Listbox: 0 an der Cursor-Position, 1 zentriert


SQL=""
SQL="Select Kuerzel, Name, Vorname FROM Arzte order by name"
ANZREC=DB.OPEN{{APPPATH}\DATABASE\STAMMDAT.MDB,{SQL},True}
ANZ="0"

DO{}
	ANZ=SUM{{ANZ}+1}
	RESULT=""
	RESULT=DB.GETRECORD{FIELD_}
	RES=MCFORMS.FORMS_LIST_ADD{{FIELD_NAME}{$K} {FIELD_VORNAME},{FIELD_KUERZEL},False}
	RESULT=DB.NEXTRECORD{}

	IFBLOCK{ANZ={ANZREC}}
		EXIT{}
	ENDIF


LOOP{}

RESULT=DB.CLOSE{}

RES=MCFORMS.FORMS_LIST_SHOW{Personen Liste (Wählen Sie max. 3 personen aus!),3,1}

AUSGEW=""
ANZ="0"
IFBLOCK{MCFORM.LIST_RESULT_COUNT>0}
	DO{}
		ANZ=SUM{{ANZ}+1}

		TXT=""
		TXT="MCFORM.LIST_RESULT"
		TXT={TXT}{ANZ}
		WERT=GETVAR{{TXT}}
		AUSGEW={AUSGEW}{WERT}{RET}

		IFBLOCK{ANZ={MCFORM.LIST_RESULT_COUNT}}
			EXIT{}
		ENDIF

	LOOP{}
	RES=MCFORMS.FORMS_MESSAGE{Ausgewählte Personen,{AUSGEW},1}
ELSE
	RES=MCFORMS.FORMS_MESSAGE{Ausgewählte Personen,Sie haben keine Personen ausgewählt!,1}
ENDIF