RMA3

最新推荐文章于 2025-07-13 15:27:00 发布

转载最新推荐文章于 2025-07-13 15:27:00 发布 · 123 阅读

FUNCTION ZRFC_SD_PCE_0096.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*"     VALUE(P_MODE) LIKE ZRMADATA-SOFLAG OPTIONAL
*" TABLES
*"      ZRMASLOG STRUCTURE ZRMASLOG OPTIONAL
*"----------------------------------------------------------------------
*cici20100618.add.sn
DATA: RETURN_FLAG(48) TYPE C.
DATA: L_ZRMANO(20) TYPE C.
DATA: L_SNNO(35) TYPE C.
*cici20100618.add.en
ZQTY = '1'.
IF P_MODE IS INITIAL.
    P_MODE = 'N'.
ENDIF.

SELECT * FROM ZRMASHIPPING
INTO CORRESPONDING FIELDS OF TABLE ZRMASHIPPING
WHERE SHIPFLAG <> 'Y'.

IF ZRMASHIPPING[] IS INITIAL.
    ZRMASLOG-ZRMA = 'NULL'.
    ZRMASLOG-ZSN = 'NULL'.
    ZRMASLOG-ZMESSAGE = 'No Data'.
    ZRMASLOG-ZDATE = SY-DATUM.
    ZRMASLOG-ZTIME = SY-TIMLO.
    APPEND ZRMASLOG.
    EXIT.
ENDIF.

SORT ZRMASHIPPING BY ZRMA ZSN.
LOOP AT ZRMASHIPPING.
*cici20100618.add.sn
    L_ZRMANO = ZRMASHIPPING-ZRMA.
    L_SNNO   = ZRMASHIPPING-ZSN.
    CALL FUNCTION 'ZRFC_PP_PCE_0110'
         EXPORTING
              RMA_NUM    = L_ZRMANO
              SERIAL_NUM = L_SNNO
         IMPORTING
              RETURN     = RETURN_FLAG.

    IF RETURN_FLAG <> 'OK'.
      CONTINUE.
    ENDIF.
*cici20100618.add.en
    CLEAR:ZSONO,ZSOITEM.

SELECT SINGLE * FROM ZRMADATA
WHERE ZRMA = ZRMASHIPPING-ZRMA AND ZSN = ZRMASHIPPING-ZSN.

    SELECT SINGLE * FROM ZPCECONTROLVALUE
    WHERE CTYPE = ZRMADATA-ZCUSTOMER
    AND INDICATOR1 = 'ACT'
    AND WERKS = ZRMASHIPPING-PLANT .

SELECT SINGLE VBELN INTO ZSONO FROM VBAK
WHERE BSTNK = ZRMASHIPPING-ZRMA.

SELECT SINGLE POSNR INTO ZSOITEM FROM VBAP
WHERE VBELN = ZSONO AND KANNR = ZRMASHIPPING-ZSN .

    SELECT SINGLE * FROM VBAP
    WHERE VBELN = ZSONO
    AND PSTYV = 'ZIRL'
*    AND pstyv = 'IRAL'
    AND VKGRU = '103' AND UEPOS = ZSOITEM .

    IF SY-SUBRC = 0.
      CLEAR IT_BDC.
      REFRESH IT_BDC.

      PERFORM. BDC_PROCESS TABLES IT_BDC.
      CALL TRANSACTION 'VL01N' USING IT_BDC MODE P_MODE UPDATE 'S'
         MESSAGES INTO ITAB_M.
      IF SY-SUBRC <> 0.
        ZRMASLOG-ZRMA = ZRMASHIPPING-ZRMA.
        ZRMASLOG-ZSN = ZRMASHIPPING-ZSN.
        ZRMASLOG-ZMESSAGE = 'Outbound DN generated error'.
        ZRMASLOG-ZDATE = SY-DATUM.
        ZRMASLOG-ZTIME = SY-TIMLO.
        APPEND ZRMASLOG.
      ELSE.
        SELECT SINGLE * FROM LIPS
        WHERE VBELV = ZSONO AND POSNV = ZSOITEM
        AND PSTYV = 'ZIRL'.
*        AND pstyv = 'IRAL'.
        UPDATE ZRMASHIPPING SET SHIPFLAG = 'Y'
                            SHIPDN = LIPS-VBELN
        WHERE ZRMA = ZRMASHIPPING-ZRMA
        AND ZSN = ZRMASHIPPING-ZSN.
      ENDIF.
    ELSE.
      ZRMASLOG-ZRMA = ZRMASHIPPING-ZRMA.
      ZRMASLOG-ZSN = ZRMASHIPPING-ZSN.
      ZRMASLOG-ZMESSAGE = 'Repair order dont confirm for SN in SAP'.
      ZRMASLOG-ZDATE = SY-DATUM.
      ZRMASLOG-ZTIME = SY-TIMLO.
      APPEND ZRMASLOG.
    ENDIF.