mtimetickets-orderid = inp_order_conf。
   mtimetickets-operation = inp_opr_conf。
   mtimetickets-plant ='2000'。
   mtimetickets-yield ='1.000'。
   mtimetickets-exec_fin_time = sy-uzeit。
   mtimetickets-postg_date = sy数据。
   mtimetickets-exec_fin_date = sy数据。
   mtimetickets-fin_conf ='X'。




   如果inp_assm_rep1_flag ='X'。
     mtimetickets-sequence ='000001'。
   ELSEIF inp_assm_rep2_flag ='X'。
     mtimetickets-sequence ='000002'。
   万一。


   追加mtimetickets。


 proposal-quantity ="。
   proposal-activity =" X"。
   proposal-date_and_time ='X'。
   proposal-personnel ="。
   proposal-goodsmovement =" X"。


 通话功能'BAPI_PRODORDCONF_GET_TT_PROP'
     出口
       提议=提议
     输入
       返回= mreturn
     桌子
       时间票= mtimetickets
       货物移动=货物移动
       link_conf_goodsmov = mlink_conf_goodsmov
       detail_return = mdetail_return。
   。


   如果mdetail_return-type <>'E'。


     清除：mreturn，mdetail_return []。


     如果不是mgoodsmovements是初始的。
       在mgoodsmovements分配字段符号（）处循环播放。


         选择单个matkl INTO @DATA（mat_grp）
           从马拉
           在哪里matnr = @ -材料。


         如果mat_grp ='SFG01'。
           order_len = strlen（inp_order_conf）。
           order_len = order_len-1。
           order_no = inp_order_conf + 0（order_len）。
         万一。


         选择单次输入@DATA（sup_id）
           从马克
           在哪里matnr = @ -材料。


         IF sup_id ='102'。
           CONCATENATE order_no'W'进入order_no。
         ELSEIF sup_id ='104'。
           CONCATENATE order_no'T'INTO order_no。
         ELSEIF sup_id ='105'。
           CONCATENATE order_no'A'INTO order_no。
         ELSEIF sup_id ='101'。
           order_no = inp_order_conf。
         其他。
           order_no ="。
         万一。


         如果mat_grp ='SFG01'或mat_grp ='FG01'。
           mgoodsmovements-batch = order_no。
           mgoodsmovements-quantity ='1.000'。
           mgoodsmovements-no_more_gr ='X'。
           修改mgoodsmovements运输批次数量no_more_gr。
         万一。


       结局。
     万一。


     通话功能'BAPI_PRODORDCONF_CREATE_TT'
       出口
         post_wrong_entries ='0'
         testrun =''
       输入
         返回= mreturn
       桌子
         时间票= mtimetickets
         货物移动=货物移动
         link_conf_goodsmov = mlink_conf_goodsmov" mlink_conf_goodsmov
         detail_return = mdetail_return
       。


 *通话功能'BAPI_TRANSACTION_COMMIT'
 *出口
 *等待='X'
 *重要
 * return =回报。


     提交工作。
     等待最多5秒。


   万一。