* ----------------------------------------------------------------------------
Append New Component: RPLM_QIMT_CODSELECT_COMP (ex : CODESELECT)
* ----------------------------------------------------------------------------
Propriety Controller
* ----------------------------------------------------------------------------
Add component in Input Help of context (ex: CODESELECT for fields MNGRP & MNCOD – from table QMMA)
* ----------------------------------------------------------------------------
Add Attribute: IF_WD_CONTEXT_ELEMENT (ex: LV_CURRENT_ELEMENT)
* ----------------------------------------------------------------------------
Append 2 Methods
1 Open (from CODESELECT component)
Select default values (and save context in attribute LV_CURRENT_ELEMENT)
2 Close (from CODESELECT component)
Return values selected (and use this user selection)
Open method:
DATA: L_REF_CMP_USAGE TYPE REF TO IF_WD_COMPONENT_USAGE.
DATA: L_REF_INTERFACECONTROLLER TYPE REF TO IWCI_RPLM_QIMT_CODSELECT_COMP.
DATA: LT_CODE_IN TYPE RPLM_TT_QPK1CODEGRP.
DATA: LR_VH_ELEMENT TYPE REF TO IF_WD_CONTEXT_ELEMENT,
LV_VH_ATTRIBUTE_INFO TYPE WDR_CONTEXT_ATTRIBUTE_INFO.
L_REF_CMP_USAGE = WD_THIS->WD_CPUSE_CODESELECT( ).
IF L_REF_CMP_USAGE->HAS_ACTIVE_COMPONENT( ) IS INITIAL.
L_REF_CMP_USAGE->CREATE_COMPONENT( ).
ENDIF.
L_REF_INTERFACECONTROLLER = WD_THIS->WD_CPIFC_CODESELECT( ).
CLEAR: LR_VH_ELEMENT.
CALL METHOD L_REF_INTERFACECONTROLLER->GET_CONTEXT
IMPORTING
ER_F4_CONTEXT_ELEMENT = LR_VH_ELEMENT
EV_F4_ATTRIBUTE_INFO = LV_VH_ATTRIBUTE_INFO.
WD_THIS->LV_CURRENT_ELEMENT = LR_VH_ELEMENT.
CLEAR LT_CODE_IN.
APPEND YOUR CODEGROUP TO LT_CODE_IN[].
L_REF_INTERFACECONTROLLER->START_CODE_SELECT(
IV_CODE = '*'
IV_CODEGRUPPE = '*'
IV_KATALOGART = 'A' => A = Activity, …
IV_MULTISELECT = ABAP_FALSE
IT_CODEGRUPPEN = LT_CODE_IN ).
Close method:
DATA: L_REF_INTERFACECONTROLLER TYPE REF TO IWCI_RPLM_QIMT_CODSELECT_COMP .
DATA: LT_CODES_SELECTED TYPE RPLM_TT_QIMT_CODE,
LS_CODES_SELECTED TYPE RPLM_TS_QIMT_CODE.
DATA: LR_ELEMENT TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA: DV_INDEX TYPE I. “ Index ALV for Ex
DATA LO_ND_IT_QMMA TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LT_IT_QMMA TYPE WD_THIS->ELEMENTS_IT_QMMA.
DATA LS_IS_QMMA TYPE WD_THIS->ELEMENT_IT_QMMA.
* ----------------------------------------------------------------------------
L_REF_CMP_USAGE = WD_THIS->WD_CPUSE_CODESELECT( ).
IF L_REF_CMP_USAGE->HAS_ACTIVE_COMPONENT( ) IS INITIAL.
L_REF_CMP_USAGE->CREATE_COMPONENT( ).
ENDIF.
L_REF_INTERFACECONTROLLER = WD_THIS->WD_CPIFC_CODESELECT( ).
CALL METHOD L_REF_INTERFACECONTROLLER->RETURN_CODES
IMPORTING
ET_CODES = LT_CODES_SELECTED.
CHECK LT_CODES_SELECTED IS NOT INITIAL.
CLEAR LS_CODES_SELECTED.
READ TABLE LT_CODES_SELECTED INTO LS_CODES_SELECTED INDEX 1.
CHECK SY-SUBRC EQ 0.
CHECK LS_CODES_SELECTED IS NOT INITIAL.
* ----------------------------------------------------------------------------
* Ex for ALV – LT_IT_QMMA
* ----------------------------------------------------------------------------
CLEAR: LR_ELEMENT.
LR_ELEMENT = WD_THIS->LV_CURRENT_ELEMENT.
CHECK LR_ELEMENT IS NOT INITIAL.
CLEAR DV_INDEX.
CHECK LR_ELEMENT IS NOT INITIAL .
CALL METHOD LR_ELEMENT->GET_INDEX
RECEIVING
MY_INDEX = DV_INDEX.
CHECK DV_INDEX IS NOT INITIAL.
LO_ND_IT_QMMA = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_IT_QMMA ).
CHECK LO_ND_IT_QMMA IS NOT INITIAL.
CLEAR LT_IT_QMMA.
LO_ND_IT_QMMA->GET_STATIC_ATTRIBUTES_TABLE( IMPORTING TABLE = LT_IT_QMMA ).
CLEAR LS_IS_QMMA.
READ TABLE LT_IT_QMMA INTO LS_IS_QMMA INDEX DV_INDEX.
CHECK SY-SUBRC EQ 0.
CHECK LS_IS_QMMA IS NOT INITIAL.
MOVE : SY-MANDT TO LS_IS_QMMA-MANDT,
LV_QMNUM TO LS_IS_QMMA-QMNUM,
LS_CODES_SELECTED-KATALOGART TO LS_IS_QMMA-MNKAT,
LS_CODES_SELECTED-CODEGRUPPE TO LS_IS_QMMA-MNGRP,
LS_CODES_SELECTED-CODE TO LS_IS_QMMA-MNCOD,
LS_CODES_SELECTED-KURZTEXTCD TO LS_IS_QMMA-MATXT.
MODIFY LT_IT_QMMA FROM LS_IS_QMMA INDEX DV_INDEX.
CHECK SY-SUBRC EQ 0.
LO_ND_IT_QMMA->BIND_TABLE( NEW_ITEMS = LT_IT_QMMA SET_INITIAL_ELEMENTS = ABAP_TRUE ).
- SAP Managed Tags:
1 Comment
