Check box information
Dear Friends,
Good afternoon
here i got a requirement, where iam using checkbox option,
there are two check boxes, here i need is when i chck one
check box other one has to un check like radiobutons.
Thanks & Regards
Jagadeeshwar.B
Hi,
Try this:
DATA: v_seleCted TYPE string.
PARAMETERS: p1 TYPE checkbox USER-COMMAND one,
p2 TYPE checkbox USER-COMMAND two.
AT SELECTION-SCREEN.
GET CURSOR FIELD v_selected.
CASE v_selected.
WHEN 'P1'.
CLEAR p2. p1 = 'X'.
WHEN 'P2'.
CLEAR p1. p2 = 'X'.
ENDCASE.
Regards,
Aditya
Similar Messages
-
Regarding alv report with check boxes
Hai,
i have four check boxes as input named new,rejected,accepted and all.these four four check boxes information is nothing but the information that displayed under one field in my internal table.if i click the new check box means that corresponding
data has to be display similarly for accepted and rejected .if i click the all check box means all records has to be displayed.now i am facing one problem if i suppose to click all check box with either new or rejected orelse accepted orelse with all the three with all check box means then it wont goes to output instead of that it remains in the same window i.e input screen. pls tell me the solution as soon as possible.
with regards,
R.Dhineshraj.hi dhinesh,
one thing...wen ur writing a code for checkboxes ...checck for the following..
1> for individual check box code...one check box should b selected at a time..
2> for combination of checkboxes...after end-of-selection event...where u put this condition...give the if-clause with and condition...for all possible conditions of all 4 checkboxes...
den accordingly...select the form-perform corresponding to the checkbox selection...
example code..im writing here...for individual assignment...
PARAMETERS: invoiced AS CHECKBOX.
PARAMETERS: good_iss AS CHECKBOX.
END-OF-SELECTION.
IF invoiced = 'X'.
PERFORM create_fieldcatalog.
PERFORM display_data.
ELSE.
IFgood_iss = 'X'.
let me knw if it helps u..
regards
kanika -
Migrating library from PC to Mac (and copying sync check boxes)
Hi,
I recently bought an iMac to upgrade from a PC, and everything's going awesome - except my iTunes library.
I can get the music/files across to the iMac fine, however I have a library in excess of 60gb and use a 16gb iPhone, so was pretty reliant on the checkboxes to keep my synced library under 16gb.
I can't seem to find away to copy across the check box information, and would hate to have to manually uncheck all the songs I don't want to sync as I have almost 6,000 items in my library.
I've seen the iTunes back up option and thinking of trying that, but I'll need to buy a ton of DVDs to do so - so thought it was best to check if there are any other options, and also see if the back up contains the check box preferences.
Any help would be most appreciated - cheers!If anyone's got the same problem, don't bother backing up the library to DVD - it doesn't sync the check boxes. I just found out, 22 DVDs later.
Was going to put all the synced songs in a playlist and export it (as suggested above), but you can't sort by checkbox - so if anyone has any more solutions, I'm all ears.
Cheers -
How to select the output list check boxes
Hi ABAP gurus,
I am developing the on report, it display the output list, in that output list first column is Check box,
here i created the 3 Pushbuttons on application tool bar, one pushbutton is SELECT ALL, 2nd one is DESELECT ALL , 3rd one is CREDIT NOT CREATE,
here when i click on the Select all button it will select all the check boxs and click on the credit not button it will create credit memos for all the customers, if i select the one or more than one check boxs, it will not working means (Credit note will not be created for that paricular customer)
plz tell me answer, if u know the any example programs related to this program plz send me.Hi,
refer this sample code.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'F2'.
PERFORM selection.
WHEN 'SELECTALL'.
PERFORM selectall.
WHEN 'DESELECTAL'.
PERFORM deselectall.
ENDCASE. " CASE SY-UCOMM
*& Form selection *
Selecting records of basic list and display flight information *
No parameters transferred *
FORM selection .
DO w_lines TIMES.
READ LINE w_lineno FIELD VALUE w_checkbox INTO w_checkbox
fs_spfli-carrid INTO fs_spfli-carrid
fs_spfli-connid INTO fs_spfli-connid
w_mark INTO w_mark.
IF sy-subrc EQ 0.
IF w_checkbox EQ 'X' AND w_mark NE '*'.
w_mark = '*'.
MODIFY CURRENT LINE FIELD VALUE w_mark
FIELD FORMAT w_checkbox INPUT OFF.
SELECT carrid " Airline Code
connid " Flight Connection Number
fldate " Flight date
seatsmax " Maximum capacity
seatsocc " Occupied seats
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE t_sflight
WHERE carrid EQ fs_spfli-carrid AND connid EQ fs_spfli-connid.
IF sy-subrc EQ 0.
LOOP AT t_sflight INTO fs_sflight.
WRITE :/2 fs_sflight-carrid,
10 fs_sflight-fldate,
25 fs_sflight-seatsmax,
45 fs_sflight-seatsocc.
ENDLOOP. " LOOP AT T_SFLIGHT INTO....
ULINE.
CLEAR t_sflight.
ELSE.
MESSAGE text-001 TYPE 'S'.
ENDIF. " IF SY-SUBRC EQ 0
ENDIF. " IF W_CHECKBOX EQ 'X' AND .....
ENDIF. " IF SY-SUBRC EQ 0
ADD 1 TO w_lineno.
CLEAR w_checkbox.
ENDDO. " DO W_LINES TIMES
w_lineno = 3.
ENDFORM. " Selection -
When I open my iCloud browser it looks different than "normal." It shows the list with check boxes, not slider on-off buttons. It dos not show a "storage and backup" button so I cannot set up my backup. What is wrong?
If see something like the image below it's because you are looking at the iCloud settings on your Mac, not on an iOS device (which has sliders). Storage & Backup isn't in the Mac settings because you cannot back up your Mac to iCloud. Only iOS devices can back up to iCloud. On a Mac, you can get information about your iCloud account storage by looking at the green usage bar at the bottom and by clicking the "Manage..." button on the bottom right.
-
How to print check boxes in output using alv
send me replly immediately
hi
Program Name: ALV ON SECONDARY LISTS Creation: 02/01/2007*
SAP Name : YH634_0102007_ALV_LIST Application: *
Author : P.V.D.Veeresh Babu Type: 1 *
Description : This program is used to display secondary lists using *
ALV. *
Inputs: *
Tables: *
SPFLI - Flight information *
SFLIGHT - Flight *
SBOOK - Flight booking details *
Select options: *
N/A *
Parameters: *
NO *
Outputs: secondary lists with ALV *
External Routines *
Function Modules: *
REUSE_ALV_LIST_DISPLAY *
Transactions : No *
Programs : No *
Return Codes: No *
Ammendments: *
Programmer Date Req. # Action *
================ ========== ====== ==============================*
type-pools: slis.
*" Data declarations...................................................
Data declaration of the structure to hold layout details *
data:
fs_layout type slis_layout_alv.
*" Data declarations...................................................
Data declaration of the structure to hold spfli details *
data: begin of fs_spfli,
color(4) type c, " Color
check type c. " Check box
include structure spfli. " Spfli
data end of fs_spfli.
*" Data declarations...................................................
Data declaration of the structure to hold sflight details *
data:begin of fs_sflight,
color(4) type c, " Color
check type c. " Check box
include structure sflight. " Sflight
data end of fs_sflight.
*" Data declarations...................................................
Data declaration of the structure to hold sbook details *
data:
fs_sbook like sbook.
Internal table to hold list details *
data:
t_sbook like
standard table
of fs_sbook.
Internal table to hold list details *
data:
t_sflight like
standard table
of fs_sflight .
Internal table to hold spfli details *
data:
t_spfli like
standard table
of fs_spfli.
fs_layout-box_fieldname = 'CHECK'.
fs_layout-info_fieldname = 'COLOR'.
"........Retrieving basic list data containing spfli details......."
select *
from spfli
into corresponding fields of table t_spfli.
if sy-subrc ne 0.
message text-001 type 'I'.
endif. " IF SY-SUBRC NE 0
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_callback_program = sy-repid
i_callback_pf_status_set = 'STATUS1'
i_callback_user_command = 'USER_COMMAND1'
i_structure_name = 'SPFLI'
is_layout = fs_layout
tables
t_outtab = t_spfli
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message text-002 type 'I'.
endif. " IF SY-SUBRC NE 0
Form STATUS1 *
This subroutine gives pf-status for spfli list *
-->T_EXTAB excluding table *
form status1 using t_extab type slis_t_extab.
set pf-status 'STATUS1'.
endform. " STATUS1
Form USER_COMMAND1 *
This subroutine displays secondary list containing sflight details*
-->FS_UCOMM user command *
-->T_SELFIELD selfield *
form user_command1 using fs_ucomm type sy-ucomm
t_selfield type slis_selfield.
case fs_ucomm.
when 'SFLIGHT'.
perform display_list2.
endcase. " CASE FS_UCOMM
t_selfield-refresh = 'X'.
endform. " USER_COMMAND1
Form DISPLAY_LIST2 *
This subroutine displays sflight details on secondary list *
There are no interface parameters to be passed in this subroutine *
form display_list2 .
data lw_flag type i. " Flag
refresh t_sflight.
loop at t_spfli into fs_spfli.
if fs_spfli-check = 'X'.
"........Retrieving basic list data containing sflight details......."
select *
from sflight
appending corresponding fields of table t_sflight
where carrid eq fs_spfli-carrid
and connid eq fs_spfli-connid.
if sy-subrc eq 0.
lw_flag = 1.
endif. " IF SY-SUBRC EQ 0
FS_SPFLI-CHECK = '0'.
fs_spfli-color = 'C510'.
modify t_spfli from fs_spfli .
endif. " IF FS_SPFLI-CHECK EQ 'X'
endloop. " LOOP AT T_SPFLI INTO FS_SPFLI
if lw_flag eq 0.
message text-003 type 'E'.
endif. " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_callback_program = sy-repid
i_callback_pf_status_set = 'STATUS2'
i_callback_user_command = 'USER_COMMAND2'
i_structure_name = 'SFLIGHT'
is_layout = fs_layout
tables
t_outtab = t_sflight
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message text-002 type 'I'.
endif. " IF SY-SUBRC NE 0
endform. " DISPLAY_LIST2
Form STATUS2 *
This subroutine gives pf-status for secondary list. *
-->T_EXTAB Excluding table *
form status2 using t_extab type slis_t_extab.
set pf-status 'STATUS2'.
endform. " STATUS2
Form USER_COMMAND2 *
This subroutine gives secondary list containing sbook details *
-->FS_UCOMM user command *
-->T_SELFIELD selfield *
form user_command2 using fs_ucomm type sy-ucomm
t_selfield type slis_selfield.
case fs_ucomm.
when 'SBOOK'.
perform display_list3.
endcase. " CASE FS_UCOMM
t_selfield-refresh = 'X'.
endform. " USER_COMMAND2
Form DISPLAY_LIST3 *
This subroutine displays sbook details on secondary list *
There are no interface parameters to be passed in this subroutine *
form display_list3 .
data lw_flag type i. " Flag
refresh t_sbook.
loop at t_sflight into fs_sflight.
if fs_sflight-check eq 'X'.
"........Retrieving basic list data containing sbook details......."
select *
from sbook
appending corresponding fields of table t_sbook
where carrid eq fs_sflight-carrid
and connid eq fs_sflight-connid
and fldate eq fs_sflight-fldate.
if sy-subrc eq 0.
lw_flag = 1.
endif. " IF SY-SUBRC EQ 0
FS_SFLIGHT-CHECK = '0'.
fs_sflight-color = 'C910'.
modify t_sflight from fs_sflight.
endif. " IF FS_FLIGHT-CHECK EQ 'X'
endloop. " LOOP AT T_SFLIGHT INTO....
if lw_flag eq 0.
message text-004 type 'E'.
endif. " IF LW_FLAG EQ 1
".................Calling function module for ALV..................."
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_structure_name = 'SBOOK'
is_layout = fs_layout
tables
t_outtab = t_sbook
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message text-002 type 'I'.
endif. " IF SY-SUBRC NE 0
endform. " DISPLAY_LIST3
regards,
veeresh
null -
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] -
Can you grey out/lock a certain part of a form you created after a check box has been selected?
In Acrobat Pro 9 can I set up the form that I created to allow customers to select a check box and after they have selected the check box, the form will grey out/lock all of the information that they don't need to fill out and keep the rest of the information that needs to be filled out open?
You can do this through scripting (if you are a JavaScripter). Check out this article by Thom Parker on Conditional Execution: http://acrobatusers.com/tutorials/conditional-execution
Also, check out his website: http://www.pdfscripting.com -
Problem in Creating Check boxes as a column in a table using MVC
I am trying to display a table format using the Model view controlers, with 1st column as a checkbox. if the user chooses some check boxes and submit the screen then i need to update the information in a custome table.
I am having a problem in creating the check boxes, also pls tell me how to catch the line items checked by the user in the table...
SriHI Srinivas
I am not getting what the exact problem is.....
I am giving you a work around.....to me it does not seems to be an Ideal Solution..But Probably it will solve your problem....
Changes To be Made in Page Layout...
In Pagelayout
<htmlb:tableView id = "tvX" width = "100%" visibleRowCount = "8" fillUpEmptyRows = "X" selectedRowIndexTable = "<%= selectedRowIndexTable %>"
<b>selectedrowindex = "<%= selectedrowindex %>"
onrowselection = "select"</b>
selectionMode = "MULTISELECT" table = "<%= sflight %>" />
<b>selectedindexrow is an attribute of type INT4</b>
In Do handle event.....instead of using the previous code use this one...
if event->id = 'SUBMIT'.
DATA: WA TYPE INT4.
LOOP AT SELECTEDROWINDEXTABLE INTO WA.
*Here you can read your table of TABLEVIEW with index *equal to WA into a workarea and then use that workarea *to update the customer table ENDLOOP.
elseif event->id = 'tvX'.
tv ?= CL_HTMLB_MANAGER=>GET_DATA( request = request name = 'tableView' id = 'tvX' ).
IF tv IS NOT INITIAL.
table_event = tv->data.
selectedRowIndex = table_event->SELECTEDROWINDEX.
append selectedrowindex into SELECTEDROWINDEXTABLE.
endif.
ENDIF.
Meanwhile..Let me check why that code does not work.....
Hope it solve your problem....
Cheers:)
Mithlesh -
Is there a way to automatically add a page to my current form when the user marks the check box?
I have an existing expense report form that I created using Adobe Pro's Form Tools. The user enters all the appropriate information (ie, vendor, amount, business justification, etc.) and then it calculates all the expenses at the bottom.
I have added a box next to each line item to be checked by the user in the case that they have an expense with a missing receipt.
Is there a way to have a pre-existing missing receipt form, be added at the end of the expense report, each time the user marks one of these missing receipt check boxes?
If so, is there a way to have all the expense line item data automatically fill in the information on the added missing receipt form?
I am using Adobe Pro's Form tool rather than Livecycle because it is compatible with my IPAD.
Thanks,One word: Templates
For more information, see: page: http://livedocs.adobe.com/acrobat_sdk/9.1/Acrobat9_1_HTMLHelp/JS_Dev_Templates.80.1.html
Unfortunately, templates don't work with Reader either, unless the document is Reader-enabled with LiveCycle Reader Extensions. -
Hello all,
I have a flash form that has three checkboxes and some input
text boxes. My form uses a PHP script that works perfect for the
text but not the Check boxes. I'm not using the checkbox component,
I'm using a check box i got from flash kit. Below is the code for
the checkbox movie and my php code. What do I have to declare in
the my php file to have the check box work?
on (press) {
if (Number(CB_1) == 0) {
tellTarget ("checkbox1") {
gotoAndStop(2);
CB_1 = 1;
showstate1 = "yes";
} else {
tellTarget ("checkbox1") {
gotoAndStop(1);
CB_1 = 0;
showstate1 = "no";
This is my php code
<?
// Enter your contact email address here
$adminaddress = "[email protected]";
// Enter the address of your website here include
http://www.
$siteaddress ="www.mysite.com";
// Enter your company name or site name here
$sitename = "my site";
No need to change anything below unless you want to add or
subtract functions or change the wording of things sent back to the
flash file ...
// Gets the date and time from your server
$date = date("m/d/Y H:i:s");
// Gets the IP Address
if ($REMOTE_ADDR == "") $ip = "no ip";
else $ip = getHostByAddr($REMOTE_ADDR);
//Process the form data!
// and send the information collected in the Flash form to
Your nominated email address
if ($action != ""):
mail("$adminaddress","New User has Registered",
"A visitor at $sitename registered!\n
Personal Info
Name: $fname
Last Name: $lname
Address: $add
City: $city1
State: $state
Zip: $zip
Telephone: $tele
E-mail: $email
Recieve Free Book: $showstate1
Invitation to Seminar: $showstate2
Schedule Free Visit: $showstate3
Comments
$comment
Logged Info :
Using: $HTTP_USER_AGENT
Hostname: $ip
IP address: $REMOTE_ADDR
Date/Time: $date","FROM:$adminaddress");
//This sends a confirmation to your visitor
mail("$email","Thank You for visiting $sitename",
"Hi $fname,\n
We will process your request and send you a user name and
password within 48hrs.
Thank you for your registering at $sitename!\n
$sitename
$siteaddress","FROM:$adminaddress");
//Confirmation is sent back to the Flash form that the
process is complete
$sendresult = "Thank you for comments and questions. You will
receive a confirmation email shortly.";
$send_answer = "answer=";
$send_answer .= rawurlencode($sendresult);
echo "$send_answer";1. You have not posting anything to show how Flash is
communicating wit the
server PHP script and it a guess that the variable in the
checkbox is not
getting sent.
2. Code with tellTarget is old and will be completely
obsolete as you want
to migrate this to newer and newer features in Flash for the
future.
Lon Hosford
www.lonhosford.com
Flash, Actionscript and Flash Media Server examples:
http://flashexamples.hosfordusa.com
May many happy bits flow your way!
"Asesino" <[email protected]> wrote in
message
news:[email protected]...
> Hello all,
> I have a flash form that has three checkboxes and some
input text boxes.
> My
> form uses a PHP script that works perfect for the text
but not the Check
> boxes.
> I'm not using the checkbox component, I'm using a check
box i got from
> flash
> kit. Below is the code for the checkbox movie and my php
code. What do I
> have
> to declare in the my php file to have the check box
work?
>
> on (press) {
> if (Number(CB_1) == 0) {
> tellTarget ("checkbox1") {
> gotoAndStop(2);
> }
> CB_1 = 1;
> showstate1 = "yes";
> } else {
> tellTarget ("checkbox1") {
> gotoAndStop(1);
> }
> CB_1 = 0;
> showstate1 = "no";
> }
> }
>
>
> This is my php code
>
> <?
>
> // Enter your contact email address here
> $adminaddress = "[email protected]";
>
> // Enter the address of your website here include
http://www.
> $siteaddress ="www.mysite.com";
>
> // Enter your company name or site name here
> $sitename = "my site";
>
> /*******************************************************
>
> No need to change anything below unless you want to add
or subtract
> functions
> or change the wording of things sent back to the flash
file ...
>
> *******************************************************/
>
> // Gets the date and time from your server
> $date = date("m/d/Y H:i:s");
>
> // Gets the IP Address
> if ($REMOTE_ADDR == "") $ip = "no ip";
> else $ip = getHostByAddr($REMOTE_ADDR);
>
> //Process the form data!
> // and send the information collected in the Flash form
to Your nominated
> email address
> if ($action != ""):
> mail("$adminaddress","New User has Registered",
> "A visitor at $sitename registered!\n
> ---------------------------------------------
> Personal Info
> Name: $fname
> Last Name: $lname
> Address: $add
> City: $city1
> State: $state
> Zip: $zip
> Telephone: $tele
> E-mail: $email
> ---------------------------------------------
> Recieve Free Book: $showstate1
> Invitation to Seminar: $showstate2
> Schedule Free Visit: $showstate3
> ---------------------------------------------
> Comments
> $comment
>
> ------------------------------
>
> Logged Info :
> ------------------------------
> Using: $HTTP_USER_AGENT
> Hostname: $ip
> IP address: $REMOTE_ADDR
> Date/Time: $date","FROM:$adminaddress");
>
> //This sends a confirmation to your visitor
> mail("$email","Thank You for visiting $sitename",
> "Hi $fname,\n
> We will process your request and send you a user name
and password within
> 48hrs.
> Thank you for your registering at $sitename!\n
>
> $sitename
> $siteaddress","FROM:$adminaddress");
>
> //Confirmation is sent back to the Flash form that the
process is complete
> $sendresult = "Thank you for comments and questions. You
will receive a
> confirmation email shortly.";
> $send_answer = "answer=";
> $send_answer .= rawurlencode($sendresult);
> echo "$send_answer";
>
>
>
> -
Hello Frnds,
i need check box in my hierarchial alv list display.
i am produing my code.pls specify the changes.
*& Report ZCASE9_ORDERSLISTREPORT
REPORT ZCASE9_ORDERSLISTREPORT.
TYPE-POOLS: VRM,SLIS.
TABLES:VBAK,
VBAP,
VBKD,
VBEP,
KNA1,
VBPA,
MAKT,
VBUP,
TVBST.
TYPES:BEGIN OF ST_VBAK,
VBELN TYPE VBAK-VBELN,
ERDAT TYPE VBAK-ERDAT,
ERZET TYPE VBAK-ERZET,
ERNAM TYPE VBAK-ERNAM,
AUDAT TYPE VBAK-AUDAT,
LIFSK TYPE VBAK-LIFSK,
VDATU TYPE VBAK-VDATU,
VSBED TYPE VBAK-VSBED,
BSTNK TYPE VBAK-BSTNK,
BNAME TYPE VBAK-BNAME,
AEDAT TYPE VBAK-AEDAT,
END OF ST_VBAK,
BEGIN OF ST_VBAP,
VBELN1 TYPE VBAP-VBELN,
MATNR TYPE VBAP-MATNR,
CHARG TYPE VBAP-CHARG,
PSTYV TYPE VBAP-PSTYV,
ABGRU TYPE VBAP-ABGRU,
MEINS TYPE VBAP-MEINS,
VKAUS TYPE VBAP-VKAUS,
KWMENG TYPE VBAP-KWMENG,
LPRIO TYPE VBAP-LPRIO,
WERKS TYPE VBAP-WERKS,
LGORT TYPE VBAP-LGORT,
VSTEL TYPE VBAP-VSTEL,
ROUTE TYPE VBAP-ROUTE,
MVGR5 TYPE VBAP-MVGR5,
END OF ST_VBAP,
BEGIN OF ST_VBPA,
VBELN TYPE VBPA-VBELN,
KUNNR TYPE VBPA-KUNNR,
END OF ST_VBPA,
BEGIN OF ST_KNA1,
KUNNR TYPE KNA1-KUNNR,
NAME1 TYPE KNA1-NAME1,
TELF1 TYPE KNA1-TELF1,
END OF ST_KNA1,
BEGIN OF ST_MAKT,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF ST_MAKT,
BEGIN OF ST_VBEP,
VBELN TYPE VBEP-VBELN,
ETENR TYPE VBEP-ETENR,
WADAT TYPE VBEP-WADAT,
END OF ST_VBEP,
BEGIN OF ST_VBUP,
VBELN TYPE VBUP-VBELN,
LFSTA TYPE VBUP-LFSTA,
GBSTA TYPE VBUP-GBSTA,
END OF ST_VBUP,
begin of st_finalHDR,
VBELN TYPE VBAK-VBELN,
ERDAT TYPE VBAK-ERDAT,
ERZET TYPE VBAK-ERZET,
ERNAM TYPE VBAK-ERNAM,
AUDAT TYPE VBAK-AUDAT,
LIFSK TYPE VBAK-LIFSK,
VDATU TYPE VBAK-VDATU,
VSBED TYPE VBAK-VSBED,
BSTNK TYPE VBAK-BSTNK,
BNAME TYPE VBAK-BNAME,
AEDAT TYPE VBAK-AEDAT,
KUNNR TYPE VBPA-KUNNR,
NAME1 TYPE KNA1-NAME1,
TELF1 TYPE KNA1-TELF1,
end of st_finalHDR,
BEGIN OF ST_FINALTEM,
VBELN1 TYPE VBAP-VBELN,
LPRIO TYPE VBAP-LPRIO,
WERKS TYPE VBAP-WERKS,
LGORT TYPE VBAP-LGORT,
VSTEL TYPE VBAP-VSTEL,
ROUTE TYPE VBAP-ROUTE,
MVGR5 TYPE VBAP-MVGR5,
MATNR TYPE VBAP-MATNR,
CHARG TYPE VBAP-CHARG,
PSTYV TYPE VBAP-PSTYV,
ABGRU TYPE VBAP-ABGRU,
MEINS TYPE VBAP-MEINS,
VKAUS TYPE VBAP-VKAUS,
KWMENG TYPE VBAP-KWMENG,
MAKTX TYPE MAKT-MAKTX,
ETENR TYPE VBEP-ETENR,
WADAT TYPE VBEP-WADAT,
LFSTA TYPE VBUP-LFSTA,
GBSTA TYPE VBUP-GBSTA,
END OF ST_FINALTEM.
DATA:IT_VBAK TYPE STANDARD TABLE OF ST_VBAK,
IT_VBAP TYPE STANDARD TABLE OF ST_VBAP,
IT_VBPA TYPE STANDARD TABLE OF ST_VBPA,
IT_KNA1 TYPE STANDARD TABLE OF ST_KNA1,
IT_MAKT TYPE STANDARD TABLE OF ST_MAKT,
IT_VBEP TYPE STANDARD TABLE OF ST_VBEP,
IT_VBUP TYPE STANDARD TABLE OF ST_VBUP,
IT_FINALHDR TYPE STANDARD TABLE OF ST_FINALHDR,
IT_FINALTEM TYPE STANDARD TABLE OF ST_FINALTEM,
WA_VBAK TYPE ST_VBAK,
WA_VBAP TYPE ST_VBAP,
WA_VBPA TYPE ST_VBPA,
WA_KNA1 TYPE ST_KNA1,
WA_MAKT TYPE ST_MAKT,
WA_VBEP TYPE ST_VBEP,
WA_VBUP TYPE ST_VBUP,
WA_FINALHDR TYPE ST_FINALHDR,
WA_FINALTEM TYPE ST_FINALTEM.
DATA: NAME TYPE VRM_ID,
LIST TYPE VRM_VALUES,
VALUE LIKE LINE OF LIST,
REPID TYPE SY-REPID,
TY_KEYINFO TYPE SLIS_KEYINFO_ALV, " key information type.
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV, " field catalog type
IT_HEADER TYPE SLIS_TABNAME, " table to store header data
IT_ITEM TYPE SLIS_TABNAME. " table to store item data
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:OPEN_ORD RADIOBUTTON GROUP g1 DEFAULT 'X', " DOWNLOAD TO APPLICATION SERVER
ALL_ORD RADIOBUTTON GROUP g1,
MY_ORD AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS:PF(25) AS LISTBOX VISIBLE LENGTH 20, P_KUNNR TYPE VBAK-KUNNR,
P_MATNR TYPE VBAP-MATNR,
P_BSTNK TYPE VBAK-BSTNK.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS:S_AUDAT FOR VBAK-AUDAT,
S_VBELN FOR VBAK-VBELN,
S_AUART FOR VBAK-AUART,
S_LPRIO FOR VBAP-LPRIO,
S_PRSDT FOR VBKD-PRSDT,
S_WADAT FOR VBEP-WADAT,
S_VSBED FOR VBAK-VSBED,
S_EDATU FOR VBEP-EDATU,
S_LIFSK FOR VBAK-LIFSK,
S_ERNAM FOR VBAK-ERNAM.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS:S_VKORG FOR VBAK-VKORG,
S_VTWEG FOR VBAK-VTWEG,
S_SPART FOR VBAP-SPART,
S_VKGRP FOR VBAK-VKGRP,
S_VKBUR FOR VBAK-VKBUR,
S_WERKS FOR VBAP-WERKS.
SELECTION-SCREEN END OF BLOCK B4.
INITIALIZATION.
NAME = 'PF'.
VALUE-KEY = '1'.
VALUE-TEXT = 'SHIP TO'.
APPEND VALUE TO LIST.
NAME = 'PF'.
VALUE-KEY = '2'.
VALUE-TEXT = 'SOLD TO'.
APPEND VALUE TO LIST.
NAME = 'PF'.
VALUE-KEY = '3'.
VALUE-TEXT = 'BILL TO'.
APPEND VALUE TO LIST.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = NAME
VALUES = LIST.
REPID = SY-REPID. " variable having the program name
IT_HEADER = 'IT_FINALHDR'.
IT_ITEM = 'IT_FINALTEM'.
CLEAR TY_KEYINFO.
TY_KEYINFO-HEADER01 = 'VBELN'." comparing the keys and relating the header and item internal tables
TY_KEYINFO-ITEM01 = 'VBELN1'.
START-OF-SELECTION.
IF OPEN_ORD ='X'.
PERFORM RETRIEVE_VBAK.
PERFORM RETRIEVE_VBAP.
PERFORM RETRIEVE_VBPA.
PERFORM RETRIEVE_KNA1.
PERFORM RETRIEVE_MAKT.
PERFORM RETRIEVE_VBEP.
PERFORM RETRIEVE_VBUP1.
ELSE.
PERFORM RETRIEVE_VBAK.
PERFORM RETRIEVE_VBAP.
PERFORM RETRIEVE_VBPA.
PERFORM RETRIEVE_KNA1.
PERFORM RETRIEVE_MAKT.
PERFORM RETRIEVE_VBEP.
PERFORM RETRIEVE_VBUP.
ENDIF.
IF IT_VBAK IS NOT INITIAL.
LOOP AT IT_VBAK INTO WA_VBAK.
READ TABLE IT_VBAP INTO WA_VBAP WITH KEY VBELN1 = WA_VBAK-VBELN.
CHECK SY-SUBRC EQ 0.
READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_VBAP-VBELN1.
CHECK SY-SUBRC EQ 0.
READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_VBPA-KUNNR.
CHECK SY-SUBRC EQ 0.
READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_VBAP-MATNR.
CHECK SY-SUBRC EQ 0.
READ TABLE IT_VBEP INTO WA_VBEP WITH KEY VBELN = WA_VBAP-VBELN1.
CHECK SY-SUBRC EQ 0.
READ TABLE IT_VBUP INTO WA_VBUP WITH KEY VBELN = WA_VBAP-VBELN1.
CHECK SY-SUBRC EQ 0.
WA_FINALHDR-VBELN = WA_VBAK-VBELN.
WA_FINALHDR-ERNAM = WA_VBAK-ERNAM.
WA_FINALHDR-ERDAT = WA_VBAK-ERDAT.
WA_FINALHDR-ERZET = WA_VBAK-ERZET.
WA_FINALHDR-AEDAT = WA_VBAK-AEDAT.
WA_FINALHDR-AUDAT = WA_VBAK-AUDAT.
WA_FINALHDR-LIFSK = WA_VBAK-LIFSK.
WA_FINALHDR-VDATU = WA_VBAK-VDATU.
WA_FINALHDR-VSBED = WA_VBAK-VSBED.
WA_FINALHDR-BNAME = WA_VBAK-BNAME.
WA_FINALHDR-BSTNK = WA_VBAK-BSTNK.
WA_FINALHDR-TELF1 = WA_KNA1-TELF1.
WA_FINALHDR-NAME1 = WA_KNA1-NAME1.
WA_FINALHDR-KUNNR = WA_VBPA-KUNNR.
WA_FINALTEM-VBELN1 = WA_VBAP-VBELN1.
WA_FINALTEM-LPRIO = WA_VBAP-LPRIO.
WA_FINALTEM-MATNR = WA_VBAP-MATNR.
WA_FINALTEM-CHARG = WA_VBAP-CHARG.
WA_FINALTEM-MAKTX = WA_MAKT-MAKTX.
WA_FINALTEM-LGORT = WA_VBAP-LGORT.
WA_FINALTEM-MVGR5 = WA_VBAP-MVGR5.
WA_FINALTEM-ETENR = WA_VBEP-ETENR.
WA_FINALTEM-KWMENG = WA_VBAP-KWMENG.
WA_FINALTEM-GBSTA = WA_VBUP-GBSTA.
WA_FINALTEM-LFSTA = WA_VBUP-LFSTA.
WA_FINALTEM-VSTEL = WA_VBAP-VSTEL.
WA_FINALTEM-PSTYV = WA_VBAP-PSTYV.
WA_FINALTEM-ABGRU = WA_VBAP-ABGRU.
WA_FINALTEM-MEINS = WA_VBAP-MEINS.
WA_FINALTEM-VKAUS = WA_VBAP-VKAUS.
WA_FINALTEM-WERKS = WA_VBAP-WERKS.
WA_FINALTEM-ROUTE = WA_VBAP-ROUTE.
WA_FINALTEM-WADAT = WA_VBEP-WADAT.
APPEND WA_FINALHDR TO IT_FINALHDR.
APPEND WA_FINALTEM TO IT_FINALTEM.
ENDLOOP.
ENDIF.
SORT iT_FINALHDR.
DELETE ADJACENT DUPLICATES FROM iT_FINALHDR COMPARING ALL FIELDS.
SORT iT_FINALTEM.
DELETE ADJACENT DUPLICATES FROM iT_FINALTEM COMPARING ALL FIELDS.
*wa_fieldcat-d = 'X'.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC NO'.
WA_FIELDCAT-COL_POS = 1.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERNAM'.
WA_FIELDCAT-SELTEXT_L = 'CREATED BY'.
WA_FIELDCAT-COL_POS = 2.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERDAT'.
WA_FIELDCAT-SELTEXT_L = 'CREATED ON'.
WA_FIELDCAT-COL_POS = 3.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'ERZET'.
WA_FIELDCAT-SELTEXT_L = 'CREATED TIME'.
WA_FIELDCAT-COL_POS = 4.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_L = 'CHANGED ON'.
WA_FIELDCAT-COL_POS = 5.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'AUDAT'.
WA_FIELDCAT-SELTEXT_L = 'DOCUMENT DATE'.
WA_FIELDCAT-COL_POS = 6.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'LIFSK'.
WA_FIELDCAT-SELTEXT_L = 'DELIVERY BLOCK'.
WA_FIELDCAT-COL_POS = 7.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VDATU'.
WA_FIELDCAT-SELTEXT_L = 'REQ DEL. DATE'.
WA_FIELDCAT-COL_POS = 8.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'VSBED'.
WA_FIELDCAT-SELTEXT_L = 'SHIPPING CONDITION'.
WA_FIELDCAT-COL_POS = 9.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'BNAME'.
WA_FIELDCAT-SELTEXT_L = 'NAME OF THE ORDERER'.
WA_FIELDCAT-COL_POS = 10.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'TELF1'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY TELEPHONE'.
WA_FIELDCAT-COL_POS = 11.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'BSTNK'.
WA_FIELDCAT-SELTEXT_L = 'PURCHASE ORDER NO'.
WA_FIELDCAT-COL_POS = 12.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'KUNNR'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY'.
WA_FIELDCAT-COL_POS = 13.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALHDR'.
WA_FIELDCAT-FIELDNAME = 'NAME1'.
WA_FIELDCAT-SELTEXT_L = 'SHIP 2 PARTY NAME'.
WA_FIELDCAT-COL_POS = 14.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VBELN1'.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LPRIO'.
WA_FIELDCAT-SELTEXT_L = 'DEL. PRIORITY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'CHARG'.
WA_FIELDCAT-SELTEXT_L = 'BATCH'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
WA_FIELDCAT-SELTEXT_L = 'MAT DESC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LGORT'.
WA_FIELDCAT-SELTEXT_L = 'STORAGE LOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MVGR5'.
WA_FIELDCAT-SELTEXT_L = 'MAT GROUP'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ETENR'.
WA_FIELDCAT-SELTEXT_L = 'SCHED LINE NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'KWMENG'.
WA_FIELDCAT-SELTEXT_L = 'ORD QUANTITY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'GBSTA'.
WA_FIELDCAT-SELTEXT_L = 'OVERALL STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'LFSTA'.
WA_FIELDCAT-SELTEXT_L = 'DEL. STATUS'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VSTEL'.
WA_FIELDCAT-SELTEXT_L = 'SHIPPING POINT'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'PSTYV'.
WA_FIELDCAT-SELTEXT_L = 'ITEM CATEGORY'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ABGRU'.
WA_FIELDCAT-SELTEXT_L = 'REASON 4 REJECTION'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_L = 'BASE UOM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'VKAUS'.
WA_FIELDCAT-SELTEXT_L = 'USAGE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'WERKS'.
WA_FIELDCAT-SELTEXT_L = 'PLANT'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'ROUTE'.
WA_FIELDCAT-SELTEXT_L = 'ROUTE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_FINALTEM'.
WA_FIELDCAT-FIELDNAME = 'WADAT'.
WA_FIELDCAT-SELTEXT_L = 'GOODS ISSUE DATE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = IT_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
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 = IT_FINALHDR
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.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_CALLBACK_PROGRAM = REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IS_LAYOUT =
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
i_tabname_header = IT_HEADER
i_tabname_item = IT_ITEM
I_STRUCTURE_NAME_HEADER =
I_STRUCTURE_NAME_ITEM =
is_keyinfo = TY_KEYINFO
IS_PRINT =
IS_REPREP_ID =
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
IR_SALV_HIERSEQ_ADAPTER =
IT_EXCEPT_QINFO =
I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
tables
t_outtab_header = IT_FINALHDR
t_outtab_item = IT_FINALTEM.
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.
*& Form RETRIEVE_VBAK
text
--> p1 text
<-- p2 text
form RETRIEVE_VBAK .
SELECT VBELN
ERDAT
ERZET
ERNAM
AUDAT
LIFSK
VDATU
VSBED
BSTNK
BNAME
AEDAT INTO TABLE IT_VBAK FROM VBAK WHERE VBELN IN S_VBELN AND
ERNAM IN S_ERNAM AND
AUDAT IN S_AUDAT AND
AUART IN S_AUART AND
LIFSK IN S_LIFSK AND
VKORG IN S_VKORG AND
VTWEG IN S_VTWEG AND
VSBED IN S_VSBED AND
VKGRP IN S_VKGRP AND
VKBUR IN S_VKBUR.
IF SY-SUBRC NE 0.
MESSAGE E099(ZMMCASE) WITH 'NO VBAK HDR DATA FOUND'.
ENDIF.
endform. " RETRIEVE_VBAK
*& Form RETRIEVE_VBAP
text
--> p1 text
<-- p2 text
form RETRIEVE_VBAP .
SELECT VBELN
MATNR
CHARG
PSTYV
ABGRU
MEINS
VKAUS
KWMENG
LPRIO
WERKS
LGORT
VSTEL
ROUTE
MVGR5 INTO TABLE IT_VBAP FROM VBAP
FOR ALL ENTRIES IN IT_VBAK
WHERE VBELN = IT_VBAK-VBELN AND
SPART IN S_SPART AND
LPRIO IN S_LPRIO.
IF SY-SUBRC NE 0.
MESSAGE E098(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBAP'.
ENDIF.
endform. " RETRIEVE_VBAP
*& Form RETRIEVE_VBPA
text
--> p1 text
<-- p2 text
form RETRIEVE_VBPA .
SELECT VBELN
KUNNR INTO TABLE IT_VBPA FROM VBPA
FOR ALL ENTRIES IN IT_VBAP
WHERE VBELN = IT_VBAP-VBELN1.
IF SY-SUBRC NE 0.
MESSAGE E097(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBPA'.
ENDIF.
endform. " RETRIEVE_VBPA
*& Form RETRIEVE_KNA1
text
--> p1 text
<-- p2 text
form RETRIEVE_KNA1 .
SELECT KUNNR
NAME1
TELF1 INTO TABLE IT_KNA1 FROM KNA1
FOR ALL ENTRIES IN IT_VBPA
WHERE KUNNR = IT_VBPA-KUNNR.
IF SY-SUBRC NE 0.
MESSAGE E096(ZMMCASE) WITH 'NO DATA FOUND IN TABLE KNA1'.
ENDIF.
endform. " RETRIEVE_KNA1
*& Form RETRIEVE_MAKT
text
--> p1 text
<-- p2 text
form RETRIEVE_MAKT .
SELECT MATNR
MAKTX INTO TABLE IT_MAKT FROM MAKT
FOR ALL ENTRIES IN IT_VBAP
WHERE MATNR = IT_VBAP-MATNR.
IF SY-SUBRC NE 0.
MESSAGE E095(ZMMCASE) WITH 'NO DATA FOUND IN TABLE MAKT'.
ENDIF.
endform. " RETRIEVE_MAKT
*& Form RETRIEVE_VBEP
text
--> p1 text
<-- p2 text
form RETRIEVE_VBEP .
SELECT VBELN
ETENR
WADAT INTO TABLE IT_VBEP FROM VBEP
FOR ALL ENTRIES IN IT_VBAP
WHERE VBELN = IT_VBAP-VBELN1 AND
EDATU IN S_EDATU AND
WADAT IN S_WADAT.
IF SY-SUBRC NE 0.
MESSAGE E094(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBEP'.
ENDIF.
endform. " RETRIEVE_VBEP
*& Form RETRIEVE_VBUP
text
--> p1 text
<-- p2 text
form RETRIEVE_VBUP .
SELECT VBELN
LFSTA
GBSTA INTO TABLE IT_VBUP FROM VBUP
FOR ALL ENTRIES IN IT_VBAP
WHERE VBELN = IT_VBAP-VBELN1.
IF SY-SUBRC NE 0.
MESSAGE E093(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBUP'.
ENDIF.
endform. " RETRIEVE_VBUP
*& Form RETRIEVE_VBUP1
text
--> p1 text
<-- p2 text
form RETRIEVE_VBUP1 .
SELECT A~VBELN
A~LFSTA
AGBSTA FROM VBUP AS A INNER JOIN VBAP AS B ON AVBELN = B~VBELN INTO TABLE IT_VBUP
FOR ALL ENTRIES IN IT_VBAP
WHERE A~VBELN = IT_VBAP-VBELN1 AND
GBSTA IN ('A','B').
IF SY-SUBRC NE 0.
MESSAGE E093(ZMMCASE) WITH 'NO DATA FOUND IN TABLE VBUP'.
ENDIF.
endform. " RETRIEVE_VBUP1Hi yes you can perform some action on that by useing that check boxes
by creating some pushbuttons in SE41 PF-STATUS
In order modify PF_STATUS of ALV grid report you need to perform the following steps:
1. Update 'REUSE_ALV_GRID_DISPLAY' FM call to include:
i_callback_pf_status_set = 'SET_PF_STATUS' statement.
2. Create 'SET_PF_STATUS' FORM
3. Create pf_status (i.e. 'ZNEWSTATUS').
- It is recommend that you copy standard status'STANDARD' from function group SALV and modify it accordingly. ALV standard function codes always start with '&'.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE'
i_callback_pf_status_set = 'SET_PF_STATUS' "see FORM
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
i_save = 'X'
tables
t_outtab = it_ekko
exceptions
program_error = 1
others = 2.
FORM SET_PF_STATUS *
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZNEWSTATUS'.
"Copy of 'STANDARD' pf_status from fgroup SALV
ENDFORM.
exmple2
This example shows how to use checkboxes within an ALV Grid Control. You learn:
(1) how to define a column for editable checkboxes for an attribute of your list
(2) how to evaluate the checked checkboxes
(3) how to switch between editable and non-editable checkboxes
program bcalv_edit_05.
Purpose:
~~~~~~~~
This example shows how to use checkboxes within an ALV Grid Control.
You learn:
o how to define a column for editable checkboxes for an attribute
of your list (see also remark below)
o how to evaluate the checked checkboxes
o how to switch between editable and non-editable checkboxes
Important Remark
~~~~~~~~~~~~~~~~
The checkbox functionality has been replaced by selection buttons
in front of each row (field SEL_MODE of the layout structure
set to 'A' or 'D'; when using the editable ALV Grid Control,
these selection buttons are always visible).
Class methods like GET_SELECTED_ROWS work only for this new
functionality and not for checkboxes.
Thus checkboxes should not be used for line selection but for
a column as an additional or for an already existing attribute
(like field SMOKER in SBOOK).
To check program behavior
~~~~~~~~~~~~~~~~~~~~~~~~~
Try out the functions displayed in the application toolbar:
o The first sets all checked lines to initial values.
(see form reset_selected_entries)
o The seconds marks all checkboxes that are input enabled
o The third unmarks all checkboxes that are input enabled
o To try the forth, you have to select a line first using
the selection buttons on the left.
The function deactivates/activates a checkbox.
Checkboxes may be locked/unlocked using a double click on the
checkbox cell.
Essential steps (search for '§')
~~~~~~~~~~~~~~~
This example focusses on two aspects of checkboxes in an
editable ALV Grid Control:
A How to integrate, set, reset and evaluate checkboxes
B What you must do to lock particular checkboxes against input
A) Integrate, set, reset and evaluate checkboxes
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
A1.Extend your output table by a checkbox field.
A2.Add an entry for the checkbox in the fieldcatalog
A3.Optionally, check checkboxes initially after selecting data.
A4.Before you (a)set, (b)reset, (c)(de)activate or
(d)evaluate checkboxes, you must check the input cells.
B) Lock particular checkboxes against input
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
B1.Extend your output table by a field to dis- or enable
cells for input.
B2.After selecting data,
assign a style for each row of your checkbox column.
B3.Use the layout structure to aquaint additional field to ALV.
B4.Switch the style to dis- or enable a cell for input
class lcl_event_receiver definition deferred. "for event handling
data: ok_code like sy-ucomm,
save_ok like sy-ucomm,
g_container type scrfname value 'BCALV_GRID_DEMO_0100_CONT1',
g_grid type ref to cl_gui_alv_grid,
g_custom_container type ref to cl_gui_custom_container,
g_event_receiver type ref to lcl_event_receiver,
gt_fieldcat type lvc_t_fcat,
gs_layout type lvc_s_layo,
g_max type i value 100.
*§A1.Extend your output table by a checkbox field.
If you do not want to lock sole checkboxes against input
you do not need field 'celltab'.
types: begin of gs_outtab.
types: checkbox type c. "field for checkbox
§B1.Extend your output table by a field to dis- or enable
cells for input.
types: celltab type lvc_t_styl. "field to switch editability
include structure sflight.
types: end of gs_outtab.
data: gt_outtab type gs_outtab occurs 0 with header line.
LOCAL CLASSES
This local class only handles event DOUBLE_CLICK.
Wenn the user double clicks on a checkbox cell the status of
this cell is switched from editable to not editable and vice versa.
class lcl_event_receiver definition.
public section.
methods: catch_doubleclick
for event double_click of cl_gui_alv_grid
importing
e_column
es_row_no
sender.
endclass.
class lcl_event_receiver implementation.
method catch_doubleclick.
data: ls_outtab type gs_outtab,
ls_celltab type lvc_s_styl.
Function:
Switch between 'editable' and 'not editable' checkbox.
If the user clicked on another column there is
nothing to do.
if e_column-fieldname ne 'CHECKBOX'.
exit.
endif.
read table gt_outtab into ls_outtab index es_row_no-row_id.
The loop is only needed if there are other columns that
use checkboxes. At this point the loop could be
replaced by a READ of the first line of CELLTAB.
loop at ls_outtab-celltab into ls_celltab.
if ls_celltab-fieldname eq 'CHECKBOX'.
§B4.Switch the style to dis- or enable a cell for input
if ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
ls_celltab-style = cl_gui_alv_grid=>mc_style_disabled.
else.
ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
endif.
modify ls_outtab-celltab from ls_celltab.
endif.
endloop.
modify gt_outtab from ls_outtab index es_row_no-row_id.
call method sender->refresh_table_display.
endmethod.
endclass.
MAIN *
end-of-selection.
call screen 100.
MODULE PBO OUTPUT *
module pbo output.
set pf-status 'MAIN100'.
set titlebar 'MAIN100'.
if g_custom_container is initial.
perform create_and_init_alv.
endif.
endmodule.
MODULE PAI INPUT *
module pai input.
save_ok = ok_code.
clear ok_code.
case save_ok.
when 'EXIT'.
perform exit_program.
when 'SELECT'.
perform select_all_entries changing gt_outtab[].
when 'DESELECT'.
perform deselect_all_entries changing gt_outtab[].
when 'RESET'.
perform reset_selected_entries changing gt_outtab[].
when 'SWITCH'.
perform switch_activation changing gt_outtab[].
endcase.
endmodule.
FORM EXIT_PROGRAM *
form exit_program.
leave program.
endform.
*& Form BUILD_FIELDCAT
text
<--P_GT_FIELDCAT text
form build_fieldcat changing pt_fieldcat type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.
call function 'LVC_FIELDCATALOG_MERGE'
exporting
i_structure_name = 'SFLIGHT'
changing
ct_fieldcat = pt_fieldcat.
*§A2.Add an entry for the checkbox in the fieldcatalog
clear ls_fcat.
ls_fcat-fieldname = 'CHECKBOX'.
Essential: declare field as checkbox and
mark it as editable field:
ls_fcat-checkbox = 'X'.
ls_fcat-edit = 'X'.
do not forget to provide texts for this extra field
ls_fcat-coltext = text-f01.
ls_fcat-tooltip = text-f02.
ls_fcat-seltext = text-f03.
optional: set column width
ls_fcat-outputlen = 10.
append ls_fcat to pt_fieldcat.
endform.
*& Form CREATE_AND_INIT_ALV
text
<--P_GT_OUTTAB text
<--P_GT_FIELDCAT text
<--P_GS_LAYOUT text
form create_and_init_alv.
data: lt_exclude type ui_functions.
create object g_custom_container
exporting container_name = g_container.
create object g_grid
exporting i_parent = g_custom_container.
perform build_fieldcat changing gt_fieldcat.
Exclude all edit functions in this example since we do not need them:
perform exclude_tb_functions changing lt_exclude.
perform build_data.
*§ B3.Use the layout structure to aquaint additional field to ALV.
gs_layout-stylefname = 'CELLTAB'.
call method g_grid->set_table_for_first_display
exporting is_layout = gs_layout
it_toolbar_excluding = lt_exclude
changing it_fieldcatalog = gt_fieldcat
it_outtab = gt_outtab[].
create object g_event_receiver.
set handler g_event_receiver->catch_doubleclick for g_grid.
Set editable cells to ready for input initially
call method g_grid->set_ready_for_input
exporting
i_ready_for_input = 1.
endform. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
text
<--P_LT_EXCLUDE text
form exclude_tb_functions changing pt_exclude type ui_functions.
data ls_exclude type ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_delete_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_append_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_insert_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_move_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_copy.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_cut.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_paste_new_row.
append ls_exclude to pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_loc_undo.
append ls_exclude to pt_exclude.
endform. " EXCLUDE_TB_FUNCTIONS
*& Form build_data
text
--> p1 text
<-- p2 text
form build_data.
data: lt_sflight type table of sflight,
ls_sflight type sflight,
ls_celltab type lvc_s_styl,
lt_celltab type lvc_t_styl,
l_index type i.
select * from sflight into table lt_sflight up to g_max rows.
if sy-subrc ne 0.
generate own entries if db-table is empty so that this example
still works
perform generate_entries changing lt_sflight.
endif.
*§A3.Optionally, check checkboxes initially after selecting data.
(Omitted in this example)
loop at lt_sflight into ls_sflight.
move-corresponding ls_sflight to gt_outtab.
if gt_outtab-connid eq '400'.
gt_outtab-checkbox = 'X'.
endif.
append gt_outtab.
endloop.
§B2.After selecting data,
assign a style for each row of your checkbox column.
Initially, set all checkbox cells editable.
ls_celltab-fieldname = 'CHECKBOX'.
ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
loop at gt_outtab.
l_index = sy-tabix.
refresh lt_celltab.
ls_celltab-fieldname = 'CHECKBOX'.
ls_celltab-style = cl_gui_alv_grid=>mc_style_enabled.
insert ls_celltab into table lt_celltab.
insert lines of lt_celltab into table gt_outtab-celltab.
modify gt_outtab index l_index.
endloop.
endform. " build_data
*& Form generate_entries
text
<--P_LT_SLFIGHT text
form generate_entries changing pt_slfight type standard table.
This form is only needed for the case that there is no
data in database table SFLIGHT.
data: ls_sflight type sflight,
l_month(2) type c,
l_day(2) type c,
l_date(8) type c.
ls_sflight-carrid = 'LH'.
ls_sflight-connid = '0400'.
ls_sflight-currency = 'DEM'.
ls_sflight-planetype = '747-400'.
ls_sflight-seatsmax = 660.
do 110 times.
ls_sflight-price = sy-index * 100.
ls_sflight-seatsocc = 660 - sy-index * 6.
ls_sflight-paymentsum = ls_sflight-seatsocc * ls_sflight-price.
l_month = sy-index / 10 + 1.
do 2 times.
l_day = l_month + sy-index * 2.
l_date+0(4) = '2000'.
l_date4(2) = l_month0(2).
l_date6(2) = l_day0(2).
ls_sflight-fldate = l_date.
append ls_sflight to pt_slfight.
enddo.
enddo.
endform. " generate_entries
*& Form select_all_entries
text
<--P_GT_OUTTAB text
form select_all_entries changing pt_outtab type standard table.
data: ls_outtab type gs_outtab.
data: l_valid type c,
l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
call method g_grid->check_changed_data
importing
e_valid = l_valid.
if l_valid eq 'X'.
loop at pt_outtab into ls_outtab.
perform check_lock using ls_outtab
changing l_locked.
if l_locked is initial
and not ls_outtab-checkbox eq '-'.
ls_outtab-checkbox = 'X'.
endif.
modify pt_outtab from ls_outtab.
endloop.
call method g_grid->refresh_table_display.
endif.
endform. " select_all_entries
*& Form deselect_all_entries
text
<--P_GT_OUTTAB[] text
form deselect_all_entries changing pt_outtab type standard table.
data: ls_outtab type gs_outtab.
data: l_valid type c,
l_locked type c.
*§A4ad. Before you (a)set, reset or (d)evaluate checkboxes,
you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
call method g_grid->check_changed_data
importing
e_valid = l_valid.
if l_valid eq 'X'.
loop at pt_outtab into ls_outtab.
perform check_lock using ls_outtab
changing l_locked.
if l_locked is initial
and not ls_outtab-checkbox eq '-'.
ls_outtab-checkbox = ' '.
endif.
modify pt_outtab from ls_outtab.
endloop.
call method g_grid->refresh_table_display.
endif.
endform. " deselect_all_entries
*& Form reset_selected_entries
text
<--P_GT_OUTTAB[] text
form reset_selected_entries changing pt_outtab type standard table.
data: ls_outtab type gs_outtab.
data: l_valid type c.
*§A4b. Before you set, (b)reset or evaluate checkboxes,
you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
call method g_grid->check_changed_data
importing
e_valid = l_valid.
if l_valid eq 'X'.
loop at pt_outtab into ls_outtab.
if not ls_outtab-checkbox is initial
and not ls_outtab-checkbox eq '-'.
clear ls_outtab.
modify pt_outtab from ls_outtab.
endif.
endloop.
call method g_grid->refresh_table_display.
endif.
endform. " reset_selected_entries
form switch_activation changing pt_outtab type standard table.
data: ls_outtab type gs_outtab.
data: l_valid type c,
lt_row_no type lvc_t_roid with header line.
*§A4c. Before you set, reset, (c)(de)activate
or evaluate checkboxes, you must check the input cells.
If all entries are ok, ALV transferes new values to the output
table which you then can modify.
call method g_grid->check_changed_data
importing
e_valid = l_valid.
if l_valid eq 'X'.
call method g_grid->get_selected_rows
importing
et_row_no = lt_row_no[].
loop at lt_row_no.
read table pt_outtab into ls_outtab index lt_row_no-row_id.
if ls_outtab-checkbox ne '-'.
ls_outtab-checkbox = '-'.
else.
ls_outtab-checkbox = ' '.
endif.
modify pt_outtab from ls_outtab index lt_row_no-row_id.
endloop.
call method g_grid->refresh_table_display.
endif.
endform. " switch_activation
*& Form check_lock
text
-->P_LS_OUTTAB text
<--P_L_LOCKED text
form check_lock using ps_outtab type gs_outtab
changing p_locked.
data ls_celltab type lvc_s_styl.
loop at ps_outtab-celltab into ls_celltab.
if ls_celltab-fieldname = 'CHECKBOX'.
if ls_celltab-style eq cl_gui_alv_grid=>mc_style_disabled.
p_locked = 'X'.
else.
p_locked = space.
endif.
endif.
endloop.
endform. " check_lock -
Check box - text at the bottom of the check box
Hi Apex folks,
I came across a different requirement where as i need to place the check box text in break line at the bottom of the check box. Say I have a check box item X . which having following items
STATIC:
A - I am good;1
B - I am ok ;2
C- I am bad;3
D- I am confused;4
I have to display the text in the bottom of the check box and the text like "A" at the first line and " I am good" at the second line . Is there any possibility to achieve that.
Thanks
KarthikKarthik C wrote:
I came across a different requirement where as i need to place the check box text in break line at the bottom of the check box. Say I have a check box item X . which having following items
STATIC:
A - I am good;1
B - I am ok ;2
C- I am bad;3
D- I am confused;4
I have to display the text in the bottom of the check box and the text like "A" at the first line and " I am good" at the second line . Is there any possibility to achieve that.I have to pick option D...
Do you mean like this?
[ ] [ ] [ ] [X]
A B C D
I am good I am OK I am bad I am confusedIf so, why? If not, show us the required layout.
Help us to help you. When you have a problem you should provide as much relevant information as possible upfront. This should include:
<li>Full APEX version
<li>Full DB/version/edition/host OS
<li>Web server architecture (EPG, OHS or APEX listener/host OS)
<li>Browser(s) and version(s) used
<li>Theme
<li>Template(s)
<li>Region/item type(s) (making particular distinction as to whether a "report" is a standard report, an interactive report, or in fact an "updateable report" (i.e. a tabular form)
With APEX we're also fortunate to have a great resource in apex.oracle.com where we can reproduce and share problems. Reproducing things there is the best way to troubleshoot most issues, especially those relating to layout and visual formatting. If you expect a detailed answer then it's appropriate for you to take on a significant part of the effort by getting as far as possible with an example of the problem on apex.oracle.com before asking for assistance with specific issues, which we can then see at first hand. -
Disable Create Serial No. automatically Check box in MIGO
Hi,
I have a problem where in I need to disable Create Serial No. automatically check box in MIGO while posting GRN. And I could not do anything with the profile of the serial nr in t-code OIS2.
You can give me some information that help in this question.
Thanks in advance.
RameshHi,
Thanks for ur answer Sheshu.
Sorry for the delay.
I have created screen variant for that Serial number tab sub screen and assigned Output only option for that check box. Thn i created a transaction variant and assigned that Screen variant to it. At last i assigned and activated that Transaction variant to Standard Variant of MIGO. All these are done in SHD0 tcode. -
Single or multiple check box values displayed in a textbox
Hi Experts!
I'm using the following script to display the values of check boxes in a text field. I would like the word "and" to separate the values if two check boxes are selected. If more than two boxes are selected I want the values to be separated by a comma and then the last value be separated by "and". Example of two check boxes selected: A and B. Example of two or more: A, B, C, and D. Can this be done?
form1.page1.page1SF.programs::calculate - (JavaScript, client)
//displays the values of check boxes named programCB
var aChkBx = [];
var vChecks = programCB.all;
for (var a=0; a<vChecks.length;a++){
if(!vChecks.item(a).isNull) {
aChkBx.push(vChecks.item(a).rawValue);
this.rawValue = aChkBx.join(", ");So, the way I see it, you actually have four scenarios. Nothing is checked, one item is checked, two items are checked, and three or more items are checked.
Here's how I did it.
I have four checkboxes all with the same name, cb. (You could have many more, and it wouldn't matter as long as they're all named the same thing.) I'm presuming that you will use the captions from the checkboxes as the text you want to enter. I called my text area where I enter the information tfSentence. (It's not a text field, it's just called "Text" in the Object Library.)
//we need to count how many boxes are checked
var checked = 0;
for (i=0; i<=cb.length; i++){
if (xfa.resolveNode("cb["+i+"]").rawValue == 1) checked ++;
//create a string variable to store our sentence
var str = "";
//look at the checked variable and choose our case from that
switch(checked){
case 0:
//you may want to do more than just type out a sentence here, like a message box
tfSentence.rawValue = "Nothing was selected";
break;
case 1:
//you can set text that will appear before your list of items here
//str = "preliminary text";
for (i=0; i<=cb.length; i++){
if (xfa.resolveNode("cb["+i+"]").rawValue == 1) str += xfa.resolveNode("cb["+i+"].caption.value.#text").value;
//you can set text to appear after your list of items here
//str += "ending text";
tfSentence.rawValue = str;
break;
case 2:
//str = "preliminary text";
for (i=0; i<=cb.length; i++){
if (xfa.resolveNode("cb["+i+"]").rawValue == 1){
if (checked == 1) str += " and " + xfa.resolveNode("cb["+i+"].caption.value.#text").value;
else str += xfa.resolveNode("cb[+i+"].caption.value.#text").value;
checked--;
//str+= "ending text";
tfSentence.rawValue = str;
break;
default:
//str = "preliminary text";
for (i=0; i<=cb.length; i++){
if (xfa.resolveNode("cb["+i+"]").rawValue == 1){
if (checked == 1) str += "and " + xfa.resolveNode("cb["+i+"].caption.value.#text").value;
else str += xfa.resolveNode("cb["+i+"].caption.value.#text").value + ", ";
checked--;
//str += "ending text";
tfSentence.rawValue = str;
break
Maybe you are looking for
-
Invoking a Webservice using a SOAP adapter
Hi, I have the following scenario. SAP ABAP outbound proxy <-> SAP XI <--> External webservice. The above call is a synchronous call from SAP R/3 and a receiver soap adapter is configured for the Webservice. I am getting the following error mes
-
How do you change the color of the sign and fill text to the color blue
How do you change the color of the sign and fill text to the color blue in a pdf document
-
Security Update 2009-004 & Mail software
Hi since installing the above update Entourage 2004 (11.4.0) is not connected to the exchange sever, yet all other network setting have the green light. Can anybody help out or even advise if it is possible to reverse the security update (assuming th
-
Hello Group, I ´m currently working on the follwing szenario in XI (NW2004, SP19): Via the jdbc adapter I send a sql statement to a database (db1) and get the response. This works fine. Because it´s a very important request, I have a second database
-
Now that Acrobat and Reader 8.1 are available you may be wondering: "Does the Mars plug-in work with them"? The answer is no, the posted Mars plugins work only with the 8.0 version of Adobe Acrobat and Reader. A new version of the Mars plugin that wo