//Scriptfunktion 'MCFRM.FORMATSCHEMASTRING'
//FORMULAR-SCRIPT ONLY
//Formatiert ein Medikamenten Schemafeld basierend auf dem angegebenen Wert.
//Parameter:
//- Feldname: Der Name des Feldes, das formatiert werden soll.
//- Wert: Der Wert, der Formatiert werden soll, z.B. aus 11 > 1-1-0-0
//Beispiel:
FORMULAR.EXECFILENAME={APPPATH}\CONFIG\SCRIPTCMD\SOURCE\medikationsplan.apf
//Wenn das Formular zur Bearbeitung geöffnet wird, dann wird es im Modus EXECMODE="1 ausgeführt."
//Zum Testen der Modi die Variable durch setzten von FORMULAR.EXECMODE="0 überschreiben"
MAX="18"
ZA="0"
IFBLOCK{MSG=}
RES=DLGMESSAGE{Bitte geben Sie eine Zahl{$K} beispielsweise 1{$K} in das Feld 'Schema' ein und drücken Sie die Tab-Taste.}
MSG="1"
ENDIF
IFBLOCK{FORMULAR.ACTION=1}
//Datum setzten wenn VDATUM leer ist
TST=LEFT{{FORMULAR.FIELDNAME},6}
TST=UCASE{TST}
IFBLOCK{TST=VDATUM}
NR=MID{{FORMULAR.FIELDNAME},7}
VALUE=MCFRM.GETFIELDVALUE{VDATUM{NR}}
VALUEVS=MCFRM.GETFIELDVALUE{VoS{NR}}
IFBLOCK{VALUE=}
RES=MCFRM.SETFIELDVALUE{VDATUM{NR},{DATE}}
RES=EXITSCRIPT{}
ENDIF
ENDIF
CHECKN={GLASTFIELD}
CHECKN=MID{{CHECKN},1,6}
IFBLOCK{CHECKN=SCHEMA}
V=MCFRM.GETFIELDVALUE{{GLASTFIELD}}
RES=MCFRM.FORMATSCHEMASTRING{{GLASTFIELD},{V}}
ENDIF
ENDIF
IFBLOCK{FORMULAR.ACTION=2}
GLASTFIELD={FORMULAR.FIELDNAME}
ENDIF
