批量创建采购订单记录

REPORT ztest_inforecord.

TABLES :eina.

DATA: l_activity TYPE c.

*  IF r1 = 'X'.
*    l_activity = 'H'.
*  ELSE.
*    l_activity = 'V'.
*  ENDIF.

DATA :  it_eina TYPE eina OCCURS 0,
        wa_eina TYPE eina,
        wa_eina_new TYPE eina,
        wa_eine TYPE eine,
        it_eine TYPE eine OCCURS 0,
        wa_eine_new TYPE eine.

DATA : it_head TYPE mestxh OCCURS 0.
DATA : it_line TYPE mestxl OCCURS 0.


TYPES : BEGIN OF ltype_tab,
        lifnr TYPE eina-lifnr,
        matnr TYPE eina-matnr,
        infnr TYPE eina-infnr,
        netpr TYPE eine-netpr,
        END OF ltype_tab.

DATA : it_tab TYPE TABLE OF ltype_tab,
       st_tab LIKE LINE OF it_tab.

st_tab-lifnr = '21075'.
st_tab-matnr = '000000000005125057'.
st_tab-netpr = '777'.
st_tab-infnr = '5