MCFRM.CLEARFIELDGROUPS

//Scriptfunktion 'MCFRM.CLEARFIELDGROUPS'
//Löschen Sie alle logischen Gruppen von Feldern in einem Formular-Skript.


//Formular-Script :{APPPATH}\Formular\Singer\SWN_Singer.FRMSCR
//Datum:24.10.2024
//*************************************************************************************************************
//Singer Formularscript Beispiel

FORMULAR.EXECFILENAME={APPPATH}\CONFIG\SCRIPTCMD\SOURCE\SWN_SINGER.APF


IFBLOCK{FORMULAR_INITIALIZE=True}
	FORMULAR_INITIALIZE="False"
	RES=MCFRM.CLEARFIELDGROUPS{}
	RES=MCFRM.ADDFIELDGROUP{Z1,Z1S*}
	RES=MCFRM.ADDFIELDGROUP{Z2,Z2S*}
	RES=MCFRM.ADDFIELDGROUP{Z3,Z3S*}
	RES=MCFRM.ADDFIELDGROUP{Z4,Z4S*}
	RES=MCFRM.ADDFIELDGROUP{Z5,Z5S*}
	RES=MCFRM.ADDFIELDGROUP{Z6,Z6S*}
	RES=MCFRM.ADDFIELDGROUP{Z7,Z7S*}
	RES=MCFRM.ADDFIELDGROUP{Z8,Z8S*}
	RES=MCFRM.ADDFIELDGROUP{Z9,Z9S*}
	RES=MCFRM.ADDFIELDGROUP{Z10,Z10S*}
	RES=MCFRM.ADDFIELDGROUP{Z11,Z11S*}
	RES=MCFRM.ADDFIELDGROUP{Z12,Z12S*}
	RES=MCFRM.ADDFIELDGROUP{Z13,Z13S*}
	RES=MCFRM.ADDFIELDGROUP{Z14,Z14S*}
	RES=MCFRM.ADDFIELDGROUP{Z15,Z15S*}
	RES=MCFRM.ADDFIELDGROUP{Z16,Z16S*}
	RES=MCFRM.ADDFIELDGROUP{Z17,Z17S*}
	RES=MCFRM.ADDFIELDGROUP{Z18,Z18S*}
	RES=MCFRM.ADDFIELDGROUP{Z19,Z19S*}
	RES=MCFRM.ADDFIELDGROUP{Z20,Z20S*}
	//Die FELDER heißen wirklich Bartel ;-)
	RES=MCFRM.ADDFIELDGROUP{BARTHEL,BARTEL*}
	RES=MCFRM.ADDFIELDGROUP{SINGER,SINGER*}
	RES=MCFRM.SETGROUPENABLED{BARTHEL,0}
	RES=MCFRM.SETGROUPENABLED{SINGER,0}
	RES=EXITSCRIPT{}
ENDIF

IFBLOCK{FORMULAR_AFTER_INITIALIZE=True}
	FORMULAR_AFTER_INITIALIZE=""
	RES=EXITSCRIPT{}
ENDIF


IFBLOCK{FORMULAR.ACTION=0}
	IFBLOCK{FORMULAR.FIELDNAME=BUTTONRECHNE}

		GO{rechne}
	ENDIF
ENDIF


RES=EXITSCRIPT{}

rechne:

//Initialisieren vor DO-LOOP
ANZ="0"
CLK="0"
COUNT_X="-1"
XVAR="-"

TEMPIII=SUM{{TEMPIII}+1}

DO{}
	ANZ=SUM{{ANZ}+1}

	Z{ANZ}S0=MCFRM.GETFIELDVALUE{Z{ANZ}S0}
	Z{ANZ}S1=MCFRM.GETFIELDVALUE{Z{ANZ}S1}
	Z{ANZ}S2=MCFRM.GETFIELDVALUE{Z{ANZ}S2}
	Z{ANZ}S3=MCFRM.GETFIELDVALUE{Z{ANZ}S3}
	Z{ANZ}S4=MCFRM.GETFIELDVALUE{Z{ANZ}S4}
	Z{ANZ}S5=MCFRM.GETFIELDVALUE{Z{ANZ}S5}

	COUNT_X="-1"

	XVAR="-"
	XVAR=Z{ANZ}S0
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="0"
	ENDIF

	XVAR="-"
	XVAR=Z{ANZ}S1
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="1"
	ENDIF

	XVAR="-"
	XVAR=Z{ANZ}S2
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="2"
	ENDIF

	XVAR="-"
	XVAR=Z{ANZ}S3
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="3"
	ENDIF

	XVAR="-"
	XVAR=Z{ANZ}S4
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="4"
	ENDIF

	XVAR="-"
	XVAR=Z{ANZ}S5
	XVAR=GETVAR{{XVAR}}

	IFBLOCK{XVAR=X}
		COUNT_X="5"
	ENDIF


	IFBLOCK{COUNT_X=-1}
		RES=MCFORMS.FORMS_MESSAGE{Fehler beim ausfüllen des Formulars!,Die Reihe {ANZ} wurde nicht bewertet!,1}
		RES=MCFRM.GOTOFIELD{SINGER{ANZ}}
		RES=EXITSCRIPT{}
	ENDIF


	RES=MCFRM.SETFIELDVALUE{SINGER{ANZ},{COUNT_X}}


	IFBLOCK{ANZ=20}
		EXIT{}
	ENDIF
LOOP{}

ANZ="0"

//Singersumme auf Null setzten weil Sie über SINGER* zur Gruppe gehört
RES=MCFRM.SETFIELDVALUE{SINGERSUMME,0}
SUMMESINGER=MCFRM.SUMGROUP{SINGER,0}

RES=MCFRM.SETFIELDVALUE{SINGERSUMME,{SUMMESINGER}}

//Barthel
BANZ="0"


DO{}
	BANZ=SUM{{BANZ}+1}

	FSINGER=""
	FBARTHEL=""
	FSINGER=MCFRM.GETFIELDVALUE{SINGER{BANZ}}

	IFBLOCK{BANZ=1}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=0,3=5,4=5,5=10}
	ENDIF
	IFBLOCK{BANZ=2}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=10}
	ENDIF
	IFBLOCK{BANZ=3}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=0,3=0,4=0,5=5}
	ENDIF
	IFBLOCK{BANZ=4}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=0,3=0,4=0,5=5}
	ENDIF
	IFBLOCK{BANZ=5}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=10}
	ENDIF
	IFBLOCK{BANZ=6}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=10}
	ENDIF
	IFBLOCK{BANZ=7}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=10}
	ENDIF
	IFBLOCK{BANZ=8}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=10,4=15,5=15}
	ENDIF
	IFBLOCK{BANZ=9}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=0,3=0,4=5,5=5}
	ENDIF
	IFBLOCK{BANZ=10}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=15}
	ENDIF
	IFBLOCK{BANZ=11}
		FBARTHEL=SELECT{FSINGER,0=0,1=0,2=5,3=5,4=10,5=10}
	ENDIF


	RES=MCFRM.SETFIELDVALUE{BARTEL{BANZ},{FBARTHEL}}
	IFBLOCK{BANZ=11}
		EXIT{}
	ENDIF
LOOP{}

//SUMMEBARTHEL

//Barthelsumme auf Null setzten weil Sie über BARTHEL* zur Gruppe gehört
RES=MCFRM.SETFIELDVALUE{BARTELSUMME,0}
SUMMEBARTHEL=MCFRM.SUMGROUP{BARTHEL,0}
RES=MCFRM.SETFIELDVALUE{BARTELSUMME,{SUMMEBARTHEL}}


RETURN