Timestamp Field in ALV Grid

Hi
I have a field for timestamp (CHAR 14) in an editable ALV.The Conversion Exit i have used is TSTPS. If I enter a non-numeric character into that field , it gets cleared but no error is generated.However , I want to display an error if the user attempts to do so or do not allow the user to enter those characters at all.
Thanks
Shilpa

Similar Messages

How can we sort up currency field in alv grid??

Hi GUrus,
Can any one suggest me how to sort the currency field in alv grid...Please help me out of this issue..
Thanks in advance!!!
regards,
Kranthi.

hii,
SAP provides a set of ALV (ABAP List Viewer) & function modules, which can be used to enhance the readability and functionality of any report output.
ALV is a flexible tool used for displaying lists.The tool provides common list functions & can be enhanced by self-defined options.
so u will get the option for sorting in your alv report.
Thanks

Total for a Numeric field in ALV Grid display

Hi all,
I am not getting the Total for a Numeric field in ALV Grid output. What might be the problem.
Regards,
Balavardhan.K

Check this code for subtotals and totals..
REPORT ZYFI_REPT007
       NO STANDARD PAGE HEADING
       LINE-SIZE 300
       LINE-COUNT 50
       MESSAGE-ID ZYFI.
TABLES : COOI, " Commitments Management: Line Items
         LFA1,                         " Vendor master (general section)
         VBEP,
         RKPLN.
      TABLE TYPES AND INTERNAL TABLES                                *
DATA : BEGIN OF TYP_COOI ,
       OBJNR LIKE COOI-OBJNR,
       SAKTO LIKE COOI-SAKTO,
       MEGBTR LIKE COOI-MEGBTR,
       MEINH LIKE COOI-MEINH,
       WKGBTR LIKE COOI-WKGBTR,
       REFBN LIKE COOI-REFBN,
       RFPOS LIKE COOI-RFPOS,
       SGTXT LIKE COOI-SGTXT,
       BUDAT LIKE COOI-BUDAT,
       LIFNR LIKE COOI-LIFNR,
       END OF TYP_COOI.
DATA : BEGIN OF TYP_LFA1 ,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
       END OF TYP_LFA1.
DATA : BEGIN OF IT_OUTTAB OCCURS 0,
         OBJNR LIKE COOI-OBJNR,
         SAKTO LIKE COOI-SAKTO,
         MEGBTR LIKE COOI-MEGBTR,
         MEINH LIKE COOI-MEINH,
         WKGBTR LIKE COOI-WKGBTR,
         REFBN LIKE COOI-REFBN,
         RFPOS LIKE COOI-RFPOS,
         SGTXT LIKE COOI-SGTXT,
         BUDAT LIKE COOI-BUDAT,
         LIFNR LIKE COOI-LIFNR,
         NAME1 LIKE LFA1-NAME1,
       END OF IT_OUTTAB.
DATA : IT_COOI LIKE TYP_COOI OCCURS 0 WITH HEADER LINE,
       IT_LFA1 LIKE TYP_LFA1 OCCURS 0 WITH HEADER LINE.
*-- ALV Declarations
TYPE-POOLS SLIS.
DATA: IT_EVENTS            TYPE SLIS_T_EVENT,
      GS_EVENT             TYPE SLIS_ALV_EVENT,
      wa_fldcat            type slis_fieldcat_alv.
DATA: S_LAYOUT TYPE SLIS_LAYOUT_ALV,
      GT_PRINT TYPE SLIS_PRINT_ALV.
DATA: IT_FLDCAT       TYPE SLIS_T_FIELDCAT_ALV.
DATA: IT_SORT             TYPE SLIS_T_SORTINFO_ALV.
DATA: V_REPID LIKE SY-REPID.
                    SELECTION SCREEN                                 *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_KOKRS FOR COOI-KOKRS NO-EXTENSION NO INTERVALS,
                                       " Controlling Area
                 S_BUKRS FOR COOI-BUKRS NO-EXTENSION NO INTERVALS,
                                       " Company code
                 S_GJAHR FOR COOI-GJAHR NO-EXTENSION NO INTERVALS,
                                       " Fiscal Year
                 S_OBJNR FOR RKPLN-AUFNR MATCHCODE OBJECT ORDE,
                                                        " Internal order
                 S_SAKTO FOR COOI-SAKTO MATCHCODE OBJECT KART,
                                                          " Cost Element
                 S_BUDAT FOR COOI-BUDAT, " Debit Date
                 S_LIFNR FOR COOI-LIFNR. " Vendor
SELECTION-SCREEN END OF BLOCK B1.
       S T A R T   O F   S E L E C T I O N                           *
START-OF-SELECTION.
*-- Read data
PERFORM GET_DATA.
       E N D   O F   S E L E C T I O N                               *
END-OF-SELECTION.
*-- Process the data and prepare the output data
PERFORM CALCULATE_FINAL_INFO.
*--Display Report output
PERFORM DISPLAY_REPORT.
      FORM CALCULATE_FINAL_INFO                                     *
    Process the data and prepare final internal table               *
FORM CALCULATE_FINAL_INFO.
DATA : L_OBJNR LIKE COOI-OBJNR.
SORT IT_LFA1 BY LIFNR.
DELETE ADJACENT DUPLICATES FROM IT_LFA1 COMPARING LIFNR.
LOOP AT IT_COOI.
    L_OBJNR = IT_COOI-OBJNR+2(20).
    SHIFT L_OBJNR LEFT DELETING LEADING '0'.
    IF L_OBJNR IN S_OBJNR.
      READ TABLE IT_LFA1 WITH KEY LIFNR = IT_COOI-LIFNR.
      IF SY-SUBRC EQ 0.
        IT_OUTTAB-NAME1 = IT_LFA1-NAME1.
      ENDIF.
      MOVE-CORRESPONDING IT_COOI TO IT_OUTTAB.
      CLEAR IT_OUTTAB-OBJNR.
      IT_OUTTAB-OBJNR = L_OBJNR.
      APPEND IT_OUTTAB.
      CLEAR IT_OUTTAB.
      CLEAR IT_LFA1.
      CLEAR L_OBJNR.
    ENDIF.
ENDLOOP.
ENDFORM.
*&      Form GET_DATA
     Fetch the Data from the table COOI and LFA1
FORM GET_DATA.
SELECT OBJNR
        SAKTO
        MEGBTR
        MEINH
        WKGBTR
        REFBN
        RFPOS
        SGTXT
        BUDAT
        LIFNR
        FROM COOI
        INTO TABLE IT_COOI
        WHERE   BUDAT IN S_BUDAT
        AND LIFNR IN S_LIFNR
        AND KOKRS IN S_KOKRS
        AND BUKRS IN S_BUKRS
        AND GJAHR IN S_GJAHR
        AND SAKTO IN S_SAKTO.
IF SY-SUBRC EQ 0 .
Get the Vendor name from LFA1
    SELECT LIFNR
           NAME1
           FROM LFA1
           INTO TABLE IT_LFA1
           FOR ALL ENTRIES IN IT_COOI
           WHERE LIFNR EQ IT_COOI-LIFNR.
ELSE.
    MESSAGE I999 WITH TEXT-013.
ENDIF.
ENDFORM.                               " GET_DATA
*&      Form DISPLAY_REPORT
       Display the output
FORM DISPLAY_REPORT.
PERFORM BUILD_CATALOG.
PERFORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS.
IF NOT IT_OUTTAB[] IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         EXPORTING
              I_CALLBACK_PROGRAM      = V_REPID
              I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
              IT_FIELDCAT             = IT_FLDCAT
              IT_SORT                 = IT_SORT
              IT_EVENTS               = IT_EVENTS
         TABLES
              T_OUTTAB                = IT_OUTTAB
         EXCEPTIONS
              PROGRAM_ERROR           = 1
              OTHERS                  = 2.
ELSE.
    MESSAGE I999 WITH TEXT-013.
ENDIF.
ENDFORM.                               " DISPLAY_REPORT
*&      Form BUILD_CATALOG
      Build the Field catalog for the ALV Report
FORM BUILD_CATALOG.
DATA: V_INDEX LIKE SY-TABIX.
V_REPID = SY-REPID.
DATA: LS_SORT TYPE SLIS_SORTINFO_ALV.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_PROGRAM_NAME         = V_REPID
            I_INTERNAL_TABNAME     = 'IT_OUTTAB'
            I_INCLNAME             = V_REPID
       CHANGING
            CT_FIELDCAT            = IT_FLDCAT
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 2
            OTHERS                 = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'WKGBTR'
                         TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.
IF SY-SUBRC EQ 0.
    WA_FLDCAT-DO_SUM = 'X'.
    MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.
ENDIF.
READ TABLE IT_FLDCAT WITH KEY FIELDNAME = 'OBJNR'
                            TABNAME = 'IT_OUTTAB' INTO WA_FLDCAT.
IF SY-SUBRC EQ 0.
     WA_FLDCAT-SELTEXT_L = 'Order'.
     WA_FLDCAT-COL_POS = 1.
     WA_FLDCAT-DDICTXT = 'L'.
    MODIFY IT_FLDCAT FROM WA_FLDCAT INDEX SY-TABIX.
ENDIF.
LS_SORT-FIELDNAME = 'OBJNR'.
LS_SORT-SPOS      = 1.
LS_SORT-UP        = 'X'.
LS_SORT-SUBTOT    = 'X'.
APPEND LS_SORT TO IT_SORT.
ENDFORM.                               " BUILD_CATALOG
*&      Form FRM_PREPARE_EVENT_LIST
      Build the Events
FORM FRM_PREPARE_EVENT_LIST TABLES IT_EVENTS TYPE SLIS_T_EVENT.
CLEAR GS_EVENT.
GS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
GS_EVENT-FORM = 'TOP_OF_PAGE_REPORT'.
APPEND GS_EVENT TO IT_EVENTS.
ENDFORM.                               " FRM_PREPARE_EVENT_LIST
     TOP OF PAGE
FORM TOP_OF_PAGE_REPORT.
CALL FUNCTION 'Z_YREPORT_HEADER'
       EXPORTING
            DL_TITLE = SY-TITLE
            DL_REPID = SY-CPROG
            DL_LINSZ = SY-LINSZ
       EXCEPTIONS
            OTHERS   = 1.
ENDFORM.                               " FRM_TOP_OF_PAGE_REPORT
*&      Form USER_COMMAND
Drill Down Functionality to Call the Transaction ME23
FORM USER_COMMAND USING    P_UCOMM    LIKE SY-UCOMM
                           P_SELFIELD TYPE SLIS_SELFIELD.
DATA : L_INDEX LIKE SY-INDEX,
         L_REFBN LIKE COOI-REFBN.
L_INDEX = P_SELFIELD-TABINDEX.       " holds the selected table index
CLEAR L_REFBN.
CASE P_UCOMM.
*-- On Double Click
    WHEN '&IC1'.
      CLEAR L_REFBN.
*-- Read the Current Line
      READ TABLE IT_OUTTAB INDEX L_INDEX.
      IF SY-SUBRC EQ 0.
        L_REFBN = IT_OUTTAB-REFBN.
        IF NOT L_REFBN IS INITIAL.
*-- Set the BES Paramater Id to the Current line Purchase Order Number
          SET PARAMETER ID 'BES' FIELD L_REFBN.
*-- Call the Transaction Purchase Order Display with the above PO Number
          CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
        ENDIF.
      ELSE.
        MESSAGE E999 WITH TEXT-014.
      ENDIF.
ENDCASE.
ENDFORM.                               " USER_COMMAND

Add List box for one field in ALV GRID

Hi All,
I need to add drop down list box for one field in ALV Grid.
If any body knows, please help.
Thanks in advance.
Regards
Manglesh

Hi,
Here is the ex where i have used for date parameter in the sel screen
type-pools: vrm.
data: name type vrm_id,
      list type vrm_values,
      value like line of list.
parameters :    p_date like p_date2
                              as listbox visible length 15.
at selection-screen output.
name = 'P_DATE'.
value-key = '1'.
value-text = 'Today'.
append value to list.
value-key = '2'.
value-text = 'Last 7 days'.
append value to list.
value-key = '3'.
value-text = 'Last 30 days'.
append value to list.
value-key = '4'.
value-text = 'Last 90 days'.
append value to list.
value-key = '5'.
value-text = 'Last year'.
append value to list.
Call the ''VRM_SET_VALUES' to display the values in Listbox
call function 'VRM_SET_VALUES'
    exporting
      id     = name
      values = list.
at selection-screen.
if sy-ucomm = 'CLI1'.
    sscrfields-ucomm = 'ONLI'(001).
endif.
if p_date = '1'.
    p_date11 = sy-datum .
elseif p_date = '2'.
    p_date11 = ( sy-datum - 7 ).
elseif p_date = '3'.
    p_date11 = ( sy-datum - 30 ).
elseif p_date = '4'.
    p_date11 = ( sy-datum - 90 ).
elseif p_date = '5'.
    p_date11 = ( sy-datum - 365 ).
endif.
Hope this helps u..
Please reward points if useful.
Regards,
Sreenivas

F4 - Help for field in ALV Grid Output

Hi,
I generated a report which gives output in ALV Grid output.
In the output, 1 of the field is editable.Here, for this field I need to have my own F4-Help.
I think the procedure to be followed is:--
Create a Search Help in SE11.
Link the Search Help to the editable field.
Please let me know if its the correct procedure.
I f yes, how can I link user defined Search Help to the editable field?
Thanks,
Shivaa........

Hi siva,
you can also do that way.
while filling the fieldcatalog use the parameter F4AVAILABL
for more info check
F4 help in ALV Grid...
f4 help for a field in alv grid
hope it helps you
Thanks!
Edited by: Prasanth on Mar 6, 2009 3:59 PM

F4 help for field in ALV grid control (using ABAP objects)

Hi All,
    I have created a z table ZTAB which is a master table( with single column X). field X should be a input field in ALV Grid through F4 key. I have created searchelp and assigned it to data element of X feild, and in domain level I have assigned ZTAB as value table.
    And in ALV field catalog wrote ls_fcat-ref_tab = 'ZTAB'. But still I'm not getting list of values when I press F4.
Can anyone help me to understand what is missing here? How to call standardard F4 help?
This is very urgent..
Regards
Jaker.

u can refer to this standard program :BCALV_EDIT_08
also u wont get the list of values automatically..
declare a class :
CLASS LCL_EVENT_HANDLER DEFINITION.
PUBLIC SECTION.
    METHODS :
    handle_on_f4 for event onf4 of cl_gui_alv_grid
    importing e_fieldname es_row_no er_event_data,
ENDCLASS.               "LCL_EVENT_HANDLER
implementation of class
here u pass ur internal table what u want to display as pop up for f4 help.
*&       Class (Implementation) LCL_EVENT_HANDLER
       Text
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Method to handle F4 click.
Method handle_on_f4.
Function to create a popup and passing the values of internal table in it.
      CALL FUNCTION 'POPUP_WITH_TABLE'
        EXPORTING
          ENDPOS_COL   = 60
          ENDPOS_ROW   = 60
          STARTPOS_COL = 5
          STARTPOS_ROW = 5
          TITLETEXT    = 'pop up'
        IMPORTING
          CHOICE       = wa_grid-zfield
        TABLES
          VALUETAB     = ITAB
        EXCEPTIONS
          BREAK_OFF    = 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.
        RETURN.
      ENDIF.
endmethod.                    "handle_on_f4
ENDCLASS.               "LCL_EVENT_HANDLER
hope this gives u some idea.

How to make a field of ALV Grid to use a Search Help?

Hi;
I have a ALV grid with a field catalog. Say the field is 'USR000'.
F4availabl = 'X' . for the field in the field catalog.
I have prepared search help named ZEV_PROTYPE that uses tha table ZEV_PROTYPES.(two fields in the table :ProType and Text).
Is it possible to make the field in ALV grid to use this search help if F4 is pressed on the field. ?
Which structure of the ALV must be used for that ? Is it Field Catalog ?
Would you please help me ?
erk.

Hi,
If you have a Z data element and the search help is attached to it, you can just give the reference table and field in the field catalog for the editable ALV field, and the search help should appear.
Regards,
Sagar

How to add F1 help for a field on ALV grid

Hi All,
When we execute a program, the output is displayed using ALV grid.
on the ALV grid, if we press F1 on a field, it should popup the help document.
How to add F1 help for a field on ALV grid.
Thank you all in advance.

fill field LVC_S_FCAT-ROLLNAME of your fieldcatalog in method SET_TABLE_FOR_FIRST_DISPLAY
A.

Color change of a field in ALV Grid Control

Hi,
One small help needed....
My req is explained below:
I have 3 fields empno, ename and deptno. and the records of these fields would be displayed in ALV grid control.
When I hover the mouse on ename field, the color of the complete field should change to other color, say "RED".
How do I get this. Are there any Mouse events in SAP?
Kalyan

Hi,
Once i changed the color of a field in a alv (not grid alv), i suspose that the same in alv grid. Also i used an mouse event.
To manage the color:
TYPE-POOLS : SLIS, and check this type: SLIS_T_SPECIALCOL_ALV.
when you call the function to display the alv, there is a parameter in which you should pass an internal table that references the type SLIS_T_SPECIALCOL_ALV.
To manage the mouse:
1.- You should add the event user command:
for example:
DATA: I_EVENT TYPE SLIS_ALV_EVENT.
Llamo al la función que obtiene los eventos validos para el ALV
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE     = 0
       IMPORTING
            ET_EVENTS       = P_EVENTS
       EXCEPTIONS
            LIST_TYPE_WRONG = 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.
ELSE.
agrega evento user command
    READ TABLE P_EVENTS INTO I_EVENT
      WITH KEY NAME = SLIS_EV_USER_COMMAND.
    IF SY-SUBRC EQ 0.
      I_EVENT-FORM = SLIS_EV_USER_COMMAND.
      MODIFY P_EVENTS FROM I_EVENT INDEX SY-TABIX.
    ENDIF.
ENDIF.
2.- you work with the user command event:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                        RS_SELFIELD TYPE SLIS_SELFIELD .
CASE R_UCOMM.
    WHEN C_DOBLE_CLICK.
    here you do the things that you need when the mouse *     bottom it's pressed
      PERFORM xxxxxxx.
ENDCASE.
ENDFORM.
3.- you can change the form of the mouse, but i don't remember exactly how to do that... try to check that, it's helpfull in order to display the fields that can execute a funtion in your alv.
I hope this help you, and sorry for my english.
Albio.-

Currency field in alv grid display

Hi,
I am using alv grid display.I am having one currency field netprice.I want it to be displayed as blank when i am not passing any value.But it gives 0.00 when it is not having any value.How to make it blank instead of 0.00.
Points will be rewarded.
Regards,
Sowmya.

HI,
If itab-curr = '0.00' .
itab-curr = ''.
modify itab.
endif.

Display value and description of one field in alv grid

Hi Folks,
   I want to display value and description of one field as one column in alv grid.
for example iam having Xfield = 01,02,03.
and 01 iam having text value as xxx,
01 xxx
02 yyy
03 zzz
Im report display the values are displaying as 01,02,03..
but i want to display it as 01 xxx,02 yyy, 03 zzz.
Please do needful.
Thx.

Hi, swetha
You can do this with "concatenate".
example:
In you code check where you final internal table is getting filled up before that do this concatenate and then append it.
data t_text type string.
t_text = textfield
CONCATENATE 'Xfield'
                 t_text
                  INTO wa_workarea SEPARATED BY space.
cheers,
Bhavana

Total Field in ALV Grid

Can i change the values in total column in ALV Grid program. I had made one report with 3 hirerchy level and for first hirerchy i need different total values just for one column as total values are misleading the users. is it possible to change the value total field in ALV?

hi
make the fields for which u r displaying total as editable.
so when ever u make changes in the column,
see the sample code, i have done a similar program
FORM DATA_CHANGED_MATRIX USING P_ER_DATA_CHANGED TYPE REF TO
CL_ALV_CHANGED_DATA_PROTOCOL P_ONF4 type C E_UCOMM TYPE SY-UCOMM.
DATA: VALUE LIKE YRECORDINGD_QDMS-SCORE.
CLEAR VALUE.
data: begin of wa_tot,
TOTAL_SCORE like yrecordingd_qdms-score,
end of wa_tot.
DATA: BEGIN OF WA_DATA,
SRNO type i,
LOCATION LIKE YCONCERNS_QDMS-LOCATION,
LOC_DESC LIKE YLOCATION_QDMST-LOC_DESC,
TOTAL_SCORE LIKE YRECORDINGD_QDMS-SCORE,
END OF WA_DATA.
FIELD-SYMBOLS: <LS_VALUE1> TYPE ANY,
<LS_VALUE2> TYPE ANY.
DATA: L_VALUE TYPE LVC_VALUE,
ls_mod_cell type lvc_s_modi.
SORT P_ER_DATA_CHANGED->MT_MOD_CELLS BY ROW_ID.
LOOP AT P_ER_DATA_CHANGED->MT_MOD_CELLS INTO LS_MOD_CELL.
    CALL METHOD P_ER_DATA_CHANGED->GET_CELL_VALUE
      EXPORTING
        I_ROW_ID    = LS_MOD_CELL-row_id
        I_FIELDNAME = LS_MOD_CELL-fieldname
      IMPORTING
        E_VALUE     = L_VALUE.
    VALUE = L_VALUE.
    IF VALUE < 100.
      READ TABLE <TEMP_TAB> INTO <TEMP_WA> INDEX LS_MOD_CELL-ROW_ID.
      MOVE-CORRESPONDING <TEMP_WA> TO WA_TOT.
      WA_TOT-TOTAL_SCORE = WA_TOT-TOTAL_SCORE + VALUE.
      MOVE-CORRESPONDING WA_TOT TO <TEMP_WA>.
      MODIFY <TEMP_TAB> FROM <TEMP_WA> INDEX LS_MOD_CELL-ROW_ID.
      CALL METHOD GO_GRID->REFRESH_TABLE_DISPLAY.
    ELSE.
          CLEAR WA_DATA.
    ENDIF.
    CLEAR:WA_TOT,VALUE.
ENDLOOP.
ENDFORM.

Error when double clicking any field in Alv grid

Hi All,
I have created a custom container. To that custom container I am displaying an alv grid with all editable fields using oops concept.
Hence when I am double clicking on any on the field of the table I am getting a dump " an exception condition ERROR raised in CL_GUI_ALV_GRID_BASE in method SET_DRAG_DROP_ROWS".
Kindly help

Hi,
Check the PF-STATUS. It seems that you have assigned F6 shortcut key for some event.
Remove the F6 assignment & activate the pf-status.
Best regards,
Prashant

Double click on list field in ALV grid control

Hello all,
I developed a report with a ALV grid control. I would like to move some functionality from marking a line and pressing a button in the status line to double clicking a specific field in the output list and execute a command there (i.e. double click on PO number and go to PO display TAC then). Can anybody provide some example coding for that?
Thanks so much for your help!
Torsten

Here is your sample program. Copy this code into a z program. Create the screen 100 with a container in it and name it "ALV_CONTAINER". Create the gui-status with "BACK".
report zrich_0001.
tables: ekko.
data: begin of i_alv occurs 0,
      ebeln type ekko-ebeln,
      end of i_alv.
*       CLASS cl_event_receiver DEFINITION      Handles Double Click
class cl_event_receiver definition.
public section.
    methods handle_double_click
      for event double_click of cl_gui_alv_grid
      importing e_row e_column.
private section.
endclass.
*       CLASS CL_EVENT_RECEIVER IMPLEMENTATION    Handles Double Click
class cl_event_receiver implementation.
method handle_double_click.
    perform drill_down using e_row-index.
endmethod.
endclass.
data: alv_container type ref to cl_gui_custom_container.
data: event_receiver type ref to cl_event_receiver.
data: alv_grid       type ref to cl_gui_alv_grid.
data: layout    type lvc_s_layo.
data: fieldcat type lvc_t_fcat.
selection-screen begin of block b1 with frame title text-001 .
select-options: s_ebeln for ekko-ebeln.
selection-screen end of block b1.
start-of-selection.
perform get_data.
call screen 100.
*      Module status_0100 OUTPUT
module status_0100 output.
set pf-status '0100'.
set titlebar '0100'.
data: variant type disvariant.
variant-report = sy-repid.
variant-username = sy-uname.
* Create Controls
create object alv_container
         exporting
               container_name    = 'ALV_CONTAINER'.
create object alv_grid
         exporting
               i_parent          = alv_container.
* Create Event Receiver
create object event_receiver.
* Populate Field Catalog
perform get_fieldcatalog.
call method alv_grid->set_table_for_first_display
      exporting
           is_layout              = layout
           is_variant             = variant
           i_save                 = 'U'
           i_structure_name       = 'I_ALV'
      changing
           it_outtab       = i_alv[]
           it_fieldcatalog = fieldcat[].
*   handler for ALV grid
set handler event_receiver->handle_double_click for alv_grid.
endmodule.
*      Module USER_COMMAND_0100 INPUT
module user_command_0100 input.
case sy-ucomm.
    when 'BACK' or 'CANC'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      if sy-subrc = 0.
        set screen 0.
        leave screen.
      else.
        leave program.
      endif.
    when 'EXIT'.
      if not alv_container is initial.
        call method alv_container->free.
        clear: alv_container.
        free : alv_container.
      endif.
      leave program.
endcase.
endmodule.
* FORM GET_DATA
form get_data.
select * into corresponding fields of table i_alv
            from ekko
                 where ebeln in s_ebeln.
sort i_alv ascending by ebeln.
endform.
*      Form Get_Fieldcatalog - Set Up Columns/Headers
form get_fieldcatalog.
data: ls_fcat type lvc_s_fcat.
refresh: fieldcat.
clear: ls_fcat.
ls_fcat-reptext    = 'PO Number'.
ls_fcat-coltext    = 'PO Number'.
ls_fcat-fieldname = 'EBELN'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '12'.
ls_fcat-col_pos    = 1.
append ls_fcat to fieldcat.
endform.
* DRILL_DOWN
form drill_down using index.
read table i_alv index index.
if sy-subrc = 0.
    set parameter id 'BES' field i_alv-ebeln.
    call transaction 'ME23' and skip first screen.
    if not alv_container is initial.
      call method alv_container->free.
      clear: alv_container.
      free : alv_container.
    endif.
endif.
endform.
Regards,
Rich Heilman

Dump when summing up CURR field in ALV GRID display

Hi All,
I am getting dump when I try to sum the CURR field in my ALV Grid Display. The field is of CURR 23. I am using classes and methods to display alv grid.
I tried passing <fs_fieldcat>-do_sum = 'X'. When I did this, it is dumping without even displaying the alv grid.
Here is the part it is throwing dump:
        ls_lvc_data-value = space.
        clear ls_lvc_data-style.
        loop at it_fcat_local assigning <ls_fcat>
                where tech ne 'X' and no_out ne 'X'.
          if l_invisible eq 'X'.
            clear l_invisible.
            if <ls_fcat>-do_sum is initial.
              continue.
            else.
              clear ls_lvc_data-col_pos.
            endif.
          endif.
          add 1 to ls_lvc_data-col_pos.
          assign component <ls_fcat>-fieldname
                           of structure <ls_data> to <l_field_value>.
          _if sy-subrc ne 0.
            message x000(0k).
          endif._
Regards,
Guru

Thomas,
Here is the dump:
Runtime Errors         MESSAGE_TYPE_X
Date and Time          10/22/2010 23:30:53
Short text
The current application triggered a termination with a short dump.
What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
Error analysis
Short text of error message:
Long text of error message:
Technical information about the message:
Message class....... "0K"
Number.............. 000
Variable 1.......... " "
Variable 2.......... " "
Variable 3.......... " "
Variable 4.......... " "
How to correct the error
Probably the only way to eliminate the error is to correct the program.
If the error occures in a non-modified SAP program, you may be able to
find an interim solution in an SAP Note.
If you have access to SAP Notes, carry out a search with the following
keywords:
"MESSAGE_TYPE_X" " "
"SAPLSLVC" or "LSLVCF36"
"FILL_DATA_TABLE"
If you cannot solve the problem yourself and want to send an error
notification to SAP, include the following information:
1. The description of the current problem (short dump)
To save the description, choose "System->List->Save->Local File
(Unconverted)".
2. Corresponding system log
Display the system log by calling transaction SM21.
Restrict the time interval to 10 minutes before and five minutes
after the short dump. Then choose "System->List->Save->Local File
(Unconverted)".
3. If the problem occurs in a problem of your own or a modified SAP
program: The source code of the program
In the editor, choose "Utilities->More
Utilities->Upload/Download->Download".
4. Details about the conditions under which the error occurred or which
actions and input led to the error.
Source Code Extract
Line
SourceCde
2708
is_subtottxt_info = ls_subtot_info
2709
ip_subtot_line    = lr_data
2710
changing
2711
c_subtottxt       = l_subtottxt.
2712
ls_lvc_data-value = l_subtottxt.
2713
2714
append ls_lvc_data to ct_lvc_data.
2715
endif.
2716
2717
2718
Column per Fieldcat Entry
2719
2720
ls_lvc_data-value = space.
2721
clear ls_lvc_data-style.
2722
loop at it_fcat_local assigning <ls_fcat>
2723
where tech ne 'X' and no_out ne 'X'.
2724
if l_invisible eq 'X'.
2725
clear l_invisible.
2726
if <ls_fcat>-do_sum is initial.
2727
continue.
2728
else.
2729
clear ls_lvc_data-col_pos.
2730
endif.
2731
endif.
2732
2733
add 1 to ls_lvc_data-col_pos.
2734
2735
assign component <ls_fcat>-fieldname
2736
of structure <ls_data> to <l_field_value>.
2737
if sy-subrc ne 0.
>>>>>
message x000(0k).
2739
endif.
2740
2741
*... work on average
2742
if <ls_fcat>-do_sum eq 'C'.
2743
          Initialize average result and entries
2744
<l_field_value> = 0.
2745
clear l_entries.
2746
2747
          retrive unit from fieldcatalog
2748
assign space to <l_unit>.
2749
if not <ls_fcat>-cfieldname is initial.
2750
assign component <ls_fcat>-cfieldname
2751
of structure <ls_data> to <l_unit>.
2752
endif.
2753
if not <ls_fcat>-qfieldname is initial.
2754
assign component <ls_fcat>-qfieldname
2755
of structure <ls_data> to <l_unit>.
2756
endif.
2757

Timestamp Field in ALV Grid

Similar Messages

Maybe you are looking for