Open and closed invoices

Question

hi experts,
I have to capture the parked, open and closed invoices in a report in reference to vendor...
I got the parked invoice condition from the table BSTAT either v or w.
But i am not getting the idea how to capture the open and closed invoices...
Some one suggested me to use the ITEMSET structure but i donno how to capture those values can anyone suggest me how to do it...?
SIRI

Answer 1

Hi,
you can use the same query...Also check the new code after the select..
SELECT BUKRS BELNR GJAHR <b>BSTAT</b>
FROM BKPF
INTO TABLE T_BKPF
WHERE BUKRS = P_BUKRS
AND BSTAT IN ( ' ' , 'A' ) " ' ' - Normal document, A - Parked doc
AND BLART = P_BLART
AND CPUDT IN SO_CPUDT " Selection screen input.
IF NOT T_BKPF[] IS INITIAL.
SELECT BUKRS BELNR GJAHR BUZEI EBELN AUGBL AUGBT
INTO TABLE T_BSEG
FOR ALL ENTRIES IN T_BKPF
WHERE BUKRS = T_BKPF-BUKRS
AND BELNR = T_BKPF-BELNR
AND GJAHR = T_BKPF-GJAHR
AND EBELN IN SO_EBELN " selection-screen input
ENDIF.
LOOP AT T_BKPF.
Parked
  IF T_BKPF-BSTAT = 'A'.
    WRITE: / T_BKPF-BELNR , ' - Parked'.
process the next record.
    CONTINUE.
  ENDIF.
Check for Open / Closed.
  LOOP AT T_BSEG WHERE BELNR = T_BKPF-BELNR
                               AND      BUKRS = T_BKPF-BUKRS
                               AND      GJAHR = T_BKPF-GJAHR
                               AND      AUGBL <> ' '.
    EXIT.
  ENDLOOP.
If the return code is 0 then the document is cleared..
  IF sy-subrc = 0.
    WRITE: / T_BKPF-BELNR , ' - Closed'.
Else the document is not cleared.
  ELSE.
    WRITE: / T_BKPF-BELNR , ' - Open'.
  ENDIF.
ENDLOOP.
Thanks,
Naren