ZCMM01-4

*&--------------------------------------------------------------
*&      Module  set_item_table_initial_line  OUTPUT
*&--------------------------------------------------------------
MODULE SET_ITEM_TABLE_INITIAL_LINE OUTPUT.
  PERFORM. SET_ITEM_TABLE_INITIAL_LINE.
ENDMODULE.                 " set_item_table_initial_line  OUTPUT

*&--------------------------------------------------------------
*&      Module  display_item_data  OUTPUT
*&--------------------------------------------------------------
MODULE DISPLAY_ITEM_DATA OUTPUT.
  MOVE-CORRESPONDING ZCM04TAB TO ZCM04.
  IF ZCM04TAB-MARKDELETION EQ 'X'.  STATUSICON ='@11@'. ENDIF.
  SELECT MAKTX INTO MAKT-MAKTX FROM MAKT WHERE MATNR EQ
   ZCM04-MATNR AND SPRAS EQ SY-LANGU.
    EXIT.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    CLEAR MAKT-MAKTX.
  ENDIF.
*add by yuan-yuan xiao 080426
  DATA: L_VALUE LIKE ZMM048-VALUE.
  DATA:L_SUM LIKE EKET-WEMNG.
  DATA:L_ACCEPT LIKE ZCM04-ERFMG.
  DATA:LBATCH TYPE C.
  IF ZCM04-WERKS = 'PCFY'.
    SELECT SUM( B~WEMNG )
    INTO L_SUM
    FROM EKPO AS A
    INNER JOIN EKET AS B
    ON A~MANDT = B~MANDT
    AND A~EBELN = B~EBELN
    AND A~EBELP = B~EBELP
    WHERE A~EBELN = ZCM04-EBELN
    AND A~MATNR = ZCM04-MATNR.

    SELECT SUM( ERFMG )
    INTO L_ACCEPT
    FROM ZCM04
    WHERE EBELN = ZCM04-EBELN
    AND MATNR = ZCM04-MATNR.

    MCHB-CLABS = L_SUM - L_ACCEPT.
  ELSE.
    SELECT SINGLE XCHAR
    INTO LBATCH
    FROM MARC
    WHERE MATNR = ZCM04-MATNR
    AND WERKS = ZCM04-WERKS.

    IF LBATCH <> 'X'.
      SELECT SINGLE LABST INTO MCHB-CLABS
      FROM MARD
      WHERE MATNR = ZCM04-MATNR
      AND WERKS = ZCM04-WERKS
      AND LGORT = ZCM04-LGORT.
      IF SY-SUBRC NE 0.
        CLEAR MCHB-CLABS.
      ENDIF.
    ELSE.
*
*----------------------------JL071122.sn
      SELECT SINGLE CLABS INTO MCHB-CLABS
      FROM   MCHB
      WHERE  MATNR = ZCM04-MATNR
      AND    WERKS = ZCM04-WERKS
      AND    LGORT = ZCM04-LGORT
      AND    CHARG = ZCM04-CHARG.
      IF SY-SUBRC NE 0.
        CLEAR MCHB-CLABS.
      ENDIF.
    ENDIF.
*Add Candy Hsueh 20091119  for NPD REWORK WO GET Releation Data

    DATA: I_DAUAT LIKE AFPO-DAUAT. "ORDER TYPE
    DATA: I_KDAUF LIKE AFPO-KDAUF.  "SO
    DATA: I_KDPOS LIKE AFPO-KDPOS.  "SOITEM
    DATA: I_WEMPF LIKE AFPO-WEMPF.  "OLD WO
    DATA: I_BSTNK LIKE VBAK-BSTNK.  "CUST PO
    DATA: I_ZEINR LIKE MARA-ZEINR.   "ASUS MATERIAL

*Add Candy Hsueh 20091119  for NPD REWORK WO GET Releation Data
    SELECT SINGLE ZEINR INTO I_ZEINR FROM MARA
     WHERE MATNR = ZCM04-MATNR
       AND MTART = 'ZFRT'.
    IF SY-SUBRC = 0.
* GET WO TYPE and OLD WO
      SELECT SINGLE DAUAT WEMPF INTO (I_DAUAT,I_WEMPF)
          FROM AFPO
        WHERE AUFNR = ZCM03-AUFNR.

      SELECT SINGLE * FROM
        ZPCECONTROLVALUE
        WHERE WERKS = ZCM04-WERKS
         AND CTYPE = 'REWORKWO'
         AND CVALUE = I_DAUAT.

      IF SY-SUBRC = 0.
        CALL FUNCTION 'CONVERSION_EXIT_AUFNR_INPUT'
             EXPORTING
                  INPUT  = I_WEMPF
             IMPORTING
                  UTPUT = I_WEMPF.

* GET OLD WO ??SO/SO ITEM
        SELECT SINGLE A~KDAUF A~KDPOS B~BSTNK
        INTO (I_KDAUF,I_KDPOS,I_BSTNK)
        FROM AFPO AS A INNER JOIN VBAK AS B
          ON A~KDAUF = B~VBELN
        WHERE A~AUFNR = I_WEMPF.

* old wo,SO,SOITE,CUST PO, ASUS Material
        CONCATENATE I_KDAUF ',' I_KDPOS ',' I_BSTNK ',' I_ZEINR INTO
           ZCM03-COMMENTTEXT.
      ENDIF.
    ENDIF.

*End Candy Hsueh 20091119
  ENDIF.
*----------------------------JL071122.en
ENDMODULE.                 " display_item_data  OUTPUT

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

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