ABAP批导库存程序SAP

s,

'RM07M-LGORT' temp_itab-lgort,

'XFULL' ' ', 'RM07M-WVERS2' 'X'. PERFORM frm_bdc_dynpro PERFORM frm_bdc_field 01)',

tnr,

fmg,

pnr,

05BLOCK'.

PERFORM frm_bdc_dynpro PERFORM frm_bdc_field ',

USING: 'SAPMM07M' '0421' .

USING: 'BDC_CURSOR' 'MSEG-ERFMG('BDC_OKCODE' '/00', 'MSEG-MATNR(01)' temp_itab-ma'MSEG-ERFMG(01)' temp_itab-er'MSEGK-MAT_PSPNR' temp_itab-ps'BDC_SUBSCR' 'SAPLKACB 10USING: 'SAPLIPW1' '0200'.

USING: 'BDC_CURSOR' 'RIPW0-SERNR(01) 'BDC_OKCODE' '=RWS',

'RIPW0-SERNR(01)' temp_itab-sernr.

PERFORM frm_bdc_dynpro PERFORM frm_bdc_field CK1',

CK'.

PERFORM frm_bdc_dynpro PERFORM frm_bdc_field

CALL TRANSACTION 'MB1C'

ENDFORM.

USING: 'SAPMM07M' '0421'.

USING: 'BDC_CURSOR' 'MSEG-ERFMG(01)', 'BDC_OKCODE' '=PF02',

'BDC_SUBSCR' 'SAPMM07M 2424BLO'BDC_SUBSCR' 'SAPLKACB 1005BLOUSING: 'SAPMM07M' '0410'.

USING: 'BDC_CURSOR' 'MSEG-EXBWR', 'BDC_OKCODE' '=BU',

\'MSEG-EXBWR' temp_itab-exbwr. USING it_bdc MODE 'E'. \

*&---------------------------------------------------------------------*

*& Form call_mb1c_561_q_wbs

*&---------------------------------------------------------------------* * text

*----------------------------------------------------------------------*

FORM call_mb1c_561_q. CLEAR it_bdc[].

PERFORM frm_bdc_dynpro USING: 'SAPMM07M' '0400'. PERFORM frm_bdc_field USING: 'BDC_CURSOR' 'XFULL', '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-werks,

'RM07M-LGORT' temp_itab-lgort,

PERFORM frm_bdc_dynpro PERFORM frm_bdc_field )',

nr,

mg,

24BLOCK1',

pnr,

BLOCK'.

'XFULL' ' ', 'RM07M-WVERS2' 'X'. USING: 'SAPMM07M' '0421'. USING: 'BDC_CURSOR' 'MSEG-ERFMG(01'BDC_OKCODE' '/00', 'MSEG-MATNR(01)' temp_itab-mat'MSEG-ERFMG(01)' temp_itab-erf'BDC_SUBSCR' 'SAPMM07M 24'MSEGK-MAT_PSPNR' temp_itab-ps'BDC_SUBSCR' 'SAPLKACB 1005