SAP-Function_01

TH_POPUP –在特定用户屏幕上显示一个系统消息

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-mandt
                     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: 发送的信息截取的长度(若长度<mes的长度﹐则多余信
                    息被截掉)
  其中客户端口﹐用户名常常放与一内表中﹐内表结构必须为结构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'
            put_in_outbox = 'X'
           put_in_outbox = ''
      TABLES
           object_content = it_data
           receivers     = email_rece.
说明﹕document_data  : 发送Email 之属性
      object_content : 发送之内容
      receivers      : 收件者