Internal Response IR_NEXT_HELP_PANEL If ((FIRST_HELP_LINE + 9) <= HELP_LINE_CNT) Then Let FIRST_HELP_LINE = (FIRST_HELP_LINE + 7) Else Signal Message "Ende Hilfe-Text zu diesem Stichwort erreicht." End If End Response Internal Response IR_PREVIOUS_HELP_PANEL If (FIRST_HELP_LINE > 1) Then Let FIRST_HELP_LINE = (FIRST_HELP_LINE - 7) If (FIRST_HELP_LINE < 1) Then Let FIRST_HELP_LINE = 1 End If Else Signal Message "Anfang Hilfe-Text zu diesem Stichwort erreicht." End If End Response Internal Response IR_GET_HELP_TEXT Call "get_help_text" Using By Reference STATUS By Reference FHELP Let FIRST_HELP_LINE = 1 Let FIRST_HELP_KEY = 1 Deactivate Group HELP_KEYS on P_HELP_TEXTE If (HELP_KEY_CNT > 0) Then Activate Field HELP_KEYS(1:HELP_KEY_CNT).HELP_KEY on P_HELP_TEXTE Position To Field HELP_KEYS(1).HELP_KEY On P_HELP_TEXTE Else If (HELP_LEVEL > 0) Then Position To Icon IGR.BACK_HELP On P_HELP_TEXTE Else Position To Icon IGR.EXIT_HELP On P_HELP_TEXTE End If End If End Response