003 F-47创建预付定金请求检查增强-20150819.docx

Enhancement SE38 ： LEINRF26

操作 F-47 ，预付定金请求回车时，检查输入的采购订单项目发票视图，预付定金 % 栏位，若为空，则报错，不为空可继续。

检查逻辑：检查采购凭证项目的 预付定金 % 是否为空，如果为空，报错：请检查采购凭证预付定金 % ，另：预付定金请求请用 ME2DP 创建！。

DEVK904007       ABAP30       B235 F-47创建预付款凭证增强：检查 预付定金%栏 by rainy on 20150818 req by fi

*{ INSERT DEVK902097 1
*20130801 jayxu
DATA:ZV_DMBTR LIKE EKPO-NETWR,
ZV_WRBTR LIKE EKBE-WRBTR,
ZV_MWSKZ LIKE EKPO-MWSKZ,
ZV_WRBTT LIKE EKBE-WRBTR,
ZV_KNUMH LIKE A003-KNUMH,
ZV_RATE  TYPE I,
ZV_KBETR LIKE KONP-KBETR,
ZV_CHKPO LIKE RCOSA-EXCL1.
DATA:ZI_EKBE  LIKE EKBE OCCURS 1 WITH HEADER LINE.
DATA:ZI_BSIK  LIKE BSIK OCCURS 1 WITH HEADER LINE.
DATA:ZI_BSAK  LIKE BSAK OCCURS 1 WITH HEADER LINE.
TABLES:BKPF.
DATA:STR_NAME(21)          TYPE C,
ZV_UMSKZ              TYPE C.
FIELD-SYMBOLS:<STR_NAME>   TYPE ANY.

GET PARAMETER ID 'ZPODPYTCTRL' FIELD ZV_CHKPO.
*------------------------------------------------------------
*2012.10.08 优化，适用F-47的情况
*------------------------------------------------------------
STR_NAME = '(SAPMF05A)TBSLT-UMSKZ'.
ASSIGN (STR_NAME) TO <STR_NAME>.
IF SY-SUBRC EQ 0 AND <STR_NAME> IS ASSIGNED.
ZV_UMSKZ = <STR_NAME>.
ENDIF.

*&->add by rainy on 20150818 FOR b235 req by fi.
*---------------------------------------------------------------------------------------
*2015.08.18 增强，F-47创建预付款凭证时检查增强 FOR B235 BY RAINY req by fi
*& 操作F-47，预付定金请求回车时，检查采购订单项目预付定金 % 是否为空，为空则报错：
*---------------------------------------------------------------------------------------

DATA:ZL_DPPCT LIKE EKPO-DPPCT.

*BREAK ABAP30.

CLEAR:ZL_DPPCT.

SELECT SINGLE DPPCT

         INTO ZL_DPPCT

         FROM EKPO

        WHERE EBELN EQ EKPO-EBELN

          AND EBELP EQ EKPO-EBELP.

IF ZL_DPPCT IS INITIAL.

  MESSAGE E000(OO) WITH '请检查采购凭证预付定金%，另：预付定金请求请用ME2DP创建！'.

*MESSAGE '预付款供应商与采购订单不一致，请更正！' TYPE 'E'.

ENDIF.

*&->end add by rainy on .