SAP常用系统函数归纳

SAP常用系统函数归纳

函数名 描述 
CONVERSION_EXIT_ALPHA_INPUT 料号前面补0 
CONVERSION_EXIT_ALPHA_OUTPUT 料号前面减0 
CONVERSION_EXIT_MATN1_INPUT 料号前面补0 
CONVERSION_EXIT_MATN1_OUTPUT 料号前面减0 
LAST_DAY_OF_MONTHS 查询某日期的在当月的最后一天 
CO_SF_CAUFVD_GET 根据工单号查询订单抬头和项目 
SO_NEW_DOCUMENT_ATT_SEND_API1 外发邮件 
VIEW_MAINTENANCE_CALL 调用数据表的维护视图 
SO_OBJECT_SEND 外发邮件 
函数名 
CONVERSION_EXIT_ALPHA_INPUT 
功能:料号前面补0, 
实例: 
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' "料号前面加0” 
EXPORTING 
input = matnr_in 
IMPORTING 
output = matnr_out. 
说明:1)数字料号入Table需要补0,不会自动产生,有字母料号却会自动补0. 
2)只能用’字符型’ 
CONVERSION_EXIT_MATN1_INPUT 
功能:料号前面补0 
实例: 
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT' "料号前面补0” 
EXPORTING 
input = matnr_in 
IMPORTING 
output = matnr_out 
EXCEPTIONS 
length_error = 1 
OTHERS = 2. 
说明: 1)数字料号入Table需要补0,不会自动产生,有字母料号却会自动补0. 
2)只能用于料号转换 

CONVERSION_EXIT_ALPHA_OUTPUT 
功能:料号前面去0 
实例: 
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "料号前面去0. 
EXPORTING 
input = wa_ysy1-matnr 
IMPORTING 
output = wa_ysy1-matnr. 
说明: 
CONVERSION_EXIT_MATN1_OUTPUT 
功能:料号前面去0 
实例: 
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' 
EXPORTING 
input = t_afpo-matnr 
IMPORTING 
output = t_afpo-matnr 
EXCEPTIONS 
OTHERS = 1. 
说明: 
LAST_DAY_OF_MONTHS 
功能:查询某日期的在当月的最后一天 
CALL FUNCTION 'LAST_DAY_OF_MONTHS' 
EXPORTING 
day_in = f_date "月任意一天 类型必须为D（要完成日期## 
IMPORTING 
last_day_of_month = p_date "月最后一天 类型必须为D（完整日期） 
EXCEPTIONS 
day_in_no_date = 1 
OTHERS = 2. 
说明: 
CO_SF_CAUFVD_GET 
功能: 根据工单号查询订单抬头和项目 
实例: 
DATA: wa_caufvd TYPE caufvd. 
CALL FUNCTION 'CO_SF_CAUFVD_GET'"取得订单抬头和项目 
EXPORTING 
aufnr_imp = aufnr 
IMPORTING 
caufvd_exp = wa_caufvd “订单抬头和项目结构 
EXCEPTIONS 
not_found = 1 
OTHERS = 2. 
说明: 
SO_NEW_DOCUMENT_ATT_SEND_API1 
功能:邮件发送 SAPoffice: Send new document with attachments using RFC 
实例: 
FORM email_itab. “邮件内容“ 
WRITE: '编号' TO email_itab-line+0(3), "255个长度的文本字段:文本" 
'记帐日期' TO email_itab-line+3(10), 

ENDFORM. "email_itab 
FORM reset_objpack . 
it_packing_list-transf_bin = space. "标记将以二进制形式传输对象的标志" 
it_packing_list-head_start = 0."表头开始行" 
it_packing_list-head_num = 1. "表头行数" 
it_packing_list-body_start = 1."内容开始行" 
it_packing_list-body_num = it_message_lines. "内容行数" 
it_packing_list-doc_type = 'RAW'. "信息类型" 
APPEND it_packing_list. 
ENDFORM. "reset_objpack 
FORM reset_doc_chng . 
DESCRIBE TABLE email_itab LINES it_message_lines. 
gd_doc_data-doc_size = it_message_lines * 255 + STRLEN( email_itab ). "SAPoffice 文档的大小 " 
gd_doc_data-obj_langu = sy-langu. "创建文档使用的语言" 
gd_doc_data-obj_name = 'SAPRPT'. "文档,文件夹或分配清单的名称" 
gd_doc_data-obj_descr = '邮件标题'. "Email标题" 
gd_doc_data-sensitivty = 'F'. "对象：灵敏度（个人的，功能的，...) F:功能" 
ENDFORM. "reset_doc_chng 
FORM reset_reclist . 
SELECT zmaaddr 
INTO it_receivers-receiver 
FROM ziebtemail. 
it_receivers-rec_type = 'U'. "互联网地址 
APPEND it_receivers. 
CLEAR it_receivers. 
ENDSELECT. 
ENDFORM. "reset_reclist 
DATA: gd_doc_data LIKE sodocchgi1, 
gd_sent_all(1) TYPE c, 
it_message_lines TYPE sy-tabix, 
it_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE, 
it_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE. 
DATA: BEGIN OF email_itab OCCURS 10. 
INCLUDE STRUCTURE soli. 
DATA: END OF email_itab. 
PERFORM email_itab. "TABLES OUTPUT_TAB. 
PERFORM reset_doc_chng. 
PERFORM reset_reclist. 
PERFORM reset_objpack. 
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' 
EXPORTING 
document_data = gd_doc_data “新文档的属性” 
PUT_IN_OUTBOX = 'X' “标志:发送后将文档移到outbox 
* COMMIT_WORK = ' ' 
* IMPORTING 
SENT_TO_ALL = gd_sent_all “Flag: Document sent to all” 
* NEW_OBJECT_ID = ID of created object (not document!) 
tables 
packing_list = it_packing_list “SAPoffice：输入对象组件描述” 
* OBJECT_HEADER = 
* CONTENTS_BIN = 
* CONTENTS_TXT = 
* CONTENTS_HEX = 
* OBJECT_PARA = 
* OBJECT_PARB = 
receivers = email_itab”SAPoffice：API 收件人清单的结构” 
* EXCEPTIONS 
* TOO_MANY_RECEIVERS = 1 
* DOCUMENT_NOT_SENT = 2 
* DOCUMENT_TYPE_NOT_EXIST = 3 
* OPERATION_NO_AUTHORIZATION = 4 
* PARAMETER_ERROR = 5 
* X_ERROR = 6 
* ENQUEUE_ERROR = 7 
* OTHERS = 8 
. 
IF sy-subrc <>0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 
说明: 
VIEW_MAINTENANCE_CALL 
功能:调用数据表的维护视图 
实例: 
CALL FUNCTION 'VIEW_MAINTENANCE_CALL' 
EXPORTING 
action = 'U' “活动（显示/维护/传输）” 
* CORR_NUMBER = ' ' 
* GENERATE_MAINT_TOOL_IF_MISSING = ' ' 
* SHOW_SELECTION_POPUP = ' ' 
view_name = 'ZIEBTEMAIL' “要处理的视图/表格的名称” 
* NO_WARNING_FOR_CLIENTINDEP = ' ' 
* RFC_DESTINATION_FOR_UPGRADE = ' ' 
* CLIENT_FOR_UPGRADE = ' ' 
* VARIANT_FOR_SELECTION = ' ' 
* COMPLEX_SELCONDS_USED = ' ' 
* CHECK_DDIC_MAINFLAG = ' ' 
* SUPPRESS_WA_POPUP = ' ' 
* TABLES 
* DBA_SELLIST = 
* EXCL_CUA_FUNCT = 
* EXCEPTIONS 
* CLIENT_REFERENCE = 1 
* FOREIGN_LOCK = 2 
* INVALID_ACTION = 3 
* NO_CLIENTINDEPENDENT_AUTH = 4 
* NO_DATABASE_FUNCTION = 5 
* NO_EDITOR_FUNCTION = 6 
* NO_SHOW_AUTH = 7 
* NO_TVDIR_ENTRY = 8 
* NO_UPD_AUTH = 9 
* ONLY_SHOW_ALLOWED = 10 
* SYSTEM_FAILURE = 11 
* UNKNOWN_FIELD_IN_DBA_SELLIST = 12 
* VIEW_NOT_FOUND = 13 
* MAINTENANCE_PROHIBITED = 14 
* OTHERS = 15 
. 
IF sy-subrc <>0. 
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF. 
说明: 
SO_OBJECT_SEND 
功能：外发邮件 
实例： 
REPORT ztmail02 . 
DATA: BEGIN OF itab OCCURS 0, 
pernr LIKE pa0001-pernr, 
ename LIKE pa0001-ename, 
END OF itab. 
DATA: message_content LIKE soli OCCURS 10 WITH HEADER LINE, 
receiver_list LIKE soos1 OCCURS 5 WITH HEADER LINE, 
packing_list LIKE soxpl OCCURS 2 WITH HEADER LINE, 
listobject LIKE abaplist OCCURS 10, 
compressed_attachment LIKE soli occurs 100 WITH HEADER LINE, 
w_object_hd_change LIKE sood1 occurs 100 WITH HEADER LINE, 
compressed_size LIKE sy-index. 
START-OF-SELECTION. 
SELECT pernr ename 
INTO CORRESPONDING FIELDS OF TABLE itab 
FROM pa0001 
WHERE pernr <50. 
LOOP AT itab. 
WRITE: /02 sy-vline, itab-pernr, 15 sy-vline, itab-ename, 50 
sy-vline. 
ENDLOOP. 
*receivers 
receiver_list-recextnam = '[e-mail]'. “直接外部地址作为接收方” 
receiver_list-recesc = ‘U’. “收件人类型的说明; U 互联网地址” 
receiver_list-sndart = ‘MAIL'. “输出设备; MAIL 邮件” 
receiver_list-sndpri = '1'. “发送：优先级; 1 最高优先权” 
APPEND receiver_list. 
*general data 
w_object_hd_change-objla = sy-langu. “创建文档使用的语言” 
w_object_hd_change-objnam = 'Object name'. “文档,文件夹或分配清单的名称” 
w_object_hd_change-objsns = 'F'. “对象：灵敏度（个人的，功能的，...）” F: 功能 
w_object_hd_change -OBJDES = ‘Message subject’. “Mail的标题” 
APPEND w_object_hd_change. 
*content 
message_content-line = 'Message content'. “发送的内容” 
APPEND message_content. 

CALL FUNCTION 'SO_OBJECT_SEND' 
EXPORTING 
object_hd_change = w_object_hd_change “通常头数据” 
object_type = 'RAW' “对象类型” 
OUTBOX_FLAG = 'X' “标志:发送后将文档移到outbox 
owner = sy-uname “负责传送的用户” 
TABLES 
objcont = message_content “发送的内容” 
receivers = receiver_list “接收对象属性” 
att_cont = compressed_attachment. 
说明： 

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1625967 

本文转自 
http://blog.csdn.net/ft1612796/archive/2007/05/25/1625967.aspx



本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/long2006sky/archive/2007/07/31/1719759.aspx