WMS函數組：1.檢查ZPB2是否存在

FUNCTION ZRFC_CHECK_ZPB2.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IP_VBELN) TYPE  VBELN OPTIONAL
*"     REFERENCE(LIKP) LIKE  LIKP STRUCTURE  LIKP OPTIONAL
*"  EXPORTING
*"     REFERENCE(EX_SUBRC) TYPE  SY-SUBRC
*"  TABLES
*"      LIPS STRUCTURE  LIPS OPTIONAL
*"      ET_LOG STRUCTURE  BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------

  INCLUDE ZMV50AFZ1_VAR1.

  DATA: LS_LIKP LIKE LIKP.

   DATA: V_KNUMH TYPE KNUMH.
   DATA: V_KBETR TYPE KBETR_KOND.
   DATA: V_KPEIN TYPE KPEIN.
   DATA: V_KONWA TYPE KONWA.
   DATA: V_KP TYPE P LENGTH 16 DECIMALS 6.
  DATA: DTAX TYPE P LENGTH 16 DECIMALS 6.


  DATA: V_BUKRS LIKE LIKP-KUNIV.




   CLEAR: ET_LOG,ET_LOG[].

  EX_SUBRC = 0.

  IF LIKP IS NOT INITIAL.
     MOVE LIKP TO LS_LIKP.
   ENDIF.


  IF IP_VBELN IS NOT INITIAL.
    SELECT SINGLE VBELN VKORG ERDAT KUNIV INTO CORRESPONDING FIELDS OF LS_LIKP
       FROM LIKP WHERE VBELN = IP_VBELN
             .
  ENDIF.

  CHECK LS_LIKP IS NOT INITIAL.

  CHECK   LS_LIKP-VKORG IN S_VKORG[] AND LS_LIKP-KUNIV IN S_KUNIV[].


   MOVE LS_LIKP-KUNIV TO V_BUKRS.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
     EXPORTING
       INPUT  = V_BUKRS
    IMPORTING
       OUTPUT = V_BUKRS.



   IF LIPS[] IS INITIAL.

     SELECT  VBELN POSNR MATNR WERKS LFIMG
        INTO CORRESPONDING FIELDS OF TABLE LIPS FROM LIPS
        WHERE VBELN = IP_VBELN.


   ENDIF.

   LOOP AT LIPS WHERE VBELN = LS_LIKP-VBELN AND WERKS IN S_WERKS AND LFIMG > 0.
     CLEAR V_KNUMH .
    SELECT SINGLE KNUMH INTO V_KNUMH FROM A055
                       WHERE VKORGAU = LS_LIKP-VKORG
                         AND WERKS = LIPS-WERKS
                         AND MATNR = LIPS-MATNR
                         AND DATBI >= LS_LIKP-ERDAT
                         AND KSCHL = 'ZPB2'.
     CLEAR :V_KBETR,V_KPEIN,V_KONWA.
     SELECT SINGLE  KBETR KPEIN KONWA INTO (V_KBETR,V_KPEIN,V_KONWA) FROM KONP WHERE KNUMH = V_KNUMH
      AND LOEVM_KO <> 'X'
      .


     IF V_KBETR <= 0.

       EX_SUBRC = 1.



       ET_LOG-TYPE = 'E'.
      ET_LOG-ID = LS_LIKP-VBELN.
       ET_LOG-MESSAGE = '不存在ZPB2價格'.
      CONCATENATE LS_LIKP-VBELN '~' LIPS-MATNR ET_LOG-MESSAGE INTO ET_LOG-MESSAGE.
      ET_LOG-LOG_NO = LS_LIKP-VBELN.
       APPEND ET_LOG.


     ENDIF.


  ENDLOOP.

   IF SY-SUBRC > 0.
    CHECK EX_SUBRC = 2.

    ET_LOG-TYPE = 'E'.
    ET_LOG-ID = LS_LIKP-VBELN.
     ET_LOG-MESSAGE = '參數錯誤'.
    CONCATENATE LS_LIKP-VBELN '~' LIPS-MATNR ET_LOG-MESSAGE INTO ET_LOG-MESSAGE.
    ET_LOG-LOG_NO = IP_VBELN.
     APPEND ET_LOG.

  ENDIF.


  CHECK EX_SUBRC = 0.


  ET_LOG-TYPE = 'I'.
  ET_LOG-ID = IP_VBELN.
  ET_LOG-MESSAGE = '檢查成功'.
*      CONCATENATE IP_VBELN '~' LIPS-MATNR ET_LOG-MESSAGE INTO ET_LOG-MESSAGE.
   ET_LOG-LOG_NO = LS_LIKP-VBELN.
   APPEND ET_LOG.


ENDFUNCTION.