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.
   
   代码见另外一篇帖子：

13. 
     

发表于 @ 2006年09月20日　10:31:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:GUI的一些设置和标准菜单中一些选项的功能（不断更新中...) | 新一篇:江湖中流传的“Google的十大彩色幽默”－－轶事之一