SAP ABAP BAPI函数50连载33-BAPI_PRODORDCONF_GET_TT_PROP报工获取属性值

在我们开发CO11N进行PP模块的生产订单报工和工时确认的时候,

需要用到函数BAPI_PRODORDCONF_GET_TT_PROP来获取默认属性值。

英文描述为:Propose Data for Confirmation Time Ticket

BAPI_PRODORDCONF_GET_TT_PROP

导入参数的说明为:

参数名称 关联类型 可选的 说明
PROPOSE BAPI_PP_CONF_PROP 可选 标识:建议确认数据,字段的值为X或为空

 

组件 类型 简短描述
QUANTITY VSSMG 建议的数量
DATE_AND_TIME VSSZT 建议日期
GOODSMOVEMENT VSSWB 指示符:计划确认货物移动

 

对应的表参数字段为:

参数名称 关联类型 可选的 说明
TIMETICKETS BAPI_PP_TIMETICKET 必选 PP 确认计工单
GOODSMOVEMENTS BAPI2017_GM_ITEM_CREATE 可选 创建物料凭证的行项目
LINK_CONF_GOODSMOV BAPI_LINK_CONF_GOODSMOV 可选 确认货物移动
DETAIL_RETURN BAPI_CORU_RETURN 可选 返回信息
组件 类型 简短描述
ORDERID AUFNR 订单号
SEQUENCE PLNFOLGE 序列
OPERATION VORNR 操作/活动编号
YIELD RU_LMNGA 待确认的产量
组件 类型 简短描述
ORDERID AUFNR 订单号
ORDER_ITNO CO_POSNR 订单项目号

我们在事务代码SE38下创建1个程序来测试DEMO代码如下:

* 定义数据内表
DATA: gt_afko TYPE STANDARD TABLE OF afko.

* Work Area 定义
DATA: gw_afko TYPE afko,
gw_afpo TYPE afpo,
gw_afvc TYPE afvc,
gw_afvv TYPE afvv.
DATA: gv_index  TYPE sy-tabix,
gv_result TYPE c.

DATA:
*BAPI相关定义
propose            LIKE bapi_pp_conf_prop,
timetickets        LIKE bapi_pp_timeticket       OCCURS 0 WITH HEADER LINE,
goodsmovements     LIKE bapi2017_gm_item_create  OCCURS 0 WITH HEADER LINE,
link_conf_goodsmov LIKE bapi_link_conf_goodsmov  OCCURS 0 WITH HEADER LINE,
return_detail      LIKE bapi_coru_return         OCCURS 0 WITH HEADER LINE,
return             LIKE bapiret1                 OCCURS 0 WITH HEADER LINE.

CONSTANTS:cn_flagx TYPE c VALUE ‘X’.

* Get Data…
* Header
CLEAR gt_afko[].
SELECT aufnr rsnum aufpl
INTO CORRESPONDING FIELDS OF TABLE gt_afko
FROM afko
WHERE aufnr IN so_aufnr . “生产工单号

* Data Proccess…
CLEAR gw_afko.
LOOP AT gt_afko INTO gw_afko.
IF sy-subrc = 0.
CLEAR gw_afvc.
SELECT SINGLE
aufpl       “订单工序的工艺路线号
aplzl       “订单的通用计数器
vornr       “工序
plnfl       “顺序
arbid
aplfl       “序列(新) 有值
INTO CORRESPONDING FIELDS OF gw_afvc
FROM afvc
WHERE aufpl = gw_afko-aufpl.

IF sy-subrc = 0.

* 1.需要更新的数据设置
CLEAR propose.
propose-quantity          = cn_flagx.   “更新数量
propose-date_and_time     = cn_flagx.   “更新作业时间
propose-goodsmovement     = cn_flagx.   “更新货物移动

* 2.作业时间
CLEAR: timetickets,timetickets[].
timetickets-orderid       = gw_print-aufnr. “工单号
timetickets-operation     = gw_afvc-vornr.  “工序号
timetickets-yield         = gw_print-lmnga. “工单生产数量
timetickets-sequence      = gw_afvc-aplfl.  
APPEND timetickets.
CLEAR  timetickets.

* 3.货物移动属性
* 第一次赋值,用于获取相关默认属性值
CLEAR: goodsmovements,goodsmovements[].
goodsmovements-orderid    = gw_print-aufnr.  “生产订单号
goodsmovements-order_itno = gw_afvc-vornr.   “工序号
APPEND goodsmovements.
CLEAR  goodsmovements.

* 4.调用BAPI,获取默认属性值
CALL FUNCTION ‘BAPI_PRODORDCONF_GET_TT_PROP’
EXPORTING
propose            = propose
IMPORTING
return             = return
TABLES
timetickets        = timetickets
goodsmovements     = goodsmovements
link_conf_goodsmov = link_conf_goodsmov
detail_return      = return_detail.

* 5.输出异常信息
IF return-type = ‘E’ OR return-type = ‘A’.
CONCATENATE ‘错误:’ return-message INTO return-message.
gv_result = cn_flagx.
ENDIF.

LOOP AT return_detail WHERE type IS NOT INITIAL.
IF return_detail-type = ‘E’ OR return_detail-type = ‘A’.
CONCATENATE ‘错误:’ return_detail-message INTO return-message.
gv_result = cn_flagx.
ENDIF.
ENDLOOP.

* 6. 如若需要更新相关信息,可在此修改
*  这里修改作业时间 
IF gv_result NE cn_flagx.
CLEAR gv_index.
LOOP AT timetickets.
gv_index = sy-tabix.    “索引
CLEAR gw_afvv.
SELECT SINGLE * FROM afvv
INTO CORRESPONDING FIELDS OF gw_afvv
WHERE aufpl = gw_afvc-aufpl
AND aplzl = gw_afvc-aplzl.
IF sy-subrc = 0.
IF NOT gw_afvv-bmsch = 0.
IF timetickets-conf_acti_unit1 NE ‘S’.
timetickets-conf_activity1 = timetickets-yield * gw_afvv-vgw01 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity1 = timetickets-yield * gw_afvv-vgw01 DIV gw_afvv-bmsch.
ENDIF.
IF timetickets-conf_acti_unit2 NE ‘S’.
timetickets-conf_activity2 = timetickets-yield * gw_afvv-vgw02 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity2 = timetickets-yield * gw_afvv-vgw02 DIV gw_afvv-bmsch.
ENDIF.
IF timetickets-conf_acti_unit3 NE ‘S’.
timetickets-conf_activity3 = timetickets-yield * gw_afvv-vgw03 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity3 = timetickets-yield * gw_afvv-vgw03 DIV gw_afvv-bmsch.
ENDIF.
IF timetickets-conf_acti_unit4 NE ‘S’.
timetickets-conf_activity4 = timetickets-yield * gw_afvv-vgw04 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity4 = timetickets-yield * gw_afvv-vgw04 DIV gw_afvv-bmsch.
ENDIF.
IF timetickets-conf_acti_unit5 NE ‘S’.
timetickets-conf_activity5 = timetickets-yield * gw_afvv-vgw05 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity5 = timetickets-yield * gw_afvv-vgw05 DIV gw_afvv-bmsch.
ENDIF.
IF timetickets-conf_acti_unit6 NE ‘S’.
timetickets-conf_activity6 = timetickets-yield * gw_afvv-vgw06 / gw_afvv-bmsch.
ELSE.
timetickets-conf_activity6 = timetickets-yield * gw_afvv-vgw06 DIV gw_afvv-bmsch.
ENDIF.
ENDIF.
ENDIF.
timetickets-yield  = 200.    “待确认的产量(用户输入确认值)
IF gw_afvv IS NOT INITIAL.
MODIFY timetickets INDEX gv_index TRANSPORTING yield
conf_activity1 conf_acti_unit1 conf_activity2 conf_acti_unit2
conf_activity3 conf_acti_unit3 conf_activity4 conf_acti_unit4
conf_activity5 conf_acti_unit5 conf_activity6 conf_acti_unit6.
ELSE.
MODIFY timetickets INDEX gv_index TRANSPORTING yield.
ENDIF.
CLEAR timetickets.
ENDLOOP.
CLEAR gw_afvv.
ENDIF.

* 7. 调用BAPI,报工确认
CLEAR: return, return[].
CLEAR: return_detail, return_detail[].
CALL FUNCTION ‘BAPI_PRODORDCONF_CREATE_TT’
EXPORTING
post_wrong_entries = ‘1’
testrun            = ”      “标识为 X,则为试运行 不提交至系统
IMPORTING
return             = return
TABLES
timetickets        = timetickets
goodsmovements     = goodsmovements
link_conf_goodsmov = link_conf_goodsmov
detail_return      = return_detail.
CLEAR gv_result.
READ TABLE return WITH KEY type = ‘E’.
IF sy-subrc = 0.
CONCATENATE ‘错误:’ return-message INTO return-message.
gv_result = cn_flagx.
ENDIF.
LOOP AT return_detail WHERE type IS NOT INITIAL.
IF return_detail-type = ‘E’ OR return_detail-type = ‘A’.
CONCATENATE ‘错误:’ return_detail-message INTO return-message.
gv_result = cn_flagx.
ENDIF.
ENDLOOP.
IF gv_result NE cn_flagx.
CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
EXPORTING
wait = cn_flagx.
ENDIF.
ENDIF.
ENDIF.
CLEAR gw_afko.
ENDLOOP.

注意事项:

默认属性值获取后,可能面临转换。详细如何转换,请查看SE11下面的数据字典里面的域。

双击即可。

 

我的微信公众号【 hot583 】 或者在这个链接联系我

本文链接 : http://www.hot583.com/2022/06/14/bapi_prodordconf_get_tt_prop/ ‎

本文为作者原创,如果这篇文章对您有用,欢迎转载,

转载请务必注明来源《今日热点在看》http://www.hot583.com/

微信原文《全文完》

今日热点在看SAP HOT583