45fan.com - 路饭网

搜索: 您的位置主页 > 网络频道 > 阅读资讯:怎么样使用系统提供功能模块Function Module?

怎么样使用系统提供功能模块Function Module?

2016-08-29 15:41:38 来源:www.45fan.com 【

怎么样使用系统提供功能模块Function Module?

  1. 将负号放到数字的前面:CLOI_PUT_SIGN_IN_FRONT

    说明:Move the negative sign from the left hand side of a number, to the right hand side

    of the number. Note that The result will be left justified (like all character

    fields), not right justifed as numbers normally are.
  2. 转换日期格式:SLS_MISC_CONVERT_TO_DATE

    说明:

    CALL FUNCTION 'SLS_MISC_CONVERT_TO_DATE'

    EXPORTING

    p_date = sy-datum

    P_DATE_FORMAT

    = 'YYYY-MM-DD'

    IMPORTING

    P_DATE_STRING = G_DATE_STRING

    EXCEPTIONS

    ERROR_SELECTING_USER_DEFAULTS = 1

    OTHERS = 2

    .
  3. 读取用户地址:SUSR_USER_ADDRESS_READ

    说明:

    CALL FUNCTION 'SUSR_USER_ADDRESS_READ'

    EXPORTING

    USER_NAME = SY-UNAME

    READ_DB_DIRECTLY = ' '

    IMPORTING

    USER_ADDRESS = ADDR3_VAL

    USER_USR03 = USR03

    EXCEPTIONS

    USER_ADDRESS_NOT_FOUND = 1

    OTHERS = 2.

    IF SY-SUBRC = 0.

  4. 读取用户Email地址:ADDR_PERS_COMP_COMM_GET

    说明:

    CALL FUNCTION 'ADDR_PERS_COMP_COMM_GET'

    EXPORTING

    ADDRESS_NUMBER = ADDR3_VAL-ADDRNUMBER

    LANGUAGE = SY-LANGU

    PERSON_NUMBER = ADDR3_VAL-PERSNUMBER

    TABLE_TYPE = 'ADSMTP'

    TABLES

    COMM_TABLE = IN_EMAIL

    EXCEPTIONS

    OTHERS = 1.

  5. 读取domain(域)描述:DOMAIN_VALUE_GET

    说明:

    CALL FUNCTION 'DOMAIN_VALUE_GET'

    EXPORTING

    I_DOMNAME =

    I_DOMVALUE =

    * IMPORTING

    * E_DDTEXT =

    * EXCEPTIONS

    * NOT_EXIST = 1

    * OTHERS = 2

  6. 选择上传文件时,弹出文件浏览界面:F4_FILENAME

    说明:

    CALL FUNCTION 'F4_FILENAME'

    * EXPORTING

    * PROGRAM_NAME = SYST-CPROG

    * DYNPRO_NUMBER = SYST-DYNNR

    * FIELD_NAME = ' '

    * IMPORTING

    * FILE_NAME =

  7. 上载文件是否存在检查:WS_QUERY

    说明:

    CALL FUNCTION 'WS_QUERY'

    EXPORTING

    FILENAME = P_FILE

    QUERY = 'FE'

    IMPORTING

    RETURN = G_FLAG_RCODE

    EXCEPTIONS

    INV_QUERY = 01

    NO_BATCH = 02.

    IF G_FLAG_RCODE = '0'. " 文件不存在,给出相关提示信息。

    MESSAGE '您选择的文件不存在,请重新选择上载文件?' TYPE 'I'.

    EXIT.

    ENDIF.

  8. 将Excel表格的内容读入内表:ALSM_EXCEL_TO_INTERNAL_TABLE

    说明:

    CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

    EXPORTING

    FILENAME = P_FILE

    I_BEGIN_COL = G_COLUMN_BEGIN "从第1列读取

    I_BEGIN_ROW = G_ROW_BEGIN "从第2行读取

    I_END_COL = G_COLUMN_COUNT "共9列

    I_END_ROW = '65536'

    TABLES

    INTERN = TAB_INTERN.

    * EXCEPTIONS

    * INCONSISTENT_PARAMETERS = 1

    * UPLOAD_OLE = 2

    * OTHERS = 3

    IF SY-SUBRC <> 0.

    MESSAGE '您上传的文件是合法的EXCEL文件吗?' TYPE 'S'.

    ENDIF.

  9. 将金额转换为大写:ZFUN0001(应该是顾问开发的,今天又用到一次,收藏过来:)

    说明:

    CALL FUNCTION 'ZFUN0001'

    EXPORTING

    l_val = REC_MAINDATA-RMWWR

    IMPORTING

    l_word = G_UPPER.

    代码见另外一篇帖子:

  10.  
  11.  
  12.  
  13.  

 

本文地址:http://www.45fan.com/a/question/69335.html
Tags: 系统 提供 功能模块
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部