GET CLEARED ITEMS

Devuelve los documentos compensados por el nº de documento dado

Ejemplo

 include RFEPOSC1. "Contiene la definición de POSTAB

   SELECT SINGLE * FROM BKPF
                   WHERE BUKRS = I_DATOS-BUKRS
                   AND   BELNR = I_DATOS-BELNR
                   AND   GJAHR = I_DATOS-GJAHR.
     REFRESH POSTAB.
     CALL FUNCTION 'GET_CLEARED_ITEMS'
          EXPORTING
               I_BELNR                = I_DATOS-BELNR
               I_BUKRS                = I_DATOS-BUKRS
               I_GJAHR                = I_DATOS-GJAHR
               I_BVORG                = BKPF-BVORG
          TABLES
               T_ITEMS                = POSTAB
          EXCEPTIONS
               NOT_FOUND              = 1
               ERROR_CLEARED_ACCOUNTS = 2
               OTHERS                 = 3.
     LOOP AT POSTAB WHERE XHELL NE 'X'
                      AND BUDAT <= P_BUDAT.
       CLEAR I_PAGADO.
       I_PAGADO-BUKRS = I_DATOS-BUKRS.
       I_PAGADO-BELNR = I_DATOS-BELNR.
       I_PAGADO-GJAHR = I_DATOS-GJAHR.
       I_PAGADO-LIFNR = I_DATOS-LIFNR.
       I_PAGADO-BLART = POSTAB-BLART.
       I_PAGADO-DMBTR = POSTAB-BWWRT - POSTAB-QBSHB.
       IF BSAK-SHKZG = 'S'.
         I_PAGADO-DMBTR = - POSTAB-BWWRT.
       ENDIF.
       COLLECT I_PAGADO.
       CLEAR I_RELDOCS.
       MOVE-CORRESPONDING I_PAGADO TO I_RELDOCS.
       I_RELDOCS-BELNRP = POSTAB-BELNR.
       I_RELDOCS-GJAHRP = POSTAB-GJAHR.
       COLLECT I_RELDOCS.
     ENDLOOP.