001infor record 计划时间取值增强-20150622

METHOD if_ex_md_mrp_parameters~adjust_material_master_params.
TYPES:BEGIN  OF ieord,
matnr TYPE c LENGTH 18,
werks TYPE c LENGTH 4,
zeord TYPE n LENGTH 5,
vdatu TYPE d,
bdatu TYPE d,
lifnr TYPE c LENGTH 10,
reswk TYPE c LENGTH 4,
ekorg TYPE c LENGTH 4,
*       IGMNG type p length 13 decimals 3,
END OF ieord.
DATA: it_eord TYPE STANDARD TABLE OF ieord,
il_eord TYPE ieord.

DATA:output  TYPE char40,
l_addrstr TYPE ni_nodeaddr.
*&add by rainy on 20150604.
*&通过ip break.
*  CALL FUNCTION 'TH_USER_INFO'
*    IMPORTING
*      terminal = output
*      addrstr  = l_addrstr.
*  IF l_addrstr = '192.168.0.200' .
*    BREAK-POINT.
*  ENDIF.
break test_13.
*&->end add by rainy on 20150604.

IF sy-cprog = 'RMMRP000' OR sy-tcode = 'MD01' OR sy-tcode = 'MD02' OR sy-tcode = 'MD03'.
CLEAR: it_eord, it_eord[], il_eord.
*  break: pp10.
*  if IM_MT61D-matnr = '22-05-500277-1'.
SELECT matnr werks zeord vdatu bdatu lifnr reswk ekorg
INTO CORRESPONDING FIELDS OF TABLE it_eord
FROM eord
WHERE werks = im_mt61d-werks
AND matnr = im_mt61d-matnr.

*&->add by rainy on 20150603--- DEVK905062
*& 定义
TYPES:gt_eine TYPE STANDARD TABLE OF eine.
DATA: wa_eine TYPE eine.
DATA: wa_zextsource TYPE zextsource.

*&->end add by rainy on 20150603
LOOP AT it_eord INTO il_eord.

IF il_eord-reswk = '1000'. "and sy-datum >= il_eord-VDATU and sy-datum <= il_eord-BDATU.
* select single WEBAZ into CH_MT61D_EXT-WEBAZ    "袁生确认只在3000工厂维护内外购统一的收货处理时间
*   from marc
*  where werks = '1000'
*    and matnr = IM_MT61D-matnr.
* if sy-subrc <> 0.
*    CH_MT61D_EXT-WEBAZ = 0.
* endif.

*&A1.外挂表zextsource取货源(物料+工厂->采购组+供应商)
SELECT SINGLE *
INTO wa_zextsource
FROM zextsource
WHERE matnr EQ im_mt61d-matnr
AND werks EQ im_mt61d-werks.
*&
IF sy-subrc EQ 0.
*&A2.通过物料+工厂（‘1000’）+zextsource货源找info record 的计划交货时间
SELECT SINGLE aplfz INTO ch_mt61d_ext-plifz"* INTO CORRESPONDING FIELDS OF wa_eine
FROM eine
JOIN eina
ON eine~infnr EQ eina~infnr
WHERE eina~matnr EQ im_mt61d-matnr
AND eina~lifnr EQ wa_zextsource-lifnr
AND eina~loekz NE 'X'

AND eine~werks EQ '1000'
AND eine~ekorg EQ wa_zextsource-ekorg.
IF sy-subrc <> 0.
ch_mt61d_ext-plifz = 0.
ENDIF.
ch_changed = 'X'.

ELSE.
* MESSAGE '外挂表没有维护' im_mt61d-matnr im_mt61d-werks '货源信息'
*&A3.当外挂表没有数据，按照原来逻辑。
SELECT SINGLE aplfz
INTO ch_mt61d_ext-plifz
FROM eine
INNER JOIN eina
ON eine~infnr = eina~infnr
INNER JOIN eord
ON eord~werks = eine~werks
AND eord~matnr = eina~matnr
AND eord~lifnr = eina~lifnr
AND eord~ekorg = eine~ekorg
WHERE eord~matnr = im_mt61d-matnr
AND eord~werks = '1000'
AND eina~loekz <> 'X'.
IF sy-subrc <> 0.
ch_mt61d_ext-plifz = 0.
ENDIF.
ch_changed = 'X'.

ENDIF.

*&->start notes by rainy on 20150603.
*&->前期逻辑注释
*   SELECT SINGLE aplfz INTO ch_mt61d_ext-plifz
*   FROM eine INNER JOIN eina
*   ON eine~infnr = eina~infnr
*   INNER JOIN eord
*   ON eord~werks = eine~werks
*   AND eord~matnr = eina~matnr
*   AND eord~lifnr = eina~lifnr
*   AND eord~ekorg = eine~ekorg
*   WHERE eord~matnr = im_mt61d-matnr
*     AND eord~werks = '1000'
*     AND eina~loekz <> 'X'.
*      IF sy-subrc <> 0.
*        ch_mt61d_ext-plifz = 0.
*      ENDIF.
*      ch_changed = 'X'.
*&->end notes by riany on 20150603.

ENDIF.
CLEAR il_eord.
ENDLOOP.

ENDIF.
ENDMETHOD.