METHOD if_ex_md_mrp_parameters~adjust_material_master_params.

  TYPES:BEGIN  OF ieord,

         matnr TYPE c LENGTH ,

         werks TYPE c LENGTH ,

         zeord TYPE n LENGTH ,

         vdatu TYPE d,

         bdatu TYPE d,

         lifnr TYPE c LENGTH ,

         reswk TYPE c LENGTH ,

         ekorg TYPE c LENGTH ,

*       IGMNG type p length  decimals ,

        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 .

*&通过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 .

  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 --- DEVK905062

*& 定义

    TYPES:gt_eine TYPE STANDARD TABLE OF eine.

    DATA: wa_eine TYPE eine.

    DATA: wa_zextsource TYPE zextsource.

*&->end add by rainy on

    LOOP AT it_eord INTO il_eord.

      IF il_eord-reswk = ''. "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 = ''

*    and matnr = IM_MT61D-matnr.

* if sy-subrc <> .

*    CH_MT61D_EXT-WEBAZ = .

* 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 .

*&A2.通过物料+工厂（‘’）+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 ''

             AND eine~ekorg EQ wa_zextsource-ekorg.

          IF sy-subrc <> .

            ch_mt61d_ext-plifz = .

          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 = ''

                    AND eina~loekz <> 'X'.

          IF sy-subrc <> .

            ch_mt61d_ext-plifz = .

          ENDIF.

          ch_changed = 'X'.

        ENDIF.

*&->start notes by rainy on .

*&->前期逻辑注释

*   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 = ''

*     AND eina~loekz <> 'X'.

*      IF sy-subrc <> .

*        ch_mt61d_ext-plifz = .

*      ENDIF.

*      ch_changed = 'X'.

*&->end notes by riany on .

      ENDIF.

      CLEAR il_eord.

    ENDLOOP.

  ENDIF.

ENDMETHOD.