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 .