HOW TO TRIGGER CHECK BOX EVENT IN BLOCKED LIST OUT PUT

Hi Abapers,
I am developing ALV Blocked list using 3 internal tables.
in output list my requirement is if I click one check box in one intrrnal table the below internal table checkboxes should be checked.
how to solve this problem this is very urgent to me I hope somebody will help me.
Regards
Shashikumar.G

Hi
First you need to register the events of clicking of the checkbox.
Once registerred, you can capture that event and when occured, you can set the checkboxes for below internal table.
<a href="http://help.sap.com/saphelp_nw04/helpdata/en/95/34eb7feb6211d3a7270000e83dd863/frameset.htm">http://help.sap.com/saphelp_nw04/helpdata/en/95/34eb7feb6211d3a7270000e83dd863/frameset.htm</a>
Regards
Raj

Similar Messages

How to get check box in alv grid list output

hi gurus,
can anyone inform me
how to get check box in alv output it should not be a pop up window
thank you
regards
kals.

or
hi go through the fallowing code.
code*&----
*& Report YGS_ALV_BOM *
REPORT YGS_ALV_BOM .
TABLES : MAST,STKO,STPO.
TYPE-POOLS: SLIS.
TYPES : BEGIN OF TY_MAST,
CHECK_BOX,
MATNR TYPE MAST-MATNR,
WERKS TYPE MAST-WERKS,
STLAN TYPE MAST-STLAN,
STLNR TYPE MAST-STLNR,
STLAL TYPE MAST-STLAL,
END OF TY_MAST.
TYPES : BEGIN OF TY_STKO,
STLTY TYPE STKO-STLTY,
STLNR TYPE STKO-STLNR,
STLAL TYPE STKO-STLAL,
STKOZ TYPE STKO-STKOZ,
BMENG TYPE STKO-BMENG,
BMEIN TYPE STKO-BMEIN,
END OF TY_STKO.
TYPES : BEGIN OF TY_STPO,
LIGHTS,
STLTY TYPE STPO-STLTY,
STLNR TYPE STPO-STLNR,
STLKN TYPE STPO-STLKN,
STPOZ TYPE STPO-STPOZ,
IDNRK TYPE STPO-IDNRK,
MENGE TYPE STPO-MENGE,
MEINS TYPE STPO-MEINS,
END OF TY_STPO.
DATA : IT_MAST TYPE TABLE OF TY_MAST,
WA_MAST TYPE TY_MAST,
IT_STKO TYPE TABLE OF TY_STKO,
WA_STKO TYPE TY_STKO,
IT_STPO TYPE TABLE OF TY_STPO,
WA_STPO TYPE TY_STPO.
DATA : lt_fieldcat TYPE slis_t_fieldcat_alv,
ls_layout TYPE slis_layout_alv,
ls_event TYPE slis_alv_event,
lt_event TYPE slis_t_event,
it_sortinfo type slis_t_sortinfo_alv,
ls_header TYPE slis_listheader,
lt_header TYPE slis_t_listHEADER.
DATA : IT_BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS : S_MATNR FOR MAST-MATNR.
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM BUILD_FIELDCAT USING LT_FIELDCAT.
PERFORM BUILD_LAYOUT.
END-OF-SELECTION.
PERFORM DISPLAY_DATA.
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form GET_DATA .
REFRESH : IT_MAST.
SELECT MATNR
WERKS
STLAN
STLNR
FROM MAST
INTO CORRESPONDING FIELDS OF TABLE IT_MAST
WHERE MATNR IN S_MATNR.
endform. " GET_DATA
*& Form BUILD_FIELDCAT
text
--> p1 text
<-- p2 text
form BUILD_FIELDCAT USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-FIELDNAME = 'MATNR'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'MATNR'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 2.
L_FIELDCAT-FIELDNAME = 'WERKS'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'WERKS'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-FIELDNAME = 'STLNR'.
L_FIELDCAT-TABNAME = 'IT_MAST'.
L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
L_FIELDCAT-REF_TABNAME = 'MAST'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
endform. " BUILD_FIELDCAT
*& Form BUILD_LAYOUT
text
--> p1 text
<-- p2 text
form BUILD_LAYOUT .
CLEAR LS_LAYOUT.
LS_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
LS_LAYOUT-BOX_TABNAME = 'IT_MAST'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
form DISPLAY_DATA .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_STRUCTURE_NAME =
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = IT_MAST
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. " DISPLAY_DATA
FORM PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'YSTATUS' OF PROGRAM SY-REPID
EXCLUDING RT_EXTAB.
ENDFORM.
FORM USER_COMMAND USING RF_UCOMM TYPE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
CASE RF_UCOMM.
WHEN '&NEXT'.
PERFORM GET_DATA_BOM .
PERFORM BUILD_FIELDCAT_BOM USING LT_FIELDCAT.
PERFORM BUILD_LAYOUT_BOM.
PERFORM DISPLAY_DATA_BOM.
ENDCASE.
ENDFORM.
*& Form GET_DATA_BOM
text
--> p1 text
<-- p2 text
form GET_DATA_BOM .
CLEAR : WA_STPO,
WA_MAST.
REFRESH : IT_STPO.
DATA : IT_CHECK TYPE TABLE OF TY_MAST.
LOOP AT IT_MAST INTO WA_MAST.
IF WA_MAST-CHECK_BOX EQ 'X'.
APPEND WA_MAST TO IT_CHECK.
ENDIF.
ENDLOOP.
SELECT STLTY
STLNR
STLKN
VGKNT
IDNRK
MENGE
MEINS
FROM STPO
INTO CORRESPONDING FIELDS OF TABLE IT_STPO
FOR ALL ENTRIES IN IT_CHECK
WHERE IDNRK EQ IT_CHECK-MATNR.
CLEAR WA_STPO.
LOOP AT IT_STPO INTO WA_STPO.
SELECT SINGLE * FROM MAST WHERE MATNR EQ WA_STPO-IDNRK.
IF SY-SUBRC = 0.
WA_STPO-LIGHTS = '2'.
ELSE.
WA_STPO-LIGHTS = '1'.
ENDIF.
MODIFY IT_STPO FROM WA_STPO.
ENDLOOP.
endform. " GET_DATA_BOM
*& Form BUILD_FIELDCAT_BOM
text
--> p1 text
<-- p2 text
form BUILD_FIELDCAT_BOM USING LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA : L_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
REFRESH : LT_FIELDCAT.
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-FIELDNAME = 'STLTY'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLTY'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 2.
L_FIELDCAT-FIELDNAME = 'STLNR'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLNR'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 3.
L_FIELDCAT-FIELDNAME = 'STLKN'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'STLKN'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 4.
L_FIELDCAT-FIELDNAME = 'IDNRK'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'IDNRK'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
L_FIELDCAT-COL_POS = 5.
L_FIELDCAT-FIELDNAME = 'MENGE'.
L_FIELDCAT-TABNAME = 'IT_STPO'.
L_FIELDCAT-REF_FIELDNAME = 'MENGE'.
L_FIELDCAT-REF_TABNAME = 'STPO'.
APPEND L_FIELDCAT TO LT_FIELDCAT.
endform. " BUILD_FIELDCAT_BOM
*& Form BUILD_LAYOUT_BOM
text
--> p1 text
*<-- p2 text
form BUILD_LAYOUT_BOM .
CLEAR : LS_LAYOUT.
LS_LAYOUT-LIGHTS_FIELDNAME = 'LIGHTS'.
LS_LAYOUT-LIGHTS_TABNAME = 'IT_STPO'.
endform. " BUILD_LAYOUT_BOM
*& Form DISPLAY_DATA_BOM
text
--> p1 text
<-- p2 text
form DISPLAY_DATA_BOM .
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 = 'USER_COMMAND_BOM'
I_CALLBACK_TOP_OF_PAGE = 'TOP9'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = 'ALV_BACKGROUND'
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = LS_LAYOUT
IT_FIELDCAT = LT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_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
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = IT_STPO
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. " DISPLAY_DATA_BOM
FORM TOP9 .
CLEAR LS_HEADER.
REFRESH LT_HEADER.
LS_HEADER-TYP = 'H'.
LS_HEADER-INFO = 'BILL OF MATERIALS'.
APPEND LS_HEADER TO LT_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LT_HEADER
I_LOGO = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID =
ENDFORM.
FORM USER_COMMAND_BOM USING RF_UCOMM_BOM LIKE SY-UCOMM
SEL_FIELD TYPE SLIS_SELFIELD.
CASE RF_UCOMM_BOM.
WHEN '&IC1'.
SET PARAMETER ID 'MAT' FIELD WA_STPO-IDNRK.
SET PARAMETER ID 'WRK' FIELD WA_MAST-WERKS.
SET PARAMETER ID 'CSA' FIELD WA_MAST-STLAN.
CALL TRANSACTION 'CS03' AND SKIP FIRST SCREEN.
ENDCASE.[/code]

How to add check box in the ALV list

dear Experts,
i have a requirement.
i want show the check boxes in my ALV list.
can u please give the solution.
thanks

TYPE-POOLS: slis.
*---internal tables
DATA: BEGIN OF it_flight OCCURS 0,
SEL, " add a single character field in the final output table
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
END OF it_flight,
*--internal tables for alv
it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fcat LIKE LINE OF it_fieldcat,
layout TYPE slis_layout_alv,
it_sort type slis_t_sortinfo_alv,
wa_sort like line of it_sort.
DATA: BEGIN OF it_flight_sel OCCURS 0,
SEL,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
END OF it_flight_sel.
data: wa_flight like it_flight.
In the layout set give the name of the field
whose checkbox will be created ( SEL as it has 1 char only )
layout-box_fieldname = 'SEL'.
*---start-of-selection .
START-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_FLIGHT'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.
*----get data
SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
wa_fcat-do_sum = 'X'.
MODIFY it_fieldcat FROM wa_fcat TRANSPORTING do_sum
WHERE fieldname = 'SEATSOCC' .
wa_sort-fieldname = 'CARRID'.
wa_sort-group = 'UL'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.
clear wa_sort.
wa_sort-fieldname = 'CONNID'.
wa_sort-subtot = 'X'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.
clear wa_sort.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
is_layout = layout
it_fieldcat = it_fieldcat
it_sort = it_sort
TABLES
t_outtab = it_flight
EXCEPTIONS
program_error = 1.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
Check field clicked on within ALVgrid report
IF rs_selfield-fieldname = 'EBELN'.
Read data table, using index of row user clicked on
READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
WHEN '&IC1'. "'&DATA_SAVE'. "user presses SAVE
loop at it_flight into wa_flight.
if wa_flight-Sel EQ 'X'.
collecting records in table it_flight_sel to process further
append wa_flight to it_flight_sel.
clear wa_flight.
TYPE-POOLS: slis.
*---internal tables
DATA: BEGIN OF it_flight OCCURS 0,
SEL, " add a single character field in the final output table
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
END OF it_flight,
*--internal tables for alv
it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fcat LIKE LINE OF it_fieldcat,
layout TYPE slis_layout_alv,
it_sort type slis_t_sortinfo_alv,
wa_sort like line of it_sort.
DATA: BEGIN OF it_flight_sel OCCURS 0,
SEL,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
END OF it_flight_sel.
data: wa_flight like it_flight.
In the layout set give the name of the field
whose checkbox will be created ( SEL as it has 1 char only )
layout-box_fieldname = 'SEL'.
*---start-of-selection .
START-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_FLIGHT'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.
*----get data
SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
wa_fcat-do_sum = 'X'.
MODIFY it_fieldcat FROM wa_fcat TRANSPORTING do_sum
WHERE fieldname = 'SEATSOCC' .
wa_sort-fieldname = 'CARRID'.
wa_sort-group = 'UL'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.
clear wa_sort.
wa_sort-fieldname = 'CONNID'.
wa_sort-subtot = 'X'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.
clear wa_sort.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = sy-repid
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
is_layout = layout
it_fieldcat = it_fieldcat
it_sort = it_sort
TABLES
t_outtab = it_flight
EXCEPTIONS
program_error = 1.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
WHEN '&IC1'.
Check field clicked on within ALVgrid report
IF rs_selfield-fieldname = 'EBELN'.
Read data table, using index of row user clicked on
READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
Set parameter ID for transaction screen field
SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
Sxecute transaction ME23N, and skip initial data entry screen
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
WHEN '&IC1'. "'&DATA_SAVE'. "user presses SAVE
loop at it_flight into wa_flight.
if wa_flight-Sel EQ 'X'.
collecting records in table it_flight_sel to process further
append wa_flight to it_flight_sel.
clear wa_flight.
Please follow the code.

How to handle check box events in alv tree.

hi,
i am working in CL_GUI_COLUMN_TREE class.Also using Check box. Now i want to handle events for check box . I am new to ABAP Objects.
Pls expaline in detail or send code
thanks in advance,
senthil kumar.r

Hello Senthil
Have a look at the sample report
SAPCOLUMN_TREE_CONTROL_DEMO
. The crucial points are:
(1) Register the required events at the control
* define the events which will be passed to the backend
" checkbox change
event-eventid = CL_GUI_COLUMN_TREE=>EVENTID_checkbox_change.
event-appl_event = 'X'.
append event to events.
CALL METHOD G_TREE->SET_REGISTERED_EVENTS
 EXPORTING
 EVENTS = EVENTS
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 ILLEGAL_EVENT_COMBINATION = 3.
IF SY-SUBRC <> 0.
 MESSAGE A000.
ENDIF.
(2) Set the event handler
assign event handlers in the application class to each desired event
SET HANDLER G_APPLICATION->HANDLE_CHECKBOX_CHANGE FOR g_tree.
(3) Define and implement event handler method
METHOD HANDLE_CHECKBOX_CHANGE.
 " this method handles the checkbox_change event of the tree
 " control instance
 " show the key of the node and the name of the item
 " of the clicked checkbox in a dynpro field
 G_EVENT = 'CHECKBOX_CHANGE'.
 G_NODE_KEY = NODE_KEY.
 G_ITEM_NAME = ITEM_NAME.
 CLEAR G_HEADER_NAME.
ENDMETHOD.
Regards
Uwe

Check box in ALV BLOCK List

Hi All,
iam Using ALV BLOCK list to print the output along with check boxes, iam able to print the output along with the check boxes but when i select any of the check box and click button on application tool bar it is going to dump and saying,
FIELD SYMBOL HAS NOT YET BEEN ASSIGNED.
i populated layout with following fields.
w_layout-box_fieldname = 'BOX'.
w_layout-box_tabname = 'T_FINAL2'.
Plz Help me out.
Thanks in Advance.
Neha

*& Report BCALV_TEST_BLOCK_LIST
report bcalv_test_block_list.
types: g_ty_t_carrid type standard table of alv_tab,
 g_ty_t_connid type standard table of alv_chck,
 g_ty_t_curr type standard table of alv_cur,
 g_ty_s_sflight type alv_t_t2,
 g_ty_s_carrid type alv_tab,
 g_ty_s_connid type alv_chck,
 g_ty_s_curr type alv_cur.
constants: con_sflight type lvc_fname value 'ALV_T_T2',
 con_scarr type lvc_fname value 'ALV_TAB',
 con_spfli type lvc_fname value 'ALV_CHCK',
 con_scurx type lvc_fname value 'ALV_CUR',
 con_event_01 type lvc_fname value 'PF_STATUS_SET',
 con_event_02 type lvc_fname value 'USER_COMMAND',
 con_event_03 type lvc_fname value 'CALLER_EXIT',
 con_event_04 type lvc_fname value 'LIST_MODIFY',
 con_event_05 type lvc_fname value 'BEFORE_LINE_OUTPUT',
 con_event_06 type lvc_fname value 'AFTER_LINE_OUTPUT',
 con_event_07 type lvc_fname value 'SUBTOTAL_TEXT',
 con_event_08 type lvc_fname value 'REPREP_MODIFY',
 con_event_09 type lvc_fname value 'TOP_OF_PAGE',
 con_event_10 type lvc_fname value 'END_OF_PAGE',
 con_event_11 type lvc_fname value 'TOP_OF_LIST',
 con_event_12 type lvc_fname value 'END_OF_LIST',
 con_event_13 type lvc_fname value 'TOP_OF_COVERPAGE',
 con_event_14 type lvc_fname value 'END_OF_COVERPAGE',
 con_event_15 type lvc_fname value 'TOP_OF_FOREIGN_PAGE',
 con_event_16 type lvc_fname value 'END_OF_FOREIGN_PAGE',
 con_event_17 type lvc_fname value 'GROUPLEVEL_CHANGE'.
DATA *
tables: sscrfields. " for processing the FCODEs in Selektion screens
include <icon>.
include <symbol>.
type-pools: slis, kkblo.
types: g_ty_t_icon type standard table of icon,
 g_ty_t_icont type standard table of icont,
 begin of g_ty_s_plane,
 carrid type g_ty_s_sflight-carrid,
 connid type g_ty_s_sflight-connid,
 planetype type g_ty_s_sflight-planetype,
 seatsmax type g_ty_s_sflight-seatsmax,
 end of g_ty_s_plane,
 g_ty_t_plane type sorted table of g_ty_s_plane
 with unique key carrid connid,
 begin of g_ty_s_fcat_curr,
 fieldname type lvc_fname,
 cfieldname type lvc_fname,
 currency type lvc_s_fcat-currency,
 end of g_ty_s_fcat_curr,
 g_ty_t_fcat_curr type sorted table of g_ty_s_fcat_curr
 with unique key fieldname,
 begin of g_ty_s_sort.
include type slis_sortinfo_alv.
types: end of g_ty_s_sort,
 g_ty_t_sort type sorted table of g_ty_s_sort
 with unique key spos fieldname,
 begin of g_ty_s_test,
 list_amount type num1,
 select_amount type i,
 only_db_info type char1,
 db_short type char1,
 excp_display type char1,
 excp_condense type char1,
 layo_title type lvc_s_layo-grid_title,
 layo_zebra type char1,
 layo_no_vert_lines type char1,
 layo_no_horiz_lines type char1,
 layo_cell_merge type char1,
 layo_count type char1,
 layo_box type char1,
 layo_no_colhead type char1,
 layo_column_optimize type char1,
 layo_keys_hotspot type char1,
 layo_no_keyfix type char1,
 layo_no_hotspot type char1,
 layo_hotspot_rows type i occurs 0,
 layo_hotspot_columns type lvc_fname occurs 0,
 layo_no_scrolling type char1,
 layo_no_authcheck type char1,
 layo_no_min_linesize type char1,
 layo_min_linesize type sylinsz,
 layo_max_linesize type sylinsz,
 layo_group_change_edit type char1,
 layo_get_selinfo type char1,
 layo_confirmation_prompt type char1,
 layo_f2code type syucomm,
 layo_reprep type char1,
 sum_before type char1,
 sum_no_sumline type char1,
 sum_no_sumchoice type char1,
 sum_numc type char1,
 sum_no_unitsplit type char1,
 sum_totals_only type char1,
 sum_totals_text type symsgli,
 sum_no_subtotals type char1,
 sum_no_subchoice type char1,
 sum_subtotals_text type symsgli,
 prnt_print type char1,
 prnt_reserve_lines type lvc_s_prnt-reservelns,
 prnt_no_listinfo type char1,
 prnt_no_selinfo type char1,
 prnt_with_title type char1,
 prnt_footline type lvc_s_prnt-footline,
 prnt_printinfo type char1,
 prnt_no_coverpage type char1,
 prnt_no_new_page type char1,
 prnt_no_change_print_params type char1,
 color_rows type i occurs 0,
 color_fields_column type lvc_fname occurs 0,
 color_fields_cell type lvc_fname occurs 0,
 fcat_no_out_fields type lvc_fname occurs 0,
 fcat_tech_fields type lvc_fname occurs 0,
 fcat_fix_column_fields type lvc_fname occurs 0,
 fcat_do_sum_fields type lvc_fname occurs 0,
 fcat_no_sum_fields type lvc_fname occurs 0,
 fcat_curr_fields type g_ty_t_fcat_curr,
 curr_amount type i,
 curr_space type char1,
 t_sort type g_ty_t_sort,
 no_info_popup type char1,
 info_popup_once type char1,
 events_info_popup type lvc_fname occurs 0,
 events type lvc_fname occurs 0,
 buffer_active type char1,
 bypassing_buffer type char1,
 end of g_ty_s_test,
 begin of g_ty_s_outtab.
include type g_ty_s_sflight.
types: list type num1,
 box type char1,
 count type i,
 lights type char1,
 checkbox type char1,
 hotspot type char1,
 color(4) type c,
 tabcolor type slis_t_specialcol_alv,
 price2 type g_ty_s_sflight-price,
 currency2 type g_ty_s_sflight-currency,
 char(10) type c,
 string type string,
 int1 type int1,
 int2 type int2,
 int4 type int4,
 numc(10) type n,
 dec(10) type p decimals 2,
 fltp type f,
 dats type d,
 tims type t,
 icon type icon-id,
 icon_qinfo type icon-name,
 symbol type icon-id,
 end of g_ty_s_outtab,
 g_ty_t_outtab type table of g_ty_s_outtab.
constants: con_true type char1 value 'X',
 con_ok type sy-ucomm value 'OK',
 con_exit type sy-ucomm value 'EXIT',
 con_canc type sy-ucomm value 'CANC',
 con_back type sy-ucomm value 'BACK'.
data: gt_outtab1 type g_ty_t_outtab,
 gt_outtab2 type g_ty_t_outtab,
 gt_outtab3 type g_ty_t_outtab,
 gt_outtab4 type g_ty_t_outtab,
 gt_outtab5 type g_ty_t_outtab,
 gt_outtab6 type g_ty_t_outtab,
 gt_outtab7 type g_ty_t_outtab,
 gt_outtab8 type g_ty_t_outtab,
 gt_outtab9 type g_ty_t_outtab.
data: gt_outtab type g_ty_t_outtab with header line,
 gs_test type g_ty_s_test.
data: g_repid type sy-repid.
data: g_field type lvc_s_fcat-fieldname,
 g_int_field type i.
 CLASS random DEFINITION
class random definition.
public section.
 types:
 value(16) type p decimals 0,
 numcv(15) type n.
 constants:
 max type random=>value value 4294967295.
 class-methods:
computes a random natural number from the set {0, ..., random=>max}.
 number returning value(rval) type random=>value,
computes a random character from the set {A-Za-z0-9}
 c returning value(rval) type char01,
computes a random string consisting of "len" random characters
 string importing len type i
 returning value(rval) type string,
computes a date
 dats returning value(rval) type d,
computes a time
 time returning value(rval) type t,
computes a random numc from the set {low, ..., high}
 numc importing low type random=>numcv high type random=>numcv
 returning value(rval) type random=>numcv,
computes a random integer from the set {low, ..., high}
 i importing low type i high type i
 returning value(rval) type i,
computes a random integer from the set {low, ..., high}
 int2 importing low type int2 high type int2
 returning value(rval) type int2,
computes a random integer from the set {low, ..., high}
 int1 importing low type int1 high type int1
 returning value(rval) type int1,
computes a random float from the interval [low ; high]
 f importing low type f high type f
 returning value(rval) type f,
computes a random character from the set {A-F0-9}
 hex returning value(rval) type char01,
computes a random character from the set {0-1}
 x returning value(rval) type char01,
method "random=>class_constructor"
 class_constructor.
private section.
 class-data:
precomputed maximal index (= string length - 1) of "random=>chars"
or of "random=>x_data".
 charsmax type i,
 xmax type i,
random number seed value.
(Used in method "random=>number".)
 seed type random=>value.
 constants:
characters for class-method "random=>hex"
 hex_data(100) type c value 'ABCDEF' &
 '0123456789',
characters for class-method "random=>x"
 x_data(100) type c value '01',
characters for class-metshod "random=>c"
 chars(100) type c value 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' &
 'abcdefghijklmnopqrstuvwxyz' &
 '0123456789'.
endclass. "random DEFINITION
 CLASS random IMPLEMENTATION
class random implementation.
implementation of the methods for randomizing the values
method x.
 data: ri type i.
 ri = random=>i( low = 0 high = random=>xmax ).
 move x_data+ri(1) to rval.
endmethod. "x
method hex.
 data: ri type i.
 ri = random=>i( low = 0 high = random=>charsmax ).
 move hex_data+ri(1) to rval.
endmethod. "hex
method number.
 constants:
 a(3) type p value 67301, " Coefficient
 c(1) type p value 1, " Increment
 m(6) type p value 4294967296. " Modulus 2**32
 random=>seed = ( a * random=>seed + c ) mod m.
 rval = random=>seed.
endmethod. "number
method c.
 data:
 ri type i.
 ri = random=>i( low = 0 high = random=>charsmax ).
 move chars+ri(1) to rval.
endmethod. "c
method string.
 data:
 char(1) type c.
 clear rval.
 do len times.
 char = random=>c( ).
 concatenate rval char into rval.
 enddo.
endmethod. "string
method dats.
 data: l_date type sy-datum,
 l_day(2) type n,
 l_month(2) type n,
 l_year(4) type n,
 l_value type random=>numcv,
 l_low type random=>numcv,
 l_high type random=>numcv.
 l_year = sy-datum+0(4).
 l_low = l_year - 5.
 l_high = l_year + 5.
 l_value = random=>numc( low = l_low high = l_high ).
 l_year = l_value+11(4).
 l_value = random=>numc( low = 1 high = 12 ).
 l_month = l_value+13(2).
 case l_month.
 when 2.
 l_high = 28.
 when 4 or 6 or 9 or 11.
 l_high = 30.
 when others.
 l_high = 31.
 endcase.
 l_value = random=>numc( low = 1 high = l_high ).
 l_day = l_value+13(2).
 l_date+0(4) = l_year.
 l_date+4(2) = l_month.
 l_date+6(2) = l_day.
 rval = l_date.
endmethod. "dats
method time.
 data: l_time type t,
 l_hour(2) type n,
 l_min(2) type n,
 l_sec(2) type n,
 l_value type random=>numcv.
 l_value = random=>numc( low = 0 high = 60 ).
 l_sec = l_value+13(2).
 l_value = random=>numc( low = 0 high = 60 ).
 l_min = l_value+13(2).
 l_value = random=>numc( low = 1 high = 24 ).
 l_hour = l_value+13(2).
 l_time+0(2) = l_hour.
 l_time+2(2) = l_min.
 l_time+4(2) = l_sec.
 rval = l_time.
endmethod. "time
method numc.
Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
 data: l_dec(16) type p,
 l_char(16) type c.
 l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
 + '0.5'.
 subtract 1 from l_dec.
 add low to l_dec.
 data: lr_type_descr type ref to cl_abap_typedescr,
 lr_elem_descr type ref to cl_abap_elemdescr.
 lr_type_descr =
 cl_abap_typedescr=>describe_by_data( rval ).
 lr_elem_descr ?= lr_type_descr.
 l_char = l_dec.
 shift l_char left deleting leading space.
 rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method i.
Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
 data: l_dec(16) type p,
 l_char(16) type c.
 l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
 + '0.5'.
 subtract 1 from l_dec.
 add low to l_dec.
 data: lr_type_descr type ref to cl_abap_typedescr,
 lr_elem_descr type ref to cl_abap_elemdescr.
 lr_type_descr =
 cl_abap_typedescr=>describe_by_data( rval ).
 lr_elem_descr ?= lr_type_descr.
 l_char = l_dec.
 shift l_char left deleting leading space.
 rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int2.
Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
 data: l_dec(16) type p,
 l_char(16) type c.
 l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
 + '0.5'.
 subtract 1 from l_dec.
 add low to l_dec.
 data: lr_type_descr type ref to cl_abap_typedescr,
 lr_elem_descr type ref to cl_abap_elemdescr.
 lr_type_descr =
 cl_abap_typedescr=>describe_by_data( rval ).
 lr_elem_descr ?= lr_type_descr.
 l_char = l_dec.
 shift l_char left deleting leading space.
 rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method int1.
Go from {0,...,random=>max} to {low,...,high} with ABAP rounding
 data: l_dec(16) type p,
 l_char(16) type c.
 l_dec = ( ( high - low + 1 ) * random=>number( ) ) / random=>max
 + '0.5'.
 subtract 1 from l_dec.
 add low to l_dec.
 data: lr_type_descr type ref to cl_abap_typedescr,
 lr_elem_descr type ref to cl_abap_elemdescr.
 lr_type_descr =
 cl_abap_typedescr=>describe_by_data( rval ).
 lr_elem_descr ?= lr_type_descr.
 l_char = l_dec.
 shift l_char left deleting leading space.
 rval = l_char+0(lr_elem_descr->output_length).
endmethod. "i
method f.
Go from {0,...,random=>max} to [low;high]
 rval = ( ( high - low ) * random=>number( ) ) / random=>max
 + low.
endmethod. "f
method class_constructor.
 charsmax = strlen( chars ) - 1.
 xmax = strlen( x_data ) - 1.
 seed = 1.
endmethod. "class_constructor
endclass. "random IMPLEMENTATION
SELECTION-SCREEN *
selection-screen begin of block gen with frame.
parameters:
p_amount type i default 30,
p_dbinfo as checkbox,
p_dbshrt as checkbox.
selection-screen end of block gen.
parameters:
p_list type num1 default 3.
selection-screen begin of block tit with frame title text-tit.
parameters:
p_tit01 type lvc_s_layo-grid_title default text-p01. "TITLE
selection-screen end of block tit.
selection-screen begin of block lay with frame title text-lay.
parameters:
p_lay01 as checkbox. "ZEBRA
selection-screen skip.
parameters:
p_lay02 as checkbox, "NO HORIZONTAL LINES
p_lay03 as checkbox. "NO VERTICAL LINES
selection-screen skip.
parameters:
p_lay04 as checkbox. "NO SCROLLING
selection-screen skip.
parameters:
p_lay06 type syucomm, "F2CODE
p_lay07 as checkbox. "CONFIRMATION PROMPT
selection-screen end of block lay.
selection-screen begin of block spa with frame title text-spa.
parameters:
p_spa01 as checkbox, "BOX
p_spa02 as checkbox, "COUNT FELD
p_spa03 as checkbox, "NO COLUMN HEADERS
p_spa04 as checkbox. "COLUMN OPTIMIZE
selection-screen begin of block hot with frame title text-hot.
parameters:
p_hot01 as checkbox. "NO HOTSPOT
parameters:
p_hot02 as checkbox. "Hotspot auf Zeilenebene
select-options:
p_hotf02 for g_int_field no intervals default 1.
parameters:
p_hot03 as checkbox.
select-options:
p_hotf03 for g_field no intervals.
selection-screen end of block hot.
selection-screen begin of block mrg with frame title text-mrg.
parameters:
p_mrg01 radiobutton group mrge, "Default
p_mrg02 radiobutton group mrge, "kein Merge
p_mrg03 radiobutton group mrge. "Merge
selection-screen end of block mrg.
selection-screen begin of block out with frame title text-out.
parameters:
p_out01 as checkbox.
select-options:
p_outf01 for g_field no intervals.
selection-screen end of block out.
selection-screen begin of block tec with frame title text-tec.
parameters:
p_tec01 as checkbox.
select-options:
p_tecf01 for g_field no intervals.
selection-screen end of block tec.
selection-screen begin of block fix with frame title text-fix.
parameters:
p_fix01 as checkbox.
select-options:
p_fixf01 for g_field no intervals.
selection-screen end of block fix.
selection-screen begin of block txt with frame title text-txt.
selection-screen pushbutton /1(50) text-pb2 user-command pb02.
selection-screen end of block txt.
selection-screen begin of block cur with frame title text-cur.
parameters:
p_curanz type i,
p_curspc as checkbox default space.
selection-screen skip.
select-options:
p_curf00 for g_field no intervals.
parameters:
p_cur01 radiobutton group cur default 'X',
p_curf01 type lvc_s_fcat-fieldname.
parameters:
p_cur02 radiobutton group cur,
p_curf02 type g_ty_s_sflight-currency.
selection-screen end of block cur.
selection-screen begin of block sort with frame title text-srt.
selection-screen pushbutton /1(20) text-pb1 user-command pb01.
selection-screen end of block sort.
selection-screen end of block spa.
selection-screen begin of block key with frame title text-key.
parameters:
p_key01 as checkbox, "KEYFELDER ALS HOTSPOT
p_key02 as checkbox. "NO KEY FIXIERUNG
selection-screen end of block key.
selection-screen begin of block exp with frame title text-exp.
parameters:
p_excp01 as checkbox, "EXCEPTION
p_excp_c as checkbox. "EXCEPTION CONDENSE
selection-screen end of block exp.
selection-screen begin of block sum with frame title text-sum.
parameters:
p_sum01 as checkbox, "SUM BEFORE
p_sum02 as checkbox, "NUMC
p_sum03 as checkbox, "NO UNITSPLIT
p_sum04 as checkbox, "TOTALS ONLY
p_sum05 as checkbox, "NO SUMCHOICE
p_sum06 as checkbox, "NO SUMLINE
p_sum07 type sy-msgli, "TOTALS TEXT
p_sum08 as checkbox, "NO SUBCHOICE
p_sum09 as checkbox, "NO SUBTOTALS
p_sum10 type sy-msgli. "SUBTOTALS TEXT
selection-screen begin of block dos with frame title text-dos.
parameters:
p_dos01 as checkbox.
select-options:
p_dosf01 for g_field no intervals.
selection-screen end of block dos.
selection-screen begin of block nos with frame title text-nos.
parameters:
p_nos01 as checkbox.
select-options:
p_nosf01 for g_field no intervals.
selection-screen end of block nos.
selection-screen end of block sum.
selection-screen begin of block col with frame title text-col.
parameters:
p_col01 as checkbox.
select-options:
p_colf01 for g_int_field no intervals default 1.
parameters:
p_col02 as checkbox.
select-options:
p_colf02 for g_field no intervals.
parameters:
p_col03 as checkbox.
select-options:
p_colf03 for g_field no intervals.
selection-screen end of block col.
selection-screen begin of block prn with frame title text-prn.
parameters:
p_lpr01 as checkbox default 'X'. "GROUP CHANGE EDIT
selection-screen skip.
parameters:
p_lpr02 as checkbox. "GET SELINFO
selection-screen skip.
parameters:
p_lpr03 as checkbox, "NO MIN LINESIZE
p_lpr04 type sylinsz, "MIN LINESIZE
p_lpr05 type sylinsz. "MAX LINESIZE
selection-screen skip.
parameters:
p_prn01 as checkbox, "PRINT
p_prn02 type lvc_s_prnt-reservelns, "RESERVE LINES
p_prn03 as checkbox, "NO LISTINFO
p_prn04 as checkbox, "NO SELINFO
p_prn05 as checkbox, "TITEL
p_prn06 type lvc_s_prnt-footline, "FOOTLINE
p_prn07 as checkbox, "PRINT INFO
p_prn08 as checkbox, "NO COVERPAGE
p_prn09 as checkbox, "NO NEW PAGE
p_prn10 as checkbox. "NO CHANGE PRINT PARAMS
selection-screen end of block prn.
selection-screen begin of block evt with frame.
parameters:
p_evt01 as checkbox, "PF_STATUS_SET
p_evt02 as checkbox. "USER_COMMAND
selection-screen skip.
parameters:
p_evt03 as checkbox, "CALLER_EXIT
p_evt04 as checkbox, "LIST_MODIFY
p_evt05 as checkbox, "BEFORE_LINE_OUTPUT
p_evt06 as checkbox. "AFTER_LINE_OUTPUT
selection-screen skip.
parameters:
p_evt07 as checkbox, "SUBTOTAL_TEXT
p_evt08 as checkbox. "REPREP_SEL_MODIFY
selection-screen skip.
parameters:
p_evt09 as checkbox, "TOP_OF_PAGE
p_evt10 as checkbox, "END_OF_PAGE
p_evt11 as checkbox, "TOP_OF_LIST
p_evt12 as checkbox. "END_OF_LIST
selection-screen skip.
parameters:
p_evt13 as checkbox, "TOP_OF_COVERPAGE
p_evt14 as checkbox. "END_OF_COVERPAGE
selection-screen skip.
parameters:
p_evt15 as checkbox, "FOREIGN_TOP_OF_PAGE
p_evt16 as checkbox. "FOREIGN_END_OF_PAGE
selection-screen skip.
parameters:
p_evt17 as checkbox. "GROUPLEVEL_CHANGE
selection-screen end of block evt.
INITIALIZATION *
initialization.
perform f01_f4_field using 'SUM' space changing p_dosf01-low.
p_dosf01-option = 'EQ'.
p_dosf01-sign = 'I'.
append p_dosf01.
perform f01_f4_field using 'SUM' space changing p_nosf01-low.
p_nosf01-option = 'EQ'.
p_nosf01-sign = 'I'.
append p_nosf01.
perform f01_f4_field using 'KEY' space changing p_outf01-low.
p_outf01-option = 'EQ'.
p_outf01-sign = 'I'.
append p_outf01.
perform f01_f4_field using space space changing p_tecf01-low.
p_tecf01-option = 'EQ'.
p_tecf01-sign = 'I'.
append p_tecf01.
perform f01_f4_field using space space changing p_fixf01-low.
p_fixf01-option = 'EQ'.
p_fixf01-sign = 'I'.
append p_fixf01.
perform f01_f4_field using 'CURR' space changing p_curf00-low.
p_curf00-option = 'EQ'.
p_curf00-sign = 'I'.
append p_curf00.
perform f01_f4_field using 'CUKY' space changing p_curf01.
perform f01_f4_field using space space changing p_hotf03-low.
p_hotf03-option = 'EQ'.
p_hotf03-sign = 'I'.
append p_hotf03.
perform f01_f4_field using space space changing p_colf02-low.
p_colf02-option = 'EQ'.
p_colf02-sign = 'I'.
append p_colf02.
perform f01_f4_field using space space changing p_colf03-low.
p_colf03-option = 'EQ'.
p_colf03-sign = 'I'.
append p_colf03.
AT SELECTION-SCREEN *
at selection-screen.
case sscrfields-ucomm.
 when 'PB01'.
 call screen 1001 starting at 1 1 ending at 80 20.
 when 'PB02'.
 call screen 1002 starting at 1 1 ending at 80 20.
endcase.
AT SELECTION-SCREEN ON VALUE-REQUEST *
at selection-screen on value-request for p_dosf01-low.
perform f01_f4_field using 'SUM' 'X' changing p_dosf01-low.
at selection-screen on value-request for p_nosf01-low.
perform f01_f4_field using 'SUM' 'X' changing p_nosf01-low.
at selection-screen on value-request for p_outf01-low.
perform f01_f4_field using 'KEY' 'X' changing p_outf01-low.
at selection-screen on value-request for p_tecf01-low.
perform f01_f4_field using space 'X' changing p_tecf01-low.
at selection-screen on value-request for p_fixf01-low.
perform f01_f4_field using space 'X' changing p_fixf01-low.
at selection-screen on value-request for p_curf00-low.
perform f01_f4_field using 'CURR' 'X' changing p_curf00-low.
at selection-screen on value-request for p_curf01.
perform f01_f4_field using 'CUKY' 'X' changing p_curf01.
at selection-screen on value-request for p_hotf03-low.
perform f01_f4_field using space 'X' changing p_hotf03-low.
at selection-screen on value-request for p_colf02-low.
perform f01_f4_field using space 'X' changing p_colf02-low.
at selection-screen on value-request for p_colf03-low.
perform f01_f4_field using space 'X' changing p_colf03-low.
at selection-screen on value-request for p_lay06.
perform f01_f4_fcode using space
 space
 changing p_lay06.
START-OF-SELECTION *
start-of-selection.
g_repid = sy-repid.
gs_test-select_amount = p_amount.
gs_test-only_db_info = p_dbinfo.
gs_test-db_short = p_dbshrt.
gs_test-list_amount = p_list.
gs_test-layo_title = p_tit01.
gs_test-layo_zebra = p_lay01.
gs_test-layo_no_horiz_lines = p_lay02.
gs_test-layo_no_vert_lines = p_lay03.
gs_test-layo_no_scrolling = p_lay04.
gs_test-layo_f2code = p_lay06.
gs_test-layo_confirmation_prompt = p_lay07.
gs_test-layo_box = p_spa01.
gs_test-layo_count = p_spa02.
gs_test-layo_no_colhead = p_spa03.
gs_test-layo_column_optimize = p_spa04.
gs_test-layo_no_hotspot = p_hot01.
if p_hot02 eq con_true.
 loop at p_hotf02.
 if not p_hotf02-low is initial.
 append p_hotf02-low to gs_test-layo_hotspot_rows.
 endif.
 endloop.
endif.
if p_hot03 eq con_true.
 loop at p_hotf03.
 if not p_hotf03-low is initial.
 append p_hotf03-low to gs_test-layo_hotspot_columns.
 endif.
 endloop.
endif.
case con_true.
 when p_mrg01.
 gs_test-layo_cell_merge = space.
 when p_mrg02.
 gs_test-layo_cell_merge = 'N'.
 when p_mrg03.
 gs_test-layo_cell_merge = 'Y'.
endcase.
if p_out01 eq con_true.
 loop at p_outf01.
 if not p_outf01-low is initial.
 append p_outf01-low to gs_test-fcat_no_out_fields.
 endif.
 endloop.
endif.
if p_tec01 eq con_true.
 loop at p_tecf01.
 if not p_tecf01-low is initial.
 append p_tecf01-low to gs_test-fcat_tech_fields.
 endif.
 endloop.
endif.
if p_fix01 eq con_true.
 loop at p_fixf01.
 if not p_fixf01-low is initial.
 append p_fixf01-low to gs_test-fcat_fix_column_fields.
 endif.
 endloop.
endif.
gs_test-curr_amount = p_curanz.
gs_test-curr_space = p_curspc.
if p_cur01 eq con_true or p_cur02 eq con_true.
 data: ls_fcat_curr type g_ty_s_fcat_curr.
 loop at p_curf00.
 clear ls_fcat_curr.
 if not p_curf00-low is initial.
 ls_fcat_curr-fieldname = p_curf00-low.
 case con_true.
 when p_cur01.
 ls_fcat_curr-cfieldname = p_curf01.
 when p_cur02.
 ls_fcat_curr-currency = p_curf02.
 endcase.
 append ls_fcat_curr to gs_test-fcat_curr_fields.
 endif.
 endloop.
endif.
gs_test-layo_keys_hotspot = p_key01.
gs_test-layo_no_keyfix = p_key02.
gs_test-excp_display = p_excp01.
gs_test-excp_condense = p_excp_c.
gs_test-sum_before = p_sum01.
gs_test-sum_numc = p_sum02.
gs_test-sum_no_unitsplit = p_sum03.
gs_test-sum_totals_only = p_sum04.
gs_test-sum_no_sumchoice = p_sum05.
gs_test-sum_no_sumline = p_sum06.
gs_test-sum_totals_text = p_sum07.
gs_test-sum_no_subchoice = p_sum08.
gs_test-sum_no_subtotals = p_sum09.
gs_test-sum_subtotals_text = p_sum10.
if p_dos01 eq con_true.
 loop at p_dosf01.
 if not p_dosf01-low is initial.
 append p_dosf01-low to gs_test-fcat_do_sum_fields.
 endif.
 endloop.
endif.
if p_nos01 eq con_true.
 loop at p_nosf01.
 if not p_nosf01-low is initial.
 append p_nosf01-low to gs_test-fcat_no_sum_fields.
 endif.
 endloop.
endif.
gs_test-layo_group_change_edit = p_lpr01.
gs_test-layo_get_selinfo = p_lpr02.
gs_test-layo_no_min_linesize = p_lpr03.
gs_test-layo_min_linesize = p_lpr04.
gs_test-layo_max_linesize = p_lpr05.
gs_test-prnt_print = p_prn01.
gs_test-prnt_reserve_lines = p_prn02.
gs_test-prnt_no_listinfo = p_prn03.
gs_test-prnt_no_selinfo = p_prn04.
gs_test-prnt_with_title = p_prn05.
gs_test-prnt_footline = p_prn06.
gs_test-prnt_printinfo = p_prn07.
gs_test-prnt_no_coverpage = p_prn08.
gs_test-prnt_no_new_page = p_prn09.
gs_test-prnt_no_change_print_params = p_prn10.
if p_col01 eq con_true.
 loop at p_colf01.
 if not p_colf01-low is initial.
 append p_colf01-low to gs_test-color_rows.
 endif.
 endloop.
endif.
if p_col02 eq con_true.
 loop at p_colf02.
 if not p_colf02-low is initial.
 append p_colf02-low to gs_test-color_fields_column.
 endif.
 endloop.
endif.
if p_col03 eq con_true.
 loop at p_colf03.
 if not p_colf03-low is initial.
 append p_colf03-low to gs_test-color_fields_cell.
 endif.
 endloop.
endif.
if p_evt01 eq con_true.
 append con_event_01 to gs_test-events.
endif.
if p_evt02 eq con_true.
 append con_event_02 to gs_test-events.
endif.
if p_evt03 eq con_true.
 append con_event_03 to gs_test-events.
endif.
if p_evt04 eq con_true.
 append con_event_04 to gs_test-events.
endif.
if p_evt05 eq con_true.
 append con_event_05 to gs_test-events.
endif.
if p_evt06 eq con_true.
 append con_event_06 to gs_test-events.
endif.
if p_evt07 eq con_true.
 append con_event_07 to gs_test-events.
endif.
if p_evt08 eq con_true.
 append con_event_08 to gs_test-events.
endif.
if p_evt09 eq con_true.
 append con_event_09 to gs_test-events.
endif.
if p_evt10 eq con_true.
 append con_event_10 to gs_test-events.
endif.
if p_evt11 eq con_true.
 append con_event_11 to gs_test-events.
endif.
if p_evt12 eq con_true.
 append con_event_12 to gs_test-events.
endif.
if p_evt13 eq con_true.
 append con_event_13 to gs_test-events.
endif.
if p_evt14 eq con_true.
 append con_event_14 to gs_test-events.
endif.
if p_evt15 eq con_true.
 append con_event_15 to gs_test-events.
endif.
if p_evt16 eq con_true.
 append con_event_16 to gs_test-events.
endif.
if p_evt17 eq con_true.
 append con_event_17 to gs_test-events.
endif.
gs_test-buffer_active = space.
gs_test-bypassing_buffer = space.
END-OF-SELECTION *
end-of-selection.
perform f01_call_list.
*& Form f01_call_list
 text
form f01_call_list .
data: ls_prnt type slis_print_alv,
 lt_excl type slis_t_extab,
 l_exit type char1,
 ls_exit type slis_exit_by_user,
 l_list type num1.
call function 'REUSE_ALV_BLOCK_LIST_INIT'
 exporting
 i_callback_program = g_repid
 i_callback_pf_status_set = ' '
 i_callback_user_command = ' '
 it_excluding = lt_excl.
do gs_test-list_amount times.
 add 1 to l_list.
 perform f01_append_list using l_list.
enddo.
perform f01_set_prnt changing ls_prnt.
call function 'REUSE_ALV_BLOCK_LIST_DISPLAY'
 exporting
 i_interface_check = ' '
 is_print = ls_prnt
 i_screen_start_column = 0
 i_screen_start_line = 0
 i_screen_end_column = 0
 i_screen_end_line = 0
 importing
 e_exit_caused_by_caller = l_exit
 es_exit_caused_by_user = ls_exit
 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. " f01_call_list
*& Form f01_append_list
 text
form f01_append_list using value(i_list) type num1.
data: ls_layo type slis_layout_alv,
 lt_fcat type slis_t_fieldcat_alv,
 lt_sort type slis_t_sortinfo_alv,
 lt_evts type slis_t_event,
 l_tabname type slis_tabname.
field-symbols: <l_table> type any.
perform f01_get_outtab using i_list.
case i_list.
 when 1.
 gt_outtab1 = gt_outtab[].
 when 2.
 gt_outtab2 = gt_outtab[].
 when 3.
 gt_outtab3 = gt_outtab[].
 when 4.
 gt_outtab4 = gt_outtab[].
 when 5.
 gt_outtab5 = gt_outtab[].
 when 6.
 gt_outtab6 = gt_outtab[].
 when 7.
 gt_outtab7 = gt_outtab[].
 when 8.
 gt_outtab8 = gt_outtab[].
 when 9.
 gt_outtab9 = gt_outtab[].
endcase.
perform f01_set_layo changing ls_layo.
perform f01_set_fcat changing lt_fcat.
perform f01_set_evts changing lt_evts.
concatenate 'LIST_' i_list into l_tabname.
case i_list.
 when 1.
 call function 'REUSE_ALV_BLOCK_LIST_APPEND'
 exporting
 is_layout = ls_layo
 it_fieldcat = lt_fcat
 i_tabname = l_tabname
 it_events = lt_evts
 it_sort = lt_sort
 i_text = 'Hello' "#EC NOTEXT
 tables
 t_outtab = gt_outtab1
 exceptions
 program_error = 1
 maximum_of_appends_reached = 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.
 when 2.
 call function 'REUSE_ALV_BLOCK_LIST_APPEND'
 exporting
 is_layout = ls_layo
 it_fieldcat = lt_fcat
 i_tabname = l_tabname
 it_events = lt_evts
 it_sort = lt_sort
 i_text = 'Hello' "#EC NOTEXT
 tables
 t_outtab = gt_outtab2
 exceptions
 program_error = 1
 maximum_of_appends_reached = 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.
 when 3.
 call function 'REUSE_ALV_BLOCK_LIST_APPEND'
 exporting
 is_layout = ls_layo
 it_fieldcat = lt_fcat
 i_tabname = l_tabname
 it_events = lt_evts
 it_sort = lt_sort
 i_text = 'Hello' "#EC NOTEXT
 tables
 t_outtab = gt_outtab3
 exceptions
 program_error = 1
 maximum_of_appends_reached = 2
 others = 3.
 if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
 with sy-ms

CHECK BOX IN DROP DOWN LIST

HI PLS TELL ME HOW TO INSERT CHECK BOX IN DROP DOWN LIST.
NITIN

Hi,
You can select only one value from dropdown list.Checkboxes are to select more than one.Why do you need checkbox in drop down??
Thanks,
Keerthi

How to insert check box fields in a htmlb: tableview

Hi,
Can anybody tell me how to insert check box fields in a htmlb: tableview in a sequence of rows in a table view. How to generate the sequence no for the checkbox inorder to know the row that is checked.
Thanks in advance,
Aruna.

Here is the code which has the custom "Checkbox" in the tableview & Triggers the event. You can identify the checkbox based on cell ID (p_cell_id) in the method "IF_HTMLB_TABLEVIEW_ITERATOR~RENDER_CELL_START" & Based on the event name + Cell ID. Look at the code & let me know if you any issue.
Layout:
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content id = "content"
 design = "design2002+design2003"
 controlRendering = "SAP"
 rtlAutoSwitch = "true"
 forceEncode = "ENABLED" >
<htmlb:page title="Test " >
 <htmlb:form>
 <%
data TV_ITERATOR Type Ref To zcl_itr.
data iterator type ref to IF_HTMLB_TABLEVIEW_ITERATOR.
create object tv_iterator exporting appl_cons = application.
iterator = tv_iterator.
 %>
 <htmlb:tableView id = "fligts"
 headerText = "Flight"
 width = "100"
 headerVisible = "true"
 design = "alternating"
 visibleRowCount = "10"
 fillUpEmptyRows = "true"
 showNoMatchText = "true"
 filter = "server"
 sort = "server"
 onHeaderClick = "MyEventHeaderClick"
 table = "<%= APPLICATION->itab %>"
 iterator = "<%= ITERATOR %>" />
 </htmlb:form>
</htmlb:page>
</htmlb:content>
Event Handling:
DATA: EVENT_ID1 TYPE REF TO IF_HTMLB_DATA.
EVENT_ID1 = CL_HTMLB_MANAGER=>GET_EVENT_EX( REQUEST ).
CASE EVENT_ID1->EVENT_SERVER_NAME.
IF NOT event_id1 IS INITIAL.
 if event_id1->server_event+0(9) = 'chkevent'.
SPLIT event_id1->server_event AT '-' INTO v_event v_dummy v_row v_col.
endif.
endif.
method IF_HTMLB_TABLEVIEW_ITERATOR~GET_COLUMN_DEFINITIONS.
 CLEAR p_column_definitions.
 CLEAR p_overwrites.
 DATA: tv_column TYPE TABLEVIEWCONTROL.
 tv_column-COLUMNNAME = 'FLDATE'.
 tv_column-edit = 'X'.
 tv_column-sort = 'X'.
 tv_column-TITLE = 'Flight Date'.
 tv_column-WIDTH = '100'.
 APPEND tv_column TO p_column_definitions.
 CLEAR tv_column.
 tv_column-edit = 'X'.
 tv_column-COLUMNNAME = 'CONNID'.
 tv_column-TITLE = 'Conn.ID'.
 tv_column-WIDTH = '70'.
 tv_column-HORIZONTALALIGNMENT = 'center'.
 APPEND tv_column TO p_column_definitions.
 CLEAR tv_column.
 tv_column-edit = 'X'.
 tv_column-COLUMNNAME = 'CHECKBOX1'.
 tv_column-TITLE = 'Check Box'.
 tv_column-WIDTH = '30'.
 tv_column-HORIZONTALALIGNMENT = 'center'.
 APPEND tv_column TO p_column_definitions.
endmethod.
METHOD IF_HTMLB_TABLEVIEW_ITERATOR~RENDER_CELL_START.
 DATA: L_EVENT TYPE STRING.
CASE P_TABLEVIEW_ID.
 WHEN 'fligts'.
 CASE P_COLUMN_KEY.
 WHEN 'CHECKBOX1'.
* CONCATENATE 'chk_event' '123' '2323' INTO L_EVENT SEPARATED BY '-' .
CONCATENATE 'chkevent' p_cell_id INTO l_event SEPARATED BY '-'.
 P_REPLACEMENT_BEE = CL_HTMLB_CHECKBOX=>FACTORY( ID = P_CELL_ID
 ONCLICK = L_EVENT CHECKED = 'false' ).
 ENDCASE.
ENDCASE.
ENDMETHOD.
Hope this will solve your problem.
* Reward each helpful answer.
Raja T
Message was edited by:
 Raja T

How to use check box in flash 8?

How to use check box in flash 8?

If you want it to happen when someone clicks the checkbox, then you need to add a listener for that event.
var cbListener:Object = new Object();
cbListener.click = function (evt:Object) {
if (cb.selected) {
gotoAndStop(2);
cb.addEventListener("click", cbListener);
(Note: "cb" and "cbListener" are names that were made up for this example. They could be anything you want to name them)

Setting check box (in detail block) as (non) updatable...

Hi,
I have a master-detail form. The form does execute a query when it opens. Now, according to a condition i want to do the check box(in detail block) as non- updatable.
I have tried to write the appropriate code in:
WHEN-NEW-RECORD-INSTANCE(in the master block level)
WHEN-NEW-ITEM-INSTANCE (in the detail block level)
POST-QUERY(in the detail block level)
but it does not work 'perfectly'. I mean that in most cases even one of the above triggers does not execute (for example the 'WHEN-NEW-RECORD-INSTANCE' but only after i click on this new record instance. I mean that after this on this new record the condition is estimated....)
or
it does execute but after i click on the checkbox (for example the 'WHEN-NEW-ITEM-INSTANCE').
The code i tried looks like the following:
if :block.item=<condition>
then
set_item_property ('detail_block.chk_box',updatable,property_false);
else
set_item_property ('detail_block.chk_box',updatable,property_true);
end if;I consider to use the WHEN-CHECKBOX-CHANGED trigger and code which looks like:
if <condition>=true
then
 /*i set the value of the checkbox as the opposite of what it is just after the click on it...*/
if :detail_block.chk_box=0
 then
 :detail_block.chk_box=1;
else
 :detail_block.chk_box=0;
end if;
set_record_property(currect_record,status,query_status);
set_item_property ('detail_block.chk_box',updatable,property_false);
end if;The truth is that i do not like very much this code, but is there any alternative...???
Note: I use Dev6i with patch 12
Thank you,
Sim

I build a little testform based on HR-schema-table DEMO_USERS and switch each second record to be not updateable, works without problems (code from POST-QUERY-trigger):
DEFAULT_VALUE('1', 'GLOBAL.SWITCH');
:GLOBAL.SWITCH:=3-:GLOBAL.SWITCH;
IF :GLOBAL.SWITCH=2 THEN
SET_ITEM_INSTANCE_PROPERTY('DEMO_USERS.ADMIN_USER', TO_NUMBER(:SYSTEM.TRIGGER_RECORD), UPDATE_ALLOWED, PROPERTY_TRUE);
ELSE
SET_ITEM_INSTANCE_PROPERTY('DEMO_USERS.ADMIN_USER', TO_NUMBER(:SYSTEM.TRIGGER_RECORD), UPDATE_ALLOWED, PROPERTY_FALSE);
END IF; Edited by: Andreas Weiden on 31.03.2009 21:24

How to print Check Box in smartform

HI,
How to print check box in smartforms. I am using Include Sap Symbol but in the print it is coming as #. Do we need to do any setting like we do for barcode?
Thanks
Raghavendra

hi,
u can print a check box in different ways.. by inserting symbols and making window as check box..
once go through the thread u will get to k now differnt ways
putting checkboxes in smartform?
Please Close this thread.. when u r problem is solved. Reward all Helpful answers
Regards
Naresh Reddy K

How can multiple check boxes be added at one time to a form?

How can multiple check boxes be added at one time to a form?

Thanks for your response, but copying and pasting creates a link. If the user places a check mark in one of the boxes, all the rest of the boxes will have a check mark also. I will research this some more.
Carol Deatherage
Receptionist
Novar/Honeywell
1000 SE 14th Street
Bentonville, AR 72712
Office: (800) 341-7795
Fax: (479) 271-0657
[email protected]<mailto:[email protected]>
Your feedback is important to us! Please take a moment to rate this response.
Click Here to Access the Survey<https://www.surveymonkey.com/s/NovarSurvey>!
This email and any files transmitted with it are confidential and intended solely for the individual or entity to whom they are addressed. If you have received this email in error destroy it immediately.
Novar Confidential ***

How to use check box & dropdownlist in smart forms

can anybdy explain(any examples) how i can use check box or drop down list in smart forms.is ther any provision like that

Hi Ranjith,
To use Check box in smartform do the following:
Change the editor to 'PC Editor' and take the menu.
in text editor of TEXT ELEMENTS..
Insert -> Characters -> SAP Symbols
in print preview u can't see these changes..
for more details check this link..
How to create checkbox in smartforms??
Ashven

How to insert check box value in table?

Hi all
kindly help me how to insert check box value in database. what code i have to use as i am new in programing.
thanx in advance

Hi,
There is no "Check box" in a table, a check box is a GUI (Graphical user interface) item.
What you want is to store a boolean value in a table. For that you can use the varchar2(1) datatype and store Y or N. (or anything else)
(you cannot define boolean as a datatype for a column).
If you're using a front-end application like apex then it might be useful for you to read the documentation about chekc boxes :
http://download.oracle.com/docs/cd/E10513_01/doc/appdev.310/e10497/check_box.htm#CHDDFBFH
(for the rest if it's Oracle Forms then everything is already said).
Edited by: user11268895 on Aug 17, 2010 10:44 AM

How to display check box in atable control

hi
here is my requirement
how can i display check box in table control and also when i check that check box it has to dispaly one pop up screen with the records of table control row
points will be rewarded
Thanks&Regards
Nagesh.Paruchuri

Hi,
See this code for how to display check box in atable control
*---- Table declaration.
TABLES: KNA1.
CONTROLS TC1 TYPE TABLEVIEW USING SCREEN 200.
CONTROLS TC2 TYPE TABLEVIEW USING SCREEN 300.
*---- Data declaration.
DATA:OKCODE LIKE SY-UCOMM.
DATA:V_KNA1 LIKE KNA1.
*DATA:ERROR TYPE C.
*---- Internal Table declaration.
DATA:BEGIN OF IT_TAB OCCURS 0,
 CHK,
 VBELN TYPE VBELN_VA,
 KUNNR TYPE KUNAG,
 ERDAT TYPE ERDAT,
 AUDAT TYPE AUDAT,
 VBTYP TYPE VBTYP,
 END OF IT_TAB.
DATA:BEGIN OF IT_TAB1 OCCURS 0,
 VBELN TYPE VBELN_VA,
 POSNR TYPE POSNR_VA,
 MATNR TYPE MATNR,
 MATWA TYPE MATWA,
 PMATN TYPE PMATN,
 END OF IT_TAB1.
*& Module USER_COMMAND_0100 INPUT
MODULE USER_COMMAND_0100 INPUT.
OKCODE = SY-UCOMM.
CASE OKCODE.
 WHEN 'DISP' OR SPACE.
 SELECT *
 FROM VBAK
 INTO CORRESPONDING FIELDS OF TABLE IT_TAB
 WHERE KUNNR = KNA1-KUNNR.
 IF SY-SUBRC <> 0.
 MESSAGE 'No sales document exists'(001) TYPE 'I'.
 ENDIF.
 LEAVE TO SCREEN 200.
 CLEAR OKCODE.
*--- To leave Transaction
 WHEN 'BACK' .
 LEAVE PROGRAM.
 CLEAR OKCODE.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module validate_kunnr INPUT
MODULE VALIDATE_KUNNR INPUT.
V_KNA1 = KNA1.
SELECT SINGLE *
 FROM KNA1
 WHERE KUNNR = KNA1-KUNNR.
*-----Process error condition
IF SY-SUBRC <> 0.
 CLEAR KNA1.
 KNA1-KUNNR = V_KNA1-KUNNR.
 CASE OKCODE..
 WHEN 'BACK' OR 'EXIT' .
 LEAVE PROGRAM.
 ENDCASE.
 MESSAGE 'Customer Does Not Exist'(002) TYPE 'I'.
 LEAVE TO SCREEN 100.
ENDIF.
ENDMODULE. " validate_kunnr INPUT
*& Module STATUS_0100 OUTPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'PF'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0200 INPUT
MODULE USER_COMMAND_0200 INPUT.
CASE OKCODE.
 WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
 LEAVE TO SCREEN 100.
 CLEAR OKCODE.
 CLEAR IT_TAB1.
 WHEN 'DISP' .
 CLEAR OKCODE.
 READ TABLE IT_TAB WITH KEY CHK = 'X'.
 IF SY-SUBRC = 0.
 SELECT VBELN POSNR MATNR MATWA PMATN
 FROM VBAP
 INTO TABLE IT_TAB1
 WHERE VBELN = IT_TAB-VBELN.
 IF SY-SUBRC = 0.
 SORT IT_TAB.
 DESCRIBE TABLE IT_TAB LINES TC1-LINES.
 LEAVE TO SCREEN 300.
 ELSE.
 MESSAGE E016(YBHV).
 ENDIF.
 ELSE.
 MESSAGE 'Please select one record' TYPE 'I'.
 ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*& Module STATUS_0200 OUTPUT
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'PF3'.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_C.OMMAND_0300 INPUT
 text
MODULE USER_COMMAND_0300 INPUT.
SET PF-STATUS 'PF3'.
CASE OKCODE.
 WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
 CLEAR OKCODE.
 LEAVE TO SCREEN 200.
ENDCASE.
ENDMODULE. " USER_COMMAND_0300 INPUT
*& Module modify INPUT
MODULE MODIFY INPUT.
MODIFY IT_TAB INDEX TC1-CURRENT_LINE.
ENDMODULE. " modify INPUT
*& Module okcode OUTPUT
 text
MODULE OKCODE OUTPUT.
CLEAR OKCODE.
ENDMODULE. " okcode OUTPUT
Reward Pointsa If usefull
Regards
Fareedas

How to create check box in tabular form

Dear Friends
i have craeaed tabular form .Recently all column are default text field but i want to change some column from text field to check box .
i have try it with simple check box but there is no option to pass return value in to table.
How to create check box in tabular from.
select
"CLAIM_ID",
"CLAIM_ID" CLAIM_ID_DISPLAY,
"EMPLOYEE_ID",
"CLAIM_DATE",
"START_FROM",
"END_TO",
"REIMB_NAME",
"REIMB_AMOUNT",
"REMARK",
"ACTIVE_FLAG",
"STATUS",
"APPROVE_NO",
"APPROVE_FLAG"
from "EMP_REIMBURSEMENT_DTL
{code}
i want to change column from text field to Check box
Cplumn Name :
1.ACTIVE_FLAG Return value 'Y'
2.STATUS Return Value "APPROVE"
How to pass it with check box in tabular form.
Thanks

Visit this demo app:
http://apex.oracle.com/pls/otn/f?p=31517:1
Section VI has a lot of tabular form stuff with checkbox handling.
Denes Kubicek
http://deneskubicek.blogspot.com/
http://www.apress.com/9781430235125
https://apex.oracle.com/pls/apex/f?p=31517:1
http://www.amazon.de/Oracle-APEX-XE-Praxis/dp/3826655494
-------------------------------------------------------------------

HOW TO TRIGGER CHECK BOX EVENT IN BLOCKED LIST OUT PUT

Similar Messages

Maybe you are looking for