巴勃罗嗨，

我看不到任何公开使用的标准功能。 但是以下对我来说分配一个资源是有用的：

 DATA（ls_kbed）= VALUE cykbed_tab（bedid = l_bedid
                                         bedzl = l_bedzl
                                         索引= l_indbt
                                         pernr = l_pernr）。
       通话功能'CY01_CAP_REQ_ASSIGN'
         出口
           in_kbed_entry = ls_kbed"具有cap.req.rec。和赋值数据的结构
           kbedd_imp = ls_current_kbed
         例外情况
           其他= 10。

         通话功能'CY_BT_VB_CHECK'
           出口
             i_bedid_1 = l_bedid
             i_aufpl = l_aufpl
           输入
             e_bedid_1 = l_bedid_r
             e_aend_flag = l_flag
           例外情况
             其他= 2。

 提交工作。
 

但是实际上这需要一些工作，因为这种方法依赖于现有的内存结构来正确填充。 例如，变量l_indbt是指向内部表的索引，指向原始KBED条目的行。

要建立一个工作环境，需要完成以下几项工作：

 ls_objects = VALUE#（flg_alt = abap_true
                           flg_seq = abap_true
                           flg_opr = abap_true
                           flg_bed = abap_true）。
     lt_aufnr = VALUE#（（aufnr = l_aufnr））。
     通话功能'CO_ZF_ORDER_READ'
       出口
         flg_enqueue = abap_true
         objects_imp = ls_objects" Liste der Auftragsobjekte，die zu lesen sind
       输入
         flg_escape = l_escape
         flg_enqueue_ok = l_flg_enqueue_ok" AlleübergebenenAufträgewurden gesperrt
       桌子
         aufnr_tab_imp = lt_aufnr" Zu bearbeitendeAufträge
       例外情况
         其他= 3。

 *自设置了flg_bed以来，这不是必需的。
     lt_pre_tab = VALUE#（（bedid = l_bedid））。
     通话功能'CY_BT_KBED_PRE_READ'
       桌子
         bedid_pre_tab = lt_pre_tab。


 

这是一些对我有用的方式。 尽管我无法提供我在这里所做的全部源代码。 但是我想这就是需要的本质。

随时询问详情。

干杯

Peter