Properties SourceCde
txt
1
*---------------------------------------------------------------------*
2
*       FORM LISTE_BACK                                               *
3
*---------------------------------------------------------------------*
4
*       ........                                                      *
5
*---------------------------------------------------------------------*
6
FORM liste_back.
7
  IF status-action EQ hinzufuegen.
8
    status-action = <status>-st_action = aendern.
9
    title-action  = aendern.
10
    CLEAR <status>-selected.
11
    neuer = 'N'.
12
  ENDIF.
13
  IF status-delete = geloescht.
14
    status-delete = <status>-st_delete = nicht_geloescht.
15
    title-action  = aendern.
16
    PERFORM markiere_alle USING nicht_markiert.
17
  ENDIF.
18
  IF x_header-delmdtflag NE space.
19
    LOOP AT vim_collapsed_mainkeys.
20
      IF vim_collapsed_mainkeys-mkey_bf EQ space.
21
        vim_collapsed_mainkeys-mkey_bf = vim_collapsed_mainkeys-log_key.
22
        CLEAR vim_collapsed_mainkeys-log_key.
23
      ENDIF.
24
      <f1_x> = <vim_h_coll_mkey>.
25
*      <f1> = vim_collapsed_mainkeys-mainkey.
26
      <vim_enddate_mask> = space.
27
      <vim_h_coll_mkey> = <f1_x>.
28
*      vim_collapsed_mainkeys-mainkey = <f1>.
29
      MODIFY vim_collapsed_mainkeys.
30
    ENDLOOP.
31
    IF vim_delim_expa_excluded NE space.
32
      DELETE excl_cua_funct WHERE function EQ 'EXPA'.
33
      CLEAR vim_delim_expa_excluded.
34
    ENDIF.
35
    IF status-action = aendern AND title-action = hinzufuegen.
36
      title-action  = aendern.
37
    ENDIF.
38
  ENDIF.
39
  PERFORM fill_extract.
40
  nextline = 1.
41
  mark_extract = mark_total.
42
  SET SCREEN liste.
43
  LEAVE SCREEN.
44
ENDFORM.