Hi expert
I am new in oops ,I have tried to show the list in oops alv from bkpf table and followed all steps but could not got any solution.
While I will give the debugger point after call screen 1010 .It directly shows the screen .
I can not understand ,what value filled up in fieldcat .
Please help me ,it's urgent .
I have paste exact code is in bellow .
TABLES: bkpf.
TYPE-POOLS: slis, icon.
TYPES: BEGIN OF ty_bkpf,
bukrs TYPE bukrs ,
belnr TYPE belnr_d ,
gjahr TYPE gjahr ,
END OF ty_bkpf .
DATA : wa_bkpf TYPE ty_bkpf.
DATA : it_bkpf TYPE STANDARD TABLE OF ty_bkpf.
DATA: container TYPE REF TO cl_gui_custom_container,
alv_grid TYPE REF TO cl_gui_alv_grid,
ok_code LIKE sy-ucomm,
fieldcat TYPE lvc_t_fcat,
ls_fcat TYPE lvc_s_fcat.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS:p_bukrs TYPE bukrs .
SELECTION-SCREEN END OF BLOCK b1 .
START-OF-SELECTION .
SELECT bukrs
belnr
gjahr
INTO TABLE it_bkpf
FROM bkpf
WHERE bukrs = p_bukrs .
CALL SCREEN 1010 .
* Create Controls
CREATE OBJECT container
EXPORTING container_name = 'CUSTOM'.
CREATE OBJECT alv_grid
EXPORTING i_parent = container.
PERFORM display_fieldcat .
CALL METHOD alv_grid->set_table_for_first_display
CHANGING
it_outtab = it_bkpf
it_fieldcatalog = fieldcat.
FORM display_fieldcat .
CLEAR: ls_fcat.
ls_fcat-reptext = 'BUKRS'.
ls_fcat-fieldname = 'BUKRS'.
ls_fcat-ref_table = 'it_bkpf'.
ls_fcat-outputlen = '18'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.
ls_fcat-reptext = 'BELNR'.
ls_fcat-fieldname = 'BELNR'.
ls_fcat-ref_table = 'it_bkpf'.
ls_fcat-outputlen = '18'.
APPEND ls_fcat TO fieldcat.
CLEAR: ls_fcat.
ls_fcat-reptext = 'GJAHR'.
ls_fcat-fieldname = 'GJAHR'.
ls_fcat-ref_table = 'it_bkpf'.
ls_fcat-outputlen = '18'.
APPEND ls_fcat TO fieldcat.
ENDFORM. " display_fieldcat
*&---------------------------------------------------------------------*
module STATUS_1010 output.
SET PF-STATUS 'ZTEST_SCREEN'.
SET TITLEBAR text-002.
endmodule. " STATUS_1010 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1010 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module USER_COMMAND_1010 input.
CASE sy-ucomm.
WHEN 'BACK'.
LEAVE PROGRAM .
WHEN 'CANCEL'.
LEAVE PROGRAM .
WHEN OTHERS.
ENDCASE.
endmodule. " USER_COMMAND_1010 INPUT