BAPI_PRODORDCONF_CREATE_TT 和工时

FUNCTION zrfc_pp_co11n.
*"----------------------------------------------------------------------
*"*"局部接口:
*"  IMPORTING
*"     VALUE(AUFNR) TYPE  AUFNR
*"     VALUE(OPERATION) TYPE  VORNR
*"     VALUE(POSTG_DATE) TYPE  BUCHDATUM
*"     VALUE(YIELD) TYPE  RU_LMNGA
*"     VALUE(SCRAP) TYPE  RU_XMNGA
*"     VALUE(REWORK) TYPE  RU_RMNGA
*"     VALUE(PERS_NO) TYPE  CO_PERNR
*"  EXPORTING
*"     VALUE(RETURN) LIKE  BAPIRET1 STRUCTURE  BAPIRET1
*"----------------------------------------------------------------------
**bapi 参数

  DATA: ls_return LIKE  bapiret1.

  TABLES: bapi_pp_timeticket,
          bapi2017_gm_item_create,
          bapi_link_conf_goodsmov,
          bapiret1.

  DATA: wa_pdheader TYPE bapi_pp_timeticket,
        i_pdheader  LIKE TABLE OF  bapi_pp_timeticket,

        wa_pddetail LIKE bapi2017_gm_item_create,
        i_pddetail  LIKE TABLE OF  bapi2017_gm_item_create,

        itab_return LIKE TABLE OF bapi_coru_return,
        wa_return   TYPE bapiret1,

        wa_pdlink   LIKE bapi_link_conf_goodsmov,
        i_pdlink    LIKE TABLE OF bapi_link_conf_goodsmov.
**bapi 参数

***算工时参数
  DATA:  c_vornr TYPE afvc-vornr,
         c_aufnr TYPE afko-aufnr,
         c_aplzl TYPE afvc-aplzl,
         c_aufpl TYPE afvc-aufpl,
         wa_afvv TYPE afvv.

***算工时
  SELECT SINGLE afvc~aplzl afvc~aufpl
                INTO (c_aplzl, c_aufpl)
                FROM afvc INNER JOIN afko
                ON    afvc~aufpl = afko~aufpl
                WHERE afko~aufnr = aufnr
                AND   afvc~vornr = operation.

  SELECT SINGLE * FROM afvv INTO wa_afvv
                  WHERE aufpl = c_aufpl
                  AND   aplzl = c_aplzl.

  wa_pdheader-conf_acti_unit1 = wa_afvv-vge01.
  wa_pdheader-conf_acti_unit2 = wa_afvv-vge02.
  wa_pdheader-conf_acti_unit3 = wa_afvv-vge03.
  wa_pdheader-conf_acti_unit4 = wa_afvv-vge04.
  wa_pdheader-conf_acti_unit5 = wa_afvv-vge05.
  wa_pdheader-conf_acti_unit6 = wa_afvv-vge06.
  wa_pdheader-conf_activity1 = wa_pdheader-yield * wa_afvv-vgw01 / wa_afvv-bmsch.
  wa_pdheader-conf_activity2 = wa_pdheader-yield * wa_afvv-vgw02 / wa_afvv-bmsch.
  wa_pdheader-conf_activity3 = wa_pdheader-yield * wa_afvv-vgw03 / wa_afvv-bmsch.
  wa_pdheader-conf_activity4 = wa_pdheader-yield * wa_afvv-vgw04 / wa_afvv-bmsch.
  wa_pdheader-conf_activity5 = wa_pdheader-yield * wa_afvv-vgw05 / wa_afvv-bmsch.
  wa_pdheader-conf_activity6 = wa_pdheader-yield * wa_afvv-vgw06 / wa_afvv-bmsch.
***算工时

  wa_pdheader-orderid = aufnr.         "订单号
  wa_pdheader-operation = operation.   "操作/活动编号
  wa_pdheader-postg_date = sy-datum.
  wa_pdheader-yield = yield.           "待确认的产量
  wa_pdheader-scrap =  scrap.          "当前要确认废品
  wa_pdheader-rework = rework.         "要确认的当前返工数量
  wa_pdheader-pers_no = pers_no.       "人员编号
  APPEND wa_pdheader TO i_pdheader.


  wa_pdlink-index_confirm = 1.         "确认行索引
  wa_pdlink-index_goodsmov = 1.        "货物移动条目指标
  APPEND wa_pdlink TO i_pdlink.


  CALL FUNCTION 'BAPI_PRODORDCONF_CREATE_TT'
    IMPORTING
      return             = ls_return
    TABLES
      link_conf_goodsmov = i_pdlink
      timetickets        = i_pdheader
      goodsmovements     = i_pddetail
      detail_return      = itab_return.

  MOVE ls_return TO return.

ENDFUNCTION.

你可能感兴趣的:(SAP)