webdynpro進(jìn)階篇案例十三使用Tree動態(tài)結(jié)構(gòu)RecursionTre

案例十三Tree(Tree結(jié)構(gòu)—RecursionTree)及其一：需然后解析成Webdynpro中使用的tree數(shù)據(jù)。最終結(jié)果另外，不同的結(jié)點(diǎn)對應(yīng)著不同的editpanel:apply,點(diǎn)tree的其他結(jié)點(diǎn)，點(diǎn)save,view,solution,language，換status，都會觸發(fā)“Apply”的功能：也就是將editpanel（綁定著context）中的數(shù)據(jù)賦給我tree.如下還提供restore功能，可以放棄當(dāng)前的操作，返回至上一次save完成時所做的操作。二：實(shí)解析XMLstring,產(chǎn)生內(nèi)表（使用Recursion總體設(shè)這里是，tree不是固定的，也就是說，treeCOA,CCD16種objecttypeSolutionBuilderRepository中拿數(shù)class實(shí)現(xiàn)MetaXMLmethodlo_exceptionTYPEREFTO/SMB/CX_PA_XML_TREE, typestring, typetyp_xmldef, typetyp_t_xmldef, typeREFTOif_ixml_node, typeREFTO*1st,parsethedefinitionXMLim_xmlstring=me->DEF_XMLeo_xmlnode= eo_parser=lo_parserCATCH/SMB/CX_PA_XML_TREEINTOlo_exception.lw_msg=lo_exception->get_text().RAISEEXCEPTIONTYPEEXPORTINGerror_message=**usethisXMLnodetocreateoneDefinition-Internal-io_xmlnode=lo_xmlnodees_xmldef=ls_xmldefET_XMLDEF=lt_xmldef *2nd,parsetheEnterpriseStructureXMLim_xmlstring=me- eo_xmlnode eo_xmlnode eo_parser= CATCH/SMB/CX_PA_XML_TREEINTO lw_msg=lo_exception->get_text( RAISEEXCEPTIONTYPE EXPORTINGerror_message=**usethisXMLnodetocreateoneDefinition-Internal- io_xmlnode= = it_xmldef= ET_XMLnode= ET_XMLATTR= CATCH/SMB/CX_PA_XML_TREEINTO lw_msg=lo_exception->get_text( RAISEEXCEPTIONTYPE EXPORTINGerror_message="IFET_XMLNODEisINITIALorET_XMLATTRis MESSAGEe003into RAISEEXCEPTIONTYPE EXPORTINGerror_message=lw_msg."ENDIF.methoddatalw_msgtypedatatempxml_stringtypetempxml_string=datal_xmltypedatal_ixmltypereftodatal_streamfactorytypereftodatal_istreamtypereftodata typerefto datal_parsertypereftodatanodetypereftodata tortyperefto data typerefto CreatingthemainiXML l_ixml=cl_ixml=>create(Creatingastream l_istream=l_streamfactory->create_istream_cstring(string=tempxml_string).Creating =l_ixml- (Createa l_parser=l_ixml->create_parser(stream_factory= == ifl_parser->parse()ne ifl_parser->num_errors()ne MESSAGEe003into "ParseXMLstring RAISEEXCEPTIONTYPE EXPORTINGerror_message= CALLMETHODl_istream->close( CLEAR eo_xmlnode?= EO_PARSER=.DEFDEF的XMLmethodDATA:lw_nodenamTYPE TYPEREFTOCASEIO_XMLNODE->get_type(WHENif_ixml_node=>co_node_element.lw_nodenam=io_xmlnode->get_name().CASEWHEN'ITEM'or "NewITEMIFES_XMLDEFisnotappendES_XMLDEFto WHEN WHEN WHEN WHEN "when *recursionlw_node=IO_XMLNODE->get_first_child("lw_node=WHILENOTlw_nodeIS io_xmlnode= es_xmldef= ET_XMLDEF=ET_XMLDEF lw_node=lw_node->get_next(EPSEPS的XMLmethod

type typereftoif_ixml_node, typestring,itortypereftoif_ixml_node_i typereftoif_ixml_named_node_map, typereftoif_ixml_node.ifIO_XMLNODEisMESSAGEe003into"ParseXMLstringRAISEEXCEPTIONTYPEEXPORTINGerror_message=ifIO_PARSER->is_dom_generating()eqitor=IO_XMLNODE->create_itor(*getcurrentlo_node=IO_XMLNODElo_node=itor->get_next(whilenotlo_nodeisinitial.lo_node->get_type().WHENelement =node->get_name( nodemap nodemap=lo_node->get_attributes( ifnotnodemapis attr=nodemap->GET_NAMED_ITEM('ObjectType' VALUE1=ATTR->GET_VALUE( IFVALUE1cs*Recursion callmethod = = it_xmldef= et_xmlnode= et_xmlattr= lo_node= tor->get_next(METHODMETHOD TYPE TYPE ls_xmlnode2TYPE TYPE TYPEREFTOif_ixml_node, TYPEstring,l TYPE TYPEnodemapTYPEREFTODATA:nodelistTYPEREFTOif_ixml_node_list,sub_nodeTYPEREFTO_node,countTYPEi,index_numTYPEi,parent_idTYPE TYPEi,lw_idxTYPEi, TYPEstring, TYPEstring.ifitistheroot,insertittotheIFim_parid=nodemap=im_node->get_attributes(attr=nodemap->get_named_item('ObjectType').value1=attr->get_value().CLEAR:***forXMLDESCRIBETABLEet_xmlnodeLINESlw_index.ls_xmlnode-solu_id=me->solu_id.ls_xmlnode-node_id=lw_index+1.ls_xmlnode-node_type=value1.ls_xmlnode-node_value=get_node_value(im_id='I_ERKRS'im_nodemap=nodemap).ls_xmlnode-parent_id=ls_xmlnode-same_id=0.ls_xmlnode-edit_done=space.APPENDls_xmlnodeTOet_xmlnode.***forXMLnodelw_num=nodemap->get_length().IFlw_num>0.lw_idx=DOlw_numCLEAR:value1,attr=nodemap->get_item(lw_idx).value1=attr->get_value().name1=attr->get_name().lw_idx=lw_idx+1.ls_xmlattr-solu_id=me->solu_id.ls_xmlattr-attr_name=name1.ls_xmlattr-attr_value=value1.***checkitallowseditorit_xmldef=it_xmldef ='OPC' =name1em_editno=ls_xmlattr-APPENDls_xmlattrTO***settheparentparent_id=ls_xmlnode-RecursionCALLMETHODrecur_parse_eps( =im_node =parent_idit_xmldef=it_xmldefet_xmlnode=et_xmlnodeet_xmlattr=CHECKim_parid<>ifitisnottheroot,recursionitsnodelist=im_node->get_children().count=nodelist->get_length().IFcount=recursionmethodindex_num=0.DOcountTIMES.sub_node=nodelist->get_item(index_num).index_num=index_num+1.nodemap=sub_node->get_attributes(attr=nodemap->get_named_item('ObjectType').value1=attr->get_value().objtyp=CASEvalue1.WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm= WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=WHENlw_atttnm=***forXMLDESCRIBETABLEet_xmlnodeLINESlw_index.ls_xmlnode-solu_id=me->solu_id.ls_xmlnode-node_id=lw_index+1.ls_xmlnode-node_type=value1.ls_xmlnode-node_value=get_node_value(im_id=lw_atttnmim_nodemap=nodemap).ls_xmlnode-parent_id=im_parid.ls_xmlnode-edit_done=space.***CheckisthesamewithanyonerecordofXMLNode,settheREADTABLEet_xmlnodeINTOls_xmlnode2WITHKEYnode_type=ls_xmlnode-node_typenode_value=ls_xmlnode-node_value =ls_xmlnode-solu_id.IFsy-subrc=ls_xmlnode-same_id=APPENDls_xmlnodeTO***settheparentparent_id=ls_xmlnode-***forXMLnodeIFls_xmlnode-same_id=***forXMLnodelw_num=nodemap->get_length().IFlw_num>0.lw_idx=DOlw_numCLEAR:value1,attr=nodemap->get_item(lw_idx).value1=attr->get_value().name1=attr->get_name().lw_idx=lw_idx+1.ls_xmlattr-solu_id=me->solu_id.ls_xmlattr-attr_name=name1.ls_xmlattr-attr_value=value1.***checkitallowseditor =it_xmldef =objtyp =name1em_editno=ls_xmlattr-APPENDls_xmlattrTORecursionCALLMETHODrecur_parse_eps( =sub_node =parent_idit_xmldef=it_xmldefet_xmlnode=et_xmlnodeet_xmlattr=tree:methodmethodFORM_TREEDATA TYPEREFTODATA TYPEREFTODATA data:ls_xmlnodetypedata:lw_idtypegetreferencetocontextlo_nd_EP_STRUCTURE=wd_context->get_child_node(wd_this->wdctx_TREE_EP.lo_nd_EP_STRUCTURE->INVALIDATE(getthe1stREADTABLEIT_XMLDATAintols_xmlnodeindexIFsy-subrc= lw_id=ls_xmlnode- **First:addthe<=NodeidastheRoot LOOPATIT_XMLDATAintols_xmlnodewherePARENT_ID=lw_idorPARENT_ID<lw_id.parsethexmlnodedatatoEP- wd_this- is_xmldata= IM_STATUS= IT_XMLDATA= es_eps= = abap_false*recursion wd_this- it_xmlnode= io_elem= type TYPEREFTO typeREFTO gettheio_elem- Name= Value=lw_paridcheckithaschildrenorREADTABLEit_xmlnodeintols_xmlnodewithkeyPARENT_ID=IFsy-subrc<>**recursionmethod lo_node_tmp lo_node_tmp=io_elem->get_child_node('TREE_REC_EP' LOOPATit_xmlnodeintols_xmlnodewherePARENT_ID=lw_paridparsethexmlnodedatatoEP- wd_this- is_xmldata= IM_STATUS= IT_XMLDATA= es_eps= lo_elem_tmp=lo_node_tmp->bind_structure(new_item set_initial_elements=abap_falserecursion wd_this- it_xmlnode= io_elem= 數(shù)據(jù)交做“apply”時：將數(shù)據(jù)從edit copy到內(nèi)表 TYPE TYPE lw_nodeidtype TYPEREFTO TYPEREFTO type TYPEwd_this- lw_solutionIDtype/SMB/PA_SOLUTION-SOLUTION_ID. TYPEFIELD-SYMBOLS:<lfs_xmdattr>TYPErecordthe =wd_this-then,showedit-lo_node=wd_this->path_lead_selection(i_path=wd_this->G_PATHgetlo_elme=lo_node->GET_element().name='OBJTYPE'value=lv_itm).name='NODE_ID'value=lw_nodeid*setthePathattribute,veryimportant,formethod:name='PATH'value=wd_this->G_PATHshoweditwd_this->show_edit_panel(lv_itmsavetheobject-wd_this->g_objtype=getlw_solutionID=wd_this->get_selected_solu(WHENforgetthels_ccd- =LOOPATwd_this->gt_xmlattrASSIGNING<lfs_xmdattr>WHEREnode_id=_nodeidSOLU_ID= wd_this- im_direction= = = = panycode = set_initial_elements=abap_true***for ls_add- = LOOPATwd_this->gt_xmlattrASSIGNING<lfs_xmdattr>WHEREnode_id=_nodeidSOLU_ID= wd_this- im_direction= = = = = set_init