abap2xlsx/src/zcl_excel_comments.clas.abap
Stefan Rutzmoser 1c276c6027
Fix package errors (#708)
* Fix package check errors

* Bump version number to 7.2.0
2020-11-10 18:21:38 +01:00

101 lines
1.5 KiB
ABAP

class ZCL_EXCEL_COMMENTS definition
public
final
create public .
public section.
methods ADD
importing
!IP_COMMENT type ref to ZCL_EXCEL_COMMENT .
methods INCLUDE
importing
!IP_COMMENT type ref to ZCL_EXCEL_COMMENT .
methods CLEAR .
methods CONSTRUCTOR .
methods GET
importing
!IP_INDEX type ZEXCEL_ACTIVE_WORKSHEET
returning
value(EO_COMMENT) type ref to ZCL_EXCEL_COMMENT .
methods GET_ITERATOR
returning
value(EO_ITERATOR) type ref to CL_OBJECT_COLLECTION_ITERATOR .
methods IS_EMPTY
returning
value(IS_EMPTY) type FLAG .
methods REMOVE
importing
!IP_COMMENT type ref to ZCL_EXCEL_COMMENT .
methods SIZE
returning
value(EP_SIZE) type I .
protected section.
private section.
data COMMENTS type ref to CL_OBJECT_COLLECTION .
ENDCLASS.
CLASS ZCL_EXCEL_COMMENTS IMPLEMENTATION.
METHOD add.
DATA: lv_index TYPE i.
comments->add( ip_comment ).
lv_index = comments->size( ).
ENDMETHOD.
METHOD clear.
comments->clear( ).
ENDMETHOD.
METHOD constructor.
CREATE OBJECT comments.
ENDMETHOD.
method GET.
DATA lv_index TYPE i.
lv_index = ip_index.
eo_comment ?= comments->get( lv_index ).
endmethod.
method GET_ITERATOR.
eo_iterator ?= comments->get_iterator( ).
endmethod.
METHOD include.
comments->add( ip_comment ).
ENDMETHOD.
method IS_EMPTY.
is_empty = comments->is_empty( ).
endmethod.
method REMOVE.
comments->remove( ip_comment ).
endmethod.
method SIZE.
ep_size = comments->size( ).
endmethod.
ENDCLASS.