Select all check box in interactve report

Hi,
I am writing an interactive report. The second screen will display the check box for thye user to select the items.
Now the requrement is to create an option like select all means it should select all the check boxes.
How can I create this option of select all.
Thanks.

Hi,
Please check this example.
<
REPORT Z_TEST NO STANDARD PAGE HEADING.
DATA: t_flag TYPE STANDARD TABLE OF xfeld,
      s_flag TYPE xfeld.
START-OF-SELECTION.
DO 10 TIMES.
    WRITE:/ s_flag AS CHECKBOX,
           sy-index.
    APPEND s_flag TO t_flag.
    HIDE s_flag.
ENDDO.
AT LINE-SELECTION.
LOOP AT t_flag INTO s_flag.
    s_flag = 'X'.
    MODIFY LINE sy-tabix LINE VALUE FROM s_flag.
ENDLOOP.
Thanks
Naren

Similar Messages

Re- Single click in the check box ensure to select all check boxes

Hi All,
I have an issue to notify the urgency of the cart to the buyer while creating the cart.For that scenario we have a check box in the Basic data of shopping cart.I added the check box in the basic data. Now the quote check box is available for all the line items.
The requestor can select any check box in any line items,so whenever he selects the check box- automatically all the check box should get selected , if any of the check box get deselected then imediatelely all the check box in different line items also should get deselected.

Hi Batchu,
Thanks for your reply, See if you add any custom field it will come one by one in the basic data section. Adding one more check box doesnot work for this case.
Moreover the problem is change to any particular line item can be captured in DOC_CHANGE_BADI but i cannot bring the same change to all line items (ie) If 3 rd line item check box is marked then immediately rest of the line item also should get marked.
In the case of DOC_CHECK_BADI to identify the line on which the change happens is tough.
SO thats is the problem for me to bring the logic in the code.
Please if any one come across similar kind of issue please give your suggestion.
Thanks,
Sibi

Select all check box at some time

Hi all,
I have a search display .jsp page, which have some checked box, allow the users to check the box and download data from database, righr now the use need to checked the checked the box one by one,
bu tthey want to add other button, which allow them to select all the checked box by click the box, not ideal how to handle.
any advise

Hi ,
thank you for the reply,
I finally have time to finish this part
the code is <script language="JavaScript" type="text/javascript">
function checkAll(field)
for (i = 0; i < field.length; i++)
field.checked = true ;
function uncheckAll(field)
for (i = 0; i < field.length; i++)
field[i].checked = false ;
<input type="button" name="b1" value="Check All" onClick="checkAll(document.form1.mybox)">
<input type="button" name="b12" value="Uncheck All" onClick="uncheckAll(document.form1.mybox)">
</form>
</script>

Select all check boxes in alv

hi,
the first column of my alv grid display is check boxes. i want all the check boxes to be checked when the user clicks on the select all button present on the grid.it very urgently required.plz give me the code.
thanks & regards,
santosh

Hi santosh nayak ,
on the action method of select all button, read the the whole alv. Set the value of the first field as abap_true. Bind the itab back to the node.
Regards
Sarath

Check box in classical report

Hi all,
I have developed one classical report, in that we have check boxes.
My requirement is, I want to add button in my pf status, so that user can select all check boxes in one click.
Please advise me how to do this, I have checked in lot of ways but I didnu2019t get the syntax.
Here my check box is not a field of internal table.
Regards,
Sreenu.

hi,
See the below pseudo code, hope it helps you.
data : checkbox.
END-OF-SELECTION.
SET PF-STATUS 'ZSTATUS'.
LOOP AT it INTO wa.
"this is to display checkbox on basic list
.    WRITE : /5 checkbox AS CHECKBOX ,
            10 wa_-matnr COLOR 3,
            25 wa_-charg COLOR 1,
            36 wa_-clabs ,
            55 wa_-vfdat COLOR 1.
    HIDE wa.
ENDLOOP.
CLEAR sy-ucomm.
AT USER-COMMAND.
CASE sy-ucomm.
******************for select all button
    WHEN '&ALL'.
      DO .
" READ THE RECORD FROM THE LIST DEPEND ON VALUE OF THE CHECKBOX
        READ LINE sy-index FIELD VALUE checkbox.
        IF sy-subrc <> 0.
          EXIT.
        ELSE.
          IF checkbox = ' '.
            checkbox = 'X'.
          ENDIF.
"BLANK CHECKBOX FILLED WITH CHECK SYMBOL
          MODIFY LINE sy-index FIELD VALUE checkbox FROM checkbox.
        ENDIF.
      ENDDO.
*****************for deselectall button
    WHEN '&SAL'.
      DO .
        READ LINE sy-index FIELD VALUE checkbox.
        IF sy-subrc <> 0.
          EXIT.
        ELSE.
          IF checkbox = 'X'.
            checkbox = ' '.
"CHECK CHECKBOX REPLACED WITH EMPTY
            MODIFY LINE sy-index FIELD VALUE checkbox FROM checkbox. CHECKBOX
         ENDIF.
        ENDIF.
      ENDDO.

Select all tick boxes

I have a cfoutput query which shows the folowoing
Group 1
"Check box" "John Smith"
"Check box" "Paul John"
"Check box" "Jeff Small"
Group 2
"Check box" "Craig Land"
"Check box" "Pete Son"
"Check box" "Pete smoth"
so what i want next to each "Group" have a select all Check
box in group link or Check box
so if clicked only the check boxes in that group are
checked

> ok thanks for the great reply
> any idea how i would do this?
I think Dan might have been suggesting that - given it's a JS
question -
asking on a CF forum might not be the best idea. Speaking for
myself, I'm
a pretty good CF developer, but only an adequate JS
developer. And that's
probably representative of the audience here.
I don't think Dan was trying to be unhelpful, just
matter-of-fact.
If you have JS questions, ask on a JS forum. "Best tools for
the job",
etc.
Adam

"Always Use Selected Format" check box in line items report

Hi Experts,
I have an issue in ECC 6.0.
From the transaction code FBL1N (Vendor Line Items) I am trying to export the report to spreadsheet by selecting the option List> Export>Spreadsheet then I have selected "Always Use Selected Format" check box. But if I execute the same report again I am not getting this option "Always Use Selected Format". Please let me how can we retrieve that option. Is there any possibility to get that option again either functionally or technically. I would like to know all the possible ways to get this option again.
Please do the needful.

Hello,
In one my thread Mr. Frank has replied as follows. I believe he has solved this.
Hope this may be really helpful.
The problem with the spreadsheet download is at one point, users have selected their default file type.
That said, SAPGUI is working as it should. (gui710)
Question though is how do we reset the values so they get the ?Select Spreadsheet Format? popup again.
The following steps should be performed :
- Call transaction SE38, enter program SALV_BS_ADMIN_MAINTAIN, and press F8.
- Follow the parameters below :
- Select ?DELETE? on the Actions Group
- Select ?DETAILED SELECTION? on the General Data :
- On Client - your number
- User : <user name>
-Hit EXECUTE.
-Press ENTER on the POPUP
- If there is an entry in the report that will need to be deleted. Also, make sure that the entry you will delete (for the user) has a value of GUI_ALV_XML_VER on field ?Parameter? .
- Select the line and hit the DELETE icon .
- Press ?Y? to continue delete. Press ENTER on the popup.
- Then EXIT all the way out of the program.
NOTE : When you run program SALV_BS_ADMIN_MAINTAIN, make sure they are out of any program that they are using for download.
Re: "Always Use Selected Format" check box in line items report
Regards,
Ravi
Edited by: Ravi Sankar Venna on May 15, 2009 2:31 PM

Enable to select a check box in ALV while accessing it through portal

Hi All,
Currently I have given a link on portal to run a transaction code. The output of the program is ALV report, where user any select the check boxes.
Now when I try to select a check box, it is not getting selected. I click on the checkbox, the tick appear and then the screen refreshes itself and the tick goes off. This is happening only when accessing it through portal. If i run the program in R/3 directly, I am able to select the check box.
Please advice on this.
Thanks
Namit

Reported to SAP for the same.

How to create check box in ALV Reports?

how to create check box in ALV Reports?

Hi
check the report BCALV_TEST_GRID_EDITABLE
or
check this report
REPORT ZRFC346_TST.
TABLES:SFLIGHT,RL034.
TYPE-POOLS:SLIS.
INCLUDE:<ICON>,<SYMBOL>.
DATA: G_REPID          LIKE SY-REPID,
      G_FIELDCAT       TYPE SLIS_T_FIELDCAT_ALV,
      G_IT_SORT        TYPE SLIS_T_SORTINFO_ALV,
      G_LAYOUT         TYPE SLIS_LAYOUT_ALV,
      G_TABNAME_HEADER TYPE SLIS_TABNAME,
      G_TABNAME_ITEM   TYPE SLIS_TABNAME,
      G_KEYINFO        TYPE SLIS_KEYINFO_ALV,
      G_VARIANT        LIKE DISVARIANT,
      G_EXTAB          TYPE SLIS_T_EXTAB,
      I_SLIS_EXIT_BY_USER TYPE SLIS_EXIT_BY_USER.
DATA: XEVENT         TYPE SLIS_T_EVENT,
      AEVENT         TYPE SLIS_ALV_EVENT,
      VARIANT        LIKE DISVARIANT,
      LAYOUT         TYPE SLIS_LAYOUT_ALV,
      ASP_GROUP      TYPE SLIS_SP_GROUP_ALV,
      GT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      EXTAB          TYPE SLIS_T_EXTAB WITH HEADER LINE,
      XFIELD         TYPE SLIS_T_FIELDCAT_ALV,
      AFIELD         TYPE SLIS_FIELDCAT_ALV,
      G_SUCOMM      LIKE SY-UCOMM,
      G_SELFLD       TYPE SLIS_SELFIELD.
DATA: SAV_SY_REPID      LIKE SY-REPID.
CONSTANTS: CON_SFLIGHT TYPE LVC_FNAME VALUE 'SFLIGHT',
           CON_DISPLAY_FULL TYPE I VALUE 3.
Data to be displayed
DATA: BEGIN OF GT_SFLIGHT OCCURS 0.
        INCLUDE STRUCTURE SFLIGHT.
DATA:ACTIVATE(1).
DATA: END OF GT_SFLIGHT.
INITIALIZATION.
*........Initialisierung...............................................
PERFORM INITIALIZATION_RL034.
*........Field cata....................................................
PERFORM FIELD_CAT.
*........SPECIAL GROUP.................................................
PERFORM E07_SP_GROUP_BUILD USING GT_SP_GROUP[].
START-OF-SELECTION.
Selection
SELECT * FROM SFLIGHT INTO TABLE GT_SFLIGHT.
*........ALV CALL.......................................................
PERFORM ALV_CALL.
PERFORM USER_COMMAND_LOCAL USING G_SUCOMM G_SELFLD.
      FORM USER_COMMAND_LOCAL                                       *
--> G_UCOMM                                                       *
--> G_SELFIELD                                                    *
FORM USER_COMMAND_LOCAL USING G_UCOMM LIKE SY-UCOMM
                              G_SELFIELD TYPE SLIS_SELFIELD.
CASE G_UCOMM.
    WHEN 'ACT'.
ENDCASE.
ENDFORM.
      FORM ALV_CALL                                                 *
FORM ALV_CALL.
Call ABAP List Viewer (ALV)
G_LAYOUT-BOX_FIELDNAME = 'ACTIVATE'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
             EXPORTING
            I_BACKGROUND_ID         = 'ALV_BACKGROUND'
               I_BYPASSING_BUFFER                = SPACE
               I_BUFFER_ACTIVE                   = SPACE
                I_CALLBACK_PROGRAM                = SAV_SY_REPID
                I_CALLBACK_PF_STATUS_SET          = 'STATUS'
               I_CALLBACK_USER_COMMAND           = 'USER_COMMAND_LOCAL'
            I_CALLBACK_TOP_OF_PAGE            = ' '
            I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
            I_CALLBACK_HTML_END_OF_LIST       = ' '
             I_STRUCTURE_NAME                  = 'SFLIGHT'
            I_BACKGROUND_ID                   = ' '
            I_GRID_TITLE                      =
            I_GRID_SETTINGS                   =
              IS_LAYOUT                         = G_LAYOUT
              IT_FIELDCAT                       = XFIELD[]
            IT_EXCLUDING                      =
              IT_SPECIAL_GROUPS                 = GT_SP_GROUP[]
            IT_SORT                           =
            IT_FILTER                         =
             IS_SEL_HIDE                       = 'X'
            I_DEFAULT                         = 'X'
              I_SAVE                            = 'A'
            IS_VARIANT                        =
             IT_EVENTS                         = XEVENT
            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_ADD_FIELDCAT                   =
            IT_HYPERLINK                      =
            I_HTML_HEIGHT_TOP                 =
            I_HTML_HEIGHT_END                 =
            IT_EXCEPT_QINFO                   =
          IMPORTING
            E_EXIT_CAUSED_BY_CALLER           =
            ES_EXIT_CAUSED_BY_USER            =
              TABLES
                T_OUTTAB                          = GT_SFLIGHT
          EXCEPTIONS
            PROGRAM_ERROR                     = 1
            OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
      FORM status                                                   *
--> EXTAB                                                         *
FORM STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STAT' EXCLUDING EXTAB.
ENDFORM.                               " STATUS
*&      Form INITIALIZATION_RL034
      text
--> p1        text
<-- p2        text
FORM INITIALIZATION_RL034.
SAV_SY_REPID = SY-REPID.
ENDFORM.                    " INITIALIZATION_RL034
*&      Form DEFINE_EVENTS_RL034
      text
--> p1        text
<-- p2        text
FORM DEFINE_EVENTS_RL034.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE = 0
       IMPORTING
            ET_EVENTS   = XEVENT.
   exceptions
        list_type_wrong = 1
        others          = 2.
ENDFORM.                    " DEFINE_EVENTS_RL034
*&      Form FIELD_CAT
      text
--> p1        text
<-- p2        text
FORM FIELD_CAT.
DATA: LS_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN   TYPE I.
REFRESH XFIELD.
       1. per Default eingeblendete Felder                          *
*........Ikone/Symbol..................................................
CLEAR AFIELD.
DATA: LS1_FCAT TYPE SLIS_FIELDCAT_ALV,
        L_LIN1   TYPE I.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_STRUCTURE_NAME       = CON_SFLIGHT
            I_BYPASSING_BUFFER     = SPACE
            I_BUFFER_ACTIVE        = SPACE
       CHANGING
            CT_FIELDCAT            = XFIELD
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
DESCRIBE TABLE XFIELD LINES L_LIN1.
ADD 1 TO L_LIN1.
CLEAR LS_FCAT.
LS1_FCAT-FIELDNAME = 'ACTIVATE'.
LS1_FCAT-CHECKBOX = 'X'.
LS1_FCAT-KEY       = 'X'.
LS1_FCAT-INPUT     = 'X'.
LS1_FCAT-EDIT     = 'X'.
LS1_FCAT-INTTYPE   = 'C'.
LS1_FCAT-DATATYPE = 'CHAR'.
LS1_FCAT-INTLEN    = 1.
LS1_FCAT-COL_POS   = L_LIN1.
LS1_FCAT-SELTEXT_S = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_M = LS1_FCAT-FIELDNAME.
LS1_FCAT-SELTEXT_L = LS1_FCAT-FIELDNAME.
LS1_FCAT-SP_GROUP = 'A'.
APPEND LS1_FCAT TO XFIELD.
ADD 1 TO L_LIN.
ENDFORM.                    " FIELD_CAT
FORM E07_SP_GROUP_BUILD USING E07_LT_SP_GROUP TYPE SLIS_T_SP_GROUP_ALV.
DATA: LS_SP_GROUP TYPE SLIS_SP_GROUP_ALV.
CLEAR LS_SP_GROUP.
LS_SP_GROUP-SP_GROUP = 'A'.
LS_SP_GROUP-TEXT     = 'SPECIAL'.
APPEND LS_SP_GROUP TO E07_LT_SP_GROUP.
ENDFORM.
Regards
Shiva

Uncheck one check box when we select other check boxes

Hi All,
This might be very simple question for experts. I just want to unselect one check box (this check box is to select 'ALL' and this will be selected by default) when we select any other check box (for individual categories) on same region. Can any one please suggest me how to implement this?
Thanks in advance.
Regards,
Hari

Hi Shijesh,
Thanks for you reply.
I'm using two items (check boxs), like P1_ALL and P1_TEST. I want to unselect P1_ALL when we select P1_TEST check box.Both the check boxes contains single value in List of values. For this I wrote script like
<script type="text/javascript">
function uncheckAll(pthis)
elm = document.getElementsByName('P1_ALL');
if(pthis.checked)
elm.checked = false;
</script>
And in HTML form element attribute of P1_TEST, I have 'onclick=uncheckAll(this)'. But for some reason when I select 'P1_TEST', P1_ALL check box not getting un-selected.
I would be grateful if you suggest what needs to correct in this one.
Regards,
Hari

Selecting, Deselecting check boxes in JTable

Hi,
I have a JTable with 5 columns (First 4 are String and the last one in Boolean (ie., JCheckBox). I have tow buttons "Select All" and "Deselect All" below the JTable. I need to make all check boxes enabled if I click the button "Select All" and vice versa if I click "Deselect All". How do I do this. Please help me.
Thanks
Subbu

hi,
can you please help me? I have to make a table rather Ive made a table and my program search a list of files from a folder and populate different colums and rows. now I want the user to select the names and then selected files will be deleted.
I am unable to achieve the proper GUI. ive made a JTable but the cells are editable. i dont know about TableModel and tried my level best to understand but failed to implement. when I try to add JCheckBox object in rows and columns the text representation of the GUI appears in the row rather then the actual Object. please guide me how to add JCheckBoxes into the rows and columns? how make cells uneditable? and how to give columns headings? I will be highly grateful.
cheers
seenan

How to disbale a group of checkboxes when i select one check box WEBDYNPRO

Hi Friends,
Can any body help me how to disbale a group of checkboxes when i select one check box WEBDYNPRO Abap
Also can any body tell me how to handle chain endchain type of scenario in WEBDYNPRO Abap
Thank you..
Sai

Hi
In the context tab , create 2 context attributes ca_attr1 and ca_attr2   of type WDY_BOOLEAN under a context node cn_node
now in ur Layout , bind the ENABLE property of CheckBoxGroup UI Element with this attribute ca_attr1
bind the ENABLE property of CheckBox UI Element with this attribute ca_attr2
create a action for ur Checkbox , for the OnToggle property of ur checkbox
in OnactionToggle , check if ca_attr2 is 'X' , set ca_attr2 to ' ' ( for disable)
this can be done by code wizard , press control +f7 and use read/set context attributes , use get_attribute and set_attribute methods
// if ca_attr2 is 'X'
DATA lo_nd_cn_node TYPE REF TO if_wd_context_node.
    DATA lo_el_cn_node TYPE REF TO if_wd_context_element.
    DATA ls_cn_node TYPE wd_this->element_cn_node .
    DATA lv_attr LIKE ls_city-ca_attr2.
    lo_nd_node = wd_context->get_child_node( name = wd_this->wdctx_ca_attr).
*   get element via lead selection
    lo_el_cn_node = lo_nd_cn_node->get_element( ).
*   get single attribute
    lo_el_cn_node->get_attribute(
      EXPORTING
        name = `CA_ATTR2`
      IMPORTING
        value = lv_attr ).
// if lv_attr2 is 'X' , use set_attribute method for ca_attr1
IF lv_Attr EQ 'X' .
DATA lo_nd_cn_node TYPE REF TO if_wd_context_node.
    DATA lo_el_cn_node TYPE REF TO if_wd_context_element.
    DATA ls_cn_node TYPE wd_this->element_cn_node .
    DATA lv_attr LIKE ls_city-ca_attr.
*   navigate from <CONTEXT> to <CN_VISIBLE> via lead selection
    lo_nd_node = wd_context->get_child_node( name = wd_this->wdctx_ca_attr).
*   get element via lead selection
    lo_el_cn_node = lo_nd_cn_node->get_element( ).
*   set single attribute
    lo_el_cn_node->set_attribute(
      EXPORTING
        name = `CA_ATTR1`
        value = ' ').
ENDIF.
regards,
amit

Dynamic selection of check boxes on selecting a check box

Hi Friends,
I have to select the check boxes which are herarchically lower to a top check box,dynamically.
Eg:
Checkbox1
   checkbox2
   checkbox3
so if i select check box 1, on the screen both checkbox2 and checkbox3 have to be selected.
I did like below.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF P_ALL = 'X'.
      P_VAT = 'X'.
      P_NAME = 'X'.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
but values are checked but on screen its not checked.
how to handle this.
Regards,
Simha

hi
do like this
paramenter: check_1 type c as check box at user-command ,
check_2 type c as checkbox default X,
check_3 type c as checkbox default X.
At selection Sreen output
if check_1 = 'X'.
loop at screen .
if screen-name = 'check_2'.
screen-invisible = '0'.
endif.
endloop.
loop at screen .
if screen-name = 'check_3'.
screen-invisible = '0'.
endif.
endloop.
else
loop at screen .
if screen-name = 'check_2'.
screen-invisible = '1''.
endif.
endloop.
loop at screen .
if screen-name = 'check_3'.
screen-invisible = '1'.
endif.
endloop.
endif.
this solve ur problem
Cheers
Snehi

How can I create multiple selection check boxes in a report row?

Hello,
I'd like to know how a multiple selection checkbox can be created in report rows. In brief, I need to create a questionnaire template and each one of the questions will have multple options checkboxes, that means that the user can select more than one of the answers.
Should I use apex_item.checkbox ?. I have no clue here.
Please advice.
Thank you
Edited by: user9982480 on Jul 23, 2012 10:58 AM

Hi,
This might save your effort
http://www.apexsolution.de/questionnaire/
Regards,
Jari
My Blog: http://dbswh.webhop.net/dbswh/f?p=BLOG:HOME:0
Twitter: http://www.twitter.com/jariolai

Selection using check box in std ALV grid!

Hi all,
I have written a custom report to show the O/p in ALV grid.
This is my code:
TABLES :zpo_loi.
TYPE-POOLS : slis.
TYPE-POOLS: icon.
TABLES : sscrfields.
DATA : ls_composer TYPE ssfcompop,
           ls_control TYPE ssfctrlop.
DATA : wa_return TYPE TABLE OF bapiret2 ,
        wa_address TYPE bapiaddr3.
DATA : wa_crmd_orderadm_h TYPE zpo_loi,
       it_po TYPE TABLE OF crmd_orderadm_h,
       wa_po TYPE bbp_pds_header.
DATA : it_tab TYPE TABLE OF zpo_loi.
DATA : it_data TYPE TABLE OF crmd_orderadm_h,
        wa_data TYPE bbp_pds_header,
        et_data TYPE bbps_sf_po_output.
DATA : w_formname TYPE tdsfname ,
       w_sfname TYPE rs38l_fnam.
DATA :it_po_no TYPE TABLE OF select_be_obj_id,
      wa_it_po_no LIKE LINE OF it_po_no.
DATA :r_itab TYPE ddshretval OCCURS 0.
DATA : it_output LIKE TABLE OF zloi,
       wa_output TYPE zloi.
DATA : w_answer TYPE c.
DATA : g_repid LIKE sy-repid,
      g_title TYPE lvc_title,
      g_set_pf_stat TYPE slis_formname VALUE 'SET_PF_STATUS',
      g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
      g_layout TYPE slis_layout_alv,
      g_print_alv TYPE slis_print_alv,
      g_variant LIKE disvariant,
      c_char_a(1) VALUE 'A',
      c_char_x(1) VALUE 'X',
      itab_alv_sort TYPE slis_t_sortinfo_alv,
      itab_alv_fcat TYPE slis_t_fieldcat_alv.
*       Internal tables          Begin with IT_                       *
DATA : it_fcat TYPE slis_t_fieldcat_alv,                           "---ALV
       it_disp TYPE TABLE OF zloi.
*       Work Area for Internal tables      Begin with WA_             *
DATA : wa_fcat TYPE slis_fieldcat_alv ,              "---ALV
       wa_layout           TYPE lvc_s_layo,               "---ALV
       wa_it_disp LIKE LINE OF it_disp.
DATA : it_sf_po TYPE TABLE OF crmd_orderadm_h,
       wa_sf_po TYPE bbp_pds_header.
*SELECTION-SCREEN:
* BEGIN OF SCREEN 500 AS WINDOW TITLE title,
* END OF SCREEN 500.
*DATA : functxt TYPE smp_dyntxt.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS sel_po FOR zpo_loi-zobject_id.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : pr_loi RADIOBUTTON GROUP grp1 USER-COMMAND ucom,
             pr_fondo RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
*       At selection-screen output                                    *
AT SELECTION-SCREEN OUTPUT.
IF pr_fondo = 'X'.
    REFRESH sel_po.
    LOOP AT SCREEN.
      IF screen-name = text-003 OR screen-name = text-004.
        screen-input = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSEIF pr_loi = 'X'.
    LOOP AT SCREEN.
      IF screen-name = text-003 OR screen-name = text-004.
        screen-input = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*       At selection-screen on radiobutton                            *
AT SELECTION-SCREEN ON RADIOBUTTON GROUP grp1.
IF pr_fondo = 'X'.
    REFRESH sel_po.
    LOOP AT SCREEN.
      IF screen-name = text-003 OR screen-name = text-004.
        screen-input = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSEIF pr_loi = 'X'.
    LOOP AT SCREEN.
      IF screen-name = text-003 OR screen-name = text-004.
        screen-input = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_po-low.
PERFORM populate_table.
PERFORM f4_help.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_po-high.
PERFORM populate_table.
PERFORM f4_help.
*       At selection-screen                                           *
AT SELECTION-SCREEN.
*---CHECKING THE INPUT >>>
IF sy-ucomm = 'ONLI'.
    PERFORM f002-check_input.
    PERFORM f001-check.
ENDIF.
*&      Form POPULATE_TABLE
*       text
* --> p1        text
* <-- p2        text
FORM populate_table .
SELECT zobject_id
           description
FROM zpo_loi
INTO CORRESPONDING FIELDS OF TABLE it_tab.
SORT it_tab BY zobject_id ASCENDING.
ENDFORM.                    " POPULATE_TABLE
*&      Form F4_HELP
*       text
* --> p1        text
* <-- p2        text
FORM f4_help .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      ddic_structure = ' '
      retfield       = 'ZOBJECT_ID'
      dynpprog       = sy-repid
      dynpnr         = sy-dynnr
      dynprofield    = 'A'
      value_org      = 'S'
    TABLES
      value_tab      = it_tab
      return_tab     = r_itab.
ENDFORM.                                                    " F4_HELP
*&      Form F001-CHECK
*       text
* --> p1        text
* <-- p2        text
FORM f001-check .
IF pr_fondo = 'X'.
    PERFORM display_expiring_fondos.
ELSEIF pr_loi = 'X'.
    PERFORM fetch_po_det.
    PERFORM build_fcat.
    PERFORM alv_display.
ENDIF.
ENDFORM.                    " F001-CHECK
*&      Form F002-CHECK_INPUT
*       text
* --> p1        text
* <-- p2        text
FORM f002-check_input .
IF pr_loi = 'X'.
    REFRESH it_po.
    IF sel_po-low IS NOT INITIAL.
      SELECT object_id
      FROM crmd_orderadm_h
      INTO CORRESPONDING FIELDS OF TABLE it_po
      WHERE object_type = 'BUS2201'
      AND object_id = sel_po-low.
      IF sy-subrc NE 0.
        IF sel_po-high IS NOT INITIAL.
          SELECT object_id
          FROM crmd_orderadm_h
          INTO CORRESPONDING FIELDS OF TABLE it_po
          WHERE object_type = 'BUS2201'
          AND object_id = sel_po-high.
          IF sy-subrc NE 0.
            MESSAGE e009(zsrm).
          ENDIF.
        ENDIF.
        MESSAGE e007(zsrm).
      ENDIF.
    ELSE.
      MESSAGE e010(zsrm).
    ENDIF.
    IF sel_po-high IS NOT INITIAL.
      SELECT object_id
      FROM crmd_orderadm_h
      INTO CORRESPONDING FIELDS OF TABLE it_po
      WHERE object_type = 'BUS2201'
      AND object_id = sel_po-high.
      IF sy-subrc NE 0.
        MESSAGE e008(zsrm).
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " F002-CHECK_INPUT
*&      Form FETCH_PO_DET
*       text
* --> p1        text
* <-- p2        text
FORM fetch_po_det .
REFRESH it_po.
it_po_no[] = sel_po[].
DATA : w_count TYPE i,
         w_lines TYPE c,
         wa_header TYPE bbp_pds_po_header_d.
REFRESH : it_po,it_output.
IF sel_po-high IS NOT INITIAL.
    SELECT object_id
           description
           posting_date
           created_by
    FROM crmd_orderadm_h
    INTO CORRESPONDING FIELDS OF TABLE it_po
    WHERE object_type = 'BUS2201'
    AND object_id BETWEEN sel_po-low AND sel_po-high.
ELSE.
    SELECT object_id
           description
           posting_date
           created_by
    FROM crmd_orderadm_h
    INTO CORRESPONDING FIELDS OF TABLE it_po
    WHERE object_type = 'BUS2201'
    AND object_id = sel_po-low.
ENDIF.
w_lines = sy-dbcnt.
w_count = 1.
DO.
    IF w_count LE w_lines.
      READ TABLE it_po INTO wa_po INDEX w_count.
      MOVE wa_po-object_id TO wa_output-zzpono.
      MOVE wa_po-description TO wa_output-zzpodesc.
      MOVE wa_po-posting_date TO wa_output-zzpodate.
      MOVE wa_po-created_by TO wa_output-zzpocreator.
      CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
        EXPORTING
          i_object_id = wa_output-zzpono
        IMPORTING
          e_header    = wa_header.
      CALL FUNCTION 'BAPI_USER_GET_DETAIL'
        EXPORTING
          username = wa_output-zzpocreator
        IMPORTING
          address = wa_address
        TABLES
          return   = wa_return.
      CLEAR wa_output-zzpocreator.
      CONCATENATE wa_address-firstname '   ' wa_address-lastname INTO wa_output-zzpocreator .
      MOVE wa_header-total_value TO wa_output-zzpoval.
      MOVE wa_header-currency TO wa_output-zzpocur.
      APPEND wa_output TO it_output.
      w_count = w_count + 1.
    ELSE.
      EXIT.
    ENDIF.
ENDDO.
ENDFORM.                    " FETCH_PO_DET
*&      Form BUILD_FCAT
*       text
* --> p1        text
* <-- p2        text
FORM build_fcat .
g_repid = sy-repid.
g_title = 'Print LOI details'.
g_print_alv-no_print_listinfos = 'X'.
g_variant-report = sy-repid.
g_variant-variant = sy-title.
CLEAR g_layout.
g_layout-f2code = ' '.
wa_layout-zebra       = 'X'.
g_layout-flexible_key = 'X'.
g_layout-colwidth_optimize = 'X'.
g_layout-detail_initial_lines = 'X'.
g_layout-box_fieldname = 'ZZCHECK'.
REFRESH it_fcat.
*Po no
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPONO' .
wa_fcat-tabname = 'IT_DISP'.
wa_fcat-seltext_m = 'Purchase Order'.
*wa_fcat-seltext_s = 'Purchase Order.
wa_fcat-icon = 'X'.
wa_fcat-col_pos = '2'.
wa_fcat-outputlen = 10.
APPEND wa_fcat TO it_fcat.
*Description
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPODESC' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'Description'.
wa_fcat-seltext_m = 'Description'.
*wa_fcat-seltext_s = 'Description'.
wa_fcat-col_pos = '3'.
wa_fcat-outputlen = 10.
APPEND wa_fcat TO it_fcat.
*Posting date
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPODATE' .
wa_fcat-tabname = 'IT_DISP'.
wa_fcat-seltext_l = 'Posting Date'.
wa_fcat-seltext_m = 'Posting Date'.
*wa_fcat-seltext_s = 'Posting Date'.
wa_fcat-col_pos = '4'.
wa_fcat-outputlen = 8.
APPEND wa_fcat TO it_fcat.
*value
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOVAL' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'PO value'.
wa_fcat-seltext_m = 'PO value'.
*wa_fcat-seltext_s = 'PO value'.
wa_fcat-col_pos = '5'.
wa_fcat-outputlen = 15.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
*Currency
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOCUR' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'PO Currency'.
wa_fcat-seltext_m = 'PO Currency'.
*wa_fcat-seltext_s = 'PO Currency'.
wa_fcat-col_pos = '6'.
wa_fcat-outputlen = 5.
APPEND wa_fcat TO it_fcat.
*Creator
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOCREATOR' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'Buyer'.
wa_fcat-seltext_m = 'Buyer'.
*wa_fcat-seltext_s = 'Buyer'.
wa_fcat-col_pos = '7'.
wa_fcat-outputlen = 12.
APPEND wa_fcat TO it_fcat.
ENDFORM.                    " BUILD_FCAT
*&      Form ALV_DISPLAY
*       text
* --> p1        text
* <-- p2        text
FORM alv_display .
SORT it_output BY zzpono.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = g_repid
      i_callback_pf_status_set = g_set_pf_stat
      i_callback_user_command = g_user_command
      i_grid_title             = g_title
      is_layout                = g_layout
      it_fieldcat              = it_fcat[]
      is_variant               = g_variant
      is_print                 = g_print_alv
    TABLES
      t_outtab                 = it_output[]
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.                    " ALV_DISPLAY
*&      Form user_command
*       text
*      -->R_UCOMM      text
*      -->RS_SELFIELD text
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.                             "#EC CALLED
DATA: gd_repid LIKE sy-repid, "Exists
ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF NOT ref_grid IS INITIAL.
    CALL METHOD ref_grid->check_changed_data .
ENDIF.
rs_selfield-refresh = 'X'.
CASE r_ucomm.
    WHEN 'PRINTLOI'.
      PERFORM call_sf.
    WHEN 'BACK'.
      CALL SELECTION-SCREEN 1000.
    WHEN 'CANCEL'.
      CALL SELECTION-SCREEN 1000.
    WHEN 'EXIT'.
      CALL SELECTION-SCREEN 1000.
ENDCASE.
ENDFORM.                    "user_command
*&      Form set_pf_status
*       text
*      -->RT_EXTAB   text
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZALV' EXCLUDING rt_extab.
SET TITLEBAR 'ZALV'.
ENDFORM.                    "set_pf_status
*&      Form CALL_SF
*       text
* --> p1        text
* <-- p2        text
FORM call_sf .
REFRESH it_sf_po.
LOOP AT it_output INTO wa_output WHERE zzcheck = 'X'.
    wa_sf_po-object_id = wa_output-zzpono.
    APPEND wa_sf_po TO it_sf_po.
ENDLOOP.
w_formname = 'ZSR_EBP_DOCU_LETTEROFINTENT1'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname           = w_formname
    IMPORTING
      fm_name            = w_sfname
    EXCEPTIONS
      no_form            = 1
      no_function_module = 2
      OTHERS             = 3.
IF sy-subrc <> 0.
ENDIF.
ls_composer-tdnewid = 'X'.
ls_control-no_dialog = 'X'.
LOOP AT it_sf_po INTO wa_sf_po.
    CALL FUNCTION w_sfname
      EXPORTING
        control_parameters = ls_control
        output_options     = ls_composer
        wa_object          = wa_sf_po
      EXCEPTIONS
        formatting_error   = 1
        internal_error     = 2
        send_error         = 3
        user_canceled      = 4
        OTHERS             = 5.
    IF sy-subrc <> 0.
    ENDIF.
ENDLOOP.
ENDFORM.                    " CALL_SF
*&      Form DISPLAY_EXPIRING_FONDOS
*       text
* --> p1        text
* <-- p2        text
FORM display_expiring_fondos .
SET PF-STATUS 'ZLOI'.
SET TITLEBAR 'ZLOI'.
TYPES : BEGIN OF ty_output1,
            guid TYPE bbp_guid,
            object_id TYPE crmt_object_id_db,
            description TYPE crmt_process_description,
            posting_date TYPE crmt_posting_date,
            zzfondo_dat TYPE zfondo_dat,
            created_by TYPE crmt_created_by,
           END OF ty_output1.
DATA : it_output1 TYPE TABLE OF ty_output1,
         wa_output1 TYPE ty_output1,
          w_lines,
          w_count,
          it_fondo TYPE TABLE OF zsr_fondo,
          it_temp_fondo TYPE TABLE OF zsr_fondo,
          wa_temp_fondo TYPE zsr_fondo,
          wa_fondo TYPE zsr_fondo,
          w_diff TYPE p,
          wa_header1 TYPE bbp_pds_po_header_d.
CONSTANTS : c_otype(8) VALUE 'BUS2201'.
REFRESH : it_output1,it_temp_fondo,it_fondo.
SELECT b~zzfondo_dat
         a~guid
         a~object_id
         a~description
         a~posting_date
         a~created_by
INTO CORRESPONDING FIELDS OF TABLE it_output1
FROM bbp_pdhsc AS b
LEFT OUTER JOIN crmd_orderadm_h AS a ON b~guid = a~guid
AND a~object_type = c_otype.
LOOP AT it_output1 INTO wa_output1.
    CALL FUNCTION '/SDF/CMO_DATETIME_DIFFERENCE'
      EXPORTING
        date1            = sy-datum
        date2            = wa_output1-zzfondo_dat
      IMPORTING
        datediff         = w_diff
      EXCEPTIONS
        invalid_datetime = 1
        OTHERS           = 2.
    IF sy-subrc <> 0.
    ENDIF.
    IF w_diff <= '7'.
      wa_temp_fondo-zzpono = wa_output1-object_id.
      APPEND wa_temp_fondo TO it_temp_fondo.
    ENDIF.
ENDLOOP.
*select the final entries for PO whose FONDO is expiring
DESCRIBE TABLE it_temp_fondo LINES w_lines.
w_count = 1.
DO.
    IF w_count LE w_lines.
      READ TABLE it_temp_fondo INTO wa_temp_fondo INDEX w_count.
      IF sy-subrc = 0.
        CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
          EXPORTING
            i_object_id = wa_temp_fondo-zzpono
          IMPORTING
            e_header    = wa_header1.
        wa_fondo-zzpono = wa_temp_fondo-zzpono.
        wa_fondo-zzpodesc = wa_header1-description.
        wa_fondo-zzpodate = wa_header1-posting_date.
        wa_fondo-zzexpdate = wa_header1-zzfondo_dat.
        wa_fondo-zzpoval = wa_header1-total_value.
        wa_fondo-zzpocur = wa_header1-currency.
        wa_fondo-zzpocreator = wa_header1-created_by.
        CLEAR : wa_address.
        REFRESH wa_return.
        CALL FUNCTION 'BAPI_USER_GET_DETAIL'
          EXPORTING
            username = wa_header1-created_by
          IMPORTING
            address = wa_address
          TABLES
            return   = wa_return.
        CLEAR wa_fondo-zzpocreator.
        CONCATENATE wa_address-firstname '   ' wa_address-lastname INTO wa_fondo-zzpocreator .
        w_count = w_count + 1.
        APPEND wa_fondo TO it_fondo.
      ENDIF.
    ELSE.
      EXIT.
    ENDIF.
ENDDO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_structure_name = 'ZSR_FONDO'
      i_grid_title     = 'EXPIRING FONDOS'
    TABLES
      t_outtab         = it_fondo[]
    EXCEPTIONS
      program_error    = 1
      OTHERS           = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.                    " DISPLAY_EXPIRING_FONDOS
Now in my ALV grid o/p i can see the check box but if i select one row and then try to select another the first one gets deselected.
Can anybody tell me what is missing?

Hi,
Try like changing this
insted of
g_layout-f2code = ' '.
use this
g_layout-f2code = 'DISP'. " Sets fcode for when double
and
g_layout-f2code = '&ETA'. " it will display POPUP screen
Best Regards
Ranga
Edited by: Ranga Swamy on Nov 1, 2008 11:07 PM
Edited by: Ranga Swamy on Nov 1, 2008 11:17 PM

Select all check box in interactve report

Similar Messages

Maybe you are looking for