sap 订单状态修改时间_SAP销售订单状态修改(审核) 计划行自动产生需求，产生MD04需求...

IF ( i_stonO = '20' AND i_stonN = '30').LOOP AT XVBEP INTOGX_VBEP.

LY_I= SY-TABIX.CASE VBAK-AUART.

WHEN'ZOR'.IF GX_VBEP-ETTYP <> 'CP' AND GX_VBEP-ETTYP <> 'ZD'.

GX_VBEP-ETTYP = 'CP'.IF SY-TCODE = 'VA01'.ELSEIF SY-TCODE = 'VA02'.

GX_VBEP-UPDKZ = 'U'.

GX_VBEP-BEDSD = 'X'.

GX_VBEP-BDAALT = '05'.

GX_VBEP-BDART = '05'.

GX_VBEP-PLART = '0'.IF XVBBE[] IS INITIAL.

GW_VBBE-MANDT = SY-MANDT.

GW_VBBE-VBELN = GX_VBEP-VBELN.

GW_VBBE-POSNR = GX_VBEP-POSNR.

GW_VBBE-ETENR = GX_VBEP-ETENR.

GW_VBBE-MBDAT = GX_VBEP-EDATU.

GW_VBBE-VBTYP = 'C'.

GW_VBBE-BDART = '05'.

GW_VBBE-PLART = '0'.

GW_VBBE-UPDKZ = 'I'.

GW_VBBE-OMENG = GX_VBEP-LMENG.

GW_VBBE-VMENG = GX_VBEP-BMENG.

GW_VBBE-MEINS = GX_VBEP-VRKME.

GW_VBBE-PZMNG = GX_VBEP-LMENG.

GW_VBBE-AUART = XVBAK-AUART.

GW_VBBE-KUNNR = XVBAK-KUNNR.READ TABLE XVBAP INTO GX_VBAP WITH KEY POSNR = GX_VBEP-POSNR.IF SY-SUBRC = 0.

LY_J= SY-TABIX.

GX_VBAP-SUMBD = 'A'.

GX_VBAP-UPD