'EBELN' '采购订单号', 'EBELP' '采购订单航项目', 'EXBWR' '本地币计金额', 'SERNR' '序列号'.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form frm_alv_evt
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------*
* -->P_VALUE text * -->P_NAME text
*----------------------------------------------------------------------*
FORM frm_alv_evt USING p_value p_name. fact-fieldname = p_value.
fact-seltext_l = p_name. APPEND fact TO fieldcat. CLEAR fact.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form call_mb1c_561
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------*
FORM call_mb1c_561. \移动类型的库存导入 CLEAR it_bdc[].
PERFORM frm_bdc_dynpro USING: 'SAPMM07M' '0400'.
PERFORM frm_bdc_field USING: 'BDC_CURSOR' 'RM07M-LGORT', 'BDC_OKCODE' '/00',
'MKPF-BLDAT' temp_itab-bldat, 'MKPF-BUDAT' temp_itab-budat, 'RM07M-BWARTWA' temp_itab-bwart, 'RM07M-WERKS' temp_itab-werks, 'RM07M-LGORT' temp_itab-lgort,
'XFULL' ' ', 'RM07M-WVERS2' 'X'. PERFORM frm_bdc_dynpro USING: 'SAPMM07M' '0421'.
PERFORM frm_bdc_field USING: 'BDC_CURSOR' 'MSEG-ERFMG(01)', 'BDC_OKCODE' '=PF02',
'MSEG-MATNR(01)' temp_itab-matnr,
'MSEG-ERFMG(01)' temp_itab-erfmg.
PERFORM frm_bdc_dynpro USING: 'SAPMM07M' '0410'.
PERFORM frm_bdc_field USING: 'BDC_CURSOR' 'MSEG-EXBWR', 'BDC_OKCODE' '=BU',
'MSEG-ERFMG' temp_itab-erfmg, 'MSEG-EXBWR' temp_itab-exbwr.
CALL TRANSACTION 'MB1C' USING it_bdc MODE 'E'.
ENDFORM. \
*&---------------------------------------------------------------------*
*& Form call_mb1c_561_q
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------*
FORM call_mb1c_561_q_sernr. \特殊移动类型的库存导入 CLEAR it_bdc[].
PERFORM frm_bdc_dynpro USING: 'SAPMM07M' '0400' .
PERFORM frm_bdc_field USING: 'BDC_CURSOR' 'RM07M-SOBKZ' , 'BDC_OKCODE' '/00',
'MKPF-BLDAT' temp_itab-bldat, 'MKPF-BUDAT' temp_itab-budat, 'RM07M-BWARTWA' temp_itab-bwart,
'RM07M-SOBKZ' temp_itab-sobkz,
'RM07M-WERKS' temp_itab-werk
相关推荐: