1 . 函数WS_UPLOAD
功能：将TXT文件转换成SAP中的内表定义的数据表格文件
注意：1 函数将按参数 data_tab 的实际参数(假设为 table1) table1 定
义的各个字段的长度来依次将TXT文件间隔开，并依次将对应的值付给table1的
字段,table中的各个字段必须为C 型
2 TXT文件中，各个字段值之间不能有空格
事例: ZBC400_JOHN_26
2 . 函数TH_POPUP
功能: 向函数入口参数 client , user决定的用户发送信息(信息为入口参数 message 决
定的信息)
事例：ZBC_LSL_017
3. 函数 HELP_VALUES_GET_WITH_TABLE
功能：弹出用户所需要的信息，让用户选择，并把选种的信息付给输入框，相当与建立起
SEARCH HELP
注意: 1 tables 的参数 fields , valuetab 需要固定的内表结构
2 importing 的参数 select_value 有高，低两个值，即用户选种的值付给相应的
输入框的最小值，最大值
3 tables 的参数 fields , valuetab 的实际参数(假设为 tab_field, field_value)
tab_field, field_value 的付值,其tab_field 内表中，有且仅有一个字段的
selectflag = ‘X’
事例： ZPP000293
4 . 函数 Z_UDARBID
功能：根据工单号，当前工作中心代号，读出上一工作中心代号，上一工作中心名称，
下一工作中心代号，下一工作中心名称
事例：ZPP000224_EDIT
说明：取得上下组别的函数更正确的函数 z_udarbid_change(可以解决组别
循环问题)
示例：ZBAK_ZPP000222_LSL
5 . 函数 Z_COLORANDSIZE
功能：根据该物料的组态，得出该物料的颜色尺码.
注意：入口参数 IP_SPRAS = ‘E’ 表示本厂款号，’M’表示客户款号
6 . 函数 Z_PRINTTITLE
功能 ：打印标准报表头
事例： ZBC_LSL_777
7 . 函数 Z_PAGECHANGE
功能：许多记录时，进行翻叶操作
8 . 函数READ_TEXT
功能：读取内文
假设：FORM get_pitext USING pn LIKE thead-tdname .
REFRESH tabline.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = '0006'
language = 'M'
object = 'VBBK'
name = pn
archive_handle = 0
IMPORTING
headers = thead
TABLES
lines = tabline
EXCEPTIONS
not_found = 2.
注意： 1 tabline 必须为固定格式, headers 的实际参数必须为 thead
name 的实际参数必须为thead-tdname 形式,靠它来确定取谁的内
文
2 client , language , archive_handle 的入口值基本固定如上
3 id 为 va03à转到à表头à内文à(双击要读取的内文项)àgotoàheader
text id 既是参数 id 的值
text object 既是参数 object 的值
事例：ZPP000220
9 . 函数 Z_CURR_TO_CHAR .
功能：把 curr 型的数据转化成 char 型的数据，转化后的数据仍然
按 curr 型数据显示 (“###,###,###.##”)并可以在char型数
前后添加固定个特殊字符
(“**12,111,456.23”, ”**********12.45”)
假设 p_curr 为 CURR 型， p_char = ‘*’
CALL FUNCTION 'Z_CURR_TO_CHAR'
EXPORTING
p_curr_i = p_curr
* p_char_i = p_char
* p_num_i = 2
* p_bore_i =
* p_nums_i = 20
IMPORTING
p_char_o = t_chr
EXCEPTION
no_p_curr_i = 1
curr_type_wrong = 2
not_bore_i = 3
OTHERS = 4.
说明：
p_curr : 必须输入参数，不能超过15个长度,被转化的参数
p_char : 可线参数，须添加的特殊字符
p_num_I : 可线参数，当参数p_nums_I为空时有效，要添加的特殊字符
的个数
p_bore_I: 可线参数，决定是在前/后添加特殊字符,bà前，eà后，默
认为 b,只能输入b/e 否则函数不转化
p_nums_I: 可线参数，决定转化成固定个字符长度的，若参数p_char_I
有值，则不足位时补特殊字符，若参数p_char_I为空时，
该参数无效，若该参数输入值，则参数p_num_I 无效。
p_char_o: 转化后的数据
若执行该函数 sy-subrc 之值如下：
1à没用输入参数p_curr_I .
2à参数p_curr_I过长，或p_nums_I为空，p_num_I为负数
3à参数p_bore_I 不是输入’e’/’b’(大小写不区分)
事例：ZBC_Z_CURR_TO_CHAR
8.函数 Z_COLORANDSIZE_MATNR
功能 ：根据物料的款号得出该物料的特性值 (如C10019-EYEDE 的对应的A,C,D 的颜色说
明，39.5，41.5 的尺码大小，见 TC : CT03 ) 放与一个内表中)
CALL FUNCTION 'Z_COLORANDSIZE_MATNR'
EXPORTING
p_matnr = p_matnr
p_spras = 'Z1'
TABLES
t_tab = it
EXCEPTIONS
no_matnr = 1
no_data = 2
OTHERS = 3.
说明：
p_matnr : 必要入口参数，需要取得特性的物料的款号
p_spras : 语言码，默认为 ‘M’
it : 为内表，P_matnr 的各特性值便放与次表中，该表结构固定，
字段如下：
name 字符型 (= ‘COLOR’ 表示颜色特性，= ‘SIZE’ 表示
尺码特性)
atwrt 特性码 (如 D,E,F,39.4,41.5)
atwtb 特性值说明，即通常所说的颜色，尺码
执行后 sy-subrc = 1 表示 参数 p_matnr 为空
= 2 表示 该 物料没用特性值
= 3 表示其它错误
获得结果比函数Z_COLORANDSIZE 更广
9.函数WS_DOWNLOAD
功能：将内表中的数据转化成特定的文件
见范例 zbc400_lsl_file_change
10. 函数WS_UPLOAD
功能：将指定文件中的数据转化成内表中的数据
见范例 zbc400_lsl_file_change
11 . 函数ENQUEUE_ECMERKM
功能：对数据表中记录进行加锁，可以根据加锁是否成功来判断是否还
有其它客户在更新该数据表
CALL FUNCTION 'ENQUEUE_ECMERKM'
EXPORTING
* MODE_RCTMV = 'E'
mandt = sy-mandt
atnam = p_lock_atnam
* X_ATNAM = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
说明： mandt ： 使用的数据端口
atnam ： 被锁定的记录(可以确定唯一一条记录)
12 函数EQUEUE_ECMERKM
功能：对自己锁定的记录进行解锁,常用于对数据表中数据进行更新操作之
前，通常与 加锁函数联合起来用
CALL FUNCTION 'DEQUEUE_ECMERKM'
EXPORTING
* mode_rctmv = 'E'
mandt = sy-ma
ndt
atnam = p_ulock_atnam
* X_ATNAM = ' '
* _SCOPE = '3'
* _SYNCHRON = ' '
* _COLLECT = ' '
EXCEPTIONS
OTHERS = 1.
说明： mandt ： 使用的数据端口
atnam ： 需要解锁的记录(可以确定唯一一条记录)
13 .函数 TH_POPUT
说明：该函数是向 SAP 用户发送信息
CALL FUNCTION 'TH_POPUP' "向用户发送信息
EXPORTING
CLIENT = BIT-MANDT
USER = BIT-BNAME
MESSAGE = MES
MESSAGE_LEN = LEN "要发送的信息的长度可截断部分信息
CUT_BLANKS = ' '
EXCEPTIONS
USER_NOT_FOUND = 1.
参数：client ------客户端口
user--------用户名(接收者)
message—需要发送的信息(通常用变量储存)
message_len: 发送的信息截取的长度(若长度
其中客户端口，用户名常常放与一内表中，内表结构必须为结构uinfo
见示例 zbc400_lsl_send_message
14 .图形显示函数：GRAPH_2D(二维平面图), GRAPH_3D(三维立体图)
CALL FUNCTION 'GRAPH_2D'
EXPORTING
mail_allow = 'X'
titl = l_title
TABLES
data = t_graph.
参数： title : 图形的标题
data: 存放数据的内表
GRAPH_3D 函数用法同 GRAPH_2D .
示例：ZBAK_ZPP000222_LSL
15 .函数CS_WHERE_USED_MAT(逆查BOM)
说明：取的物料的上层物料
CALL FUNCTION 'CS_WHERE_USED_MAT'
EXPORTING
datub = sy-datum
datuv = sy-datum
matnr = t_afru-matnr
* POSTP = ' '
* RETCODE_ONLY = ' '
* STLAN = ' '
werks = '1000'
* IMPORTING
* TOPMAT =
TABLES
wultb = ltb
equicat = equicat
kndcat = kndcat
matcat = matcat
stdcat = stdcat
tplcat = tplcat
EXCEPTIONS
call_invalid = 1
material_not_found = 2
no_where_used_rec_found = 3
no_where_used_rec_selected = 4
no_where_used_rec_valid = 5
OTHERS = 6.
参数：datub: 当前日期
datuv: 当前日期
matnr: 要找回上层BOM物料的物料
werks: 工厂通常取’1000’
wultb: 所有的上层BOM物料存放在该表中(该表结构固定)
equicat: 固定结构，一定要
kndcat : 固定结构，一定要
matcat: 固定结构，一定要
stdcat : 固定结构，一定要
tplcat : 固定结构，一定要
示例: ZBAK_ZPP000222_LSL
BOM 展开函数(顺查BOM)
16 .只展开 BOM 的函数
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = pm_capid “应用程序 一般为 PP01
datuv = pm_datuv “通常为系统的当前日期
mtnrv = pm_mtnrv “要展开BOM 的物料
mehrs = 'X' “ x 表示多层展开，space 表示只展开第一层
werks = pm_werks “ 通常为 1000
IMPORTING
topmat = selpool
dstst = dstst_flg
TABLES
stb = stb “展开的 BOM 存放在该内表
matcat = matcat “下面含有组件的物料存放在该内表
17 .展开与特性相关的特定款号的 BOM
CALL FUNCTION 'CS_BOM_EXPL_ KND_V1'
EXPORTING
capid = pm_capid “应用程序 一般为 PP01
datuv = pm_datuv “通常为系统的当前日期
mtnrv = pm_mtnrv “要展开BOM 的物料
cuobj = vbap_wa-cuobj “与特性相关的组态
mehrs = 'X' “
x 表示多层展开，space 表示只展开第一层
werks = pm_werks “ 通常为 1000
IMPORTING
topmat = selpool
dstst = dstst_flg
TABLES
stb = stb “展开的 BOM 存放在该内表
matcat = matcat “下面含有组件的物料存放在该内表
范例见系统报表程序 RCS12001
1 说明：内表 stb, matcat 结构固定, 输出参数 selpool , dstst_flg 固定,
其固定结构如下:
内表:
DATA: BEGIN OF stb OCCURS 1000.
INCLUDE STRUCTURE stpox.
DATA: END OF stb.
DATA: BEGIN OF matcat OCCURS 50.
INCLUDE STRUCTURE cscmat.
DATA: END OF matcat.
输出参数:
DATA: BEGIN OF selpool.
INCLUDE STRUCTURE cstmat.
DATA: END OF selpool.
DATA: dstst_flg LIKE csdata-xfeld.
2 说明：内表 stb 中的数据按第一层顺序号排序，如第一层组件下还有BOM,
则其BOM显示在其下面，并依次分层(下面BOM 也按顺序号排列)
stb 下的重要字段说明如下：
stufe : 在整个 BOM 中的层次
tdidx : 对应 matcat-index ，标志直属哪个物料下的 BOM
ojtxb : 上层物料的物料说明
ojtxp : 本身物料说明
idnrk : 组件名(即物料)
stlkn : 在各自 BOM 中的顺序号
matkl : 该物料群组
mtart : 物料类型 (成品，半成品，原料)
matcat 下的重要字段 (表matcat 存放下面还有BOM 的物料)
matnr : 物料号
index : 顺序号
函数 : SO_NEW_DOCUMENT_SEND_API1
功能：向SAP 用户的收信箱中发送Email(内容存与内表中)
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = email_send
document_type = 'RAW'