RMA5

最新推荐文章于 2024-11-08 22:03:17 发布

转载最新推荐文章于 2024-11-08 22:03:17 发布 · 105 阅读

FUNCTION ZRFC_SD_PCE_0093.
*"----------------------------------------------------------------------
*"*"Local interface:
*" EXPORTING
*"     VALUE(ZFLAG) LIKE ZRMADATA-ZRMA
*" TABLES
*"      ZRMAMASTER STRUCTURE ZRMADATA OPTIONAL
*"      ZRMALOG STRUCTURE ZRMALOG OPTIONAL
*"----------------------------------------------------------------------

ZFLAG = 'Y'.
IF ZRMAMASTER[] IS INITIAL.
    ZRMALOG-ZRMA = 'NULL'.
    ZRMALOG-ZSN = 'NULL'.
    ZRMALOG-ZMESSAGE = 'NODATA'.
    ZRMALOG-ZDATE = SY-DATUM.
    ZRMALOG-ZTIME = SY-TIMLO.
    APPEND ZRMALOG.
    ZFLAG = 'NO Data'.
    EXIT.
ELSE.
    LOOP AT ZRMAMASTER.
      SELECT SINGLE * FROM ZRMADATA
      WHERE ZRMA = ZRMAMASTER-ZRMA
      AND ZSN = ZRMAMASTER-ZSN
      AND SOFLAG = 'Y'.
      IF SY-SUBRC = 0.
        ZRMALOG-ZRMA = ZRMAMASTER-ZRMA.
        ZRMALOG-ZRMA = ZRMAMASTER-ZSN.
        ZRMALOG-ZMESSAGE = 'SN already insert and generate SO'.
        ZRMALOG-ZDATE = SY-DATUM.
        ZRMALOG-ZTIME = SY-TIMLO.
        APPEND ZRMALOG.
        ZFLAG = 'SN already transfer to SAP'.
        ZRMAMASTER-SOFLAG = 'Y'.
        MODIFY ZRMAMASTER.
        CONTINUE.
      ELSE.
        CLEAR :ZHHPN,ZMATNR.
        CONDENSE ZRMAMASTER-CPN.
        CONDENSE ZRMAMASTER-BATCH.
        CONCATENATE '%' ZRMAMASTER-CPN '%' '+' ZRMAMASTER-BATCH '%' INTO
ZHHPN.

        SELECT SINGLE MARA~MATNR INTO ZMATNR FROM MARC INNER JOIN MARA
        ON MARC~MATNR = MARA~MATNR
        WHERE MARA~MATNR LIKE ZHHPN
        AND MARC~WERKS = ZRMAMASTER-PLANT.

        IF ZMATNR IS INITIAL.
         SELECT SINGLE MARA~MATNR INTO ZMATNR FROM MARC INNER JOIN MARA
             ON MARC~MATNR = MARA~MATNR
             WHERE MARA~MATNR = ZRMAMASTER-CPN
             AND MARC~WERKS = ZRMAMASTER-PLANT.
          IF SY-SUBRC = 0.
            DELETE FROM ZRMADATA
    WHERE ZRMA = ZRMAMASTER-ZRMA
     AND ZSN = ZRMAMASTER-ZSN.
            INSERT INTO ZRMADATA VALUES ZRMAMASTER.
            IF SY-SUBRC <> 0.
              ZRMALOG-ZRMA = ZRMAMASTER-ZRMA.
              ZRMALOG-ZRMA = ZRMAMASTER-ZSN.
              ZRMALOG-ZMESSAGE = 'SN Insert Failed'.
              ZRMALOG-ZDATE = SY-DATUM.
              ZRMALOG-ZTIME = SY-TIMLO.
              APPEND ZRMALOG.
              ZFLAG = 'SN insert to SAP fail'.
            ENDIF.
          ELSE.
            ZFLAG = 'SN Fail,HHPN cant find in system'.
          ENDIF.
        ELSE.
          DELETE FROM ZRMADATA
WHERE ZRMA = ZRMAMASTER-ZRMA
   AND ZSN = ZRMAMASTER-ZSN.
          INSERT INTO ZRMADATA VALUES ZRMAMASTER.
          IF SY-SUBRC <> 0.
            ZRMALOG-ZRMA = ZRMAMASTER-ZRMA.
            ZRMALOG-ZRMA = ZRMAMASTER-ZSN.
            ZRMALOG-ZMESSAGE = 'SN Insert Failed'.
            ZRMALOG-ZDATE = SY-DATUM.
            ZRMALOG-ZTIME = SY-TIMLO.
            APPEND ZRMALOG.
            ZFLAG = 'SN insert to SAP fail'.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.