deltabadi.txt

SAP BW DELTA infomation very good

METHOD IF_EX_MB_DOCUMENT_BADI~MB_DOCUMENT_BEFORE_UPDATE .

  DATA:JOBNUMBER TYPE BTCJOBCNT.
  DATA: LV_RELEASED TYPE BTCCHAR1.
  DATA: ZXMKPF LIKE LINE OF XMKPF .
  DATA: ZXMSEG LIKE LINE OF XMSEG .
*
  DATA: LT_SELTAB     TYPE TABLE OF RSPARAMS,
        LT_SELTAB_WA  LIKE LINE OF LT_SELTAB.

  READ TABLE XMKPF INDEX 1 INTO ZXMKPF.
  IF ZXMKPF-VGART = 'WL'.
    REFRESH LT_SELTAB.
    CLEAR LT_SELTAB_WA.
    MOVE: 'P_MBLNR' TO LT_SELTAB_WA-SELNAME,
          'P'       TO LT_SELTAB_WA-KIND,
          'I'       TO LT_SELTAB_WA-SIGN,
          'EQ'      TO LT_SELTAB_WA-OPTION,
          ZXMKPF-MBLNR TO LT_SELTAB_WA-LOW.
    APPEND LT_SELTAB_WA TO LT_SELTAB.
    CLEAR LT_SELTAB_WA.
    MOVE: 'P_MJAHR' TO LT_SELTAB_WA-SELNAME,
          'P'       TO LT_SELTAB_WA-KIND,
          'I'       TO LT_SELTAB_WA-SIGN,
          'EQ'      TO LT_SELTAB_WA-OPTION,
          ZXMKPF-MJAHR TO LT_SELTAB_WA-LOW.
    APPEND LT_SELTAB_WA TO LT_SELTAB.
  ENDIF.

  CALL FUNCTION 'JOB_OPEN'
    EXPORTING
      JOBNAME  = 'Z1BW_GET_MAT_DOCUMENT'
      JOBCLASS = 'A'
    IMPORTING
      JOBCOUNT = JOBNUMBER.

  SUBMIT Z1BW_GET_MAT_DOCUMENT WITH  SELECTION-TABLE LT_SELTAB
         VIA JOB 'Z1BW_GET_MAT_DOCUMENT' NUMBER JOBNUMBER AND RETURN.

  CALL FUNCTION 'JOB_CLOSE'
    EXPORTING
      JOBCOUNT          = JOBNUMBER
      JOBNAME           = 'Z1BW_GET_MAT_DOCUMENT'
      STRTIMMED         = 'X'
    IMPORTING
      JOB_WAS_RELEASED  = LV_RELEASED
    EXCEPTIONS
      INVALID_STARTDATE = 01
      JOBNAME_MISSING   = 02
      JOB_CLOSE_FAILED  = 03
      JOB_NOSTEPS       = 04
      JOB_NOTEX         = 05
      LOCK_FAILED       = 06
      OTHERS            = 99.


ENDMETHOD.