SAPHRABAP调用Visio生成组织架构图.docx

1、SAPHRABAP调用Visio生成组织架构图提供树表报和Visio 展示两种方式。基于标准程序RHSTRU00改造。*&-*&ReportZHR_REP_01*&-*&ProgramName:ZHR_REP_01*&Description:XX组织结构图*&Author:*&Date :*&Tcode:*&Note:BasedonstandardreportRHSTRU00.CallsMSVisioobject.*&-REPORTZHR_REP_01.TYPE-POOLS:icon.TABLES:objec,t77eo,gdstr,gdset,pdstr.TYPES:BEGINOFt_nod

2、e,idLIKEstruc-seqnr,parentLIKEstruc-seqnr,tree_idTYPElvc_nkey,text(25),text4(40),short(14),otype(2),realoTYPErealo,istat(1),begda(10),endda(10),vistat(1),vbegda(10),vendda(10),prozt(8),objidLIKEobjec-objid,ENDOFt_node.TYPES:BEGINOFtype_trec,keyTYPElvc_nkey,idLIKEstruc-seqnr,ENDOFtype_trec.TYPES:BEGI

3、NOFparent_stack_line,levelTYPEstruc-level,idLIKEstruc-seqnr,ENDOFparent_stack_line.*-*errorhandling(forinternalerrors)*-*typeforABAPcallstackTYPES:BEGINOFt_s_abap_callstack,mainprogramLIKEsy-repid,includeLIKEsy-repid,lineTYPEi,eventtypeLIKEabdbg-leventtype,eventLIKEabdbg-levent,flag_system,ENDOFt_s_

4、abap_callstack.*variableforABAPcallstackDATA:g_callstackTYPESTANDARDTABLEOFt_s_abap_callstack,g_callstack_waTYPEt_s_abap_callstack.*macroshouldneverbecalled;-)DEFINEinternal_error.&1actionthatleadtoerror*getcallstackcallABAP_CALLSTACKidDEPTHfield99idCALLSTACKfieldg_callstack.*getcurrentform/eventrea

5、dtableg_callstackintog_callstack_waindex1.messagei001(aq_ad_hoc)withg_callstack_wa-event&1.action.END-OF-DEFINITION.DATA:it_nodeTYPESTANDARDTABLEOFt_node,it_tabTYPESTANDARDTABLEOFt_node,wa_nodeTYPEt_node.DATA:BEGINOFwaobjec,stextLIKEobjec-stext,shortLIKEobjec-short,realoLIKEobjec-realo,plvarLIKEobje

6、c-plvar,otypeLIKEobjec-otype,objidLIKEobjec-objid,begdaLIKEobjec-begda,enddaLIKEobjec-endda,istatLIKEobjec-istat,seqnrLIKEstruc-seqnr,ENDOFwaobjec.DATA:ok_codeLIKEsy-ucomm,save_okLIKEsy-ucomm.CLASScl_gui_objectDEFINITIONLOAD.DATA:control_containerTYPEREFTOcl_gui_custom_container,alv_tree_controlTYPE

7、REFTOcl_gui_alv_tree,alv_html_headerTYPEREFTOcl_gui_html_viewer,fieldcatalogTYPESTANDARDTABLEOFlvc_s_fcat,hierarchy_headerTYPEtreev_hhdr.DATA:lt_list_commentaryTYPEslis_t_listheader,gs_variantTYPEdisvariant.DATA:s_nodeTYPElvc_nkey.DATA:otypeTYPEotype.DATA:answer(1).DATA:it_toolbar_excludingTYPEui_fu

8、nctions.DATA:excl_tabTYPETABLEOFsy-ucomm.DATA:it_recursionsTYPESTANDARDTABLEOFtype_trec,exist_recTYPEflag_x.DATA:repidLIKEsy-repid,sel_tableTYPETABLEOFrsparams.DATA:g_optimize_flagTYPEflagVALUE,note768405g_optimize_buttonTYPEsmp_dyntxt.#ECNEEDED*parenthandlingDATA:g_parent_stackTYPESTANDARDTABLEOFpa

9、rent_stack_line,g_parent_stack_waTYPEparent_stack_line.DATA:lv_stringTYPEstring.DATA:gx_acc_mode_onTYPEabap_bool.TYPES:BEGINOFt_data,idTYPEstruc-seqnr,parentTYPEstruc-seqnr,onameTYPEhrp1000-short,snameTYPEhrp1000-short,pnameTYPEhrp1000-short,orgidTYPEhrp1000-objid,posidTYPEhrp1000-objid,peridTYPEhrp

10、1000-objid,knameTYPEhrp1000-short,kccidTYPEhrp1000-objid,graphTYPEi,imagefileTYPEchar40,ENDOFt_data.DATA:gt_dataTYPESTANDARDTABLEOFt_data.DATA:wa_dataTYPEt_data.DATA:g_visio_pathTYPEstring,g_visio_paraTYPEstring.*OLE对象DATA:g_aplicacionTYPEole2_object.AplicacionVisioDATA:g_documentosTYPEole2_object.C

11、olecciondeDocumentosVisioDATA:g_documentoTYPEole2_object.DocumentoVisioDATA:g_addonTYPEole2_object.AddonDATA:g_addonsTYPEole2_object.AddonsDATA:g_sistemaTYPEole2_object.AddonsDATA:g_template_pathTYPEstring.DATA:g_template_fileTYPEstring.DATA:g_data_fileTYPEstring.DATA:g_workdirTYPEstring.DATA:g_para

12、metro_macroTYPEstring,g_orgwizTYPEstringVALUEOrgCWIZ.*-*SELECTIONSCREEN*-*SELECTION-SCREENBEGINOFBLOCKblock1WITHFRAMETITLEtext-001.*technicaldepthPARAMETERS:tdepthLIKEgdstr-tdepth.SELECTION-SCREENSKIP.*recursioncheckPARAMETERS:recursRADIOBUTTONGROUPg2LIKEpppch-recursDEFAULTX.PARAMETERS:visioRADIOBUT

13、TONGROUPg2TYPEflag_x.SELECTION-SCREENENDOFBLOCKblock1.*PARAMETERS:ORG_PATHTYPESTRINGDEFAULTC:ProgramFilesMicrosoftOfficeOffice12ORGWIZ.EXE.*-*INITIALIZATION*-*INITIALIZATION.*Structuredevaluation$pch$-acces=$structured$.pchtimed=D.*initializevariablesCLEAR:waobjec,it_node.repid=sy-repid.*-*START-OF-

14、SELECTION*-*START-OF-SELECTION.*performreportforallobjects?IFpchobjidISINITIALANDpchsobidISINITIAL.CALLFUNCTIONPOPUP_TO_CONFIRMEXPORTINGtitlebar=消息(027)text_question=查询所有部门？(015)display_cancel_button=IMPORTINGanswer=answerEXCEPTIONStext_not_found=1OTHERS=2.IFsy-subrc0.internal_errorFUNCTIONPOPUP_TO_

15、CONFIRM.#ECNOTEXTENDIF.*backtoselectionscreenIFanswer=2.CLEARsel_table.CALLFUNCTIONRS_REFRESH_FROM_SELECTOPTIONSEXPORTINGcurr_report=repidTABLESselection_table=sel_tableEXCEPTIONSnot_found=1no_report=2OTHERS=3.IFsy-subrc0.internal_errorRS_REFRESH_FROM_SELECTOPTIONS.#ECNOTEXTENDIF.SUBMITrhstru00VIASE

16、LECTION-SCREENWITHSELECTION-TABLEsel_table.ENDIF.ENDIF.*Branchwiseauthority$pch$-stru_authy=A.*CheckrecursionsIFrecurs=X.$pch$-recurs=X.ENDIF.*technicaldepth$pch$-tdepth=tdepth.$pch$-refre=$off$.*-*GETOBJEC*-*GETobjec.CLEARwaobjec.MOVE-CORRESPONDINGobjecTOwaobjec.waobjec-seqnr=struc-seqnr.*setthecur

17、rentidofthenodewa_node-id=struc-seqnr.*determinethecorrectparentidIFstruc-pup=0.*thereisnoparentasthisisthetopmostnodeCLEAR:g_parent_stack,g_parent_stack_wa.wa_node-parent=struc-pup.*addthecurrentnodeasparenttothestackg_parent_stack_wa-level=struc-level.g_parent_stack_wa-id=struc-seqnr.INSERTg_paren

18、t_stack_waINTOg_parent_stackINDEX1.ELSE.*therewasaparentREADTABLEg_parent_stackINDEX1INTOg_parent_stack_wa.IFsy-subrc=0.*thereisaparentinthestackavailablenowcheckifthelevelsmatchIFg_parent_stack_wa-level=struc-level.*deletetheentriesthataredeeperinthestructure*astheycannotbetheparentsDELETEg_parent_

19、stackWHERElevel=struc-level.ENDIF.*readagainthetopmostentryfromthestackREADTABLEg_parent_stackINDEX1INTOg_parent_stack_wa.IFsy-subrc=0.*thereisaparentwa_node-parent=g_parent_stack_wa-id.*addthecurrentnodeasparenttothestackg_parent_stack_wa-level=struc-level.g_parent_stack_wa-id=struc-seqnr.INSERTg_p

20、arent_stack_waINTOg_parent_stackINDEX1.ELSE.*thereisnoparentthisisthetopmostnodeotherswhereskippedwa_node-parent=struc-pup.*addthecurrentnodeasparenttothestackg_parent_stack_wa-level=struc-level.g_parent_stack_wa-id=struc-seqnr.INSERTg_parent_stack_waINTOg_parent_stackINDEX1.ENDIF.ELSE.*thereisnoparentthisisthetopmostnodeotherswhereskippedwa_node-parent=struc-pup.*addthecurrentnodeasparenttothestackg_parent_stack_wa-level=struc-level.g_parent_stack_wa-id=struc-seqnr.INSERTg_parent_stack_waINTOg_parent_stackINDEX1.ENDIF.ENDIF.*nodetextIFNOTwa