扬农化工（瑞祥）SAP项目-MM-大宗原料价格增强控制-V1.0-20180329

开发规格书第9页，共9页扬农化工SAP项目-开发规格书1需求模块■MM MACROBUTTONCheckIt_CheckBox£PP MACROBUTTONCheckIt_CheckBox£SD MACROBUTTONCheckIt_CheckBox£FIMACROBUTTONCheckIt_CheckBox£CO MACROBUTTONCheckIt_CheckBox£PSMACROBUTTONCheckIt_CheckBox£其它Spec编号MM010短描述大宗原料价格采购增强控制类型接口MACROBUTTONCheckIt_Radiobutton报表MACROBUTTONCheckIt_RadiobuttonABAPProgramMACROBUTTONCheckIt_RadiobuttonInformationSystemMACROBUTTONCheckIt_RadiobuttonReportPrinterMACROBUTTONCheckIt_RadiobuttonReportWriterMACROBUTTONCheckIt_RadiobuttonSAPQueryMACROBUTTONCheckIt_RadiobuttonBWreportMACROBUTTONCheckIt_RadiobuttonCrystalReportsMACROBUTTONCheckIt_RadiobuttonOthers_____________________________________________________MACROBUTTONCheckIt_Radiobutton表单MACROBUTTONCheckIt_Radiobutton流程增强MACROBUTTONCheckIt_RadiobuttonUserExit●BADIMACROBUTTONCheckIt_RadiobuttonDialogProgramMACROBUTTONCheckIt_RadiobuttonOthers__________________________________MACROBUTTONUnCheckIt_Radiobutton接口MACROBUTTONCheckIt_RadiobuttonBAPIMACROBUTTONCheckIt_RadiobuttonIDOCMACROBUTTONCheckIt_RadiobuttonALEMACROBUTTONCheckIt_RadiobuttonOthers__________________________MACROBUTTONCheckIt_Radiobutton数据转移需求优先级MACROBUTTONUnCheckIt_RadiobuttonHigh/关键 MACROBUTTONCheckIt_RadiobuttonMid/推荐 MACROBUTTONCheckIt_RadiobuttonLow/可选预计开发天数（由功能顾问与开发顾问评估）必填_______天是否有标准功能MACROBUTTONCheckIt_RadiobuttonYes MACROBUTTONUnCheckIt_RadiobuttonNo标准功能未采用的原因:MACROBUTTONCheckIt_RadiobuttonPerformanceMACROBUTTONCheckIt_RadiobuttonComplexityMACROBUTTONCheckIt_RadiobuttonOtherse参考的标准功能表单开发：列出参考的标准的Form的技术名称报表开发：列出参考的标准报表文档变更历史版本号文档维护时间姓名简要的描述1.02018/01/09许兆柱新增

2详细功能描述2.1接口输入参数：2.2报表/表单/功能的字段2.3逻辑关系：1、对于采购订单类型（EKKO-BSART）：ZD07、公司代码（EKKO-BUKRS）:176A，创建、修改采购订单（T-ccode:ME21N、ME22N）保存时，根据采购组织（EKKO-EKORG）、订单创建日期（EKKO-AEDAT）、凭证日期（EKKO-BEDAT）物料编号（EKPO-MATNR）及公司代码关联自定义表：ZTMM003（年度、月份需与“订单创建日期”一致）获取货币码（ZTMM003-WAERS）、预估最高价（ZTMM003-PRC01）、价格单位（ZTMM003-PEINH）；判断货币码（ZTMM003-WAERS）是否与订单币别（EKKO-WAERS）一致；1.1、不一致。则依据货币码（ZTMM003-WAERS）、订单币别（EKKO-WAERS）、汇率类型（M）获取汇率：M_RATE；订单价（第一笔XKOMV-KBETR/XKOMV-KPEIN）>ZTMM003-PRC01*M_RATE/ZTMM003-PEINH，则报错提示“行项目：XXXXX，物料编号：XXXXXXXXXXXXXXXXXX，订单价格：XXXXXXXXXX币别：XXXXX超过预估价格：XXXXXXXXXX币别:XXXX。”。1.2、若一致，则订单价（第一笔XKOMV-KBETR/XKOMV-KPEIN）>ZTMM003-PRC01/ZTMM003-PEINH，则报错提示“行项目：XXXXX，物料编号：XXXXXXXXXXXXXXXXXX，订单价格：XXXXXXXXXX超过预估价格：XXXXXXXXXX。”3技术说明ProgramnameZMMCBYY_PO_CHECK->CHECKTransactioncodeSE18SE19AuthorizationObjectFormFormnameN/AOutputtypeN/AFormroutineN/A3.1程序逻辑： 创建采购订单的时候对大宗原料价格进行控制"大宗物料价格控制（如采购单价超过期间预估价格报错）

IF

l_header-bsart

=

'ZD07'

AND

l_header-bukrs

=

'176A'

AND

(

sy-tcode

=

'ME21N'

OR

sy-tcode

=

'ME22N'

OR

sy-tcode

=

'ME23N'

OR

sy-tcode

=

'ME21'

OR

sy-tcode

=

'ME22'

OR

sy-tcode

=

'ME23'

).

DATA:ls_mm003

TYPE

ztmm003,

l_str1

TYPE

string,

l_str2

TYPE

string.

DATA:

lv_rate

TYPE

ukurs_curr,

lv_f_factor

TYPE

ffact_curr,

lv_l_factor

TYPE

tfact_curr,

lv_v_date

TYPE

datum,

lv_rate_typ

TYPE

kurst_curr.

DATA:

l_rate

TYPE

ukurs_curr.

DATA

oref

TYPE

REF

TO

cx_root.

LOOP

AT

lt_items

INTO

item_obj.

lwa_items

=

item_obj-item->get_data(

).

IF

lwa_items-loekz

=

'L'.

CONTINUE.

ENDIF.

CALL

METHOD

item_obj-item->get_conditions

IMPORTING

ex_conditions

=

lt_cond.

CLEAR

ls_mm003.

SELECT

SINGLE

*

INTO

ls_mm003

FROM

ztmm003

WHERE

matnr

=

lwa_items-matnr

AND

ekorg

=

l_header-ekorg

AND

bukrs

=

l_header-bukrs

AND

gjahr

=

l_header-bedat(4)

AND

zmonth

=

l_header-bedat+4(2).

IF

sy-subrc

=

0.

IF

ls_mm003-waers

=

l_header-waers.

l_rate

=

1.

ELSE.

CLEAR:

lv_rate,

lv_f_factor,

lv_l_factor,

lv_v_date,

lv_rate_typ,

l_rate

.

"计算汇率

CALL

FUNCTION

'READ_EXCHANGE_RATE'

EXPORTING

client

=

sy-mandt

date

=

sy-datum

foreign_currency

=

ls_mm003-waers

local_currency

=

l_header-waers

type_of_rate

=

'M'

IMPORTING

exchange_rate

=

lv_rate

foreign_factor

=

lv_f_factor

local_factor

=

lv_l_factor

valid_from_date

=

lv_v_date

derived_rate_type

=

lv_rate_typ

*

FIXED_RATE

=

*

OLDEST_RATE_FROM

=

EXCEPTIONS

no_rate_found

=

1

no_factors_found

=

2

no_spread_found

=

3

derived_2_times

=

4

overflow

=

5

zero_rate

=

6

OTHERS

=

7.

IF

lv_rate

LT

0.

l_rate

=

(

lv_f_factor

/

lv_l_factor

)

/

abs(

lv_rate

).

ELSE.

l_rate

=

lv_rate

/

(

lv_f_factor

/

lv_l_factor

).

ENDIF.

ENDIF.

TRY

.

l_str1

=

ls_mm003-prc01

/

ls_mm003-peinh

*

l_rate.

CLEAR

ls_cond.

LOOP

AT

lt_cond

INTO

ls_cond

WHERE

kschl

=

'PB00'

OR

kschl

=

'PBXX'.

l_str2

=

ls_cond-kbetr

/

ls_cond-kpein.

IF

l_str2

GT

l_str1.

CALL

FUNCTION

'CONVERSION_EXIT_MATN1_OUTPUT'

EXPORTING

input

=

lwa_items-matnr

IMPO