003 F-47创建预付定金请求检查增强-20150819.docx
Posted Rainystuday
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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 20150818.
以上是关于003 F-47创建预付定金请求检查增强-20150819.docx的主要内容,如果未能解决你的问题,请参考以下文章