系统提供的功能模块Function Module ---- 解决各种小问题用
来源:互联网 发布:linux切换中文 编辑:程序博客网 时间:2024/05/22 17:17
- 将负号放到数字的前面: 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. - 转换日期格式: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
. -
读取用户地址: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. -
读取用户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. -
读取domain(域)描述:DOMAIN_VALUE_GET
说明:
CALL FUNCTION 'DOMAIN_VALUE_GET'
EXPORTING
I_DOMNAME =
I_DOMVALUE =
* IMPORTING
* E_DDTEXT =
* EXCEPTIONS
* NOT_EXIST = 1
* OTHERS = 2 -
选择上传文件时,弹出文件浏览界面:F4_FILENAME
说明:
CALL FUNCTION 'F4_FILENAME'
* EXPORTING
* PROGRAM_NAME = SYST-CPROG
* DYNPRO_NUMBER = SYST-DYNNR
* FIELD_NAME = ' '
* IMPORTING
* FILE_NAME = -
上载文件是否存在检查: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. -
将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. -
将金额转换为大写:ZFUN0001(应该是顾问开发的,今天又用到一次,收藏过来:)
说明:
CALL FUNCTION 'ZFUN0001'
EXPORTING
l_val = REC_MAINDATA-RMWWR
IMPORTING
l_word = G_UPPER.
代码见另外一篇帖子: -
-
-
-
- 系统提供的功能模块Function Module ---- 解决各种小问题用
- 生产管理系统的功能模块
- 初学WPF的各种小问题及解决
- 读"最近发包给朋友,搞定软件小活儿、解决小功能模块的感受"有感
- 最近发包给朋友,搞定软件小活儿、解决小功能模块的感受
- win10系统下解决genymotion的各种问题
- 解决 Flex4 Error in Module 的问题
- No module named django_tables 问题的解决
- 解决No module named _sqlite3的问题
- 解决No module named _sqlite3的问题
- 解决No module named _sqlite3的问题
- 各种小问题的解决办法
- 各种小问题的收集
- 各种问题的小总结
- 解决过的各种问题
- 解决recompile module问题
- "expected function body after function declarator"问题的解决
- 经常使用的function Module
- 搜索引擎技术初探
- 传说中的JSP木马!JSP资源管理器.
- KMP字符串模式匹配详解
- [C++] Undefined reference to vtable
- RJ45网线制作
- 系统提供的功能模块Function Module ---- 解决各种小问题用
- 双缓存绘图GDI
- 注册表简单操作
- CVS 入门-使用流程
- VS2005中的全角BUG(C#代码)
- 设置标题和图标,设置窗口大小,设置光标
- 介绍Jboss的安装与使用- -
- Python的傻样
- (转贴)一个C#动态编译的小例子