METHOD WDDOAPPLICATIONSTATECHANGE .
DATA: NODE_NODE_VBAK TYPE REF TO IF_WD_CONTEXT_NODE,
ELEM_NODE_VBAK TYPE REF TO IF_WD_CONTEXT_ELEMENT,
STRU_NODE_VBAK TYPE IF_INPUT_VIEW->ELEMENT_NODE_VBAK.
* navigate from <CONTEXT> to <NODE_VBAK> via lead selection
NODE_NODE_VBAK = WD_CONTEXT->GET_CHILD_NODE( NAME = IF_INPUT_VIEW=>WDCTX_NODE_VBAK ).
* get element via lead selection
ELEM_NODE_VBAK = NODE_NODE_VBAK->GET_ELEMENT( ).
* get all declared attributes
ELEM_NODE_VBAK->GET_STATIC_ATTRIBUTES(
IMPORTING
STATIC_ATTRIBUTES = STRU_NODE_VBAK ).
hi,
Please help me in this issue.
DATA: LS_WHERE(72) TYPE C,
LT_WHERE LIKE TABLE OF LS_WHERE,
LT_VBAK TYPE STANDARD TABLE OF ZSTR_VBAK.
* create where condition
IF NOT STRU_NODE_VBAK-VBELN EQ ''.
CONCATENATE 'VBELN = ''' STRU_NODE_VBAK-VBELN '''' INTO LS_WHERE.
APPEND LS_WHERE TO LT_WHERE.
ENDIF.
IF NOT STRU_NODE_VBAK-ERDAT EQ '00000000'.
CONCATENATE 'ERDAT = ''' STRU_NODE_VBAK-ERDAT '''' INTO LS_WHERE.
IF STRU_NODE_VBAK-VBELN NE ''.
CONCATENATE 'AND' LS_WHERE INTO LS_WHERE SEPARATED BY SPACE.
ENDIF.
APPEND LS_WHERE TO LT_WHERE.
ENDIF.
SELECT VBELN ERDAT ERZET ERNAM ANGDT BNDDT AUDAT VBTYP TRVOG AUART
AUGRU GWLDT SUBMI LIFSK FAKSK NETWR WAERK VKORG VTWEG SPART
VKGRP GSBER
FROM VBAK INTO TABLE LT_VBAK WHERE (LT_WHERE).
DATA:
NODE_NODE_ALV TYPE REF TO IF_WD_CONTEXT_NODE,
STRU_NODE_ALV TYPE IF_INPUT_VIEW=>ELEMENT_NODE_ALV .
* navigate from <CONTEXT> to <NODE_ALV> via lead selection
NODE_NODE_ALV = WD_CONTEXT->GET_CHILD_NODE( NAME = IF_INPUT_VIEW=>WDCTX_NODE_ALV ).
* get all declared attributes
NODE_NODE_ALV->BIND_TABLE( LT_VBAK ).
ENDMETHOD.
