*定义数据内表
DATA: gt_afko TYPE STANDARD TABLE OFafko.*Work Area 定义
DATA: gw_afko TYPEafko,
gw_afpoTYPEafpo,
gw_afvcTYPEafvc,
gw_afvvTYPEafvv.DATA: gv_index TYPE sy-tabix,
gv_resultTYPEc.DATA:*BAPI相关定义
propose LIKEbapi_pp_conf_prop,
timeticketsLIKE bapi_pp_timeticket OCCURS 0 WITH HEADER LINE,
goodsmovementsLIKE bapi2017_gm_item_create OCCURS 0 WITH HEADER LINE,
link_conf_goodsmovLIKE bapi_link_conf_goodsmov OCCURS 0 WITH HEADER LINE,
return_detailLIKE bapi_coru_return OCCURS 0 WITH HEADER LINE,
returnLIKE bapiret1 OCCURS 0 WITH HEADER LINE.CONSTANTS:
cn_flagxTYPE c VALUE 'X'.*Get Data...*Header
CLEARgt_afko[].SELECTaufnr rsnum aufplINTO CORRESPONDING FIELDS OF TABLEgt_afkoFROMafkoWHERE aufnr IN so_aufnr "生产工单号
.*Data Proccess...
CLEARgw_afko.LOOP AT gt_afko INTOgw_afko.IF sy-subrc = 0.CLEARgw_afvc.SELECT SINGLEaufpl"订单工序的工艺路线号