內(nèi)容用實(shí)例學(xué)web dynpro free和

2）LAYOUTTREETREE_NODE_TYPE，并綁定以下參數(shù)： TREE_NODE-TEXT:MAIN.ROOT.PARENT.DESCPmethodWD NITmethodWD NIT.TYPEREFTOLR_CURRENT_ELEMENTTYPEREFTO*取得根=WD_CONTEXT->GET_CHILD_NODE('ROOT'LR_CURRENT_ELEMENT=LR_CURRENT_NODE->GET_LEAD_SELECTION(*在根節(jié)點(diǎn)上創(chuàng)建子結(jié)CUR_ELEMENT= = methodmethodCREATE_NODE.LR_CUR_NODETYPEREFTO在當(dāng)前的結(jié)點(diǎn)上生成子結(jié)LR_CUR_NODE=CUR_ELEMENT->GET_CHILD_NODE(NODE_NAME在生成的子節(jié)點(diǎn)上創(chuàng)建元CUR_ELEMENT=CUR_ELEMENT =LR_CUR_NODE =NODE_NAME).METHODCREATE_ELEMENT TYPETABLE

TYPEREFTO LR_NODETYPEREFTOIF_WD_CONTEXT_NODE,LR_ELEMENTTYPEREFTOIF_WD_CONTEXT_ELEMENT.*取得數(shù)DATA:LT_03TYPETABLEOFZCGTEST03,LS_03TYPEZCGTEST03.SELECT*FROMINTOCORRESPONDINGFIELDSOFTABLELOOPATLT_03INTOMOVE-CORRESPONDINGLS_03TOLS_PARENT.APPENDLS_PARENTTOLT_PARENT.SORTLT_PARENTBYIFNODE_NAME="設(shè)定父結(jié)READTABLEINTOWITHKEYNAME= READTABLELT_PARENTINDEX1INTOLR_CUR_ELEMENT=CUR_NODE->CREATE_ELEMENT().NAME=VALUE=LS_PARENT-NAMENAME='DESCP'VALUE=LS_PARENT-DESCP).NAME=VALUE=LS_PARENT-IDNAME='HAS_CHILDREN'VALUE=ABAP_TRUE).NEW_ITEM=LR_CUR_ELEMENTSET_INITIAL_ELEMENTS=ABAP_FALSE)."設(shè)定子結(jié)STATIC_ATTRIBUTES=LS_PARENTLOOP_COUNTER=LOOPATLT_PARENTINTOLS_PARENTWHEREPARENT_ID=LS_PARENT-ID."判斷該子結(jié)點(diǎn)是否還有子結(jié)READTABLELT_PARENTTRANSPORTINGNOWITHKEYPARENT_ID=LS_PARENT-IDBINARYSEARCH.IFSY-SUBRC=0.LS_PARENT-HAS_CHILDREN=ABAP_TRUE.LS_PARENT-HAS_CHILDREN=ABAP_FALSE.LR_CUR_ELEMENT=CUR_NODE->CREATE_ELEMENT(LR_CUR_ELEMENT->SET_ATTRIBUTE(NAME='NAME'VALUE=-NAMELR_CUR_ELEMENT->SET_ATTRIBUTE(NAME='DESCP'VALUE=LS_PARENT-DESCP).LR_CUR_ELEMENT->SET_ATTRIBUTE(NAME='ID'VALUE=IDLR_CUR_ELEMENT->SET_ATTRIBUTE(NAME='HAS_CHILDREN'VALUE=S_PARENT-HAS_CHILDREN"如果是第一個(gè)子結(jié)點(diǎn)初始化其屬IFLOOP_COUNTER=CUR_NODE->BIND_ELEMENT(NEW_ITEM=LR_CUR_ELEMENTSET_INITIAL_ELEMENTS=ABAP_TRUE).CUR_NODE->BIND_ELEMENT(NEW_ITEM=LR_CUR_ELEMENTSET_INITIAL_ELEMENTS=ABAP_FALSE).LOOP_COUNTERLOOP_COUNTER=LOOP_COUNTER+methodONACTIONONLOAD_CHILDmethodONACTIONONLOAD_CHILDLR_CONTEXT_ELEMENTTYPEREFTO*生成子LR_CONTEXT_ELEMENT=WDEVENT->GET_CONTEXT_ELEMENT('CONTEXT_ELEMENT').CUR_ELEMENT=LR_CONTEXT_ELEMENT ='CHILD').methodmethodONACTIONSELECT_NODETYPEREFTOIF_WD_CONTEXT_NODE,TYPEREFTOIF_WD_CONTEXT_ELEMENT,TYPEREFTO*取得選中的數(shù)STATIC_ATTRIBUTESSTATIC_ATTRIBUTES=LS_PARENTLO_ND_SELECTION=WD_CONTEXT->GET_CHILD_NODE(NAME=WD_THIS->WDCTX_SELECTION).LO_EL_SELECTION=LO_ND_SELECTION->GET_ELEMENT().STATIC_ATTRIBUTES=LS_PARENT*F4****LW_ID=LS_PARENT-P_CONTROLLER->FIRE_SELECT_EVT(IV_OBJID=LW_IDTREE3，將TREEWDA修改，適用 在中添加SELECT，并為其賦參數(shù)methodSET_VALUE_HELP_LISTENER.WD_THIS->F4_LISTENER=methodSET_VALUE_HELP_LISTENER.WD_THIS->F4_LISTENER=LISTENER.methodONACTIONSELECT_NODETYPEREFTOIF_WD_CONTEXT_NODE,TYPEREFTOIF_WD_CONTEXT_ELEMENT,TYPEREFTO取得選中的數(shù)STATIC_ATTRIBUTES=LS_PARENTLO_ND_SELECTION=WD_CONTEXT->GET_CHILD_NODE(NAME=WD_THIS->WDCTX_SELECTION).LO_EL_SELECTION=LO_ND_SELECTION->GET_ELEMENT().STATIC_ATTRIBUTES=LS_PARENT觸發(fā)F4搜索幫LW_ID=LS_PARENT-P_CONTROLLER->FIRE_SELECT_EVT(IV_OBJID=LW_ID).P_CONTROLLER->F4_LISTENER->CLOSE_WINDOW().5）VIEW：6）VIEW添加到WINDOWWD_VALUE_HELP4創(chuàng)建調(diào) -PROG幫助的創(chuàng)建WDA，在組件中VIEWLAYOUT中，創(chuàng)建INPUT_FILED，并綁定到methodON_F4_HELPDATALO_ND_N_INFOmethodON_F4_HELPDATALO_ND_N_INFOTYPEREFTODATALO_EL_N_INFOTYPEREFTOIF_WD_CONTEXT_ELEMENT.DATALS_N_INFOTYPEWD_THIS->ELEMENT_N_INFO.DATALV_TEXTTYPEWD_THIS->ELEMENT_N_INFO-NAVIGATENAVIGATEFROM<CONTEXT>TO<N_INFO>VIALEADLO_ND_N