ALV List- Order a field under another one

Hi, gurus.
I got a problem with an ALV list.
I got a record in my internal table with local currency imports and foreign currency imports.
I must write the foreign currency import in another row (with row_pos = 2), but the "second row" data begin with first field, not with the local currency field.
What can I do to order it in the right way?
I want to show, for example:
<account> <description> <local currency> <import>
<foreign currency> <import>
I hope you can help me.
Thanks for all.
Have a nice day.

Hi,
What you can do is to loop internal table, and for each row, create a new one.
data: lwa_table2 like line of it_table1.
Loop it_table1 into wa_table1.
   lwa_table2 = wa_table1.
   clear: lwa_table2-<Foreign currency>, lwa_table2-<import>.
   append lwa_table2 to it_table2.
   clear lwa_table2.
   lwa_table2-<foreign currency> = wa_table1-<foreign currency>
   lwa_table2-<import> = wa_table1-<import>.
   append lwa_table2 to it_table2.
   clear lwa_table2.
Endloop.
Call Function ALV LIST DISPLAY with it_table 2.
Regards
Ernesto

Similar Messages

Create a sales order with reference to another one. (BAPI)

Hi everybody,
I'm trying to create a new sales order with reference to another one (That's important because of the documents flow).
I'm using 'BAPI_SALESORDER_CREATEFROMDAT2' but I couldn´t do it yet. I've read some ideas about this kind of creation in this forum; but I still haven´t found the solution yet.
Some ideas about the BAPI parameters I nedd to complete?
Thanks in advance!!

Hi,
Go through this one
*& Report ZSD_R_SALESORDER
report zsd_r_salesorder1 line-size 132 message-id zmmbapi .
*& Created By : shailaja
*& Created on : 13.10.2007
*& Requested By : vardhman
*& Description of program :
Internal table definition *
data: gt_order_header_in like bapisdhead occurs 0 with header line,
gt_return like bapireturn1 occurs 0 with header line, " Return Messages
gt_order_items_in like bapiitemin occurs 0 with header line, " Item Data
gt_salesdocument like bapivbeln-vbeln , "Number of Generated Document
gt_order_partners like bapiparnr occurs 0 with header line, "Document Partner
gt_return1 like bapiret2 occurs 0 with header line.
Data definition *
types: begin of ty_gt_ft_sales ,
partn_numb(10) type n ,"Customer Number 1
partn_role(2) ,"Partner function
sales_org(4) , "Sales Organization
distr_chan(2) , "Distribution Channel
division(002), "DIVISION
doc_type(4) , "Sales Document Type
purch_no(020), "Purchase order
material(18), "MATERIAL
targetquantity(020),"Target quantity
reqqty(020), "Req quantity
reqdate(010), "req date
*REQ_DATE_H(010),
ref_1(012), "Ref
unload_pt(025),
*PARTN_ROLE(2) ,"Partner function
*PARTN_NUMB(10) ,"Customer Number 1
end of ty_gt_ft_sales,
begin of ty_header ,
partn_numb(10) ,"Customer Number 1
partn_role(2) ,"Partner function
sales_org(4) , "Sales Organization
distr_chan(2) , "Distribution Channel
division(002), "DIVISION
doc_type(4) , "Sales Document Type
purch_no(020), "Purchase order
unload_pt(025),
req_date_h(010),
end of ty_header,
begin of ty_item,
material(18), "MATERIAL
targetquantity(020),"Target quantity
reqqty(020), "Req quantity
reqdate(010), "req date
ref_1(012), "Ref
*UNLOAD(025),
end of ty_item.
data : msg(240) type c, " Return Message
e_rec(8) type c, " Error Records Counter
rec_no(8) type c, " Records Number Indicator
s_rec(8) type c, " Successful Records Counter
t_rec(8) type c, " Total Records Counter
v_matnr like mara-matnr,
v_parvw type parvw.
data : gt_ft_sales type standard table of ty_gt_ft_sales with header line.
data : wa_gt_ft_sales type ty_gt_ft_sales,
wa_order_items_in like gt_order_items_in,
wa_gt_ft_sales1 type ty_gt_ft_sales,
wa_header type ty_header,
salesdocument like bapivbeln-vbeln.
selection block for EXCEL UPLOAD FILE
selection-screen begin of block b1 with frame title text-000.
parameters file type ibipparms-path obligatory.
selection-screen end of block b1.
*<<<<AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .
at selection-screen on value-request for file .
perform getname.
form getname.
call function 'F4_FILENAME'
exporting
program_name = syst-cprog
dynpro_number = syst-dynnr
importing
file_name = file.
endform.
*TOP-OF-PAGE.
top-of-page.
skip 3.
format color col_heading inverse on.
write 40 text-001.
format color col_heading inverse off.
skip 1.
format color col_negative inverse on.
write :/ text-002, 13 sy-mandt , 104 text-003, 121 sy-uname,
/ text-004, 13 sy-datum , 104 text-005, 121 sy-uzeit.
format color col_negative inverse off.
skip 3.
*START-OF-SELECTION.
start-of-selection.
perform get_data.
perform bapi.
*end-of-page.
perform result.
form result.
t_rec = e_rec + s_rec.
skip 3.
format color col_total inverse on.
write: /38 text-007, t_rec.
format color col_total inverse off.
format color col_negative inverse on.
write: /38 text-008, e_rec.
format color col_negative inverse off.
format color col_total inverse on.
write: /38 text-009, s_rec.
format color col_total inverse off.
endform.
*& Form get_data
text
--> p1 text
<-- p2 text
form get_data .
call function 'WS_UPLOAD' "#EC *
exporting
filename = file
filetype = 'DAT'
tables
data_tab = gt_ft_sales
exceptions
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_type = 4
no_batch = 5
unknown_error = 6
invalid_table_width = 7
gui_refuse_filetransfer = 8
customer_error = 9
no_authority = 10
others = 11.
if sy-subrc 0 .
message e000.
endif.
endform. " get_data
*& Form BAPI
form bapi .
loop at gt_ft_sales into wa_gt_ft_sales.
wa_gt_ft_sales1 = wa_gt_ft_sales.
at new partn_numb.
wa_header-doc_type = wa_gt_ft_sales1-doc_type..
wa_header-sales_org = wa_gt_ft_sales1-sales_org . "'0001'
wa_header-distr_chan = wa_gt_ft_sales1-distr_chan. "'01'
wa_header-division = wa_gt_ft_sales1-division. " '01'
wa_header-purch_no = wa_gt_ft_sales1-purch_no.
wa_header-req_date_h = wa_gt_ft_sales1-reqdate.
call function 'CONVERSION_EXIT_PARVW_INPUT'
exporting
input = wa_gt_ft_sales1-partn_role
importing
output = v_parvw.
wa_header-partn_role = v_parvw.
wa_header-partn_numb = wa_gt_ft_sales1-partn_numb.
wa_header-unload_pt = wa_gt_ft_sales1-unload_pt.
move-corresponding wa_header to gt_order_partners.
move-corresponding wa_header to gt_order_header_in.
append gt_order_header_in.
append gt_order_partners.
endat.
call function 'CONVERSION_EXIT_CCMAT_INPUT'
exporting
input = wa_gt_ft_sales1-material
importing
output = v_matnr.
gt_order_items_in-material = v_matnr .
gt_order_items_in-target_qty = wa_gt_ft_sales1-targetquantity . "'1000'
gt_order_items_in-req_qty = wa_gt_ft_sales1-reqqty.
gt_order_items_in-req_date = wa_gt_ft_sales1-reqdate.
*GT_ORDER_ITEMS_IN-BILL_DATE = wa_GT_FT_SALES1-REQDATE.
gt_order_items_in-ref_1 = wa_gt_ft_sales1-ref_1.
append gt_order_items_in.
clear : wa_gt_ft_sales1,wa_header.
at end of partn_numb.
call function 'BAPI_SALESORDER_CREATEFROMDAT1'
exporting
order_header_in = gt_order_header_in
WITHOUT_COMMIT = ' '
CONVERT_PARVW_AUART = 'X'
importing
salesdocument = salesdocument
SOLD_TO_PARTY =
SHIP_TO_PARTY =
BILLING_PARTY =
return = gt_return
tables
order_items_in = gt_order_items_in
order_partners = gt_order_partners.
ORDER_ITEMS_OUT =
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CCARD =
ORDER_CFGS_BLOB =
ORDER_SCHEDULE_EX =
if gt_return-type eq 'E' .
e_rec = e_rec + 1.
read table gt_return with key id = 'V1'.
format color col_negative inverse on.
rec_no = e_rec + s_rec.
concatenate text-006 rec_no ':'
gt_return-message into msg separated by space .
condense msg.
write: / msg.
format color col_negative inverse off.
elseif gt_return-number = '000'.
s_rec = s_rec + 1.
format color col_positive inverse on.
msg = 'SUCCESS'.
condense msg.
write: / msg .
format color col_positive inverse off.
write :/ salesdocument, 'Has been created'.
perform commit_mm.
endif.
clear: gt_return[], msg.
endat.
endloop.
endform. " SLALE_UPLOAD_DATA
*& Form COMMIT_MM
text
--> p1 text
<-- p2 text
form commit_mm .
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'
importing
return = gt_return1.
clear: gt_order_items_inhttp://].\"GT_ORDER_CONDITIONS_IN[.
endform. " COMMIT_MM
inthis pass re_doc field in header...
Edited by: Naresh kumar

Can one clip in a sequence have "display first field" and another one "display both fields"?

Is it possible that one clip in a sequence will have "display first field" and another one
"display both fields"?
My problem is that I have a split screen. One part is a clip of still
image with text and the text is seen good with "both fields" and a
little bit blurred with "first field". The second part is a PAL clip
and it is seen bad with "both" and good with "first".
The pixel-ratio is 1.094 for both clips. Playback resolution is "full".

I have an Eizo calibrated monitor.
Hooked up how? If in use as the main computer monitor, no this isn't sufficient. You need a real TV or production monitor connected via HDMI, component, S-video or the like, so that it displays only the video signal and no part of the Desktop.
(And if you're working in interlaced, it really needs to be a CRT that can properly display an interlaced signal.)

How to list all the fields under an Infotype!

Hi
I need a list of fields under an Infotype, used the following link to list them but unsuccesful, is there any other way I can list the infotype feilds.
Re: Infotype 0002 all fields
Thanks

Hi Tara,
The FM 'DDIF_FIELDINFO_GET' gives you all the fields of the table in the Exporting IT 'DFIES_TAB' that you mention under the parameter 'TABNAME'. I am not sure why it doesnt work for you. Alternatively you can also try this FM 'DDIF_NAMETAB_GET' (This FM is actually used in the FM 'DDIF_FIELDINFO_GET' ) .
If you are still unsuccesful in meeting your requirement then please paste your piece of code.
Regards
Nanda

Move graphic under another one

Hi,i use InDesign since CS2 and i just remembered the thing that i missed from Quark.
I have a graphic of two person cropped by a PSD clipping path on top of another graphic (see Picture 2.png joined). If i try to click the grey graphic below (between the legs), i will always select the one with the persons (the one on top). Is there a way to move, like Quark, the graphic below without having to move the top frame?
Ben

Organizing by layers would help a whole lot. But even in one layer, if you Cmd click the top image, it will select the next image down in stacking/layer order. Altho it feels clumsy, you can Cmd click down to the object; but begin mouse dragging even before you release the mouse click, and in this clumsy-feeling way begin to move the object. I generally resort to the arrow keys to move something that I have Cmd clicked down to.
Hope this is clear!
Mike in Maryland

Time field in alv list

Hi all ,
i want to display alv list with time field . if no data exists in that field its showing 00:00:00 , i have to show it blank. if i change time field as type c in my internal table its showing like this 121314, i need to display it 12:13:14 . if no data it should display balnk . can any one help me out to reslove this issue?

Hi priya,
do this:
declare in your itab a field like sy-uzeit.
as example.
move sy-uzeit to itab-uzeit.
In fieldcat do this:
MOVE 'X' TO WA_FIELDCAT-NO_ZERO.
Hope it helps.
regards, Dieter

How to print check box in ALV list display and how to pick selected ones

Hi
i am displaying one ALV list dispaly. for that im adding one check box fields by filling the fieldcat as below:
wa_fldcat-checkbox = 'X'.
wa_fldcat-edit = 'X'.
but the check box is showing disable mode only. i want to display that check box and if i select that check box i want pick that records. for ALV grid i found one FM to pick records of selectedones as below.
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how can i do for list display to pick those selected one records.
Can any one sugget regarding this.
Thanks in advance.
Rahul.

Hi,
Thanks. now it's enabled. but how can we pick the records from that list whichever i selected through that check box.
i found this one for ALV grid:
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how for ALV normal list display.
Thanks.
rahul

Changing ALV list field name

Hi
In webdynpro application the ALV list display the field name which is in table description i want to put my preferable field name. Do u all have any idea how is it possible

Hello,
U could bult the fildcatalog like this:
* Sales Order Number
CLEAR L_FIELDCAT.
L_FIELDCAT-TABNAME = 'G_T_OUTTAB'.
L_FIELDCAT-FIELDNAME = 'VBELN'.
L_FIELDCAT-SELTEXT_M = TEXT-002. " Ur own text
L_FIELDCAT-COL_POS = 1.
L_FIELDCAT-KEY = 'X'.
APPEND L_FIELDCAT TO IT_FIELDCAT.
CLEAR L_FIELDCAT.
If useful reward.
Vasanth

Fields under the tab Goods Receipt in process order.

Hello Experts,
While creation of process order, the fields under the tab 'Goods Receipt' are disabled and already checked.
Fields are 'Goods Receipt' and 'Goods Receipt, Non-Valuated'. Fields are 'WEPOS' and 'WEUNB' accordingly.
Whereas when we create the process order of same material but with different plant, the field 'Goods Receipt, Non-Valuated' is disabled and checked and other field 'Goods Receipt' is enabled.
The material is finished product.
Could you please guide us, is there any configuration in order type dependent parameters for the same.
Many Thanks in advacne.
Regards,
Mayur
Edited by: Mayur_PP on Nov 21, 2011 1:28 PM

Hi Niki
For Financial books, MBEW-STPRS would suffice....
This would also generate a CO doc...
But, if you want to anlayse variances in CO, then you need a break up of STPRS i.e. Itemization which is calculated from CK11N and stored in MBEW-LPLPR
BR, Ajay M

Create an order using BAPI with reference to another one.

Hi everybody,
I'm trying to create a new sales order with reference to another one (That's important because of the documents flow).
I'm using 'BAPI_SALESORDER_CREATEFROMDAT2' but I couldn´t do it yet. I've read some ideas about this kind of creation in this forum; but I still haven´t found the solution yet.
Some ideas about the BAPI parameters I nedd to complete?
Thanks in advance!!
Edited by: Ole ES on Sep 11, 2008 12:32 PM

Hi,
Are you sure you can create a sales order with reference to ANOTHER sales order? The reason I ask is that in the front end, sales orders are created with reference to either quotations or contracts. There are settings known as "copying control" that need to be maintained for this to show up as document flow.
We have been working on a BAPI to create a sales order, but that is without reference to another document, and it works fine.
Could you please elaborate?
Cheers.

ALV List output limits

Hello,
I have a problem with my ALV List, I use a simple ALV List with much fields and I can't change with ALV Grid, on a specific client works correctly but on another client of the same system I've a dump.
Is it possible to set a client dependent limits for fields/characters to display for output?
Thanks
Antonio

It's a strange problem because if program runs on '100' client, runs correctly but on '200' client I have a dump but the system is the same...
If field catalog is wrong I should have the problem with all clients...
I've tried to remove/change some fields and works but with all fields I've dump only on one client...
I think there are limits on layout... is it possible?
Edited by: Aristoteles92 on Nov 23, 2009 5:22 PM

Purchase Order text field update in Material Mater

Hi experts,
Is't possible that we can give authorization to update ONLY Purchase Order text field
under the Purchase Order text view in MM?
But while giving authorization, I could only see "Maintenance statuses of Material" I could only see status code "E" in general for Purchasing view.
Please advise if this is possible to control to give authorization to update only this Purchase order text view in MM.
Regards,
P

Hi
Please try this way
Authorization object: M_MATE_STA
Define the fields this way
Fields     Possible values                                   Meaning
ACTVT      01                                                   User may create data.
                 02                                                  User may change data.
                 03                                                  User may display data.
                 06                                                   User may flag data for deletion.
                 08                                                   User may display change   documents.
STATM                                                             Here, you specify the
                                                                        maintenance status for which
                                                                         the user is authorized.
regards
sunny

How do you grey out/disable fields under a radio button if another radio button is selected in Adobe Acrobat XI Pro?

How do you grey out/disable fields under a radio button if another radio button is selected in Adobe Acrobat XI Pro?
I’m creating a form where the user has three options to make a payment.
1. charge to my credit card
2. charge associated costs to bank account
3. By cheque or money order
My Problem is, under each option, there are required fields that has to be filled out. So if the user picks the first option, charge to my credit card, they would fill out the required fields (credit card number, expiration date etc.). But when they click submit button to submit the form, it won’t let them, because there are required fields under the second option. Also, I have the radio buttons for the three options setup so that if the user holds the shift key and clicks a radio button, it unchecks it. So what I'm trying to do is this: If the user selects the radio button for option 1, the other two options are greyed out/disabled. And if the user holds down the shift key and clicks radio button for option one again, it unchecks the radio button and the other two options are available again. Is there a way to grey out or disable the two other payment options when the other one is picked. I’m assuming I will have to use javascript, but what would the coding be and which field do I write it under?
Thanks in advance guys

You will have to use custom JavaScript to access the various properties of the field object.
The radio button group has a value. When no button is selected that value is "Off". When an individual button has been selected the value for the group will be the option or export value for that individual button.
Once you have determined the button selected, then you will know the form fields that need to be made required. You use JavaScript to access those fields and change the "read only" property to false, and set the "required" property to true. For the fields associated with the other options, those fields should be reset, made read only, and have the "required" property set to false.
Disabling (graying-out) Form Fields
>> Also, I have the radio buttons for the three options setup so that if the user holds the shift key and clicks a radio button, it unchecks it.
Radio button in a PDF do not work that way. Only check boxes can be unchecked by clicking on one that has been checked.
If you plan the coding for the Mouse UP action to test for all possible options and code for each of those options you should have what you want.
If you want actual code you need to provide a lot more details.
It is even possible to perform some credit card and bank routing number validations with JavaScript and some check digit formulas.

ALV LIST with few checkboxes fields

Hi everyone,
I want to create an ALV with 2 fields that are checkboxes.
I am succeeding to create an ALV with one checkbox field.
How do we do in order to create an ALV with 2 checkboxes fields using ALV LIST ?
I know that we have to specify in the layout of the ALV the name of the field we want it to be checkbox.
For example :
gs_layout-box_fieldname   = 'FLAG'.
But, how do we specify a second checkbox field ?
Thanks.
Regards.

Slight modification to my earlier post. this is with 2 checkboxes.
REPORT ztest_alv_checkbox.
TYPE-POOLS: slis.
DATA: it_fcat TYPE slis_t_fieldcat_alv,
      wa_cat LIKE LINE OF it_fcat.
DATA: BEGIN OF it_alv OCCURS 0,
       check1(1),
       check2(1),
       carrid LIKE sflight-carrid,
       connid LIKE sflight-connid,
      END OF it_alv.
DATA:it_events TYPE slis_t_event,
     wa_events LIKE LINE OF it_events.
SELECT carrid
       connid
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_alv
UP TO 20 ROWS.
wa_cat-fieldname = 'CHECK1'.
wa_cat-input = 'X'.
wa_cat-edit = 'X'.
wa_cat-checkbox = 'X'.
wa_cat-seltext_l = 'Check'.
wa_cat-tabname = 'IT_ALV'.
APPEND wa_cat TO it_fcat.
CLEAR wa_cat.
wa_cat-fieldname = 'CHECK2'.
wa_cat-input = 'X'.
wa_cat-edit = 'X'.
wa_cat-checkbox = 'X'.
wa_cat-seltext_l = 'Check'.
wa_cat-tabname = 'IT_ALV'.
APPEND wa_cat TO it_fcat.
CLEAR wa_cat.
wa_cat-fieldname = 'CARRID'.
wa_cat-seltext_l = 'Carrid'.
wa_cat-tabname = 'IT_ALV'.
APPEND wa_cat TO it_fcat.
CLEAR wa_cat.
wa_cat-fieldname = 'CONNID'.
wa_cat-seltext_l = 'Connid'.
wa_cat-tabname = 'IT_ALV'.
APPEND wa_cat TO it_fcat.
wa_events-name = slis_ev_end_of_list.
wa_events-form = 'MODIFY_LIST'.
APPEND wa_events TO it_events.
CLEAR wa_events.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
    i_callback_program = sy-repid
    it_fieldcat        = it_fcat
    it_events          = it_events
TABLES
    t_outtab           = it_alv
EXCEPTIONS
    program_error      = 1
    OTHERS             = 2.
IF sy-subrc NE 0.
ENDIF.
"After The list display i am modifying the report output
"using the END_OF_LIST event of ALV
"here conditionally i can make the cell input off
*&      Form MODIFY_LIST
*       text
FORM modify_list.
DATA: l_lines TYPE i,
        l_index TYPE i.
l_lines = l_lines + 3.
"because we have 3 lines extra occupied by lables.
"if we have header,i mean top of page add the no.of lines
"how many ever top of page have + 3 for labels.
DESCRIBE TABLE it_alv LINES l_lines.
l_lines = l_lines + 3.
"understnad this part alone.
DO l_lines TIMES.
    IF sy-index GT 3.
      l_index = sy-index - 3.
      READ TABLE it_alv INDEX l_index.
      "this is my condition..
      IF sy-subrc = 0 .
        IF it_alv-carrid <> 'AA'. "place your condition here.
          "accordingly you can disable the checkbox
          "use the below logic
          READ LINE sy-index INDEX sy-lsind.
          IF sy-subrc = 0.
            MODIFY LINE sy-index INDEX sy-lsind
                       FIELD FORMAT it_alv-check1 INPUT OFF
                                     it_alv-check2 INPUT OFF.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
ENDDO.
ENDFORM.                    "MODIFY_LIST

How to edit particular field in alv list display-urgent

HI ALL,
my requirement is i am displaying output using alv list display. now my rewuirement :
i am displaying out in edit mode only. when user clicks one particular field
for example record is like
runrate a01 maheed -> if user clicks on a01 this field should be editable. i have a following code
w_field-edit = w_edit.
w_field-input = 'X'.    -> using this code i can able to display entire colomn in edit mode. this not suits my requirement.anybody can send me the sample code please.
thanks,
maheedhar.t

Can you please send me the sample code plz.
i am sending my code below.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
data :   checkbox type c value 'X',
        action type c,
      end of it_secobjects.
data : begin of it_secobjects1 occurs 0.
        include structure ZUSER_SECOBJECTS.
data :   checkbox type c VALUE 'X',
      end of it_secobjects1.
data : wa_ita like line of it_secobjects.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
   is_lout-f2code               = c_f2code.
   is_lout-box_fieldname        = c_checkfield.
   is_lout-get_selinfos         = 'X'.
   is_lout-detail_popup         = 'X'.
   is_lout-detail_initial_lines = 'X'.
maheed-start.
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
WHEN 'DELETE'.
    loop at it_SECOBJECTS where checkbox eq 'X'.
        delete it_SECOBJECTS.
    endloop.
*RS_SELFIELD-REFRESH = 'X'.
maheed-end.
maheed-start. apr 13
WHEN 'DELETE'.
loop at it_SECOBJECTS where checkbox eq 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
delete it_SECOBJECTS.
endloop.
RS_SELFIELD-REFRESH = 'X'.
when 'SAVE'.
DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
commit work.
refresh :IT_SECOBJECTS1.
maheed-end.    apr 13
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
ENDCASE.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog." USING w_edit TYPE any.
data : w_edit type c.
clear w_edit.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-EDIT = 'X'.      "maheed
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_PARTNER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m03.
w_field-edit = w_edit.
w_field-input = 'X'.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'INACTIVE'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 3.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
DATA : LC_GLAY TYPE LVC_S_GLAY.
LC_GLAY-EDT_CLL_CB = 'X'.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

ALV List- Order a field under another one

Similar Messages

Maybe you are looking for