Yuan-Yuan 20091029 add.en
*Echo 20090806 add check valuation type.bn
*Ariel add batch is blank not get val_type
        IF RESBTAB-CHARG EQ SPACE.
          CALL FUNCTION 'ZRFC_MM_PCE_0054'
               EXPORTING
                    PLANT          = RESBTAB-WERKS
                    PARTNO         = RESBTAB-MATNR
                    SLOC           = RESBTAB-LGORT
               IMPORTING
                    ECODE          = L_ECODE
                    VALUATION_TYPE = L_CHARG.

          IF L_ECODE = 0.
            RESBTAB-CHARG = L_CHARG.
          ENDIF.
          CLEAR L_CHARG.
        ENDIF.
*Echo 20090806 add check valuation type.bn
        CASE ZCM03-DOCTYPE.
          WHEN '1' OR '2' OR 'A'.
            IF G_SLOC NE 'A'.   "Elven20070411 for all
*OPENMATERIALS
              IF ZCM03-ENMNG IS INITIAL.
                RESBTAB-ERFMG = 0.
              ELSE.
                RESBTAB-ERFMG = CEIL( RESB-BDMNG / AFKO-GAMNG
                      * ZCM03-ENMNG ).
              ENDIF.
            ELSE.
              RESBTAB-ERFMG = RESB-BDMNG - RESB-ENMNG.
            ENDIF.
*Ariel add for 'H' 100424.sn
          WHEN 'H'.
            RESBTAB-ERFMG = RESB-BDMNG .
*Ariel add for 'H' 100424.en
        ENDCASE.
        COLLECT RESBTAB.
      ENDSELECT.
    ENDIF.

****Elven 20070507 add for by mrp controller/controller group
  ELSEIF G_SLOC = 'B' .    "By mrp controll group

    G_MRPGRP  = ZPCEMM002-GROUPCODE  .

    IF AFKO-GAMNG IS  INITIAL .
      SELECT MATNR WERKS LGORT BDMNG ENMNG MEINS CHARG REVLV
      RSNUM RSPOS ALPOS SHKZG
      INTO CORRESPONDING FIELDS OF RESB
      FROM RESB
      WHERE RSNUM EQ PLAF-RSNUM
      AND PLNUM EQ PLAF-PLNUM
      AND XLOEK NE 'X' AND RGEKZ NE 'X'
      AND SCHGT NE 'X' AND DUMPS NE 'X'
      AND XWAOK EQ 'X'.
        IF RESB-WERKS CS 'PD' AND RESB-BDMNG = 0.
          CONTINUE.
        ENDIF.
        IF ZCM03-DOCTYPE <> 'H'.
*kelly 20100420 modify .sn
          IF  ( RESB-WERKS = 'PSK1' OR  RESB-WERKS = 'PSC2' ).
            IF ZCM03-DOCTYPE <> '2'.
              IF RESB-BDMNG = 0 AND RESB-ALPOS <> 'X'.
                CONTINUE.
              ENDIF.
            ELSE.
              IF RESB-ENMNG = 0.
                CONTINUE.
              ENDIF.
            ENDIF.
          ELSE. "non-npd plant
            IF RESB-BDMNG = 0 AND RESB-ALPOS <> 'X'.
              CONTINUE.
            ENDIF.
          ENDIF.
*kelly 20100420 modify .en
        ENDIF.

        SELECT MARC~SOBSL  ZPCEMM002~GROUPCODE
        INTO (L_SOBSL,  L_MRPGRP)
        FROM  MARC
        INNER JOIN ZPCEMM002 ON ZPCEMM002~GROUPVALUE =
        MARC~DISPO
        AND ZPCEMM002~WERKS =
        MARC~WERKS

                                                            "JL080221.
        WHERE MARC~MATNR EQ RESB-MATNR
        AND MARC~WERKS EQ RESB-WERKS.

          EXIT.
        ENDSELECT.

*        CHECK SY-SUBRC EQ 0 AND L_SOBSL NE '50'
*          AND RESB-BDMNG > 0 AND  L_MRPGRP EQ G_MRPGRP.

        CHECK SY-SUBRC EQ 0 AND L_MRPGRP EQ G_MRPGRP.
        "changed by liuchun

        RESBTAB-MATNR = RESB-MATNR.
        RESBTAB-WERKS = RESB-WERKS.
        RESBTAB-LGORT = RESB-LGORT.
        RESBTAB-CHARG = RESB-REVLV.
        RESBTAB-MEINS = RESB-MEINS.
        RESBTAB-RSNUM = RESB-RSNUM.
        RESBTAB-RSPOS = RESB-RSPOS.
        RESBTAB-SHKZG = RESB-SHKZG.
        RESBTAB-ZALPGR = RESB-ALPGR. "Ariel add 100416
        RESBTAB-ENMNG = RESB-ENMNG."Add for H 100424
*Echo 20090806 add check valuation type.bn
*Ariel add batch is blank not get val_type
        IF RESBTAB-CHARG EQ SPACE.
          CALL FUNCTION 'ZRFC_MM_PCE_0054'
               EXPORTING
                    PLANT          = RESBTAB-WERKS
                    PARTNO         = RESBTAB-MATNR
                    SLOC           = RESBTAB-LGORT
               IMPORTING
                    ECODE          = L_ECODE
                    VALUATION_TYPE = L_CHARG.

          IF L_ECODE = 0.
            RESBTAB-CHARG = L_CHARG.
          ENDIF.
          CLEAR L_CHARG.
        ENDIF.