ZwdDynscreen/zcl_dynscreen_tabbed_block.clas.abap at master · WegnerDan/ZwdDynscreen · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
CLASS zcl_dynscreen_tabbed_block DEFINITION PUBLIC INHERITING FROM zcl_dynscreen_base CREATE PUBLIC
GLOBAL FRIENDS zcl_dynscreen_tab.
  PUBLIC SECTION.
    TYPES:
      mty_lines TYPE n LENGTH 3 .
    METHODS:
      constructor IMPORTING io_parent TYPE REF TO zcl_dynscreen_screen_base
                            iv_lines  TYPE mty_lines OPTIONAL
                  RAISING   zcx_dynscreen_incompatible
                            zcx_dynscreen_too_many_elems,
      set_lines IMPORTING iv_lines TYPE mty_lines,
      get_lines RETURNING VALUE(rv_lines) TYPE mty_lines.
  PROTECTED SECTION.
    DATA:
      mv_lines TYPE mty_lines.
    METHODS:
      generate_close REDEFINITION,
      generate_open REDEFINITION.
  PRIVATE SECTION.
ENDCLASS.


CLASS zcl_dynscreen_tabbed_block IMPLEMENTATION.

  METHOD constructor.
* ---------------------------------------------------------------------
    DATA:
      lo_parent TYPE REF TO zcl_dynscreen_base.

* ---------------------------------------------------------------------
    super->constructor( ).

* ---------------------------------------------------------------------
    IF iv_lines > 0.
      set_lines( iv_lines ).
    ELSE.
      set_lines( 36 ).
    ENDIF.

* ---------------------------------------------------------------------
    mv_is_variable = abap_false.

* ---------------------------------------------------------------------
    lo_parent = io_parent.
    lo_parent->add( me ).

* ---------------------------------------------------------------------
  ENDMETHOD.


  METHOD generate_close.
* ---------------------------------------------------------------------
    APPEND
    mc_syn-selscreen && ` ` && mc_syn-end && ` ` && mc_syn-block && ` ` && mc_syn-blk_prefix && mv_id && '.'
    TO mt_source.

* ---------------------------------------------------------------------
  ENDMETHOD.


  METHOD generate_open.
* ---------------------------------------------------------------------
    APPEND
    mc_syn-selscreen && ` ` && mc_syn-begin && ` ` && mc_syn-tabblock && ` ` && mc_syn-blk_prefix && mv_id && ` FOR ` && mv_lines && ` LINES.`
    TO mt_source.

* ---------------------------------------------------------------------
  ENDMETHOD.


  METHOD get_lines.
* ---------------------------------------------------------------------
    rv_lines = mv_lines.

* ---------------------------------------------------------------------
  ENDMETHOD.


  METHOD set_lines.
* ---------------------------------------------------------------------
    mv_lines = iv_lines.

* ---------------------------------------------------------------------
  ENDMETHOD.

ENDCLASS.