Refresh Report and At Line-Selection and At User-Command

Hi All
I have 2 querries
1) I want to use At Line-selection and At user-command in the same report. But At line-selection is not getting triggered why? When I remove Set pf-status 'xxx' and at user command , then at line selection works . I want to user both at a time.
2) I am giving user ability to edit the report shown and when he comes back by exiting the editing I want to refresh the report which is shown already to him to give effect of his editing.
Thanks in anticipation
pM.

i just tried, and no problem at all.
In the <b>Recommended Function Key Settings</b> for F2 key add command "PICK"
Regards
Raja
since you are new to the forum, have a look at this weblog.
/people/mark.finnern/blog/2004/08/10/spread-the-love

Similar Messages

AT LINE SELECTION AN AT USER-COMMAND IN ONE REPORT

hiiii friends.....
hw can i go for both at line selection an at user comond in one report....
ie if double click on basic list it should shw sm output an when i choose menu optoin it should perform sm other output......

You need to crate a PF-Status and in the PF-staus you need to include some essentials buttons and the button for your list on the USER-COMMAND.
Say,
BACK
EXIT
CANC
PICK ... should be assigned to F2 .. to work with LINE-SELECTION.
NEW_LIST ... for USER-COMMAND
In your report:
START-OF-SELECTION.
SET PF-STATUS 'Z_OWN'.
AT LINE-SELECTION.
WRITE : 'I AM LINE SELECTION'.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'NEW_LIST'.
WRITE / 'I AM CALLED FROM USER COMMAND'.
ENDCASE.
Regards,
Naimesh Patel

ITS URGENT QUES ON AT LINE-SELECTION AND AT USER-COMMAND

ITS URGENT...WHEN I SELECT MULTIPUL VALUES IN BASIC LIST ,I HAVE TO GET THOSE SELECTED MULTIPUL VALUES IN SECONDARY LIST THAT CAN BE AFTER(AT LINE-SELECTION OR AT USER-COMMAND)............?

hey
this code modify's simlarly u can read n display secondary window
    DO .
Reading the internal table whose data is displayed into wrk area.....
      READ LINE SY-INDEX FIELD VALUE INT_DISPLAY-SHIPMENT_ID INTO WF_SHIPMENT_ID.
Reading the check box value
      READ LINE SY-INDEX FIELD VALUE WG_CHK.
If all the records are read and there is no code left to read
      IF SY-SUBRC <> 0 .
        EXIT.
      ENDIF.
To highlight the line which is selected by the user
      IF WG_CHK = WL_X.
        MODIFY CURRENT LINE
        LINE FORMAT COLOR COL_NEGATIVE INVERSE
        FIELD VALUE WG_CHK FROM WL_SPACE.
        MODIFY CURRENT LINE
        LINE FORMAT INPUT OFF.
Also append the record read into new internal table which u will display in secondary window.......
      ENDIF.
    ENDDO.
AT USER-COMMAND. or AT LINE SELECTION . u can write this code.........
DISPLAYING A POP-UP WINDOW .
      WINDOW STARTING AT 10 50
             ENDING AT 120 70.
and then write the table into which u have stored the read entry which user had selected
reward points if useful

How to use AT LINE-SELECTION and AT USER-COMMAND in one report????

Dear all,
I have a problem in reports I want to use AT USER-COMMAND.and AT LINE-SELECTION.both in the one report.
But as soon as I use SET PF-STATUS my AT LINE-SELECTION event stop workingand only AT USER-COMMAND is working.
How can I use both of them in one report for your reference I am giving my test program below.
REPORT ZTEST111 .
SET PF-STATUS '100'.
DO 10 TIMES.
WRITE:/ SY-INDEX.
HIDE SY-INDEX.
ENDDO.
START-OF-SELECTION.
AT LINE-SELECTION.
MESSAGE I002(SY) WITH SY-INDEX.
AT USER-COMMAND.
MESSAGE I002(SY) WITH 'USER COMMAND'.
END-OF-SELECTION.
Thanks in advance
Sachin Gautam

hi
Syntax
AT USER-COMMAND.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment if, during the display of a screen list, a function with a self-defined function code was chosen.
Note
Self-defined function codes are all those that include character combinations, except for the following:
The function codes PICK and PF## ("##" stands for 01 to 24) do not cause the event AT USER-COMMAND, but the events AT LINE-SELECTION and AT PF##.
All function codes that start with the character "%" are interpreted as system functions and do not cause the event AT USER-COMMAND. The system functions for lists are listed in the following table 1.
The function codes in the following table 2, likewise, do not cause the event AT USER-COMMAND, but are handled by the list processor.
Table 1
Function code Function
%CTX Call a context menu
%EX Exit
%PC Save to file
%PRI Print
%SC Search for ...
%SC+ Find next
%SL Search in office
%ST Save to report tree
Table 2
Function code Function
BACK Back
P- Scroll to previous page
P-- Scroll to first page
P+ Scroll to next page
P++ Scroll to last page
PFILE name Store list lines in a text file named abap.lst in standard character representation in the standard directory of the application server. If a name is entered using name, this is converted to lowercase letters and used as the file name.
PL- Scroll to first line of the page
PL-n Scroll n lines back
PL+ Scroll to last line of the page
PL+n Scroll n lines up
PNOP No effect
PP- Scroll back one page
PP-n Scroll n pages back
PP+ Scroll one page forward
PP+n Scroll n pages forwad
PPn Scroll to beginning of page n
PRI, PRINT Print
PS-- Scroll to first column
PS++ Scroll to last column
PS- Scroll one column to the left
PS-n Scroll n columns to the left
PS+ Scroll one column to the right
PS+n Scroll n columns to the right
PSn Scroll to column n
PZn Scroll to line n
RW Cancel

How to create a report in Form line Style and can display Image field?

Hi,
In Report builder 10g, I would like to create a Report with Form Line Style and this report included a Image field.
I can choose this Style only when Select Report type is Paper Layout. Because, If I choose Create both Web & Paper Layout or Create Web Layout only then in the next Style tab 03 option Form, Form letter and Mailing Label be Disabled.
But in Paper Layout, my report can not display Image field.
I tried with Web layout and all the other Styles (Except 03 mentioned be Disabled) then all Styles are displayed Imager field OK.
How to create a report in Form line Style and can display Image field?
I was change File Format property of my Image field from text to Image already in Property Inspector. But report only showed MM for my Image field.
Thanks & regards,
BACH
Message was edited by:
bachnp

Here you go..Just follow these steps blindly and you are done.
1) Create a year prompt with presentation variable as pv_year
2) Create a report say Mid report with year column selected 3 times
- Put a filter of pv_year presentation variable on first year column with a default value say @{pv_year}{2008}
- Rename the second time column say YEAR+1 and change the fx to CAST(TIME_DIM."YEAR" AS INT)+1
- Rename the second time column say YEAR-1 and change the fx to CAST(TIME_DIM."YEAR" AS INT)-1
Now when you will run Mid Report, this will give you a records with value as 2008 2009 2007
3) Create your main report with criteria as Year and Measure col
- Change the fx for year column as CAST(TIME_DIM."YEAR" AS INT)
- Now put a filter on year column with Filter based on results of another request and select these:
Relationship = greater than or equal to any
Saved Request = Browse Mid Report
Use values in Column = YEAR-1
- Again,put a filter on year column with Filter based on results of another request and select these:
Relationship = less than or equal to any
Saved Request = Browse Mid Report (incase it doesn't allow you to select then select any other request first and then select Mid Report)
Use values in Column = YEAR+1
This will select Year > = 2007 AND Year < = 2009. Hence the results will be for year 2007,2008,2009
This will 100% work...
http://i56.tinypic.com/wqosgw.jpg
Cheers

Using both at line-selection and at user-command

hellow friends ,
to use both at line-selection and at user-command in the same report.

Hello,
U can do it like this.
AT LINE-SELECTION.
PERFORM at_line_selection.
AT USER-COMMAND.
PERFORM at_user_command.
FORM AT_LINE_SELECTION.
DATA: LV_CURSOR_FIELD(30).
DATA: LV_MATNR TYPE MATNR.
CLEAR H_UCOMM.
GET CURSOR FIELD LV_CURSOR_FIELD.
CASE LV_CURSOR_FIELD.
    WHEN 'PSPNR'.
      PERFORM LAGER_AN_PSP USING WA_MATNR-M1-RSNUM
                                 WA_MATNR-M1-RSPOS.
    WHEN 'PSPNR2'.
      H_UCOMM = 'PSPNR2'.
      IF NOT PSPNR2 IS INITIAL AND IT_VKBEL-VBELN CN '0123456789'.
        PERFORM LAGER_AN_PSP_VKBEL USING IT_VKBEL
                                         0
                                         PSPNR2
                                         H_MAKTX
                                         ' '.     "keine Blindbuchung
      ENDIF.
ENDCASE.
CASE SY-UCOMM.
    WHEN 'BACK_NEW'.
      PERFORM NEU_START USING 'X'.
    WHEN 'EXIT'.
      PERFORM NEU_START USING 'X'.
    WHEN 'CANC'.
      PERFORM NEU_START USING 'X'.
    WHEN 'CHECK'.
      PERFORM NEU_START USING SPACE.
ENDCASE.
Vasanth

Set PF Status and At-Line Selection & At User-Command

Hi All
I've used set PF status, at user command and at-line selection in my program. initially when i click on the material number it was not drilling further that is it was not taking to secondary list. i commented the PF status and tried. then it was working fine. Later, after checking on couple of doc i added F.code PICK in my PF status and uncommented the set-PF status in my program it was working fine. Now my question is why this kind of behaviour. When i uncomment the PF status and run the program without the f.code PICK in my PF status(se41) it was not working but after inlcuding the F.code in my PF it is working. Any good explanation?
thks
Prabhu

hi,
generally fuction code is useful for the system to find on which button or in which area the user has clicked in. based on the function code the system executes the satatements that are in user command. in your case i think u didnt gave any functionality in user-command. when at-user command is a event in interactive reporting which is triggered based on the button u had clicked.
at line-selection event uses two system variables
   1. sy-lsind [ current list index number ]
   2. sy-lisel [ contains the current area in which user ckicked ].
   3. sy-ucomm [ function code of clicked button ].
using these 3 vars we can drill down to 21 lists [ including 1st list ]
if helpful reward some points.
with regards,
suresh.

Diff between at line selection and HIDE technique

hi all,
       wht is the diff between at-line-selection and HIDE technique.
        wht r code instructor
        wht is extended testing
        how can we find selected error records in session                          method ex:-if there r errors in 4th 9th 13th record.
tthnx in advance

HIDE
Syntax
HIDE dobj.
Effect
This statement stores - in the current list level - the content of the variable dobj together with the current list line whose line number is contained in sy-linno. The data type of the variables dobj must be flat and no field symbols can be specified that point to rows of internal tables, and no class attributes can be specified. The stored values can be read as follows:
For each user action in a displayed screen list that leads to a list result, all the row values stored using HIDE - that is, the row on which the screen cursor is positioned at the time of the event - are assigned to the respective variables.
If a list row of an arbitrary list level is read or modified using the statements READ LINE or MODIFY LINE, all the values of this row stored using HIDE are assigned to the respective variables.
Notes
The HIDE statement works independently of whether the list cursor was set. In particular, variables for empty list rows can be stored - that is, rows in which the list cursor was positioned using statements like SKIP.
The HIDE statement should be executed immediately at the statement that has set the list cursor in the row.
Outside of classes, constants and literals that cannot be read in list results and in the statement READ LINE can be specified for dobj outside of classes.
Example
Storing square numbers and cubic numbers for a list of numbers. The example shows that arbitrary variables can be stored independently of row content. In the real situation, one would more likely store only the number and execute the calculation, when required, in the the event block for AT LINE-SELECTION.
REPORT ...
DATA: square TYPE i,
      cube   TYPE i.
START-OF-SELECTION.
FORMAT HOTSPOT.
DO 10 TIMES.
    square = sy-index ** 2.
    cube   = sy-index ** 3.
    WRITE / sy-index.
    HIDE: square, cube.
ENDDO.
AT LINE-SELECTION.
WRITE: square, cube.
AT LINE-SELECTION
Syntax
AT LINE-SELECTION.
Effect
This statement defines an event block whose event is triggered by the ABAP runtime environment during the display of a screen list - provided the scren cursor is on a list line and you select a function using the function code PICK. Through the definition of this event block, the standard list status is automatically enhanced in such a way that the function code F2 and, with it, the double-click mouse function is linked up to the function code PICK.
Note
If the function key F2 is linked with a function code different than PICK, each double click will trigger its even, usually AT USER-COMMAND, and not AT LINE-SELECTION.
Example
This program works with the standard list status. A line selection with the left mouse key causes the event AT LINE-SELECTION and creates details lists.
REPORT demo_at_line_selection.
START-OF-SELECTION.
WRITE 'Click me!' COLOR = 5 HOTSPOT.
AT LINE-SELECTION.
WRITE: / 'You clicked list', sy-listi,
         / 'You are on list', sy-lsind.
IF sy-lsind < 20.
    SKIP.
    WRITE: 'More ...' COLOR = 5 HOTSPOT.
ENDIF.
Thanks,

How to use both At USER-COMMAND and AT LINE-SELECTION in one abap program

I am trying out a program where I need to use both line selection and user command events in one program. Suggest me how to do it.

USE the okcode 'PICK'. (I mean add a 'PICK' in the GUI staus or the menu.) When ever u use both the events u have to use PICK to trigger the at line selection.
U just need to add the PICK in the GUI status and ofcourse write code in the program.
AT LINE-SELECTION.
CASE sy-ucomm.
WHEN 'PICK'.
write:/ 'HELLO WORLD'.
ENDCASE.

Is there a way to create a heading with shading behind the text and thin lines above and below?

I'm working with InDesign CS6, Windows 7.
Is there a way, using paragraph rules, to create a heading with shading behind the text and thin lines above and below the text?
I'd like to create headings that look like these:
Thank you!

I have a document where I almost do such, but without the fill. I use a Head Style which Spans Columns for this instance; it allows the haeds to flow and fill the width.
Paragraph Rules above and below are turned on with plenty of offset.
I tweaked my setting to accomodate your need - It required only one instance, not above and below, and changing the stroke to a double stroke.
It may be necessary to create a custom stroke to modify the proportion of stroke vs fill. There is a difference of thin-thin and thick-thick, neither of which seemed perfect but might be dependent on the Character height.
Creating custom strokes is accomplished via the Strokes Panel.

Hey, How do I populate my replace colors color library in illustrator? I tried to replace color on a traced/ vectorized image and when I selected and went to the color library CC said I need to use a valid username. I was already logged into my adobe acco

Hey, How do I populate my replace colors color library in illustrator? I tried to replace color on a traced/ vectorized image and when I selected and went to the color library CC said I need to use a valid username. I was already logged into my adobe account.

Can you please show a screenshot of what exactly you want to replace where?

When printing from Preview, the document prints with large print and many lines added and pages added

When printing from Preview, the document prints with large print and many lines added and pages added. Why does this happen?

Thank you!!! That was the problem--scale was set at 200% (don't know why)--when I reduced it to 100% it printed perfectly.
Thanks again for helping me resolve this problem.

Multiple line selection and then capturing the selected values

Dear all
in my alv program ,i need to capture multiple line selections using checkboxes.
I have appended check boxes by adding it in the internal table & filling in field catalog.
but problem is i'm not able to capture multiple selected check boxes dynamically,
i could capture only the last selected check box,
option i found was to use class method get-selected-rows,but i'm unable to use it properly, could anyone explain in detail
i have already gone through the various examples in sdn but i am not able to work out.
like using parameters etc....
CAN ANY ONE HELP ME WITH THE CODE
help reqired immediately,
Thanks in advance.

Hi Ankur,
In the PAI, just after the selection of your user event, button or menu,
add this code before getting the selected records.
<b>CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.</b>
where    grid1 TYPE REF TO cl_gui_alv_grid,
Now fetch the selected records.
Check this code for reference
            C O M P A N Y   C O N F I D E N T I A L                **
       Care should be taken to prevent its unauthorized use.       **
REPORT zfipost MESSAGE-ID f4 NO STANDARD PAGE HEADING .
AUTHOR   : Susmitha Susan Thomas
DATE     : August 18, 2005
*Abridged Version : This report generates a list in Abap List Viewer of
                  all the selected records in VBKPF/VBSEG. * *
                  (TRANSACTION ZPPD:Modified from transaction FBV0)
-- Class definition--
CLASS lcl_event_receiver DEFINITION DEFERRED.
--Tables--
TABLES: vbkpf. " Belegkopf
TABLES: tsp1d, pri_params, spopli.
TYPE-POOLS slis.
---- Global Variables -
DATA:    anzkr(6)     TYPE n,
         lsind        LIKE sy-lsind,
         no_output(1) TYPE c,
         records(1) TYPE c,
         xpick(1)     TYPE c,
         xpickc(1)    TYPE c,
         xbinp(1)     TYPE c,
         rc           LIKE syst-subrc,
         ok_code LIKE sy-ucomm,
         index TYPE i,
         char_x(1)    TYPE c VALUE 'X',
         post         TYPE c,
         ans          TYPE n,
         user(40) TYPE c.
DATA :BEGIN OF i_doctype OCCURS 0,
         blart LIKE vbkpf-blart,
      END OF i_doctype.
--AlV Initialization--
DATA: gs_layout TYPE lvc_s_layo,
       gt_fieldcat TYPE lvc_t_fcat,
       gs_fieldcat TYPE lvc_s_fcat,
       gs_index_rows TYPE lvc_t_row,
       l_layout TYPE disvariant,
       g_repid LIKE sy-repid,
       g_max TYPE i VALUE 100,
       ws_row_idx TYPE lvc_t_row ,
       ws_row_no TYPE lvc_t_roid,
       i_excl_func TYPE ui_functions,
       ls_prnt TYPE lvc_s_prnt,
       refresh TYPE c,
       i_fieldcat TYPE lvc_t_fcat,
      post(1) TYPE c,
       accr_def(1) TYPE c,
       rev_cd(3) TYPE c,
       ch(1) TYPE c.
DATA: list_index LIKE sy-lsind,
      flag TYPE n VALUE 0,
      fl TYPE n VALUE 0,
      g_container TYPE scrfname VALUE 'GRID_CONTAINER',
      grid_container TYPE REF TO cl_gui_docking_container,
      grid1 TYPE REF TO cl_gui_alv_grid,
      custom_container1 TYPE REF TO cl_gui_custom_container,
      event_receiver TYPE REF TO lcl_event_receiver,
      gt_vbkpf1 TYPE STANDARD TABLE OF vbkpf WITH HEADER LINE,
      i_vbkpf TYPE TABLE OF vbkpf WITH HEADER LINE,
      i_ws_row_idx LIKE ws_row_idx WITH HEADER LINE.
---Internal table containing details of selected documents--
DATA : BEGIN OF gt_vbkpf OCCURS 0,
         xpick(1) TYPE c,
         belnr LIKE vbkpf-belnr,
         gjahr LIKE vbkpf-gjahr,
         bukrs LIKE vbkpf-bukrs,
         blart LIKE vbkpf-blart,
         budat LIKE vbkpf-budat,
         bldat LIKE vbkpf-bldat,
         bktxt LIKE vbkpf-bktxt,
         waers LIKE vbkpf-waers,
         usnam LIKE vbkpf-usnam,
         xblnr LIKE vbkpf-xblnr,
         rev_code(3) TYPE c,
         rev_rsn(15) TYPE c,
         rev_date(10) TYPE c,
         linecolor(4) TYPE c,
       END OF gt_vbkpf.
--Table to store long text--
DATA : BEGIN OF inline OCCURS 0,
tdformat TYPE tdformat,
tdline TYPE tdline,
END OF inline.
DATA: thead LIKE thead OCCURS 0 WITH HEADER LINE.
-- Records to be posted--
DATA:   BEGIN OF tbkpf OCCURS 5.
        INCLUDE STRUCTURE vbkpf.
DATA:   END   OF tbkpf.
---- Constants -
CONSTANTS: awtyp_bkpf TYPE awtyp VALUE 'BKPF '.
CONSTANTS: awtyp_space TYPE awtyp VALUE '     '.
Selection Screen
PARAMETER: funcl   LIKE t020-funcl NO-DISPLAY.   "P(ost),D(isplay),U(pd)
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
         p_bukrs     FOR vbkpf-bukrs,
         p_belnr     FOR vbkpf-belnr,
         p_gjahr     FOR vbkpf-gjahr,
         p_budat     FOR vbkpf-budat,
         p_bldat     FOR vbkpf-bldat,
         p_blart     FOR vbkpf-blart,
         p_xblnr     FOR vbkpf-xblnr,
         p_bktxt     FOR vbkpf-bktxt,
         p_usnam     FOR vbkpf-usnam.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK blk
            WITH FRAME TITLE text-010 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-002.
PARAMETER norm_doc    TYPE c
          RADIOBUTTON GROUP doc DEFAULT 'X' .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-001.
PARAMETER ad_doc       TYPE c
           RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(35) text-003.
PARAMETER all_doc       TYPE c
            RADIOBUTTON GROUP doc .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk.
      CLASS lcl_event_receiver DEFINITION
      For capturing events on the ALV                               *
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
to capture all recently changed data.
      handle_data_changed      FOR EVENT data_changed OF
                                       cl_gui_alv_grid
                                       IMPORTING er_data_changed,
for hot spot
      handle_hotspot           FOR EVENT hotspot_click OF
                                       cl_gui_alv_grid
                                       IMPORTING e_column_id e_row_id.
ENDCLASS.   " lcl_event_receiver (Definition)
      CLASS lcl_event_receiver (Implementation)
      For capturing events on the ALV                               *
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_data_changed.
    PERFORM f2200_handle_data_changed USING er_data_changed.
ENDMETHOD.
METHOD handle_hotspot.
    PERFORM f2201_handle_hotspot USING e_column_id e_row_id .
ENDMETHOD.
ENDCLASS. " lcl_event_receiver (Implementation)
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
START-OF-SELECTION
START-OF-SELECTION.
---- Colors -
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
-------------------- Status und Title Bar----------------------------*
SET PF-STATUS funcl.
SET TITLEBAR funcl.
-- Read Records--
SELECT * FROM vbkpf INTO TABLE gt_vbkpf1
      WHERE bukrs IN p_bukrs
        AND ausbk IN p_bukrs
        AND belnr IN p_belnr
        AND gjahr IN p_gjahr
        AND budat IN p_budat
        AND bldat IN p_bldat
        AND blart IN p_blart
        AND bktxt IN p_bktxt
        AND xblnr IN p_xblnr
        AND usnam IN p_usnam
        AND bstat EQ 'V'
      AND ( awtyp IN (awtyp_bkpf, awtyp_space) OR
            awtyp IS null )
      ORDER BY PRIMARY KEY.
----Call the ALV Screen -
PERFORM alv_display.
END-OF-SELECTION.
                     FORM BELEG_PICKUP                              *
      Indicate changing of the selected external record             *
FORM beleg_pickup.
SET PARAMETER ID 'BUK' FIELD vbkpf-bukrs.
SET PARAMETER ID 'GJR' FIELD vbkpf-gjahr.
SET PARAMETER ID 'BLP' FIELD vbkpf-belnr.
CASE funcl.
     WHEN 'P'.
      IF anzkr IS INITIAL.
        CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_D'
             EXPORTING
                  bukrs = vbkpf-bukrs
                  belnr = vbkpf-belnr
                  gjahr = vbkpf-gjahr.
      ELSE.
        IF sy-ucomm EQ 'BUCH'.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    synch   = char_x
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
        ELSE.
          CALL FUNCTION 'ZPRELIMINARY_POSTING_POST_ALL'
               EXPORTING
                    bupbi   = xbinp
               TABLES
                    t_vbkpf = tbkpf.
         wait up to 3 seconds.
         commit work.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
      IF sy-tcode = 'ZPPD'.
        funcl = 'P'.
      ENDIF.
      CALL FUNCTION 'ZPRELIMINARY_POSTING_DISPLAY'
           EXPORTING
                bukrs = vbkpf-bukrs
                belnr = vbkpf-belnr
                gjahr = vbkpf-gjahr.
ENDCASE.
ENDFORM.
                    FORM TBKPF_FUELLEN                              *
            Include records for posting in TBKPF                   *
FORM tbkpf_fuellen.
records = 'X'.
LOOP AT gt_vbkpf.
    IF gt_vbkpf-xpick = 'X'.
      CLEAR anzkr.
      CLEAR records.
      IF sy-subrc = 0.
        anzkr = anzkr + 1.
        MOVE-CORRESPONDING gt_vbkpf TO tbkpf.
        APPEND tbkpf.
      ELSE.
        EXIT.
      ENDIF.
    ENDIF.
ENDLOOP.
ENDFORM.
                          FORM MALL                                 *
                     Select All documents                           *
FORM mall.
LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = 'X'.
    MODIFY gt_vbkpf.
ENDLOOP.
refresh = 'X'.
CALL METHOD grid1->refresh_table_display.
ENDFORM.
                         FORM EMAL                                  *
                   Unselect all documents                           *
FORM emal.
LOOP AT gt_vbkpf.
    gt_vbkpf-xpick = ' '.
    MODIFY gt_vbkpf.
ENDLOOP.
refresh = 'X'.
CALL METHOD grid1->refresh_table_display.
ENDFORM.
                     Form alv_display                               *
              To display the details on an ALV.                      *
FORM alv_display.
CALL SCREEN 100.
ENDFORM.                    " alv_display
*&      Module PB0_100 OUTPUT
MODULE pb0_100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'POSTDOC'.
--To verify that posting is complete.--
---- Setting the layout -
IF grid1 IS INITIAL.
    PERFORM fill_table.
-- Initializing the field catalog--
    PERFORM fieldcat_init CHANGING i_fieldcat.
-- Initializing the ALV GRID and CONTAINER--
    CLEAR gs_layout.
    gs_layout-info_fname = 'linecolor'.
    gs_layout-grid_title = 'Parked Documents'(100).
    gs_layout-zebra               = 'X'.
    gs_layout-cwidth_opt   = 'X'.
    gs_layout-sel_mode = 'A'.
    gs_layout-edit                = 'X'.
    l_layout-report = sy-repid.
------ Create a custom container control for ALV Control----
    IF cl_gui_alv_grid=>offline( ) IS INITIAL.
      CREATE OBJECT grid_container
         EXPORTING
           dynnr                     = '100'
           ratio                     = '100'
        EXCEPTIONS
         cntl_error                  = 1
         cntl_system_error           = 2
         create_error                = 3
         lifetime_error              = 4
         lifetime_dynpro_dynpro_link = 5
         others                      = 6.
      IF sy-subrc NE 0.
     MESSAGE i000 WITH text-007. " Error in object creation
        LEAVE LIST-PROCESSING.
      ENDIF.
-- Create an instance of alv control--
      CREATE OBJECT grid1
             EXPORTING
                i_lifetime = 1
                i_parent = grid_container.
---- Disable all unwanted button in the ALV grid -
      PERFORM disable_functions TABLES i_excl_func.
---- Call the display function of ALV grid -
      CALL METHOD grid1->set_table_for_first_display
           EXPORTING
                     is_variant       = l_layout
                     i_save           = 'A'
                     is_layout        = gs_layout
                     is_print         = ls_prnt
                     it_toolbar_excluding          = i_excl_func
           CHANGING it_outtab        = gt_vbkpf[]
                     it_fieldcatalog = i_fieldcat.
    ENDIF.                  " IF cl_gui_alv_grid=>offline IS INITIAL
    CALL METHOD grid1->register_edit_event
        EXPORTING
         i_event_id = cl_gui_alv_grid=>mc_evt_enter.
    CALL METHOD grid1->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_modified.
---- Create a reciever object to handle events -
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->handle_data_changed FOR grid1.
    SET HANDLER event_receiver->handle_hotspot FOR grid1.
    CALL METHOD cl_gui_control=>set_focus EXPORTING control = grid1.
ENDIF.                   " IF grid1 IS INITIAL.
ENDMODULE.                 " PB0_100 OUTPUT
*&      Form fill_table
     Fills the data table to be passed to the ALV grid.
FORM fill_table.
LOOP AT gt_vbkpf1.
    MOVE-CORRESPONDING gt_vbkpf1 TO gt_vbkpf.
    IF ad_doc = 'X' OR all_doc = 'X'.
      thead-tdobject = 'BELEG'.
      CONCATENATE gt_vbkpf1-bukrs
                  gt_vbkpf1-belnr
                  gt_vbkpf1-gjahr INTO thead-tdname.
      thead-tdspras = sy-langu.
      thead-tdid = '0004'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_code = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0005'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_rsn = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      thead-tdid = '0006'.
      PERFORM read_text.
      READ TABLE inline INDEX 1.
      gt_vbkpf-rev_date = inline-tdline.
      REFRESH inline.
      CLEAR inline.
      REFRESH inline.
      CLEAR inline.
    ENDIF.
    APPEND gt_vbkpf.
    CLEAR gt_vbkpf.
ENDLOOP.
ENDLOOP.
ENDFORM.
*&      Form fieldcat_init
     Initialize the field catalog
FORM fieldcat_init CHANGING i_fieldcat TYPE lvc_t_fcat.
DATA: i_fldcat TYPE lvc_t_fcat WITH HEADER LINE.
CHECKBOX
CLEAR i_fldcat.
i_fldcat-fieldname = 'XPICK'.
i_fldcat-checkbox = 'X'.
i_fldcat-key       = 'X'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-outputlen   = '4'.
i_fldcat-scrtext_l = 'ChkB'.
   APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BELNR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-hotspot   = 'X'.
i_fldcat-outputlen   = '15'.
i_fldcat-scrtext_l = 'Document Number'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'GJAHR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'FYear'.
i_fldcat-outputlen   = '5'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BUKRS'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'CCode'.
i_fldcat-outputlen   = '5'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BLART'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Type'.
i_fldcat-outputlen   = '6'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BLDAT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Doc Date'.
i_fldcat-outputlen   = '12'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BUDAT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Park Date'.
i_fldcat-outputlen   = '12'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'BKTXT'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Document Header Text'.
i_fldcat-outputlen   = '25'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'WAERS'.
i_fldcat-tabname = 'GT_VBKPF'.
i_fldcat-key      = 'X'.
i_fldcat-scrtext_l = 'Curr'.
i_fldcat-outputlen   = '7'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'USNAM'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Parked By'.
i_fldcat-outputlen   = '13'.
APPEND i_fldcat TO i_fieldcat.
CLEAR i_fldcat.
i_fldcat-fieldname = 'XBLNR'.
i_fldcat-tabname   = 'GT_VBKPF'.
i_fldcat-key       = 'X'.
i_fldcat-scrtext_l = 'Reference Text'.
i_fldcat-outputlen   = '19'.
APPEND i_fldcat TO i_fieldcat.
IF ad_doc = 'X' OR all_doc = 'X'.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_CODE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'RC'.
    i_fldcat-outputlen   = '2'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_RSN'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Reason'.
    i_fldcat-outputlen   = '15'.
    APPEND i_fldcat TO i_fieldcat.
    CLEAR i_fldcat.
    i_fldcat-fieldname = 'REV_DATE'.
    i_fldcat-tabname   = 'GT_VBKPF'.
   i_fldcat-key       = 'X'.
    i_fldcat-scrtext_l = 'Rev Date'.
    i_fldcat-outputlen   = '10'.
    APPEND i_fldcat TO i_fieldcat.
ENDIF.
ENDFORM.                    " fieldcat_init
*&      Module PAI_100 INPUT
MODULE pai_100 INPUT.
CASE ok_code.
    WHEN 'BACK'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'EXIT'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN '%EX'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BINP'.
      DATA : ws_x TYPE c VALUE 'X'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
          EXPORTING
               titlebar      = 'Posting Documents Via Batch Input'
               text_question =
           'Are you sure you want to post all the selected documents?'
               text_button_1 = 'Yes'
               text_button_2 = 'No'
               start_column = 25
               start_row     = 6
          IMPORTING
               answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
             IMPORTING
               e_valid = ws_x.
        xbinp = 'X'.
        PERFORM tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'MALL'.
      PERFORM mall.
    WHEN 'EMAL'.
      PERFORM emal.
    WHEN 'RW'.
      IF sy-dynnr = '1000'.
        PERFORM exit_program.
      ELSEIF sy-dynnr = '0100'.
        LEAVE TO TRANSACTION 'ZPPD'.
      ENDIF.
    WHEN 'BUCH'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
           EXPORTING
                titlebar      = 'Posting Document'
                text_question =
            'Are you sure you want to post all documents selected?'
                text_button_1 = 'Yes'
                text_button_2 = 'No'
                start_column = 25
                start_row     = 6
           IMPORTING
                answer        = ans.
      IF ans = '1'.
        CALL METHOD grid1->check_changed_data
          IMPORTING
            e_valid = ws_x.
            perform tbkpf_fuellen.
        IF records = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ELSE.
          PERFORM beleg_pickup.
        ENDIF.
      ENDIF.
    WHEN 'PICK'.
      DATA : check TYPE n,
             no_rec TYPE c.
      check = 0.
      no_rec = 'X'.
      CALL METHOD grid1->check_changed_data
        IMPORTING
          e_valid = ws_x.
      index = 0.
      LOOP AT gt_vbkpf.
        funcl = 'D'.
        index = index + 1.
        IF gt_vbkpf-xpick = 'X'.
          check = 1.
          CLEAR no_rec.
          READ TABLE gt_vbkpf1 INDEX index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDIF.
      ENDLOOP.
      IF check = 0.
        CALL METHOD grid1->get_selected_rows
          IMPORTING
            et_index_rows = ws_row_idx.
        IF NOT ws_row_idx IS INITIAL.
          CLEAR no_rec.
        ENDIF.
        LOOP AT ws_row_idx INTO i_ws_row_idx.
          READ TABLE gt_vbkpf1 INDEX i_ws_row_idx-index INTO vbkpf.
          PERFORM beleg_pickup.
        ENDLOOP.
        IF no_rec = 'X'.
          MESSAGE s999(zv) WITH text-007.
        ENDIF.
      ENDIF.
    WHEN '&RNT_PREV'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&RNT'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '%SC'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&OL0'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&OAD'.
      CALL METHOD grid1->set_function_code
      CHANGING c_ucomm = ok_code.
    WHEN '&AVE'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&AQW'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&XXL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '%PC'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN '&CRTEMPL'.
      CALL METHOD grid1->set_function_code
     CHANGING c_ucomm = ok_code.
    WHEN OTHERS.
     do nothing.
ENDCASE.
CLEAR ok_code.
ENDMODULE.                 " PAI_100 INPUT
*&      Form exit_program
     Exits from the program after freeing the grid and container     *
FORM exit_program.
IF NOT grid_container IS INITIAL.
    CALL METHOD grid_container->free.
ENDIF.
IF NOT grid1 IS INITIAL.
    CALL METHOD grid1->free
       EXCEPTIONS
         cntl_error        = 1
         cntl_system_error = 2
         OTHERS            = 3.
ENDIF.
LEAVE PROGRAM.
ENDFORM.                    " exit_program
*&      Form f2200_handle_data_changed
      To handle event of change in data in ALV.
     -->P_ER_DATA_CHANGED text
FORM f2200_handle_data_changed USING    ir_data_changed
                                         TYPE REF TO
                                         cl_alv_changed_data_protocol.
DATA : ls_mod_cell TYPE lvc_s_modi ,
         lv_value TYPE lvc_value,
         lflg_check TYPE i.
DATA : wa_vbkpf LIKE LINE OF gt_vbkpf.
SORT ir_data_changed->mt_mod_cells BY row_id .
LOOP AT ir_data_changed->mt_mod_cells
                     INTO ls_mod_cell
                     WHERE fieldname = 'I_PICK'.
    IF NOT ls_mod_cell-value IS INITIAL .
      CALL METHOD ir_data_changed->modify_cell
        EXPORTING
          i_row_id    = ls_mod_cell-row_id
          i_fieldname = ls_mod_cell-fieldname
          i_value     = ls_mod_cell-value.
      READ TABLE gt_vbkpf INTO wa_vbkpf
                 INDEX ls_mod_cell-row_id.
      IF ls_mod_cell-fieldname = 'I_PICK'.
        wa_vbkpf-xpick = ls_mod_cell-value.
      ENDIF.
      MODIFY gt_vbkpf FROM wa_vbkpf
                          INDEX ls_mod_cell-row_id.
    ENDIF .
ENDLOOP .
ENDFORM.                    " f2200_handle_data_changed
*&      Form f2201_handle_hotspot
            To handle event of clicking on hyperlink
     -->P_E_COLUMN_ID text
FORM f2201_handle_hotspot USING    p_e_column_id p_e_row_id.
READ TABLE gt_vbkpf1 INDEX p_e_row_id INTO vbkpf.
funcl = 'D'.
PERFORM beleg_pickup.
PERFORM exit_program.
ENDFORM.                    " f2201_handle_hotspot
Regards,
Susmitha
Dont forget to reward points for useful answers

PF Status and At line Selection

Hi All,
I need your help!
I have used PF Status for my first screen display. Now I need to display a 2nd screen, new classical report which a line can be selected ( Double-Clicked ) and then a transaction can be displayed.
How should I do this?
Thanks,
Dyan

HI
JUST GO THRO THE FOLLOWING LINES..I HAVE USED AT LINE SELECTION..
DATA: IT_LFA1 TYPE TABLE OF LFA1,
      WA_LFA1 TYPE LFA1,
      IT_EKKO TYPE TABLE OF EKKO,
      WA_EKKO TYPE EKKO,
      IT_EKPO TYPE TABLE OF EKPO,
      WA_EKPO TYPE EKPO.
SELECT-OPTIONS ACCNO FOR WA_LFA1-LIFNR.
SELECT * FROM LFA1 INTO TABLE IT_LFA1 WHERE LIFNR IN ACCNO.
WRITE : /70 'VENDOR Report' COLOR COL_HEADING .
ULINE.
WRITE : /10 'ACCOUNT NO ', 57 'NAME'.
LOOP AT IT_LFA1 INTO WA_LFA1.
    WRITE: /10 WA_LFA1-LIFNR, WA_LFA1-NAME1, WA_LFA1-ORT01.
    hide WA_LFA1-LIFNR.
ENDLOOP.
clear WA_LFA1-LIFNR.
AT LINE-SELECTION.
**write / sy-LILLI.
IF SY-LSIND = 1.
     SELECT * FROM EKKO INTO TABLE IT_EKKO WHERE LIFNR = WA_LFA1-LIFNR.
WRITE : / 'PUR DOC NO',20 'COMP CODE',30 'PUR DOC TYPE'.
     LOOP AT IT_EKKO INTO WA_EKKO.
WRITE: /10 WA_EKKO-EBELN, WA_EKKO-BUKRS,WA_EKKO-BSART.
        HIDE WA_EKKO-EBELN.
      ENDLOOP.
ENDIF.
IF SY-LSIND = 2.
SELECT * FROM EKPO INTO TABLE IT_EKPO WHERE EBELN = WA_EKKO-EBELN.
WRITE: / 'MATERIAL NO','PLANT','STORAGE LOCATION'.
LOOP AT IT_EKPO INTO WA_EKPO.
WRITE: /10 WA_EKPO-MATNR, WA_EKPO-WERKS, WA_EKPO-LGORT.
HIDE WA_EKPO-MATNR.
ENDLOOP.
ENDIF.
IF SY-LSIND = 3.
SET PARAMETER ID 'DFD' FIELD WA_EKPO-MATNR.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
ENDIF.
REWARD IF USEFUL.

At line-selection and user command

hi,
is it possible to use both at line selecion and at user command at a time.

Hi Kiran,
Yes, it is possible to use both at line selecion and at
user command at a time.
AT LINE-SELECTION.
Event in interactive reporting
This event is processed whenever the user chooses a valid line in the list (i.e. a line generated by statements such as WRITE,ULINE, or SKIP) with the cursor and presses the function key which has the function PICK in the interface definition. This should normally be the function key F2, because it has the same effect as double-clicking the mouse, or clicking once in the case of a hotspot.
The processing for the event AT LINE-SELECTION usually generates further list output (the details list) which completely covers the current list display. If you want the current list display to remain visible (to aid user orientation), you can do this with the key word WINDOW.
AT USER-COMMAND.
Event in interactive reporting
This event is executed whenever the user presses a function key in the list or makes an entry in the command field.
DATA: NUMBER1 TYPE I VALUE 20,
      NUMBER2 TYPE I VALUE 5,
      RESULT TYPE I.
START-OF-SELECTION.
WRITE: / NUMBER1, '?', NUMBER2.
AT USER-COMMAND.
CASE SY-UCOMM.
    WHEN 'ADD'.
      RESULT = NUMBER1 + NUMBER2.
    WHEN 'SUBT'.
      RESULT = NUMBER1 - NUMBER2.
    WHEN 'MULT'.
      RESULT = NUMBER1 * NUMBER2.
    WHEN 'DIVI'.
      RESULT = NUMBER1 / NUMBER2.
    WHEN OTHERS.
      WRITE 'Unknown function code'.
      EXIT.
ENDCASE.
WRITE: / 'Result:', RESULT.
After entry of a function code, the appropriate processing is performed under the event AT USER-COMMAND and the result is displayed in the details list.
Reward points if helpful,
Rgds,
Sumana

Refresh Report and At Line-Selection and At User-Command

Similar Messages

Maybe you are looking for