ZCMM01-18

        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
*Ariel 20100201 add for EPD2 mark by ariel 100416
*        IF resb-werks CS 'PP'.
*          resbtab-alpgr = resb-alpgr.
*          resbtab-zalpgr = resb-alpgr. "Ariel add 100412
*        ELSE.
*Ariel 20100201 add end
*Yuan-Yuan 20091029 add.sn
        IF RESB-ALPOS = 'X'.
          IF P_ALPGR IS INITIAL.
            P_ALPGR = P_ALPGR + 1.
            L_STLNR = RESB-STLNR.
            L_ALPGR = RESB-ALPGR.
          ELSE.
            IF RESB-STLNR <> L_STLNR
            OR RESB-ALPGR <> L_ALPGR.
              P_ALPGR = P_ALPGR + 1.
              L_STLNR = RESB-STLNR.
              L_ALPGR = RESB-ALPGR.
            ENDIF.
          ENDIF.
          RESBTAB-ALPGR = P_ALPGR.
        ELSE.
          RESBTAB-ALPGR = SPACE.
        ENDIF.
*        ENDIF."Ariel add 100201
        RESBTAB-EWAHR = RESB-EWAHR.
*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' OR 'H'.
            IF ZCM03-ENMNG IS INITIAL.
              RESBTAB-ERFMG = 0.
            ELSE.
              RESBTAB-ERFMG = CEIL( RESB-BDMNG / PLAF-GSMNG
                     * ZCM03-ENMNG ).
            ENDIF.
        ENDCASE.
        COLLECT RESBTAB.
      ENDSELECT.
    ELSE.
      SELECT MATNR WERKS LGORT BDMNG ENMNG MEINS CHARG
      RSNUM RSPOS SHKZG ALPOS
      STLNR ALPGR EWAHR"Yuan-Yuan 20091029 add
      INTO CORRESPONDING FIELDS OF RESB
      FROM RESB WHERE RSNUM EQ AFKO-RSNUM
      AND RGEKZ NE 'X' AND XLOEK NE 'X'
      AND SCHGT NE 'X' AND DUMPS NE 'X'
      AND XWAOK EQ 'X'
*Yuan-Yuan add 20091026.sn
      AND MATNR IN IT_MATNR
      ORDER BY STLNR ALPGR.
*Yuan-Yuan add 20091026.en
        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 SOBSL INTO L_SOBSL FROM MARC WHERE MATNR
*EQRESB-MATNR
*                                            AND WERKS
*EQRESB-WERKS.
*          EXIT.
*        ENDSELECT.

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

*        CHECK SY-SUBRC EQ 0 AND L_SOBSL NE '50'.  "changed
*BYLIUCHUN
*         AND RESB-BDMNG > 0 .

        RESBTAB-MATNR = RESB-MATNR.
        RESBTAB-WERKS = RESB-WERKS.
        RESBTAB-LGORT = RESB-LGORT.
        RESBTAB-CHARG = RESB-CHARG.
        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
**Ariel 20100201 add for EPD2 mark by ariel 100416
*        IF resb-werks CS 'PP'.
*          resbtab-alpgr = resb-alpgr.
*        ELSE.
**Ariel 20100201 add end
*Yuan-Yuan 20091029 add.sn
        IF RESB-ALPOS = 'X'.
          IF P_ALPGR IS INITIAL.
            P_ALPGR = P_ALPGR + 1.
            L_STLNR = RESB-STLNR.
            L_ALPGR = RESB-ALPGR.
          ELSE.
            IF RESB-STLNR <> L_STLNR
            OR RESB-ALPGR <> L_ALPGR.
              P_ALPGR = P_ALPGR + 1.
              L_STLNR = RESB-STLNR.
              L_ALPGR = RESB-ALPGR.
            ENDIF.
          ENDIF.
          RESBTAB-ALPGR = P_ALPGR.
        ELSE.
          RESBTAB-ALPGR = SPACE.
        ENDIF.
*        ENDIF."Ariel 20100201 add
        RESBTAB-EWAHR = RESB-EWAHR.
*Yuan-Yuan 20091029 add.en

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666170/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666170/