Help Panel P_HELP_TEXTE Viewport V_HELP_TEXTE Remove Entry Response Reset HELP_TEXT Deactivate WAIT On P_HELP_TEXTE Let HELP_COMMAND = HELP_INIT Let HELP_LEVEL = 0 Include IR_GET_HELP_TEXT End Response Function Response EXIT_FORM Exit Help End Response Function Response QUIT_FORM Exit Help End Response Function Response NEXT PANEL Include IR_NEXT_HELP_PANEL End Response Function Response PREVIOUS PANEL Include IR_PREVIOUS_HELP_PANEL End Response Literal Rectangle Line 1 Column 1 Line 18 Column 56 End Literal Literal Polyline Line 16 Column 1 Line 16 Column 56 End Literal Literal Polyline Line 11 Column 1 Line 11 Column 56 End Literal Literal Text Line 1 Column 2 Value " Hilfe : " Display Reverse End Literal Field HELP_COMMAND Line 1 Column 11 Display Reverse Output Picture XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Protected End Field Group HELP_TEXT Vertical Displays 9 First FIRST_HELP_LINE Field HELP_LINE Line 2 Column 3 Display Nobold Protected End Field End Group Field HTEXT_BAR_TOP Line 2 Column 54 Display Character Set Private_Rule Output "w" When (FIRST_HELP_LINE = 1) Output ":" When (FIRST_HELP_LINE >= 1) Protected End Field Literal Polyline Line 3 Column 54 Line 9 Column 54 Display Nobold End Literal Field HTEXT_BAR_BOT Line 10 Column 54 Display Character Set Private_Rule Output "v" When ((FIRST_HELP_LINE + 8) >= HELP_LINE_CNT) Output ":" When ((FIRST_HELP_LINE + 8) < HELP_LINE_CNT) Protected End Field Group HELP_KEYS Vertical Displays 4 First FIRST_HELP_KEY Function Response SELECT Let HELP_LEVEL = (HELP_LEVEL + 1) Let HELP_KP(HELP_LEVEL).POINT = CURRENT_HELP_KEY Let HELP_COMMAND = FIELDIMAGE Include IR_GET_HELP_TEXT End Response Function Response UP ITEM If FIRST OCCURRENCE VERTICAL Then Message "Keine weiteren Stichworte vorhanden" Signal %BELL Else Position Immediate To Up Occurrence End If End Response Function Response DOWN ITEM If (CURRENT_HELP_KEY < HELP_KEY_CNT) Then Position Immediate To Down Occurrence Else Position Immediate To Down Item End If End Response Field HELP_KEY Line 12 Column 3 Active Highlight Reverse No Data Input End Field End Group Field HKEYS_BAR_TOP Line 12 Column 54 Concealed When (HELP_KEY_CNT <= 0) Display Character Set Private_Rule Output "w" When (FIRST_HELP_KEY = 1) Output ":" When (FIRST_HELP_KEY >= 1) Protected End Field Literal Polyline Line 13 Column 54 Line 14 Column 54 End Literal Field HKEYS_BAR_BOT Line 15 Column 54 Concealed When (HELP_KEY_CNT <= 0) Display Character Set Private_Rule Output "v" When (FIRST_HELP_KEY > (HELP_KEY_CNT - 4)) Output ":" When (FIRST_HELP_KEY <= (HELP_KEY_CNT - 4)) Protected End Field Group IGR Function Response BOUNDARY CURSOR LEFT Include IR_BOUNDARY_CURSOR_LEFT End Response Function Response BOUNDARY CURSOR RIGHT Include IR_BOUNDARY_CURSOR_RIGHT End Response Icon BACK_HELP Function Response SELECT Let HELP_LEVEL = (HELP_LEVEL - 1) Let HELP_COMMAND = " " Include IR_GET_HELP_TEXT Position To Field HELP_KEYS(HELP_KP(HELP_LEVEL+1).POINT).HELP_KEY On P_HELP_TEXTE End Response Active Highlight Reverse Concealed When (HELP_LEVEL <= 0) Protected When (HELP_LEVEL <= 0) Literal Text Line 17 Column 4 Value " Zurück " End Literal End Icon Icon EXIT_HELP Function Response SELECT Exit Help End Response Active Highlight Reverse Literal Text Line 17 Column 48 Value " Ende " End Literal End Icon End Group End Panel