customer line item display

[Former Member]

Hi

I m creating customer line item diaplay for FI/CO. I want know which are the appropriate tables for creation.

and there is WBS column inside the report but it is not flowing values.

regards,

swapnil

[Former Member]

*&---------------------------------------------------------------------*
*& ABAP REPORT FOR LISTING CUSTOMER STATEMENT
*& SAP TRANSACTION : FBL5N
*& Z TRANSACTION   : ZCUSTOMER_STATEMENT                                                          *
*&---------------------------------------------------------------------*
*& REPORT TO CUSTOMER LINE ITEM DISPLAYS
*& DATE : 11.08.2008                                                   *
*& DONE BY :  MuthuMahaRaja,9962582008                                  *
*& This Program will show the report FOR CUSTOMER LINE ITEM based
*& on customer number or the company code
*& Tax calculations are excluded as per clients requirement            *
*&---------------------------------------------------------------------*

REPORT  ZCUSTOMER_STATEMENT.

TYPE-POOLS : SLIS.

TABLES: BSID,BKPF,KNA1.
TABLES : T001.
************************STRUCTURES DECLARTIONS********************
TYPES : BEGIN OF ST_FINAL,
        KUNNR TYPE BSID-KUNNR,
        BUKRS TYPE BSID-BUKRS,
        BELNR TYPE BSID-BELNR,
        BLDAT TYPE BSID-BLDAT,
        ZFBDT TYPE BSID-ZFBDT,
        DMBTR TYPE BSID-DMBTR,
        SHKZG TYPE BSID-SHKZG,
        MWSKZ TYPE BSID-MWSKZ,
        END OF ST_FINAL.


TYPES : BEGIN OF ST_BKPF,
        BELNR TYPE BKPF-BELNR,
        HWAER TYPE BKPF-HWAER,
        END OF ST_BKPF.


TYPES : BEGIN OF ST_KNA1,
        NAME1 TYPE KNA1-NAME1,
        KUNNR TYPE KNA1-KUNNR,
        END OF ST_KNA1.

************************ FINAL STRUCTURES DECLARTIONS********************
 TYPES : BEGIN OF ST_FINAL1,
        KUNNR TYPE BSID-KUNNR,
        BELNR TYPE ST_FINAL-BELNR,
        BLDAT TYPE ST_FINAL-BLDAT,
        ZFBDT TYPE ST_FINAL-ZFBDT,
        DMBTR TYPE BSID-DMBTR,
        HWAER TYPE BKPF-HWAER,
        SHKZG TYPE BSID-SHKZG,
        END OF ST_FINAL1.

TYPES : BEGIN OF TY_T001,
        BUKRS TYPE T001-BUKRS,
        BUTXT TYPE T001-BUTXT,
        END OF TY_T001.

DATA :  I_FINAL TYPE TABLE OF ST_FINAL,
        W_FINAL TYPE ST_FINAL,
        I_BKPF TYPE TABLE OF ST_BKPF,
        W_BKPF TYPE ST_BKPF,
        I_KNA1 TYPE TABLE OF ST_KNA1,
        W_KNA1 TYPE ST_KNA1,
        I_FINAL1 TYPE TABLE OF ST_FINAL1,
        W_FINAL1 TYPE ST_FINAL1.

************************ALV DECLARATION********************
DATA : I_FCAT TYPE SLIS_T_FIELDCAT_ALV,
       W_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA : I_SORT TYPE SLIS_T_SORTINFO_ALV,
       W_SORT TYPE SLIS_SORTINFO_ALV.

DATA : I_LIST TYPE SLIS_T_LISTHEADER,
       W_LIST TYPE SLIS_LISTHEADER.

DATA : i_events     type slis_t_event,
       i_event_exit type slis_t_event_exit,
       w_events     like line of i_events,
       w_event_exit like line of i_event_exit.

DATA : LT_T001 TYPE TABLE OF TY_T001,
       WA_T001 TYPE TY_T001.
************************SELECTION SCREEN ********************

SELECTION-SCREEN : BEGIN OF BLOCK BL1 WITH FRAME TITLE T1.
SELECT-OPTIONS : S_KUNNR FOR bsid-kunnr NO INTERVALS,
                 S_BUKRS FOR BSID-BUKRS.
SELECTION-SCREEN : END OF BLOCK BL1.

INITIALIZATION.

T1 = 'CUSTOMER STATEMENT'.

START-OF-SELECTION.
************************PULLING RECORDS BASED ON CONDITION********************
SELECT BUKRS
       BUTXT FROM T001 INTO CORRESPONDING FIELDS OF TABLE LT_T001 WHERE BUKRS IN S_BUKRS.

  SELECT KUNNR
         BUKRS
         BELNR
         BLDAT
         ZFBDT
         DMBTR
         SHKZG
         FROM BSID INTO TABLE I_FINAL
         WHERE KUNNR IN S_KUNNR
         AND BUKRS IN S_BUKRS.

SORT I_FINAL.
IF I_FINAL[] IS NOT INITIAL.


  SELECT NAME1 KUNNR FROM KNA1 INTO TABLE I_KNA1 FOR ALL ENTRIES IN
I_FINAL WHERE KUNNR = I_FINAL-KUNNR.

ENDIF.
IF I_KNA1[] IS NOT INITIAL.


SELECT BELNR
       HWAER
       FROM BKPF INTO TABLE I_BKPF
       FOR ALL ENTRIES IN I_FINAL
       WHERE BELNR = I_FINAL-BELNR.

ENDIF.


END-OF-SELECTION.


LOOP AT I_FINAL INTO W_FINAL.
  LOOP AT I_KNA1 INTO W_KNA1 WHERE KUNNR = W_FINAL-KUNNR.
  LOOP AT I_BKPF INTO W_BKPF WHERE BELNR = W_FINAL-BELNR.

    W_FINAL1-KUNNR = W_FINAL-KUNNR.
    W_FINAL1-BELNR = W_FINAL-BELNR.
    W_FINAL1-BLDAT = W_FINAL-BLDAT.
    W_FINAL1-ZFBDT = W_FINAL-ZFBDT.
    W_FINAL1-DMBTR = W_FINAL-DMBTR.
    W_FINAL1-HWAER = W_BKPF-HWAER.
     W_FINAL1-SHKZG = W_FINAL-SHKZG.
    APPEND W_FINAL1 TO I_FINAL1.
    CLEAR W_FINAL1.
  ENDLOOP.
  ENDLOOP.
  ENDLOOP.

LOOP AT I_FINAL1 INTO W_FINAL1.
 IF W_FINAL1-SHKZG = 'H'.
 W_FINAL1-DMBTR = 0 - W_FINAL1-DMBTR.
 MODIFY I_FINAL1 FROM W_FINAL1.

ENDIF.
 ENDLOOP.
************************PERFORM ALV FUNCTIONS********************
PERFORM SORT.
PERFORM RAN USING 'KUNNR' 'CUST CODE' 'X'  '' '' '15' ''.
PERFORM RAN USING 'BELNR' 'OPEN DOC.NO' 'X' '' '' '18' ''.
PERFORM RAN USING 'BLDAT' 'DOC DATE' 'X' '' '' '16' ''.
PERFORM RAN USING 'ZFBDT' 'NETDUE PAYMENT DATE' 'X' '' '' '21' ''.
PERFORM RAN USING 'DMBTR' 'INVOICE AMOUNT' 'X' 'X' 'X' '28' ''.
PERFORM RAN USING 'HWAER' 'LCURR' 'X' '' '' '23' 'X'.
PERFORM EVENT_BUILD.
perform event_exit_build.


  PERFORM DISPLAY.
************************DISPLYAING RECORDS IN ALV********************
  FORM DISPLAY.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                = ' '
*     I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = SY-REPID
*     I_CALLBACK_PF_STATUS_SET          = ' '
*     I_CALLBACK_USER_COMMAND           = ' '
     I_CALLBACK_TOP_OF_PAGE            = 'LOGO'
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
     I_GRID_TITLE                      = 'CUSTOMER STATEMENT'
*     I_GRID_SETTINGS                   =
*     IS_LAYOUT                         =
     IT_FIELDCAT                       = I_FCAT
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS                 =
     IT_SORT                           = I_SORT
*     IT_FILTER                         =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     IS_VARIANT                        =
     IT_EVENTS                         = I_EVENTS

     IT_EVENT_EXIT                     = I_EVENT_EXIT
*     IS_PRINT                          =
*     IS_REPREP_ID                      =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     I_HTML_HEIGHT_TOP                 = 0
*     I_HTML_HEIGHT_END                 = 0
*     IT_ALV_GRAPHICS                   =
*     IT_HYPERLINK                      =
*     IT_ADD_FIELDCAT                   =
*     IT_EXCEPT_QINFO                   =
*     IR_SALV_FULLSCREEN_ADAPTER        =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = I_FINAL1
*   EXCEPTIONS
*     PROGRAM_ERROR                     = 1
*     OTHERS                            = 2
            .
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDFORM.

FORM SORT.
W_SORT-FIELDNAME = 'KUNNR'.
W_SORT-TABNAME = 'I_FINAL1'.
W_SORT-SUBTOT = 'X'.
W_SORT-UP = 'X'.
APPEND W_SORT TO I_SORT.
ENDFORM.

FORM RAN USING NAME HEAD IC J TOT FIX OP.
W_FCAT-FIELDNAME = NAME.
W_FCAT-SELTEXT_L = HEAD.
W_FCAT-ICON = IC.
W_FCAT-JUST = 'R'.
W_FCAT-DO_SUM = TOT.
W_FCAT-OUTPUTLEN = FIX.
W_FCAT-NO_OUT = OP.
APPEND W_FCAT TO I_FCAT.
ENDFORM.


************************TOP OF PAGE*******************
*---------------------------------------------------------------------*
*       FORM ALV_TOP_OF_PAGE                                          *
*---------------------------------------------------------------------*
form alv_top_of_page.
DATA : TXT(100).
  clear: i_list[].

  READ TABLE LT_T001 INTO WA_T001 INDEX 1.
  w_list-typ  = 'H'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.
  CONCATENATE '' WA_T001-BUTXT INTO TXT.
  w_list-info = TXT.
  append w_list to i_list.


  w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.
  w_list-info = '.'.
  append w_list to i_list.


   w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.

  CONCATENATE ' CUSTOMER NAME : '  W_KNA1-NAME1 INTO TXT.
  w_list-info = TXT.
  append w_list to i_list.
  CLEAR TXT.


  w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.

  CONCATENATE ' COMPANY CODE : '  W_FINAL-BUKRS INTO TXT.
  w_list-info = TXT.
  append w_list to i_list.
  CLEAR TXT.

  w_list-typ  = 'S'. "H=Header, S=Selection, A=Action
  w_list-key  = ''.

  CONCATENATE ' COMPANY CURRENCY : '  W_FINAL1-HWAER INTO TXT.
  w_list-info = TXT.
  append w_list to i_list.







  call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            i_logo             = 'TRI'
            it_list_commentary = i_list.

endform.


*&---------------------------------------------------------------------*
*&      Form  event_build
*&---------------------------------------------------------------------*
form event_build.

  call function 'REUSE_ALV_EVENTS_GET'
       exporting
            i_list_type = 0
       importing
            et_events   = i_events.

  read table i_events
       with key name = slis_ev_top_of_page
       into w_events.
  if sy-subrc = 0.
    move 'ALV_TOP_OF_PAGE' to w_events-form.
    modify i_events from w_events index sy-tabix.
  endif.

  read table i_events
       with key name = slis_ev_end_of_list
       into w_events.
  if sy-subrc = 0.
    move 'ALV_END_OF_LIST' to w_events-form.
    modify i_events from w_events index sy-tabix.
  endif.

  read table i_events
       with key name = slis_ev_end_of_page
       into w_events.
  if sy-subrc = 0.
    move 'ALV_END_OF_PAGE' to w_events-form.
    modify i_events from w_events index sy-tabix.
  endif.

endform.
*---------------------------------------------------------------------*
*       FORM alv_end_of_list                                          *
*---------------------------------------------------------------------*
form alv_end_of_list.

  clear: i_list[].

  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = 'I HEREBY CONFIRM THE ABOVE BALANCE.'.
  append w_list to i_list.


  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = '.'.
  append w_list to i_list.


  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = '.'.
  append w_list to i_list.



  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = '.'.
  append w_list to i_list.



  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = '.'.
  append w_list to i_list.


  w_list-typ = 'S'. "H = Header, S = Selection, A = Action
  w_list-key = ''.
  w_list-info = 'CUSTOMER .'.
  append w_list to i_list.


  call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = i_list
            i_logo             = 'ZMYOBJECTKEY'
            i_end_of_list_grid = 'X'.

endform.

*&---------------------------------------------------------------------*
*&      Form  event_exit_build
*&---------------------------------------------------------------------*
form event_exit_build.

  clear: i_event_exit[].

  w_event_exit-ucomm  = '&ETA'.
  w_event_exit-before = 'X'.
  w_event_exit-after  = ' '.
  append w_event_exit to i_event_exit.

endform.

[Former Member]

This message was moderated.

[Former Member]

hI

Thanxs mathu

swapnil

[Former Member]

HI

When I Run the Report, i am having proble with WBS Element(BSID-PROJK).

When the Document Type (BSID-BLART) is 'RV' it wont display the WBS element of RV.

Regards,

swapnil