SAP开发总结VIP免费

1．权限字段检查AUTHORITY-CHECKOBJECT'YMFIAVKORG'ID'YMFIVKORG'FIELDGS_USERINFOS-VKORG.METHODauthority_check.AUTHORITY-CHECKOBJECT'S_ALV_LAYO'ID'ACTVT'FIELD'23'.IFsy-subrc<>0.IFNOThandleISINITIAL.IFNOTlog_groupISINITIAL.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'FIELDhandleID'LOG_GROUP'FIELDlog_group.ELSE.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'FIELDhandleID'LOG_GROUP'DUMMY.ENDIF.ELSE.IFNOTlog_groupISINITIAL.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'DUMMYID'LOG_GROUP'FIELDlog_group.ELSE.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'DUMMYID'LOG_GROUP'DUMMY.ENDIF.ENDIF.ENDIF.rc=sy-subrc."dummycheckforSU22trace(needsnote1587228)IFcl_su2x_tools=>get_status_su22_trace()='X'.IFNOThandleISINITIAL.IFNOTlog_groupISINITIAL.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'FIELDhandleID'LOG_GROUP'FIELDlog_group.ELSE.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'FIELDhandleID'LOG_GROUP'DUMMY.ENDIF.ELSE.IFNOTlog_groupISINITIAL.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'DUMMYID'LOG_GROUP'FIELDlog_group.ELSE.AUTHORITY-CHECKOBJECT'S_ALV_LAYR'ID'ACTVT'FIELD'23'ID'REPORT'FIELDreportID'HANDLE'DUMMYID'LOG_GROUP'DUMMY.ENDIF.ENDIF.IFsy-subrc=0."theresultisnotneededhereRETURN.ENDIF.ENDIF.ENDMETHOD.2．宏+指针结合操作数据METHODCOV_VALUE_RAN.DATA:LO_DATATYPEREFTODATA.FIELD-SYMBOLS:TYPEANY,TYPEANY.DEFINELMACRO_SET_RANGE.IFNOT&1ISINITIALANDNOT&2ISINITIAL.ASSIGNCOMPONENT&1OFSTRUCTURETO..IFISASSIGNED.=&2.UNASSIGN.ENDIF.ENDIF.END-OF-DEFINITION.CHECKNOTIV_VALUEISINITIAL.TRY.CREATEDATALO_DATALIKELINEOFER_RANGE.ASSIGNLO_DATA->*TO.IFISASSIGNED.LMACRO_SET_RANGE'SIGN''I'.LMACRO_SET_RANGE'OPTION''EQ'.LMACRO_SET_RANGE'LOW'IV_VALUE.LMACRO_SET_RANGE'SIGN''I'.APPENDTOER_RANGE.UNASSIGN.ENDIF.CATCHCX_ROOT.ENDTRY.ENDMETHOD.3．设置标准按钮的移除功能METHODSET_EXC_0100.DATA:LT_INCTYPETABLEOFUI_FUNC.APPENDCL_GUI_ALV_GRID=>MC_FC_DETAILTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_SORT_ASCTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_SORT_DSCTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_FINDTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_FILTERTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_MB_EXPORTTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_MB_SUMTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_CURRENT_VARIANTTOLT_INC.APPENDCL_GUI_ALV_GRID=>MC_FC_VIEWSTOLT_INC.“使用按钮的移除功能CALLMETHODYMCL_FI_STKGZ_ACTION=>FUCTION_EXCEXPORTINGIT_INC=LT_INCIMPORTINGET_EXC=ET_EXC.ENDMETHOD.4．回车监听事件CALLMETHODPO_GRID->GET_FILTERED_ENTRIESIMPORTINGET_FILTERED_ENTRIES=LT_FILT.5．创建树的基本操作DATA:GO_TREE_DOCKINGTYPEREFTOCL_GUI_DOCKING_CONTAINER,GO_TREETYPEREFTOCL_GUI_SIMPLE_TREE,GV_TREE_0100_VISTYPECVALUE'',GT_ADD_NODESLIKESTANDARDTABLEOFMTREESNODE.6．更新屏幕界面LOOPATSCREEN.IFSCREEN-NAME='P_WBST1'.SCREEN-INPUT=0.MODIFYSCREEN.ENDIF.IFSCREEN-NAME='P_FQWBST'.SCREEN-INPUT=0.MODIFYSCREEN.ENDIF.7．设置基本事件操作*注册编辑作用方式光标离开启作用CALLMETHODGO_GRID_0100->REGISTER_EDIT_EVENTEXPORTINGI_EVENT_ID=CL_GUI_ALV_GRID=>MC_EVT_MODIFIEDEXCEPTIONSERROR=1OTHERS=2.IFSY-SUBRC<>0.*MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO*WITHSY-MSG...