topic Re: BCALV_GRID_01 in Application Development and Automation Discussions

BCALV_GRID_01

sudhakar196 — Fri, 20 Jul 2007 14:19:11 GMT

Hi,

please run program,

actually it has to display the 5 fields, but it is displaying on two fields, i.e first merge function fields , can any body tell the solution.

create custom control ; BCALVC_EVENT1_CONT1

setpf: MAIN100.

REPORT ZSUDHA_BCALV_GRID_01 .

*********

Predefine a local class for event handling to allow the
declaration of a reference variable.

CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.

*********

*----

TABLES DECLARATIONS

*----

TABLES: KNA1, VBAK, VBAP.

*----

INTERNAL TABLES DECLARATION

*----

DATA : BEGIN OF GT_FINAL OCCURS 0,

KUNNR LIKE VBAK-KUNNR,

VBELN LIKE VBAK-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

NETPR LIKE VBAP-NETPR,

END OF GT_FINAL.

DATA: OK_CODE LIKE SY-UCOMM,

G_REPID LIKE SY-REPID,

GS_PRINT TYPE LVC_S_PRNT,

GS_LAYOUT TYPE LVC_S_LAYO,

MYCONTAINER TYPE SCRFNAME VALUE 'BCALVC_EVENT1_CONT1',

reference to custom container: neccessary to bind ALV Control

CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER,

fieldcatalog for output table

gt_fieldcat type lvc_t_fcat,

gt_fcatfcat type lvc_t_fcat,

gs_fcatlayo type lvc_s_layo.

CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.

§ 2. Define a method for each print event you need.

METHODS:

HANDLE_TOP_OF_PAGE

FOR EVENT PRINT_TOP_OF_PAGE OF CL_GUI_ALV_GRID,

HANDLE_END_OF_PAGE

FOR EVENT PRINT_END_OF_PAGE OF CL_GUI_ALV_GRID,

HANDLE_TOP_OF_LIST

FOR EVENT PRINT_TOP_OF_LIST OF CL_GUI_ALV_GRID,

HANDLE_END_OF_LIST

FOR EVENT PRINT_END_OF_LIST OF CL_GUI_ALV_GRID.

PRIVATE SECTION.

DATA: PAGENUM TYPE I.

ENDCLASS.

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

*§ 3. Implement your event handler methods. Use WRITE to provide output.

METHOD HANDLE_TOP_OF_PAGE.

DATA: TABLENAME(30) TYPE C.

PERFORM GET_TABLENAME CHANGING TABLENAME.

WRITE: /,'Event: PRINT_TOP_OF_PAGE'(001),

'Table: '(002),TABLENAME.

ENDMETHOD. "handle_top_of_page

*----

METHOD HANDLE_END_OF_PAGE.

DATA: TABLENAME(30) TYPE C.

PERFORM GET_TABLENAME CHANGING TABLENAME.

ADD 1 TO PAGENUM.

WRITE: /,'Event: PRINT_END_OF_PAGE'(003),

TEXT-002,TABLENAME,

'Number of pages so far: '(004), PAGENUM.

ENDMETHOD. "handle_end_of_page

*----

METHOD HANDLE_TOP_OF_LIST.

DATA: TABLENAME(30) TYPE C.

CLEAR PAGENUM.

PERFORM GET_TABLENAME CHANGING TABLENAME.

WRITE: /,'Event: PRINT_TOP_OF_LIST'(005),

TEXT-002,TABLENAME.

ENDMETHOD. "handle_top_of_list

*----

METHOD HANDLE_END_OF_LIST.

DATA: TABLENAME(30) TYPE C.

PERFORM GET_TABLENAME CHANGING TABLENAME.

WRITE: /,'Event: PRINT_END_OF_LIST'(006),

TEXT-002,TABLENAME.

ENDMETHOD. "handle_end_of_list

*----

ENDCLASS.

*----

SELECTION SCREEN

*----

SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.

*----

START-OF-SELECTION *

*----

START-OF-SELECTION.

PERFORM GET_FINAL_DATA.

END-OF-SELECTION.

G_REPID = SY-REPID.

CALL SCREEN 100.

*&----

*& Form GET_FINAL_DATA

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM GET_FINAL_DATA.

SELECT VBAK_{KUNNR VBAK}VBELN VBAP_{POSNR VBAP}MATNR VBAP~NETPR

INTO TABLE GT_FINAL

FROM VBAK INNER JOIN VBAP

ON VBAK_{VBELN = VBAP}VBELN

WHERE VBAK~VBELN IN S_VBELN.

SORT GT_FINAL BY KUNNR VBELN POSNR.

WRITE: 'Success'.

ENDFORM. " GET_FINAL_DATA

*&----

*& Module PBO OUTPUT

*&----

text

*----

MODULE PBO OUTPUT.

SET PF-STATUS 'MAIN100'.

IF CUSTOM_CONTAINER IS INITIAL.

create a custom container control for our ALV Control

CREATE OBJECT CUSTOM_CONTAINER

EXPORTING

CONTAINER_NAME = MYCONTAINER

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

CREATE_ERROR = 3

LIFETIME_ERROR = 4

LIFETIME_DYNPRO_DYNPRO_LINK = 5.

IF SY-SUBRC NE 0.

add your handling, for example

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

TITEL = G_REPID

TXT2 = SY-SUBRC

TXT1 = 'The control could not be created'(010).

ENDIF.

create an instance of alv control

CREATE OBJECT GRID1

EXPORTING I_PARENT = CUSTOM_CONTAINER.

Set a titlebar for the grid control

gs_fcatlayo-GRID_TITLE = 'CUSTOMER'(100).

§ 5. In case of PRINT_END_OF_PAGE, you must set 'reservelns' to
the number of reserved lines at the end of a page.

reserve two lines for the PRINT_END_OF_PAGE event

*GS_PRINT-RESERVELNS = 2.

perform build_fieldcatalog changing gt_fieldcat.

*perform modify_fieldcatalog changing gt_fcatfcat.

optimize column width of grid displaying fieldcatalog

gs_fcatlayo-cwidth_opt = 'X'.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IS_PRINT = GS_PRINT

IS_LAYOUT = gs_fcatlayo

CHANGING

it_outtab = gt_FINAL[]

it_fieldcatalog = gt_fieldcat.

********

->Create Object to receive events and link them to handler methods.
When the ALV Control raises the event for the specified instance
the corresponding method is automatically called.

§ 4. Link used print events and event handler methods.

CREATE OBJECT EVENT_RECEIVER.

SET HANDLER EVENT_RECEIVER->HANDLE_TOP_OF_LIST FOR GRID1.

SET HANDLER EVENT_RECEIVER->HANDLE_TOP_OF_PAGE FOR GRID1.

SET HANDLER EVENT_RECEIVER->HANDLE_END_OF_LIST FOR GRID1.

SET HANDLER EVENT_RECEIVER->HANDLE_END_OF_PAGE FOR GRID1.

********

ENDIF.

Controls are not integrated into the TAB-Order
Call "set_focus" if you want to make sure that 'the cursor'
is active in your control.

CALL METHOD CL_GUI_CONTROL=>SET_FOCUS EXPORTING CONTROL = GRID1.

Control Framework flushes at the end of PBO automatically!

ENDMODULE. " PBO OUTPUT

*&----

*& Module PAI INPUT

*&----

text

*----

MODULE PAI INPUT.

CASE OK_CODE.

WHEN 'EXIT'.

PERFORM EXIT_PROGRAM.

ENDCASE.

CLEAR OK_CODE.

ENDMODULE.

*----

FORM EXIT_PROGRAM *

*----

FORM EXIT_PROGRAM.

CALL METHOD CUSTOM_CONTAINER->FREE.

CALL METHOD CL_GUI_CFW=>FLUSH.

IF SY-SUBRC NE 0.

add your handling, for example

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

TITEL = G_REPID

TXT2 = SY-SUBRC

TXT1 = 'Error in Flush'(009).

ENDIF.

LEAVE PROGRAM.

ENDFORM.

*&----

*& Form GET_TABLENAME

*&----

text

*----

<--P_TABLENAME text

*----

FORM GET_TABLENAME CHANGING P_TABLENAME.

DATA: LT_FIELDCAT TYPE STANDARD TABLE OF LVC_S_FCAT,

LS_FIELDCAT TYPE LVC_S_FCAT.

CALL METHOD GRID1->GET_FRONTEND_FIELDCATALOG

IMPORTING ET_FIELDCATALOG = LT_FIELDCAT.

CALL METHOD CL_GUI_CFW=>FLUSH.

IF SY-SUBRC <> 0.

P_TABLENAME = 'No tablename in fieldcatalog!'(008).

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

TITEL = G_REPID

TXT2 = P_TABLENAME

TXT1 = 'Error in Flush'(011).

ELSE.

READ TABLE LT_FIELDCAT INDEX 1 INTO LS_FIELDCAT.

P_TABLENAME = LS_FIELDCAT-REF_TABLE.

ENDIF.

ENDFORM. " GET_TABLENAME ENDFORM. " GET_FINAL_DATA

*&----

*& Form build_fieldcatalog

*&----

text

*----

<--P_GT_FIELDCAT text

*----

FORM build_fieldcatalog CHANGING P_FIELDCAT type lvc_t_fcat.

data: ls_fcat type lvc_s_fcat.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_BUFFER_ACTIVE =

I_STRUCTURE_NAME = 'VBAK'

I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER =

CHANGING

CT_FIELDCAT = p_fieldcat[]

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'

EXPORTING

I_BUFFER_ACTIVE =

I_STRUCTURE_NAME = 'VBAP'

I_CLIENT_NEVER_DISPLAY = 'X'
I_BYPASSING_BUFFER =

CHANGING

CT_FIELDCAT = p_fieldcat[]

EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Delete All Feilds Except present in GT_FINAL

LOOP AT p_fieldcat INTO ls_fcat.

IF ( ls_fcat-fieldname NE 'VBELN' and

ls_fcat-fieldname NE 'KUNNR' and

ls_fcat-fieldname NE 'POSNR' and

ls_fcat-fieldname NE 'MATNR' and

ls_fcat-fieldname NE 'NETPR' ).

ls_fcat-fieldname = ' '.

modify p_fieldcat from ls_fcat.

ENDIF.

ENDLOOP.

DELETE p_fieldcat WHERE fieldname = ' '.

Change Column Postion

LOOP AT p_fieldcat INTO ls_fcat.

ls_fcat-col_pos = SY-TABIX.

ls_fcat-row_pos = '0'.

IF ls_fcat-fieldname EQ 'KUNNR'.

ls_fcat-key = 'X'.

ENDIF.

modify p_fieldcat from ls_fcat.

ENDLOOP.

LOOP AT p_fieldcat INTO ls_fcat.

IF ( ls_fcat-fieldname EQ 'VBELN' ).

add 1 to ls_fcat-col_pos.

modify p_fieldcat from ls_fcat.

ELSEIF ls_fcat-fieldname EQ 'KUNNR'.

SUBTRACT 1 from ls_fcat-col_pos.

modify p_fieldcat from ls_fcat.

ELSE.

*Nothing

ENDIF.

ENDLOOP.

sort p_fieldcat by col_pos.

ENDFORM. " build_fieldcatalog

*&----

*& Form modify_fieldcatalog

*&----

text

*----

<--P_GT_FCATFCAT text

*----

FORM modify_fieldcatalog CHANGING P_FCATFCAT type lvc_t_fcat.

data ls_fcat type lvc_s_fcat.

loop at p_fcatfcat into ls_fcat.

ls_fcat-coltext = ls_fcat-fieldname.

ls_fcat-edit = 'X'.

if ls_fcat-fieldname = 'COL_POS' or ls_fcat-fieldname = 'FIELDNAME'.

ls_fcat-key = 'X'.

endif.

modify p_fcatfcat from ls_fcat.

endloop.

ENDFORM. " modify_fieldcatalog

Re: BCALV_GRID_01

Former Member — Fri, 20 Jul 2007 14:24:36 GMT

Hi,

you can build the fieldcat table and instead that to use the function ''LVC_FIELDCATALOG_MERGE'.

Re: BCALV_GRID_01

Former Member — Fri, 20 Jul 2007 15:19:05 GMT

Hello Sudhakar,

In the program code u have given, the NO_OUT field of the fieldcatalog table GT_FIELDCAT is taking in value of 'X' for the fields POSNR,MATNR and NETPR .

That is why only the first two fields KUNNR and VBELN are getting displayed in grid.

Just in case u are not aware of the usage of NO_OUT......

NO_OUT is the field of fieldcatlog which when set to 'X' makes the field disappear in the output in the grid.

Hope the problem is solved .

Pls dont forget to award points if answer is found helpful.

Regards,

Sanghamitra.

Re: BCALV_GRID_01

Former Member — Fri, 20 Jul 2007 15:25:10 GMT

good

go through this link,

thanks

mrutyun^

Re: BCALV_GRID_01

Former Member — Fri, 20 Jul 2007 15:27:25 GMT

Hello Sudhakar,

Just the code in debugger and u can easily find out that the NO_OUT field is set to 'X' for the missing fields.

Make NO_OUT = SPACE for these fields (POSNR,MATNR and NETPR) in the fieldcatalog.

Regards,

Sanghmitra.

Re: BCALV_GRID_01

sudhakar196 — Fri, 20 Jul 2007 20:16:19 GMT

Hi when i make no_out = space it is giving dump, what is reason

Re: BCALV_GRID_01

Former Member — Sat, 21 Jul 2007 01:03:57 GMT

comment the no_out completly and try it should work

Re: BCALV_GRID_01

Former Member — Sat, 21 Jul 2007 04:27:08 GMT

Hello Sudhakar,

1) U can as well comment out the NO_OUT column for the fields which u dont want to display OR

2) try GWA_FCAT-NO_OUT = ' '.

U will get the task done.

Regards,

Sanghamitra.

Re: BCALV_GRID_01

sudhakar196 — Sat, 21 Jul 2007 05:27:10 GMT

Hi sangha mitra ,

i am not able to get what you are saying , please explain once more, or please paste your code here, thank you very much for cooperation in my report, i am working last 10days to get output, it will great appreciated, if you give good idea.

Re: BCALV_GRID_01

Former Member — Sat, 21 Jul 2007 05:34:33 GMT

I have made a change in your program just copy and paste and run that...



* Predefine a local class for event handling to allow the
* declaration of a reference variable.
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
*
*********

*----------------------------------------------------------------------*
* TABLES DECLARATIONS
*----------------------------------------------------------------------*
TABLES: KNA1, VBAK, VBAP.
*----------------------------------------------------------------------*
* INTERNAL TABLES DECLARATION
*----------------------------------------------------------------------*
DATA : BEGIN OF GT_FINAL OCCURS 0,
KUNNR LIKE VBAK-KUNNR,
VBELN LIKE VBAK-VBELN,
POSNR LIKE VBAP-POSNR,
MATNR LIKE VBAP-MATNR,
NETPR LIKE VBAP-NETPR,
END OF GT_FINAL.

DATA: OK_CODE LIKE SY-UCOMM,
G_REPID LIKE SY-REPID,
GS_PRINT TYPE LVC_S_PRNT,
* GS_LAYOUT TYPE LVC_S_LAYO,
MYCONTAINER TYPE SCRFNAME VALUE 'BCALVC_EVENT1_CONT1',
* reference to custom container: neccessary to bind ALV Control
CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
GRID1 TYPE REF TO CL_GUI_ALV_GRID,
EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER,
* fieldcatalog for output table
gt_fieldcat type lvc_t_fcat,
gt_fcatfcat type lvc_t_fcat,
gs_fcatlayo type lvc_s_layo.

CLASS LCL_EVENT_RECEIVER DEFINITION.

PUBLIC SECTION.
* § 2. Define a method for each print event you need.
METHODS:
HANDLE_TOP_OF_PAGE
FOR EVENT PRINT_TOP_OF_PAGE OF CL_GUI_ALV_GRID,

HANDLE_END_OF_PAGE
FOR EVENT PRINT_END_OF_PAGE OF CL_GUI_ALV_GRID,

HANDLE_TOP_OF_LIST
FOR EVENT PRINT_TOP_OF_LIST OF CL_GUI_ALV_GRID,

HANDLE_END_OF_LIST
FOR EVENT PRINT_END_OF_LIST OF CL_GUI_ALV_GRID.

PRIVATE SECTION.
DATA: PAGENUM TYPE I.

ENDCLASS.
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
*§ 3. Implement your event handler methods. Use WRITE to provide output.
METHOD HANDLE_TOP_OF_PAGE.
DATA: TABLENAME(30) TYPE C.
PERFORM GET_TABLENAME CHANGING TABLENAME.
WRITE: /,'Event: PRINT_TOP_OF_PAGE'(001),
'Table: '(002),TABLENAME.

ENDMETHOD. "handle_top_of_page
*-------------------------------------------
METHOD HANDLE_END_OF_PAGE.
DATA: TABLENAME(30) TYPE C.

PERFORM GET_TABLENAME CHANGING TABLENAME.
ADD 1 TO PAGENUM.
WRITE: /,'Event: PRINT_END_OF_PAGE'(003),
TEXT-002,TABLENAME,
'Number of pages so far: '(004), PAGENUM.

ENDMETHOD. "handle_end_of_page
*-------------------------------------------
METHOD HANDLE_TOP_OF_LIST.
DATA: TABLENAME(30) TYPE C.
CLEAR PAGENUM.
PERFORM GET_TABLENAME CHANGING TABLENAME.
WRITE: /,'Event: PRINT_TOP_OF_LIST'(005),
TEXT-002,TABLENAME.

ENDMETHOD. "handle_top_of_list
*-------------------------------------------
METHOD HANDLE_END_OF_LIST.
DATA: TABLENAME(30) TYPE C.
PERFORM GET_TABLENAME CHANGING TABLENAME.
WRITE: /,'Event: PRINT_END_OF_LIST'(006),
TEXT-002,TABLENAME.

ENDMETHOD. "handle_end_of_list
*-------------------------------------------
ENDCLASS.


*----------------------------------------------------------------------*
* SELECTION SCREEN
*----------------------------------------------------------------------*
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.

*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM GET_FINAL_DATA.
END-OF-SELECTION.
G_REPID = SY-REPID.
CALL SCREEN 100.

*&---------------------------------------------------------------------*
*& Form GET_FINAL_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM GET_FINAL_DATA.
SELECT VBAK~KUNNR VBAK~VBELN VBAP~POSNR VBAP~MATNR VBAP~NETPR
INTO TABLE GT_FINAL
FROM VBAK INNER JOIN VBAP
ON VBAK~VBELN = VBAP~VBELN
WHERE VBAK~VBELN IN S_VBELN.
SORT GT_FINAL BY KUNNR VBELN POSNR.
WRITE: 'Success'.
ENDFORM. " GET_FINAL_DATA

*&---------------------------------------------------------------------*
*& Module PBO OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PBO OUTPUT.
SET PF-STATUS 'MAIN100'.
IF CUSTOM_CONTAINER IS INITIAL.
* create a custom container control for our ALV Control
CREATE OBJECT CUSTOM_CONTAINER
EXPORTING
CONTAINER_NAME = MYCONTAINER
EXCEPTIONS
CNTL_ERROR = 1
CNTL_SYSTEM_ERROR = 2
CREATE_ERROR = 3
LIFETIME_ERROR = 4
LIFETIME_DYNPRO_DYNPRO_LINK = 5.
IF SY-SUBRC NE 0.
* add your handling, for example
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TITEL = G_REPID
TXT2 = SY-SUBRC
TXT1 = 'The control could not be created'(010).
ENDIF.
* create an instance of alv control
CREATE OBJECT GRID1
EXPORTING I_PARENT = CUSTOM_CONTAINER.
*
* Set a titlebar for the grid control
*
gs_fcatlayo-GRID_TITLE = 'CUSTOMER'(100).
* § 5. In case of PRINT_END_OF_PAGE, you must set 'reservelns' to
* the number of reserved lines at the end of a page.
*
* reserve two lines for the PRINT_END_OF_PAGE event
*
*GS_PRINT-RESERVELNS = 2.

perform build_fieldcatalog changing gt_fieldcat.
*perform modify_fieldcatalog changing gt_fcatfcat.
* optimize column width of grid displaying fieldcatalog
gs_fcatlayo-cwidth_opt = 'X'.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IS_PRINT = GS_PRINT
IS_LAYOUT = gs_fcatlayo

CHANGING
it_outtab = gt_FINAL[]
it_fieldcatalog = gt_fieldcat.



********
* ->Create Object to receive events and link them to handler methods.
* When the ALV Control raises the event for the specified instance
* the corresponding method is automatically called.
*
* § 4. Link used print events and event handler methods.
CREATE OBJECT EVENT_RECEIVER.
SET HANDLER EVENT_RECEIVER->HANDLE_TOP_OF_LIST FOR GRID1.
SET HANDLER EVENT_RECEIVER->HANDLE_TOP_OF_PAGE FOR GRID1.
SET HANDLER EVENT_RECEIVER->HANDLE_END_OF_LIST FOR GRID1.
SET HANDLER EVENT_RECEIVER->HANDLE_END_OF_PAGE FOR GRID1.
*
********

ENDIF.
* Controls are not integrated into the TAB-Order
* Call "set_focus" if you want to make sure that 'the cursor'
* is active in your control.
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS EXPORTING CONTROL = GRID1.

* Control Framework flushes at the end of PBO automatically!


ENDMODULE. " PBO OUTPUT
*&---------------------------------------------------------------------*
*& Module PAI INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PAI INPUT.
CASE OK_CODE.
WHEN 'EXIT'.
PERFORM EXIT_PROGRAM.
ENDCASE.
CLEAR OK_CODE.
ENDMODULE.
*---------------------------------------------------------------------*
* FORM EXIT_PROGRAM *
*---------------------------------------------------------------------*
FORM EXIT_PROGRAM.
CALL METHOD CUSTOM_CONTAINER->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
IF SY-SUBRC NE 0.
* add your handling, for example
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TITEL = G_REPID
TXT2 = SY-SUBRC
TXT1 = 'Error in Flush'(009).
ENDIF.
LEAVE PROGRAM.
ENDFORM.





*&---------------------------------------------------------------------*
*& Form GET_TABLENAME
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_TABLENAME text
*----------------------------------------------------------------------*
FORM GET_TABLENAME CHANGING P_TABLENAME.
DATA: LT_FIELDCAT TYPE STANDARD TABLE OF LVC_S_FCAT,
LS_FIELDCAT TYPE LVC_S_FCAT.

CALL METHOD GRID1->GET_FRONTEND_FIELDCATALOG
IMPORTING ET_FIELDCATALOG = LT_FIELDCAT.


CALL METHOD CL_GUI_CFW=>FLUSH.
IF SY-SUBRC <> 0.
P_TABLENAME = 'No tablename in fieldcatalog!'(008).
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TITEL = G_REPID
TXT2 = P_TABLENAME
TXT1 = 'Error in Flush'(011).
ELSE.
READ TABLE LT_FIELDCAT INDEX 1 INTO LS_FIELDCAT.
P_TABLENAME = LS_FIELDCAT-REF_TABLE.
ENDIF.

ENDFORM. " GET_TABLENAME ENDFORM. " GET_FINAL_DATA
*&---------------------------------------------------------------------*
*& Form build_fieldcatalog
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FIELDCAT text
*----------------------------------------------------------------------*
FORM build_fieldcatalog CHANGING P_FIELDCAT type lvc_t_fcat.

data: ls_fcat type lvc_s_fcat.


CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
* I_BUFFER_ACTIVE =
I_STRUCTURE_NAME = 'VBAK'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
CHANGING
CT_FIELDCAT = p_fieldcat[]
* EXCEPTIONS
* INCONSISTENT_INTERFACE = 1
* PROGRAM_ERROR = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
* I_BUFFER_ACTIVE =
I_STRUCTURE_NAME = 'VBAP'
* I_CLIENT_NEVER_DISPLAY = 'X'
* I_BYPASSING_BUFFER =
CHANGING
CT_FIELDCAT = p_fieldcat[]
* EXCEPTIONS
* INCONSISTENT_INTERFACE = 1
* PROGRAM_ERROR = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* Delete All Feilds Except present in GT_FINAL
LOOP AT p_fieldcat INTO ls_fcat.
IF ( ls_fcat-fieldname NE 'VBELN' and
ls_fcat-fieldname NE 'KUNNR' and
ls_fcat-fieldname NE 'POSNR' and
ls_fcat-fieldname NE 'MATNR' and
ls_fcat-fieldname NE 'NETPR' ).

ls_fcat-fieldname = ' '.
modify p_fieldcat from ls_fcat.
ENDIF.
ENDLOOP.
DELETE p_fieldcat WHERE fieldname = ' '.
* Change Column Postion
LOOP AT p_fieldcat INTO ls_fcat.
ls_fcat-col_pos = SY-TABIX.
ls_fcat-row_pos = '0'.
<b>ls_fcat-no_out = ''.</b>
IF ls_fcat-fieldname EQ 'KUNNR'.
ls_fcat-key = 'X'.
ENDIF.
modify p_fieldcat from ls_fcat.
ENDLOOP.

LOOP AT p_fieldcat INTO ls_fcat.
IF ( ls_fcat-fieldname EQ 'VBELN' ).
add 1 to ls_fcat-col_pos.
modify p_fieldcat from ls_fcat.
ELSEIF ls_fcat-fieldname EQ 'KUNNR'.
SUBTRACT 1 from ls_fcat-col_pos.
modify p_fieldcat from ls_fcat.
ELSE.
*Nothing
ENDIF.
ENDLOOP.
sort p_fieldcat by col_pos.


ENDFORM. " build_fieldcatalog
*&---------------------------------------------------------------------*
*& Form modify_fieldcatalog
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_GT_FCATFCAT text
*----------------------------------------------------------------------*
FORM modify_fieldcatalog CHANGING P_FCATFCAT type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.

loop at p_fcatfcat into ls_fcat.
ls_fcat-coltext = ls_fcat-fieldname.
ls_fcat-edit = 'X'.

if ls_fcat-fieldname = 'COL_POS' or ls_fcat-fieldname = 'FIELDNAME'.
ls_fcat-key = 'X'.
endif.

modify p_fcatfcat from ls_fcat.
endloop.

ENDFORM. " modify_fieldcatalog

regards

shiba dutta

Re: BCALV_GRID_01

sudhakar196 — Sat, 21 Jul 2007 05:47:02 GMT

Hi shiba,

this is the change you made,

ls_fcat-no_out = ' '.

if it is case it is giving dump, are able to execute successfully.

runtime error: GETWA_NOT_ASSIGNED

Re: BCALV_GRID_01

Former Member — Sat, 21 Jul 2007 05:52:32 GMT

but i have run it in my system and it is running properly with 5 fields display...Just put a break point on that statement and check whether it is the error due to that or not?

regards

shiba dutta

Re: BCALV_GRID_01

sudhakar196 — Sat, 21 Jul 2007 05:57:34 GMT

there is no error, when i run program it is going going to dump, when i comment this statement it is executing successfully with 2 fields