ＷＤＡ　实现要点

最新推荐文章于 2023-02-17 21:34:00 发布

zjut_xiongfeng

最新推荐文章于 2023-02-17 21:34:00 发布

阅读量1.1k

点赞数

分类专栏： WebDynpro for Java/ABAPTM

本文链接：https://blog.csdn.net/zjut_xiongfeng/article/details/53169665

版权

WebDynpro for Java/ABAPTM 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

根节点属性：

DATA LV_SJTYP TYPE STRING.
WD_CONTEXT->GET_ATTRIBUTE( EXPORTING NAME = 'SJTYP' IMPORTING VALUE = LV_SJTYP ).

辅助类文本：

    DATA lv_text_001 TYPE string.
    lv_text_001 =
      wd_assist->if_wd_component_assistance~get_text( '001' ).

子节点：

lo_nd_bukrs_info = wd_context->get_child_node( name = wd_this->wdctx_bukrs_info ).

消息类接口：

IF_WD_MESSAGE_MANAGER

下载：

  wdr_task=>client_window->client->attach_file_to_response(
     i_filename = l_filename
     i_content =  xml
     i_mime_type = 'EXCEL' ).

指定节点路径：

DATA LO_ND_BJMK_BUKRS TYPE REF TO IF_WD_CONTEXT_NODE.

LO_ND_BJMK_BUKRS = WD_CONTEXT->PATH_GET_NODE( PATH = `BJMK.BJMK_BUKRS` ).

设置：属性错误提示。

    CALL METHOD WD_THIS->L_MESSAGE_MANAGER->REPORT_ATTRIBUTE_ERROR_MESSAGE
      EXPORTING
        MESSAGE_TEXT   = LV_TEXT_040
        ELEMENT        = LO_EL_BJMK
        ATTRIBUTE_NAME = 'START1'.

检查权限，跳转空页面：

* 检查权限
  READ TABLE WD_THIS->LS_USR-ROLES TRANSPORTING NO FIELDS
       WITH KEY RNAME = IV_ROLE.
  IF SY-SUBRC = 0.
    EV_RESULT = 'X'.
  ELSE.
    CLEAR EV_RESULT.
  ENDIF.

检查权限，跳转空提示（空）页面：

  DATA l_controller TYPE REF TO if_wd_controller.
  l_controller = wd_this->wd_get_api( ).
  CALL METHOD l_controller->get_message_manager
    RECEIVING
      message_manager = wd_this->l_message_manager.

  IF wd_this->LS_LOGINTYPE-BLNTY = 'B'
  OR wd_this->LS_LOGINTYPE-BLNTY = 'C'.
    WD_THIS->FIRE_TO_EMPTY_VIEW_PLG( ).
  ENDIF.

空页面消息提示：

method WDDOINIT .
  data lv_text_067 type string.
  lv_text_067 = WD_ASSIST->IF_WD_COMPONENT_ASSISTANCE~GET_TEXT( '067' ).
  wd_context->set_attribute( name = 'MESSAGE' value = lv_text_067 ).
endmethod.

检查用户权限：

SELECT
   SINGLE
   usr21~bname as uname
   adrp~name_last
   adcp~ROOMNUMBER as bukrs
   into CORRESPONDING FIELDS OF es_usr
   from usr21
   join adrp ON adrp~persnumber = usr21~persnumber
   JOIN adcp ON adcp~persnumber = usr21~persnumber AND adcp~addrnumber = usr21~addrnumber
   WHERE usr21~bname = iv_uname.

select
  AGR_NAME AS RNAME
  INTO CORRESPONDING FIELDS OF TABLE ES_USR-ROLES
  from
  AGR_USERS
  WHERE UNAME = IV_UNAME
*  AND FROM_DAT >= sy-datum
  and TO_DAT >= SY-DATUM
  AND EXCLUDE = SPACE.