Sorting Issue in ALV table

Hi,
I have included a ALV table in my application. A column in the table is containing a list of amounts. When i am trying to sort it in ascending or descending order, the values are not listed properly. I am using "PAD_AMT7S" as the data type for the attribute which will accept up to 2 decimals. The issue is,
if the column is containing values like
0.00,
8.75,
17.00,
8.50 and
17.50.
if i perform ascending type of sorting the values are re-arranged as,
0.00
17.00
17.50
8.50
8.75
and on descending
8.75
8.50
17.50
17.00
0.00
Which are all incorrect. Please provide me your suggestions..
Thanks,
Mugundhan

Hi,
Are you using the IF_WD_TABLE_METHOD_HNDL for the sort, or you wrote your own code?
IF_WD_TABLE_METHOD_HNDL worked incorrectly for some special fields, in these cases I had to write the sorting code manually.
e.g.
CALL METHOD WDEVENT->GET_STRING
   EXPORTING
     NAME   = 'COL'
   RECEIVING
     VALUE = lv_col_name.
CALL METHOD WDEVENT->GET_STRING
   EXPORTING
     NAME   = 'DIRECTION'
   RECEIVING
     VALUE = lv_direction.
CASE lv_col_name.
    WHEN 'TABLE_FIELD1'.
      IF lv_direction EQ '00'.
        SORT lt_table BY CURR ASCENDING.
        ELSE.
          SORT lt_table BY CURR DESCENDING .
      ENDIF.
Is the table sorted incorrectly here?
Bye
N.

Similar Messages

Wda date picker issue in alv table

Hi,
When I use a date picker in a alv table in wda I have got the following issue:
Select a date, do not press enter and then press a search help in another field in the table. You can test this in web dynpro 'SALV_WD_DEMO_TABLE_F4'.
When you do this you will see that when pressing a search help like the one of 'currency' the date that you previously selected is gone. Also since on_data_check is not triggered in this scenario I am not sure how to solve this. My guess is that it is a bug. Maybe it can be resolved with an on_click event. That way I can update the date field when a select the currency field (before pressing f4 in the currency field)
Does anybody know if this is the best way to solve this?
Regards,
Raymond Does

Hi Raymond,
What you mentions is Correct and What your are doing is correct. It is bug in WD ALV. It's not checking the value after you given correct value.
Thanks and Regards,
Vijay

Sorting issue in Classic table

Hi,
In my page we have two tables, Header and Detail. On selection of any record on the HeaderTable, corresponding records are fetche of the details table. Sorting is working fine on the details table. We want to implement sorting on the header table as well.
When i am sorting a table by clicking on one of the Column Header, i am getting the following Warningmessage
" Warning - The table cannot be sorted because it has pending changes which would be lost. "
Please let me know, what could be the probable cause of this error.

It would probably because of selectFag in your header table.
Goto VORowImpl.java and change setAttributeInternal() to populateAttribute() in setSelectFlagXXXXXX(....) method.
if the problem is not solved then look for any other setXXX() methods in your Controller and AMs to the HeaderVO.
--Prasanna

Sorting issue in ALV ABAP webdynpro

Hi All,
We are displaying the data in ALV format using ABAP webdynpro.
The issue here is sorting the values. The field is the character field, as the field may contain character or numberic values.
When we sort a set of values in ascending order, the values are sorted wrongly.
Example values sorted in ascending order:
11055
11260
5662
8697
9984
The above values are sorted wrongly. Is this a standard limitation of webdynpro ABAP or do we have any support class or setting available to solve this issue.
Please help.
Regards,
Vijay

Hello Vijay
of course its not a limitation, you can sort it either ways.
Check the following link
http://help.sap.com/saphelp_nw70/helpdata/en/e9/e5eb40c4f8712ae10000000a155106/content.htm
you can use the following classes
Set sort Direction -
CL_SALV_SORTS meth: ADD_SORT (Parameter SEQUENCE)
CL_SALV_SORT meth: SET_SEQUENCE
Get sort direction
CL_SALV_SORT meth: GET_SEQUENCE
hope this helps!!
Regards
Senon

Sorting issue in Advance table region

Hi All,
Facing issue in sorting.
I have an advance table region , I have set the property
Sort Allowed : Yes ; Sort By View Attribute : View attribute Name
This is working for all the columns but it is failing for date columns.
Data is not getting sorted for date columns.
Output format of Date is : 09-Feb13 09:08:01
Please help.
Do let me know if any further information is required.

Hi All,
Can anyone lookinto this ...
Am still waiting for an update ...

Sorting issues in alv oops

Hi All,
Greetings for the Day!!!
am using alv oops for displaying output..
BEFORE sorting my internal table looks like below in the output.....
for example
A
B
C
D
E
F
AFTER sorting the internal table in the output .display.,, the internal table shows like below
F
E
D
C
B
A
but when i call the method set_table_for_first_display ,after sorting the in the output display ....,the internal table remains as like before
A
B
C
D
E
F....
it should be lke
F
E
D
C
B
A .....
kindly suggest me the alternatives.pls
Regards
Jack

For example....
DATA: lo_alv_grid            TYPE REF TO cl_gui_alv_grid.
DATA: lo_form_alv_container TYPE REF TO cl_gui_custom_container.
* Create Controls
    IF lo_form_alv_container IS INITIAL. "<-- Check if already created
      CREATE OBJECT lo_form_alv_container
        EXPORTING
          container_name = 'FORMULA_CONTAINER'.
* Create control based ALV grid
      CREATE OBJECT lo_alv_grid
        EXPORTING
          i_parent = lo_form_alv_container.
* set for first display
      lo_alv_grid->set_table_for_first_display(
                EXPORTING
                   is_layout            = ls_layout
                   it_toolbar_excluding = lt_exclude
                CHANGING
                   it_outtab            = lt_formulas[]
                   it_fieldcatalog      = lt_fieldcat[] ).
    ELSE.
      lo_alv_grid->refresh_table_display( ).    "<-- If so, just refresh
    ENDIF.
Regards,
Rich Heilman

Edit a sorted field in ALV table

Hello everybody,
I am using a ALV with input fields to edit the containing data.
When I set a column to sort than the entries are grouped together.
But now I can only change the first grouped entry and not the entry in the second or third line! So can i deactivate this grouping feature? Or how is it possible to edit every line in a sorted column, without to remove the sorting rule?
Thanks and best regards,
Christian

Hi,
thanks for reply, but there is no different in the ALV behavior.
But with:
lr_field = l_value->if_salv_wd_field_settings~get_field( 'EDAT' ).
lr_field->if_salv_wd_sort~set_grouping_allowed( abap_false ).
(l_value = model)
it works for this one column 'EDAT'.
kind regards
Christian

Sort issue in a table

Hi all,
My requirement is i have to sort the data in a table based on a column_name.
so i took the following steps.
create table temp_template_fields as select * from template_fields
order by column_name;
delete from template_fields;
insert into template_fields select * from temp_template_fields order by column_name;
commit;
drop table temp_template_fields;
Even then the data in the table template_fields is not getting sorted..
I dont understand y is it not happenning.. Pls help me ASAP.
thanks in advance.

1) Why do you have to sort the data in a table? There are a handful of valid reasons for this (i.e. improving compression), but it's generally not a useful exercise if you have a heap organized table.
2) How do you know that the data "is not getting sorted"?
Making a couple of assumptions, I am guessing that you are trying to set up a table that will always return rows in a sorted order when your queries don't specify an ORDER BY clause. That is not possible in Oracle-- the only way to ensure that the rows returned by a query are ordered is to put an ORDER BY clause on the query.
Justin

How to keep selection (or select) the row of SORTED ALV table?

Dear Experts,
I have WD ALV table with grouped and therefore sorted layout. I know that sorted ALV beahve differently.
The problem is that if the values in cell is updated (setting attribute of selected element of context node bound to the ALV table), then the whole table is redrawn and selection disappears. It does not happen when layout of ALV is not sorted/grouped.
I need somehow to select the ALV line again. Method MOV_To of IF_WD_CONTEXT_NODE for some reason is not working in sorted ALV (it selects element on node but not in ALV table). And in ALV Interface controller I also could not find anything usefull.
Thanks.
Best regards,
Dmitry.

Hallo Dmitry,
See the sap note :1445428
[https://service.sap.com/sap/support/notes/1445428|https://service.sap.com/sap/support/notes/1445428]
Follow this thread which suggest a work around.
[ALV Table set lead selection while sorting is enable for a column|ALV Table set lead selection while sorting is enable for a column]

In webdynpro for ABAP alv table issue

hello gurus,
                  i am new for webdynpro for ABAP.i strucked at one point at designing time.anybody could you suggest me on this.
thanks in advance.
let me explain my scenario first.
in my webdynpro for ABAP developement i have one alv table having ten fields.i am featching the data for eight fields from one Ztabale and updating , for rest of two fields we need to fill after displaying output using the respective F4 help. Right now these two fields are in input editable mode.now i am getting the values successfully from F4 help and at the same time it is allowing MANUAL ENTRIES also but as per my requirement it should not allow any manual entries . for this i have made these two fields are in readonly mode as like as rest of fields to avoid the MANUAL ENTRIES but at this time i didnot get any F4 helpfor those two fields.
so how can i achive my goal in this thing could any one suggest me.
my final conclusion is we need to get only F4 help values into those two fields . it should not allow any manual values at any point of time.
best regards,
babu

ya hi harshit,
      my self also used same code in my action part . here i have one table with four fields carrid , connid , fldate , price.
for carrid i have created freely programmed search help.but if it is in display mode there is no F4 help in enable mode.
in context for attribute carrid
DATA lo_nd_flight TYPE REF TO if_wd_context_node.
DATA lo_el_flight TYPE REF TO if_wd_context_element.
DATA ls_flight TYPE wd_this->element_flight.
DATA lt_flight TYPE wd_this->elements_flight.
navigate from <CONTEXT> to <FLIGHT> via lead selection
lo_nd_flight = wd_context->get_child_node( name = wd_this->wdctx_flight ).
select connid fldate price from sflight into CORRESPONDING FIELDS OF TABLE
    lt_flight UP TO 20 ROWS.
@TODO handle non existant child
IF lo_nd_flight IS INITIAL.
ENDIF.
get element via lead selection
lo_el_flight = lo_nd_flight->get_element( ).
alternative access via index
lo_el_flight = lo_nd_flight->get_element( index = 1 ).
@TODO handle not set lead selection
IF lo_el_flight IS INITIAL.
ENDIF.
get all declared attributes
lo_el_flight->get_static_attributes(
   IMPORTING
     static_attributes = ls_flight ).
CALL METHOD lo_nd_flight->bind_table
EXPORTING
    new_items            = lt_flight
   set_initial_elements = ABAP_TRUE
   index                =
DATA: lo_cmp_usage TYPE REF TO if_wd_component_usage.
DATA: lo_interfacecontroller TYPE REF TO iwci_salv_wd_table.
    instantiate ALV component usage if necessary
lo_cmp_usage = wd_this->wd_cpuse_alv( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
    lo_cmp_usage->create_component( ).
ENDIF.
    pass reference to data node to instance of ALV usage
lo_interfacecontroller = wd_this->wd_cpifc_alv( ).
lo_interfacecontroller->set_data( r_node_data = lo_nd_flight ).
Configure ALV
DATA lr_config TYPE REF TO cl_salv_wd_config_table.
lr_config = lo_interfacecontroller->get_model( ).
**declerations
DATA: lt_columns TYPE salv_wd_t_column_ref,
        ls_columns TYPE salv_wd_s_column_ref,
        lr_input TYPE REF TO cl_salv_wd_uie_input_field,
        name TYPE string,
        lt_node_info TYPE wdr_context_attr_info_map,
        ls_node_info TYPE wdr_context_attribute_info,
        lv_tabix TYPE sy-tabix,
        lr_info TYPE REF TO if_wd_context_node_info.
TYPES: BEGIN OF ty_name,
          name TYPE string,
         END OF ty_name.
DATA: lt_name TYPE TABLE OF ty_name,
        ls_name TYPE ty_name.
**for getting node info
*Get the context node information
lr_info = lo_nd_flight->get_node_info( ).
lt_node_info = lr_info->get_attributes( ).
LOOP AT lt_node_info INTO ls_node_info.
    CASE ls_node_info-name.
      WHEN 'CARRID'.
        ls_name-name = ls_node_info-name.
        APPEND ls_name TO lt_name.
     WHEN 'REGIONALOFFICER'.
       ls_name-name = ls_node_info-name.
       APPEND ls_name TO lt_name.
     WHEN 'INSPECTORNAME'.
       ls_name-name = ls_node_info-name.
       APPEND ls_name TO lt_name.
    ENDCASE.
ENDLOOP.
*Logic for Table Horizontal Scrolling
lr_config->if_salv_wd_table_settings~set_visible_row_count( 13 ).
" lr_config->if_salv_wd_table_settings~set_width( '1085' ).
lr_config->if_salv_wd_table_settings~set_width( '100%' ).
lr_config->if_salv_wd_table_settings~set_scrollable_col_count( 8 ).
" lr_config->if_salv_wd_table_settings~set_fixed_table_layout( abap_true ).
lr_config->if_salv_wd_table_settings~set_first_visible_scroll_col( 'CARRID' ).
lr_config->if_salv_wd_table_settings~set_cell_action_event_enabled( abap_true ).
Set the table editable .
DATA: lr_table_settings TYPE REF TO if_salv_wd_table_settings.
lr_table_settings ?= lr_config.
lr_table_settings->set_read_only( abap_false ).
lr_table_settings->set_read_only( abap_true ).
DATA: lr_column_settings TYPE REF TO if_salv_wd_column_settings,
        lr_column TYPE REF TO cl_salv_wd_column.
DATA: lt_string TYPE STANDARD TABLE OF string,
        ld_string TYPE string,
        ld_int TYPE i,
        lv_index TYPE i.
Make few columns editable and attach inputfield, if permitted.
    DATA lr_input_field TYPE REF TO cl_salv_wd_uie_input_field.
    CLEAR lt_string.
    APPEND 'CARRID' TO lt_string.
    LOOP AT lt_string INTO ld_string.
      lr_column_settings ?= lr_config.
      lr_column = lr_column_settings->get_column( ld_string ).
      CREATE OBJECT lr_input_field
        EXPORTING
          value_fieldname = ld_string.
      lr_input_field->set_read_only( abap_true ).
      lr_column->set_cell_editor( lr_input_field ).
    ENDLOOP.
    CLEAR lt_string.

ALV Table Download Issue

Hi all,
I have a question on the download settings when downloading an ALV table content (e.g. content of PPT).
Sequence:
1. Choose the "Export" button
2. Choose Spreadsheet
3. Choose any format
4. Check on the checkbox "Always Use Selected Format"
5. Download the file
Now, once you do the same thing, it won't give you any format option. Instead it will directly set the file extension for you and it is unchangeable. Makes sense because you already checked the box in step 4. But the simple question is: How do I deselect the option in step 4?
By the way, I'm using SCM 7.0 (just recently upgraded).
Thanks,
Torio.

Torio,
Double check by reviewing the contents of table SALV_BS_ADMIN. This is the table that should not hold your userid. Also, look for an entry against userid "*", which will affect all users that don't have specific entries.
Also, check your user parameter SALV_BS_XML_TYPE in Tcode SU01. This should be blank.
Basically, there are a number of things that can affect the changeability of this setting. Look at https://service.sap.com/sap/support/notes/1080608 and all the related notes, and the attached zip file. In some cases, a correction must be loaded into your system before you can reset this flag.
If all else fails, raise a message with SAP.
Best Regards,
DB49

Sorting ALV Table cells

hi
how to group the cells of alv table.
where all the fields having same value should be displayed once and rest of the fields should contain the varying values.
Edited by: chythanya on May 13, 2008 1:35 PM
Edited by: chythanya on May 13, 2008 1:36 PM

Hello,
Please read these: [https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/1190424a-0801-0010-84b5-ef03fd2d33d9] at page 9 and [https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/40794172-b95a-2910-fb98-b86d8a0918b4].
Regards,

Issue in ALV List display

Issue in ALV List display
Posted: Apr 5, 2008 10:25 AM     Edit      E-mail this message      Reply
Hi Friends,
Can any one help me out in the logic to display the output in the ALV list.
i want to get the out put as
based on the field4 i have to display fieds5, field6 and field 7 values as mentioned below.
field1 field2 field3 field4 field5 field6 field7
0L 123 456 2008 001 123.00 456.00
-    -     -       -     002 213.00 789.00
-      -       -     003 0.00     0.00
-      -       -     004 0.00     0.00
-      -        -    005 0.00     0.00
-       -       -     006 0.00     0.00
                               336.00 1245.00
Thanks,
Vijay

for display you have to define fieldcatlaog and use Fm RESUE_ALV_GRID_DISPLAY,
Go through this program
*& Report Z_OPEN_CLOSE                                                *
REPORT Z_OPEN_CLOSE MESSAGE-ID YW2 LINE-SIZE 231 LINE-COUNT 45
NO STANDARD PAGE HEADING.
Type Declaration *
TYPE-POOLS SLIS.
Tables *
TABLES: MKPF, " Material Document: Header Data
        MSEG, " Material Document: Item Data
        MARA,
        MARD,
        S031,
        EKKO,
        EKPO,
        LIKP,
        MAKT,
        J_1IWRKCUS,
        T001W,
        WB2_V_MKPF_MSEG2,
        MMIM_REP_PRINT,
        YW2_STKMOVEMENTS,
        YPLNT,
        MARDH.
Internal Tables *
DATA: I_WERKS LIKE J_1IWRKCUS OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_YPLNT OCCURS 0,
         PPLNT LIKE YPLNT-PPLNT,
         WPLNT LIKE YPLNT-WPLNT,
      END OF I_YPLNT.
DATA: BEGIN OF I_MKPF OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        MJAHR LIKE MKPF-MJAHR,
        BUDAT LIKE MKPF-BUDAT,
        VGART LIKE MKPF-VGART,
        BWART LIKE MSEG-BWART,
        MATNR LIKE MSEG-MATNR,
        WERKS LIKE MSEG-WERKS,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        KUNNR LIKE MSEG-KUNNR,
        ZEILE LIKE MSEG-ZEILE,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
        MATNR1 LIKE MSEG-MATNR,
      END OF I_MKPF.
DATA: BEGIN OF I_MARDH OCCURS 0,
       WERKS LIKE MARDH-WERKS,
       MEINS LIKE MARA-MEINS,
       MATNR LIKE MARDH-MATNR,
       LGORT LIKE MARDH-LGORT,
       LABST LIKE MARDH-LABST,
       LFGJA LIKE MARDH-LFGJA, "Added -MB
       LFMON LIKE MARDH-LFMON, "Added -MB
       PERIO(6),
       INSME LIKE MARDH-LABST,
       EINME LIKE MARDH-LABST,
       SPEME LIKE MARDH-LABST,
       RETME LIKE MARDH-LABST,
       O_STK LIKE MARDH-LABST, " Opening Stock
       C_STK LIKE MARDH-LABST, " Closing Stock
      END OF I_MARDH.
DATA: BEGIN OF I_MARD OCCURS 0,
       WERKS LIKE MARD-WERKS,
       MATNR LIKE MARD-MATNR,
       LGORT LIKE MARD-LGORT,
       LABST LIKE MARD-LABST,
       INSME LIKE MARD-LABST,
       MEINS LIKE MARA-MEINS,
       EINME LIKE MARD-LABST,
       SPEME LIKE MARD-LABST,
       RETME LIKE MARD-LABST,
      END OF I_MARD.
DATA: I_MARD1 LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: I_MARDH1 LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_MKPF1 OCCURS 0,
        MBLNR LIKE MKPF-MBLNR,
        WERKS LIKE MSEG-WERKS,
        MATNR LIKE MSEG-MATNR,
        BUDAT LIKE MKPF-BUDAT,
        BWART LIKE MSEG-BWART,
        MJAHR LIKE MKPF-MJAHR,
        VGART LIKE MKPF-VGART,
        LGORT LIKE MSEG-LGORT,
        MENGE LIKE MSEG-MENGE,
        MEINS LIKE MSEG-MEINS,
        XAUTO LIKE MSEG-XAUTO,
        SHKZG LIKE MSEG-SHKZG,
      END OF I_MKPF1.
DATA: BEGIN OF I_MKPF2 OCCURS 0,
       WERKS LIKE MSEG-WERKS,
       MATNR LIKE MSEG-MATNR,
       BUDAT LIKE MKPF-BUDAT,
       BWART LIKE MSEG-BWART,
       MJAHR LIKE MKPF-MJAHR,
       VGART LIKE MKPF-VGART,
       LGORT LIKE MSEG-LGORT,
       MENGE LIKE MSEG-MENGE,
       MEINS LIKE MSEG-MEINS,
       XAUTO LIKE MSEG-XAUTO,
     END OF I_MKPF2.
DATA: BEGIN OF I_FINAL5 OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       LGORT LIKE MSEG-LGORT, " Storage Location
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TLOSS LIKE MARDH-LABST, " Total Loss
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        TRFSTK LIKE MARDH-LABST, "Transfer stock
        MENGE LIKE MSEG-MENGE,
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL5.
DATA: BEGIN OF I_FINAL OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        BUDAT LIKE MKPF-BUDAT, " Posting Date
        MTART LIKE MARA-MTART, " Material Type
        SPMON LIKE S031-SPMON, " Month
        MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
       END OF I_FINAL.
DATA: I_FINAL1 LIKE I_FINAL OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_FINAL_TEMP OCCURS 0,
        WERKS LIKE MSEG-WERKS, " Plant
        MATNR LIKE MSEG-MATNR, " Material
        MTART LIKE MARA-MTART, " Material Type
        MAKTX LIKE MAKT-MAKTX, " Description
        MEINS LIKE MSEG-MEINS,
        O_STK LIKE MARDH-LABST, " opening stock
        TRECEP LIKE MARDH-LABST, " total receipts
        PRODU LIKE MARDH-LABST, " Net Receipts - Production
        RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
        SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
        TDISP LIKE MARDH-LABST, " total dispatches
        CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
        OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
        TRFSTK LIKE MARDH-LABST, "Material Transfer stock
        TRLOSS LIKE MARDH-LABST, " Transit Loss
        WHLOSS LIKE MARDH-LABST, " Warehouse Loss
        TLOSS LIKE MARDH-LABST, " Total Loss
        C_STK LIKE MARDH-LABST, " Closing Stock
        OTHADJ LIKE MARDH-LABST,
      END OF I_FINAL_TEMP.
For Materials
DATA: BEGIN OF I_MARA OCCURS 0,
       MATNR TYPE MARA-MATNR,
       MTART TYPE MARA-MTART,
       MEINS LIKE MARA-MEINS,
       LABST TYPE MARD-LABST,
       MAKTX LIKE MAKT-MAKTX,
      END OF I_MARA.
DATA: BEGIN OF I_STKMVMNTS OCCURS 0,
       BWART LIKE MSEG-BWART,
       SHKZG LIKE MSEG-SHKZG,
       VZBEW LIKE YW2_STKMOVEMENTS-VZBEW,
      END OF I_STKMVMNTS.
DATA: BEGIN OF I_FINALT OCCURS 0,
       WERKS LIKE MSEG-WERKS, " Plant
       MATNR LIKE MSEG-MATNR, " Material
       BUDAT LIKE MKPF-BUDAT, " Posting Date
       MTART LIKE MARA-MTART, " Material Type
       SPMON LIKE S031-SPMON, " Month
       MAKTX LIKE MAKT-MAKTX, " Description
meins(3), " UOM
       MEINS LIKE MSEG-MEINS,
       O_STK LIKE MARDH-LABST, " opening stock
       TRECEP LIKE MARDH-LABST, " total receipts
       PRODU LIKE MARDH-LABST, " Net Receipts - Production
       RECEP LIKE MARDH-LABST, " Net Receipts - Receipts
       SAL_RET LIKE MARDH-LABST, " Net Receipts - Sales Return
       TDISP LIKE MARDH-LABST, " total dispatches
       CUSTMR LIKE MARDH-LABST, " Net Dispatches - Customers
       OPLANT LIKE MARDH-LABST, " Net Dispatches - To Other Plant
       TRFSTK LIKE MARDH-LABST, "Material Transfer stock
       TRLOSS LIKE MARDH-LABST, " Transit Loss
       WHLOSS LIKE MARDH-LABST, " Warehouse Loss
       TLOSS LIKE MARDH-LABST, " Total Loss
       C_STK LIKE MARDH-LABST, " Closing Stock
       OTHADJ LIKE MARDH-LABST,
       MONTH(8) ,
      END OF I_FINALT.
DATA: IMKPFT LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT1 LIKE I_MKPF1 OCCURS 0 WITH HEADER LINE.
DATA: IMARDT LIKE I_MARD OCCURS 0 WITH HEADER LINE.
DATA: IMARDHT LIKE I_MARDH OCCURS 0 WITH HEADER LINE.
DATA: T_FINAL LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
DATA: IMKPFT2 LIKE I_MKPF OCCURS 0 WITH HEADER LINE.
FCAT is used for the field catalog
DATA: FCAT TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                  WITH HEADER LINE INITIAL SIZE 0,
for excluding the ICONs from the application toolbar
      FEXC TYPE TABLE OF SLIS_EXTAB WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FS_LAYO is used for Grid Layout
      FS_LAYO TYPE SLIS_LAYOUT_ALV,
FEVENTS to handle the events TOP OF PAGE & USER_COMMAND
      FEVENTS TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
FHEADER is used for List header
      FHEADER TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
sort is used for sorting
      FSORT TYPE TABLE OF SLIS_SORTINFO_ALV WITH NON-UNIQUE DEFAULT KEY
                 WITH HEADER LINE INITIAL SIZE 0,
      FCAT1 TYPE TABLE OF SLIS_FIELDCAT_ALV WITH NON-UNIQUE DEFAULT KEY
                WITH HEADER LINE INITIAL SIZE 0,
      FS_LAYO1 TYPE SLIS_LAYOUT_ALV,
      GT_LIST_TOP_OF_PAGE1 TYPE SLIS_T_LISTHEADER,
      FEVENTS1 TYPE TABLE OF SLIS_ALV_EVENT WITH NON-UNIQUE DEFAULT KEY
             WITH HEADER LINE INITIAL SIZE 0,
       FHEADER1 TYPE TABLE OF SLIS_LISTHEADER WITH NON-UNIQUE DEFAULT
              KEY WITH HEADER LINE INITIAL SIZE 0,
       G_STATU_071 TYPE SLIS_FORMNAME VALUE 'Z_PFSTATUS',
       ALV_VARIANT1 LIKE DISVARIANT.
Variable Declaration *
TYPES: TRFF_TYPE_DEC_6_5(6) TYPE P DECIMALS 5.
DATA: FYEAR(4),
      MON(2),
      FYEAR1(4),
      MON1(2),
      OBAL LIKE MARD-LABST,
      CBAL LIKE MARD-LABST,
      INDEX TYPE I,
      COUNT,
      COUNT1 TYPE I,
      O_STK TYPE P DECIMALS 3,
      C_STK TYPE P DECIMALS 3,
      V_MJAHR LIKE MKPF-MJAHR,
      MONTHS TYPE TRFF_TYPE_DEC_6_5,
      MONTH TYPE I.
Global variables for handling ALV functionality
DATA: ALV_KEYINFO TYPE SLIS_KEYINFO_ALV,
      ALV_VARIANT LIKE DISVARIANT,
      ALV_LAYOUT TYPE SLIS_LAYOUT_ALV,
      ALV_REPID LIKE SY-REPID,
      ALV_PRINT TYPE SLIS_PRINT_ALV,
      ALV_DETAIL_FUNC(30),
      ALV_DEFAULT_VARIANT LIKE DISVARIANT-VARIANT,
      ALV_COLOURIZE_FIELDS LIKE MMIM_REP_PRINT-COLOR.
RANGES: R_BUDAT FOR MKPF-BUDAT.
*Added by Prabhu for year on 26.4.05.
DATA: IDATE LIKE R_BUDAT OCCURS 0 WITH HEADER LINE.
Selection Screen Elements *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_WERKS FOR MARD-WERKS OBLIGATORY NO INTERVALS.
PARAMETER: P_SPMON LIKE S031-SPMON NO-DISPLAY .
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR OBLIGATORY,
                  S_LGORT FOR MSEG-LGORT NO-EXTENSION NO INTERVALS,
                  S_MBLNR FOR MKPF-MBLNR,
                  S_BUDAT FOR MKPF-BUDAT OBLIGATORY .
SELECTION-SCREEN END OF BLOCK BLK.
SELECTION-SCREEN BEGIN OF BLOCK BLK3 WITH FRAME TITLE TEXT-004.
      PARAMETER : MTART LIKE MARA-MTART DEFAULT 'FERT' NO-DISPLAY.
SELECTION-SCREEN END OF BLOCK BLK3.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN END OF BLOCK BLK2.
ADDED BY PRABHU FOR DAY-WISE REPORT.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-007.
PARAMETERS: D1 RADIOBUTTON GROUP P1 DEFAULT 'X',
              M1 RADIOBUTTON GROUP P1,
              Y1 RADIOBUTTON GROUP P1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-006.
PARAMETERS: ALV_DEF LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK B2.
DATA: S_BUDAT1 LIKE S_BUDAT OCCURS 0 WITH HEADER LINE."prabhu
Initialization *
INITIALIZATION.
PERFORM ALV_INIT.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ALV_DEF.
PERFORM ALV_F4.
At Selection Screen
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.
PERFORM monat_f4.
At Selection Screen *
AT SELECTION-SCREEN.
checking for the layout
PERFORM ALV_CHECK.
authorisation check for the Plant
PERFORM auth_check.
Validation for the Plant
PERFORM VALIDITY_CHECK.
IF MTART NE 'FERT'.
    MESSAGE E041 WITH 'Material Type must be FERT Only...'.
ENDIF.
IF D1 = 'X'." On 26.4.05.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ELSE.
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
ENDIF.
LOOP AT S_BUDAT.
    IF S_BUDAT-HIGH IS INITIAL.
      S_BUDAT-HIGH = S_BUDAT-LOW.
      MODIFY S_BUDAT.
    ENDIF.
ENDLOOP.
IDATE-LOW = S_BUDAT-LOW.
IDATE-HIGH = S_BUDAT-HIGH.
CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
    EXPORTING
       I_DATE_FROM = IDATE-LOW
       I_DATE_TO = IDATE-HIGH
   IMPORTING
E_DAYS =
      E_MONTHS = MONTH
E_YEARS =
DATA: I(3) TYPE C.
I = S_BUDAT-LOW+4(2).
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*added by Prabhu for Only for Oneday.on 18.5.5
IF MONTH EQ '0'.
    MONTH = MONTH + 1.
ENDIF.
*added by Prabhu for Only for Oneday.on 18.5.5
DO MONTH TIMES.
    R_BUDAT-LOW = S_BUDAT-LOW.
    APPEND R_BUDAT.
ENDDO.
I = 0.
LOOP AT R_BUDAT.
    R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2) + I.
    I = I + 1.
    R_BUDAT-LOW+6(2) = '01'.
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
       EXPORTING
         DAY_IN = R_BUDAT-LOW
       IMPORTING
         LAST_DAY_OF_MONTH = R_BUDAT-HIGH
      EXCEPTIONS
        DAY_IN_NO_DATE = 1
        OTHERS = 2
    MODIFY R_BUDAT.
ENDLOOP.
LOOP AT R_BUDAT.
    IF R_BUDAT-LOW4(2) = S_BUDAT-LOW4(2).
      R_BUDAT-LOW = S_BUDAT-LOW.
      MODIFY R_BUDAT.
    ENDIF.
    IF R_BUDAT-HIGH4(2) = S_BUDAT-HIGH4(2).
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      MODIFY R_BUDAT.
    ENDIF.
For Summary on 26.4.05.
    IF Y1 = 'X'.
      CLEAR R_BUDAT.
      REFRESH R_BUDAT.
      R_BUDAT-LOW = S_BUDAT-LOW.
      R_BUDAT-HIGH = S_BUDAT-HIGH.
      APPEND R_BUDAT.
      CLEAR R_BUDAT.
    ENDIF.
ENDLOOP.
At Selection Screen *
AT SELECTION-SCREEN OUTPUT.
Start of Selection *
START-OF-SELECTION.
V_MJAHR = P_SPMON+0(4).
Get plant distinction warehouse/production
PERFORM GET_PLANT_DISTINCTION.
Collect the data from various tables
PERFORM GETDATA_FG_STOCK.
here the number of rows in the output table is found
PERFORM OUTPUT_TABLE_CHECK.
here the top of the page code is written, that is to be displayed
in the output
PERFORM Z_TOP_OF_PAGE.
here ALV layout properties are set
PERFORM Z_LAYOUT_SETTINGS.
ALV EVENTS for TOP OF PAGE and for USER COMMAND
PERFORM Z_ALV_EVENTS.
The field catalog is defined for the Primary List is defined in
the subroutine CREATE_FIELD_CATALOG include program ZPRRDOCR_FCAT
PERFORM Z_CREATE_FIELD_CATALOG.
This is for displaying the output
PERFORM Z_REUSE_ALV_GRID_DISPLAY.
*& Form getdata_fg_stock
Getting data from standard tables
FORM GETDATA_FG_STOCK.
For getting the Start date & end date of the month
PERFORM get_month_dates.
Getting the Opening Stock from MARDH table
IF MON EQ '01'.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = '12'.
    FYEAR = FYEAR - 1.
ELSE.
    MON1 = MON.
    FYEAR1 = FYEAR.
    MON = MON - 1.
    FYEAR = FYEAR.
ENDIF.
PERFORM GET_RECORDS_FROM_DB.
*added for Month Summary on 26.4.05.
LOOP AT R_BUDAT.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
*for Month
    P_SPMON0(4) = S_BUDAT-LOW0(4).
    P_SPMON4(2) = S_BUDAT-LOW4(2).
*for summary.
    IF Y1 = 'X'.
      LOOP AT S_BUDAT.
        S_BUDAT1-SIGN = 'I'.
        S_BUDAT1-OPTION = 'NB'.
        S_BUDAT1-LOW = S_BUDAT-LOW.
        S_BUDAT1-HIGH = S_BUDAT-HIGH.
        APPEND S_BUDAT1.
        CLEAR S_BUDAT1.
      ENDLOOP.
    ENDIF.
    IMKPFT[] = I_MKPF[].
    IMKPFT2[] = I_MKPF[].
    IMARDT[] = I_MARD[].
    IMARDHT[] = I_MARDH[].
    PERFORM MONTH_WISE.
    PERFORM PROCESS_MOVEMENTS.
    PERFORM CALCULATE_OPENING_STOCK.
    PERFORM UPDATE_NON_TRANSACTION_ITMS.
    PERFORM DELETE_EMPTY_RECORDS.
    CLEAR: IMARDHT,IMARDT,IMKPFT1,IMKPFT,I_FINAL,I_FINAL5.
    REFRESH: IMARDHT,IMARDT,IMKPFT1,I_FINAL,I_FINAL5,IMKPFT.
ENDLOOP.
CLEAR: R_BUDAT.
REFRESH: R_BUDAT.
*end of changes for month.
ENDFORM. " getdata_fg_stock
FORM MONAT_F4 *
F4-Hilfe für Monat *
FORM MONAT_F4.
DATA: BEGIN OF MF_DYNPFIELDS OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
DATA: END OF MF_DYNPFIELDS.
DATA: MF_RETURNCODE LIKE SY-SUBRC,
         MF_MONAT LIKE ISELLIST-MONTH,
         MF_HLP_REPID LIKE SY-REPID.
FIELD-SYMBOLS: .
Wert von Dynpro lesen
GET CURSOR FIELD MF_DYNPFIELDS-FIELDNAME.
APPEND MF_DYNPFIELDS.
MF_HLP_REPID = SY-REPID.
DO 2 TIMES.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        DYNAME               = MF_HLP_REPID
        DYNUMB               = SY-DYNNR
      TABLES
        DYNPFIELDS           = MF_DYNPFIELDS
      EXCEPTIONS
        INVALID_ABAPWORKAREA = 01
        INVALID_DYNPROFIELD = 02
        INVALID_DYNPRONAME   = 03
        INVALID_DYNPRONUMMER = 04
        INVALID_REQUEST      = 05
        NO_FIELDDESCRIPTION = 06
        UNDEFIND_ERROR       = 07.
    IF SY-SUBRC = 3.
Aktuelles Dynpro ist Wertemengenbild
      MF_HLP_REPID = 'SAPLALDB'.
    ELSE.
      READ TABLE MF_DYNPFIELDS INDEX 1.
Unterstriche durch Blanks ersetzen
      TRANSLATE MF_DYNPFIELDS-FIELDVALUE USING '_ '.
      EXIT.
    ENDIF.
ENDDO.
IF SY-SUBRC = 0.
Konvertierung ins interne Format
    CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'
      EXPORTING
        INPUT         = MF_DYNPFIELDS-FIELDVALUE
      IMPORTING
        OUTPUT        = MF_MONAT
      EXCEPTIONS
        ERROR_MESSAGE = 1.
    IF MF_MONAT IS INITIAL.
Monat ist initial => Vorschlagswert aus akt. Datum ableiten
      MF_MONAT = SY-DATLO(6).
    ENDIF.
    CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
      EXPORTING
        ACTUAL_MONTH               = MF_MONAT
      IMPORTING
        SELECTED_MONTH             = MF_MONAT
        RETURN_CODE                = MF_RETURNCODE
      EXCEPTIONS
        FACTORY_CALENDAR_NOT_FOUND = 01
        HOLIDAY_CALENDAR_NOT_FOUND = 02
        MONTH_NOT_FOUND            = 03.
    IF SY-SUBRC = 0 AND MF_RETURNCODE = 0.
ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
<MF_FELD> = MF_MONAT.
      CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
        EXPORTING
          INPUT = MF_MONAT
        IMPORTING
          OUTPUT = MF_DYNPFIELDS-FIELDVALUE.
      COLLECT MF_DYNPFIELDS.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          DYNAME               = MF_HLP_REPID
          DYNUMB               = SY-DYNNR
        TABLES
          DYNPFIELDS           = MF_DYNPFIELDS
        EXCEPTIONS
          INVALID_ABAPWORKAREA = 01
          INVALID_DYNPROFIELD = 02
          INVALID_DYNPRONAME   = 03
          INVALID_DYNPRONUMMER = 04
          INVALID_REQUEST      = 05
          NO_FIELDDESCRIPTION = 06
          UNDEFIND_ERROR       = 07. "<<== note 148804
    ENDIF.
ENDIF.
ENDFORM.                                                    "MONAT_F4
*& Form get_month_dates
Calculating the Month Start & End Date
FORM GET_MONTH_DATES.
IF M1 = 'X'.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
    CLEAR S_BUDAT.
    REFRESH S_BUDAT.
    S_BUDAT-SIGN = 'I'.
    S_BUDAT-OPTION = 'BT'.
    S_BUDAT-LOW = R_BUDAT-LOW.
    S_BUDAT-HIGH = R_BUDAT-HIGH.
    APPEND S_BUDAT.
ELSE.
    FYEAR = P_SPMON+0(4).
    MON = P_SPMON+4(2).
    CONCATENATE FYEAR MON '01' INTO R_BUDAT-LOW.
    R_BUDAT-SIGN = 'I'.
    R_BUDAT-OPTION = 'BT'.
    CALL FUNCTION 'BKK_GET_MONTH_LASTDAY'
      EXPORTING
        I_DATE = R_BUDAT-LOW
      IMPORTING
        E_DATE = R_BUDAT-HIGH.
    APPEND R_BUDAT.
ENDIF.
ENDFORM. " get_month_dates
*& Form output_table_Check
checking for records for output
FORM OUTPUT_TABLE_CHECK .
DESCRIBE TABLE I_FINALT LINES INDEX.
IF INDEX EQ 0.
    MESSAGE I041 WITH TEXT-005.
    LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. "OUTPUT_TABLE_CHECK
*& Form Z_TOP_OF_PAGE
for setting the details in the top of page *
has no formal paramters *
FORM Z_TOP_OF_PAGE.
DATA: V_MON(2),
V_YR(40),
V_FIN(18),
V_FIN1(48),
LOW(10),
HIGH(10).
V_MON = P_SPMON+4(2).
V_YR = P_SPMON+0(4).
FHEADER-TYP = 'H'.
FHEADER-INFO = 'Stock Register Report (FG Stock)'.
APPEND FHEADER.
CLEAR FHEADER.
*if m1 = 'X'.
CONCATENATE 'Month = ' v_mon '.' v_yr INTO v_fin.
fheader-typ = 'H'.
fheader-info = v_fin.
APPEND fheader.
CLEAR fheader.
*endif."prabhu on 18.5.5
IF D1 = 'X'.
    CLEAR S_BUDAT.
    LOOP AT S_BUDAT.
      CONCATENATE S_BUDAT-LOW6(2) '/' S_BUDAT-LOW4(2) '/'
      S_BUDAT-LOW+0(4) INTO LOW.
      CONCATENATE S_BUDAT-HIGH6(2) '/' S_BUDAT-HIGH4(2) '/'
      S_BUDAT-HIGH+0(4) INTO HIGH.
      CONCATENATE 'Date = ' LOW ' - ' HIGH INTO V_FIN1.
      FHEADER-TYP = 'H'.
      FHEADER-INFO = V_FIN1.
      APPEND FHEADER.
      CLEAR FHEADER.
    ENDLOOP.
ENDIF.
ENDFORM. " Z_TOP_OF_PAGE
*& Form Z_LAYOUT_SETTINGS
this is done for setting the properties for the layout of the *
grid *
has no formal paramters *
FORM Z_LAYOUT_SETTINGS.
FS_LAYO-ZEBRA = 'X'. " Output in Zebra pattern
FS_LAYO-DETAIL_POPUP = 'X'. " A popup window appears to give
FS_LAYO-DETAIL_TITLEBAR = TEXT-022.
FS_LAYO-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " Z_LAYOUT_SETTINGS
*& Form Z_ALV_EVENTS
This is used for handling the events TOP OF PAGE and the USER *
COMMAND event *
has no formal paramters *
FORM Z_ALV_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = FEVENTS[].
READ TABLE FEVENTS WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_TOPOFPAGE'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
READ TABLE FEVENTS WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC = 0.
    FEVENTS-FORM = 'Z_USER_COMMAND'.
    MODIFY FEVENTS INDEX SY-TABIX.
    CLEAR FEVENTS.
ENDIF.
ENDFORM. "Z_ALV_EVENTS
*& Form Z_CREATE_FIELD_CATALOG
here the field catalog is created for the primary list *
no formal parameters *
FORM Z_CREATE_FIELD_CATALOG.
for the Plant
FCAT-FIELDNAME = 'WERKS'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000005'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Plant'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Type
FCAT-FIELDNAME = 'MTART'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '000006'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MatTyp'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material No.
FCAT-FIELDNAME = 'MATNR'.
FCAT-KEY = 'X'.
fcat-hotspot = 'X'.
FCAT-OUTPUTLEN = '000018'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Material'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Material Description
FCAT-FIELDNAME = 'MAKTX'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '000040'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Description'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Unit of Measure
FCAT-FIELDNAME = 'MEINS'.
FCAT-KEY = ''.
FCAT-OUTPUTLEN = '03'.
FCAT-JUST = 'C'.
FCAT-SELTEXT_M = 'UOM'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'UNIT'.
APPEND FCAT.
CLEAR FCAT.
for the Plant
FCAT-FIELDNAME = 'MONTH'.
FCAT-KEY = 'X'.
FCAT-OUTPUTLEN = '08'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'MONTH'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'C'.
FCAT-DATATYPE = 'CHAR'.
APPEND FCAT.
CLEAR FCAT.
for the Opening Stock
FCAT-FIELDNAME = 'C_STK'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Opening Stock'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
fcat-do_sum = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Total Receipts
FCAT-FIELDNAME = 'TRECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Receipts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Production
FCAT-FIELDNAME = 'PRODU'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Production'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
for the Other Plant Receipts
FCAT-FIELDNAME = 'RECEP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Othr Plnt Recpts'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Sales Return
FCAT-FIELDNAME = 'SAL_RET'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Sales Return'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.
CLEAR FCAT.
Total Dispatches
FCAT-FIELDNAME = 'TDISP'.
FCAT-HOTSPOT = ' '.
FCAT-OUTPUTLEN = '000016'.
FCAT-JUST = 'L'.
FCAT-SELTEXT_M = 'Total Dispatches'.
FCAT-DDICTXT = 'M'.
FCAT-INTTYPE = 'Q'.
FCAT-DATATYPE = 'QUAN'.
FCAT-DO_SUM = 'X'.
FCAT-JUST = 'R'.
FCAT-NO_ZERO = 'X'.
APPEND FCAT.

Merge of Cells in ALV table in ABAP webdynpro.

Hi All,
We have a requirement to merge cells vertically if the consecutive cells have same data.(The merge of cells happens when we click on sort of a column.) This functionality needs to be achived with out sorting the cells.Sorted data is populated in the ALV table.
I will be greatfull if any one can help us on this issue.
Thanks in advance
Regards,
Sharath

Hi Sarath,
Check this..
http://help.sap.com/saphelp_nw70ehp2/helpdata/en/9b/46bb0d339b42cc8d30636ca0c9f5b6/frameset.htm
and go through this..
merging cells in table
http://forums.sdn.sap.com/click.jspa?searchID=71460300&messageID=9768692
cheers,
Kris.
Edited by: kissnas on Apr 18, 2011 12:10 PM

How to Email POWL Reports / Apply Web Dynpro ALV Table Layout Settings

Hi all,
we want to be able to automatically extract POWL reports and email them to users in a batch job.
We can refresh a POWL report using FM POWL_QUERY_REFRESH, and access the raw report data using method CL_POWL_QUERY_ACCESSOR=>GET_CACHED_RESULTS.
However this merely gives us a table of raw data. No view layout (ie. Web Dynpro ALV table layout) settings have been applied, so there is no hiding or arranging of columns, row sorting, calculations or filters.
Ideally we would like to be able to specify a query and view layout. The batch job would then refresh and extract the data, and format the data according to the view layout before sending it on as an attachment in an email.
Does anyone know how to determine and apply Web Dynpro ALV table layout settings to format table data outside of the Web Dynpro environment ?
Thanks & regards,
Grogan

Hi Grogan,
Did you find out how this works..i also have the same issue.
Thanks
Jdsouza

Sorting Issue in ALV table

Similar Messages

Maybe you are looking for