Alv grid - call transaction 'ME22N' and reflect the change made in alv grid

Hi,
Scenario
I have an alv list which has fields Purchase document no. (EBELN) and Item delivery date (EINDT). EBELN field is hot spot enabled. when i click on that transaction 'ME22' is called. I have done this using USER_COMMAND subroutine.the code is given.
 FORM USER_COMMAND *
Call transaction ME22N on clicking Document number *
FORM USER_COMMAND USING F_UCOMM LIKE SY-UCOMM
 I_SELFIELD TYPE SLIS_SELFIELD.
DATA: F_SUBRC LIKE SY-SUBRC,
 s_arseg like G_T_PORD. "the internal table used is G_T_PORD
CASE F_UCOMM.
 WHEN '&IC1'.
 IF i_selfield-fieldname = 'EBELN'.
 READ TABLE G_T_PORD INDEX i_selfield-tabindex INTO s_arseg.
 SET PARAMETER ID 'BES' FIELD s_arseg-ebeln.
 CALL TRANSACTION 'ME22N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDCASE.
endform.
Requirement
After calling the transaction, If the user changes the Item delivery date (EINDT) at the ME22 transaction screen, the new date needs to be reflected in the ALV grid.
Plz help it is very urgent.

The first method (using selfield-refresh = 'X'.) didn't work as the internal table doesnt get modified when the user make changes in Item delivery date(EINDT) at ME22 transaction screen. The 2nd method is OO,which can't be used in my case.
I tried calling the subroutine for populating the itab (G_T_PORD) and the subroutine for displaying the alv grid immediately after calling ME22N transaction. Still it is not reflecting the new date in the output alv. The code is given below.
      FORM USER_COMMAND                                             *
Call transaction ME22N on clicking Document number                 *
FORM USER_COMMAND USING F_UCOMM LIKE SY-UCOMM
                I_SELFIELD TYPE SLIS_SELFIELD.
DATA: F_SUBRC LIKE SY-SUBRC,
        s_arseg like G_T_PORD.
CASE F_UCOMM.
    WHEN '&IC1'.
      IF i_selfield-fieldname = 'EBELN'.
        READ TABLE G_T_PORD INDEX i_selfield-tabindex INTO s_arseg.
        SET PARAMETER ID 'BES' FIELD s_arseg-ebeln.
        CALL TRANSACTION 'ME22N' AND SKIP FIRST SCREEN.
      ENDIF.
ENDCASE.
        refresh G_T_PORD.
        perform F1000_POPULATE_PO.
        perform F2000_DISPLAY_PO .
endform.

Similar Messages

I keep getting a warnin that my pages document could not be auto saved. The file has been changed by another application. Click save anyway to keep your changes and save the changes made by the other application as a version, or click revert to keep the c

I keep getting a warning stating that the document could not be auto saved in pages. The file has been changed by another application. Then it says click save any way to keep your changes and save the changes made by the other application as a version, or click revert to keep the changes from the other application and save your changes to a version.
What in the heck does all that mean, and why are they trying to behave like a Windows product or a Microsoft office product. I just don't get it.
Why is another application changing my documents? It's like they've created a virus within their own programs. It's a pain in the neck and makes no sense.

I am also having the issue of a warning saying "could not be auto-saved in Pages. The file has been changed in another application. I then hit "save anyway", the warning will go away for a time, sometimes minutes, sometimes hourr, but then the warming reapprears saying the same thing. This is not the case with all Pages documents but it is the case with many.
Working with a Retina Macbook Pro and current software
These are newly created documents

Create a Procedural ALV Report with editable fields and save the changes

Hi,
I am new to ABAP. I have created a Procedural ALV Report with 3 fields. I want to make 2 fields editable. When executed, if the fields are modified, I want to save the changes. All this I want to do without using OO concepts. Please help . Also, I checked out the forum and also the examples
BCALV_TEST_GRID_EDIT_01
BCALV_TEST_GRID_EDIT_02
BCALV_TEST_GRID_EDIT_04_FORMS
BCALV_TEST_GRID_EDITABLE
BCALV_EDIT_01
BCALV_EDIT_02
BCALV_EDIT_03
BCALV_EDIT_04
BCALV_EDIT_05
BCALV_EDIT_06
BCALV_EDIT_07
BCALV_EDIT_08
BCALV_FULLSCREEN_GRID_EDIT
But all these are using OO Concepts.
Please help.
Regards,
Smruthi

TABLES:     ekko.
TYPE-POOLS: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) TYPE c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-edit             = 'X'
fieldcatalog-col_pos     = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-info_fieldname =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_pf_status_set = 'STATUS'
            i_callback_top_of_page   = 'TOP-OF-PAGE'
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       TABLES
            t_outtab                = it_ekko
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
   UP TO 10 ROWS
    FROM ekpo
    INTO TABLE it_ekko.
LOOP AT it_ekko INTO wa_ekko.
    ld_color = ld_color + 1.
    IF ld_color = 8.
      ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.
    MODIFY it_ekko FROM wa_ekko.
ENDLOOP.
ENDFORM.                    " DATA_RETRIEVAL
      FORM top-of-page                                              *
FORM top-of-page.
WRITE:/ 'This is First Line of the Page'.
ENDFORM.
      FORM status                                                   *
FORM status USING rt_extab TYPE slis_t_extab. .
SET PF-STATUS 'ALV'.
ENDFORM.
      FORM USER_COMMAND                                          *
--> RF_UCOMM                                                      *
--> RS                                                            *
FORM user_command USING rf_ucomm LIKE sy-ucomm
                         rs TYPE slis_selfield.
DATA ref1 TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = ref1.
CALL METHOD ref1->check_changed_data.
CASE rf_ucomm.
when 'SAVE'.
get all the modified entries and store them in an internal table and udpate them in to the required transaction or your custom table.
endcase.
endform.
ENDFORM.
here u need to 2 performs for PF status and USER_COMMAND in the ALV parameters.
create a custom PF status and create push buttons and assign your ok codes in your PF status.
if the field has to be edited in the ALV then pass EDIT = 'X' for that field in the fieldcatlog preparation.
Hope this will help you.
Regards,
phani.

Change the current row in an iterator and reflect the change on page

Hi there,
I have a jspx with a creation form created as usual draging and droping the data control. In same page, I inserted a commandButton which ActionListener executes a method in a managed bean called validate(). Through such a method what Im trying to do is to fill the form with data from specified entry of the database if certain condition is true. I know it is kinda twisted but unfortunately is the requirement for the page.
So basically in "validate" method, if the condition I mentioned is reached, I do the following:
// execute a Rollback (included in Page Definition) in order to cancel the previous auto-invoked "Create".
FacesContext context = FacesContext.getCurrentInstance();
Application app = context.getApplication();
BindingContainer bindings =(BindingContainer)app.getVariableResolver().resolveVariable(context,"bindings");
OperationBinding opBinding = bindings.getOperationBinding("Rollback");
opBinding .execute();
//get the iterator and asociated VO from the binding container
ValueBinding vb = app.createValueBinding("#{bindings.AccountsVOIterator}");
DCIteratorBinding dciter = (DCIteratorBinding) vb.getValue(FacesContext.getCurrentInstance());
ViewObject view = dciter.getViewObject();
//and set the current row with the specified entry I have mentioned above.
Object keyValues[] = new Object[2];
keyValues[0] = "1"; keyValues[1] = "98543";
Row[] row = view.findByKey(new Key(keyValues),1);
AccountsVpnVORowImpl client = (AccountsVpnVORowImpl)row[0];
view.setCurrentRow(client);
view.executeQuery();
dciter.setCurrentRowWithKey(client.getKey().toStringFormat(true));
dciter.executeQuery();
opBinding = bindings.getOperationBinding("Execute");
opBinding.execute();
All this works perfectly when I debbug it but I cannot see the changes in the page(even refreshing browser). I need that when such a condition is met, the creation form turns into a modify-specific entry form, filling all fields with the specific data in order user can modify it, and all in the same page.
Any clue?
Thanks so much in advance for your time.

Hi,
I could see the problem with call to executeQuery and execute methods at the end of your method which re-sets the current row.
Once you set the current row you should not call execute or executequery methods. Try removing those calls and also make sure that you have added partialTriggers property on the table is set to commandbutton id and partialSubmit property is set to true on commandButton to refresh the table partially on click of a button
Sireesha

How to reflect the changes made in the internal table?

Hi,
I changed one field of the internal table.
i used
modify workarea. in the loop.
when i am debugging that row is getting modified but after execution when i am displaying that changes are not reflected. why?

hi it should work, just check whether u have worked correctly with SY-TABIX..
LOOP AT T_VBRK_VBRP.
 V_SYTAB = SY-TABIX.
 AT NEW VBELN.
 READ TABLE T_VBRK_VBRP INDEX V_SYTAB.
 READ TABLE IT_VBRK WITH KEY VBELN = T_VBRK_VBRP-VBELN.
 IF SY-SUBRC = 0.
 T_VBRK_VBRP-FKDAT = IT_VBRK-FKDAT.
 MODIFY T_VBRK_VBRP TRANSPORTING FKDAT
 WHERE VBELN = IT_VBRK-VBELN.
 ENDIF.
 ENDAT.
ENDLOOP.
Check this code too where we assign Sy-Tabix to another variable
LOOP AT IT_VBRK.
 CTAB = SY-TABIX.
 LOOP AT IT_T001 WHERE BUKRS = IT_VBRK-BUKRS.
 IF SY-SUBRC = 0.
 IT_VBRK-BUTXT = IT_T001-BUTXT.
 MODIFY IT_VBRK INDEX CTAB.
 CLEAR CTAB.
 ENDIF.
 ENDLOOP.
ENDLOOP.
Award points if found helpful

"An autonomous transaction does not see any changes made by main transact"

Hi,
I'm trying to reproduce the "An autonomous transaction does not see any changes made by main transaction" reffered on :
Oracle® Database Application Developer's Guide - Fundamentals
10g Release 2 (10.2)
Part Number B14251-01
chapter 2 SQL Processing for Application Developers
Paragraph : Autonomous TransactionsI set up a simple case...
create table emp_ as select * from emp
begin
update emp_ set hiredate=hiredate+100 where empno=7934;
end;
create or replace trigger trg_emp_
after insert or update on emp_
for each row
declare
    pragma autonomous_transaction;
    emp_var emp.hiredate%type;
begin
    select hiredate
      into emp_var
      from emp_
    where empno=:new.empno;
    dbms_output.put_line('empno: '||:new.empno);
    dbms_output.put_line('old hiredate: '||:old.hiredate);
    dbms_output.put_line('new hiredate: '||:new.hiredate);
end;Prior to any change...
SQL> select empno,hiredate from emp_;
EMPNO HIREDATE
5498 21/4/1982
5499 11/10/1981
5411 10/10/1981
5410 10/10/1982
7369 17/12/1980
7499 20/2/1981
7521 22/2/1981
7566 2/4/1981
7654 28/9/1981
7698 1/5/1981
7782 9/6/1981
7788 19/4/1987
7839 17/11/1981
7844 8/9/1981
7876 23/5/1987
7900 3/12/1981
7902 3/12/1981
7934 23/1/1982After the change...
SQL> begin
2    update emp_ set hiredate=hiredate+100 where empno=7934;
3 end;
4 /
empno: 7934
old hiredate: 23/01/82
new hiredate: 03/05/82
PL/SQL procedure successfully completedAccording to the Oracle doc the select of the autonomous transaction should not see the change made to the hiredate column of the table in the main transaction(in the anonymous block)....
What may i do wrong..????
Thank you,
Sim

Simon:
As Tubby pointed out, your dbms_output commands do not display the value you selected in the trigger. Your trigger based demonstration needs to be more like:
SQL> SELECT * FROM t;
        ID DT
         1 05-SEP-2009
         2 17-JUL-2009
SQL> CREATE TRIGGER t_ai
2     AFTER INSERT OR UPDATE ON t
3     FOR EACH ROW
4 DECLARE
5     PRAGMA AUTONOMOUS_TRANSACTION;
6     l_dt t.dt%TYPE;
7 BEGIN
8     SELECT dt INTO l_dt
9     FROM t
10     WHERE id = :new.id;
11     DBMS_OUTPUT.Put_Line ('ID: '||:new.id);
12     DBMS_OUTPUT.Put_Line ('Old dt: '||:old.dt);
13     DBMS_OUTPUT.Put_Line ('New dt: '||:new.dt);
14     DBMS_OUTPUT.Put_Line ('Aut dt: '||l_dt);
15 END;
16 /
Trigger created.
SQL> UPDATE t SET dt = sysdate WHERE id = 2;
ID: 2
Old dt: 17-JUL-2009
New dt: 25-OCT-2009
Aut dt: 17-JUL-2009
1 row updated.So, the automomous transaction select did not see the changed value of dt.
I know you are just trying to understand automomous transactions here and would never do sometihg like this in production right? :-)
Your trigger, as written, has some interesting side effects because of the automomous transaction. For example:
SQL> INSERT INTO t VALUES(3, sysdate - 25);
INSERT INTO t VALUES(3, sysdate - 25)
ERROR at line 1:
ORA-01403: no data found
ORA-06512: at "OPS$ORACLE.T_AI", line 5
ORA-04088: error during execution of trigger 'OPS$ORACLE.T_AI'
SQL> UPDATE t SET id = 3 where trunc(dt) = TO_DATE('05-Sep-2009', 'dd-mon-yyyy');
UPDATE t SET id = 3 where trunc(dt) = TO_DATE('05-Sep-2009', 'dd-mon-yyyy')
ERROR at line 1:
ORA-01403: no data found
ORA-06512: at "OPS$ORACLE.T_AI", line 5
ORA-04088: error during execution of trigger 'OPS$ORACLE.T_AI'John

ALV Grid Calling Transaction Code

Hello Everybody
Can anyone help me about my problem in using ALV Grid calling a transaction code...?Here is the sample code below..
 IF rs_selfield-fieldname = 'BELNR'.
 SET PARAMETER ID 'BLN' FIELD rs_selfield-value.
 CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
 ENDIF.
the main problem is how can I set my parameter id for company since
my rs_field-value is for the column BELNR ( document # field only)
it returns error when i set this code since i have no value to pass for rs_selfield for company code
 SET PARAMETER ID 'BUK' FIELD
Help
thanks in advance
aVaDuDz

Hi,
*"Table declarations...................................................
TABLES:
rbkp, " Document Header Invoice receipt
rseg, " Document Item: Incoming Invoice
eban, " Purchase Requisition
t001w. " Plants/Branches
*"Selection screen elements............................................
PARAMETERS:
p_gjahr LIKE rbkp-gjahr. " Fiscal Year
SELECT-OPTIONS:
s_belnr FOR rbkp-belnr, " Document number of an invoice
s_bldat FOR rbkp-bldat, " Document Date in Document
s_budat FOR rbkp-budat, " Posting Date in the Document
s_werks FOR rseg-werks. " Plant
*" Data declarations...................................................
Work variables *
DATA:
w_flag1 TYPE c VALUE '0', " Flag variable 1
w_flag2 TYPE c VALUE '0', " Flag variable 2
w_index1 TYPE sy-tabix. " Index variable
Field String to hold Document Header Invoice receipt *
DATA:
BEGIN OF fs_rbkp,
 belnr TYPE rbkp-belnr, " Document number of an invoice
 gjahr TYPE rbkp-gjahr, " Fiscal Year
 bldat TYPE rbkp-bldat, " Posting Date in the Document
 budat TYPE rbkp-budat, " Posting Date in the Document
 lifnr TYPE rbkp-lifnr, " Different invoicing party
END OF fs_rbkp,
Internal table to hold Document Header Invoice receipt *
t_rbkp LIKE STANDARD TABLE OF fs_rbkp.
Field String to hold Document Item: Incoming Invoice *
DATA:
BEGIN OF fs_rseg,
 belnr TYPE rseg-belnr, " Document number of an invoice
 ebeln TYPE rseg-ebeln, " Purchasing Document Number
 wrbtr TYPE rseg-wrbtr, " Amount in document currency
END OF fs_rseg,
Internal table to hold Document Item: Incoming Invoice *
t_rseg LIKE STANDARD TABLE OF fs_rseg.
Field String to hold Purchase Requisition *
DATA:
BEGIN OF fs_eban,
 banfn TYPE eban-banfn, " Purchase requisition number
 ernam TYPE eban-ernam, " Person who Created the Object
 afnam TYPE eban-afnam, " Name of requisitioner/requester
 badat TYPE eban-badat, " Requisition (request) date
 ebeln TYPE eban-ebeln, " Purchase order number
END OF fs_eban,
Internal table to hold Purchase Requisition *
t_eban LIKE STANDARD TABLE OF fs_eban.
Field String to hold Desired Data *
DATA:
BEGIN OF fs_final,
 ebeln TYPE rseg-ebeln, " Purchasing Document Number
 banfn TYPE eban-banfn, " Purchase requisition number
 badat TYPE eban-badat, " Requisition (request) date
 bldat TYPE rbkp-bldat, " Posting Date in the Document
 lifnr TYPE rbkp-lifnr, " Different invoicing party
 wrbtr TYPE rseg-wrbtr, " Amount in document currency
 afnam TYPE eban-afnam, " Name of requisitioner/requester
 ernam TYPE eban-ernam, " Name of Person who Created the
 " Object
END OF fs_final,
Internal table to hold Desired Data *
t_final LIKE STANDARD TABLE OF fs_final.
 INITIALIZATION *
INITIALIZATION.
p_gjahr = sy-datum+0(4).
 AT SELECTION-SCREEN EVENT *
AT SELECTION-SCREEN.
IF s_belnr IS INITIAL OR s_bldat IS INITIAL OR s_budat IS INITIAL.
 MESSAGE ' (Invoice) Add Creation Date .' TYPE 'E'.
ENDIF. " IF S_BELNR...
 AT SELECTION-SCREEN ON FIELD EVENT *
AT SELECTION-SCREEN ON s_werks.
SELECT SINGLE werks " Plant
 FROM t001w
 INTO t001w
 WHERE werks IN s_werks.
IF sy-subrc NE 0.
 MESSAGE 'Invalid plant' TYPE 'E'.
ENDIF. " IF SY-SUBRC NE 0.
 START-OF-SELECTION EVENT *
START-OF-SELECTION.
PERFORM get_purchaserequistion.
LOOP AT t_rseg INTO fs_rseg.
 READ TABLE t_rbkp INTO fs_rbkp WITH KEY belnr = fs_rseg-belnr
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 READ TABLE t_eban INTO fs_eban WITH KEY ebeln = fs_rseg-ebeln
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 IF fs_rbkp-bldat LE fs_eban-badat.
 DELETE t_rseg INDEX sy-tabix.
 ENDIF. " IF FS_RBKP-BLDAT...
 ENDIF. " IF SY-SUBRC EQ 0
 ENDIF. " IF SY-SUBRC EQ 0
ENDLOOP. " LOOP AT T_RSEG...
LOOP AT t_rbkp INTO fs_rbkp.
 WHILE w_flag1 EQ '0'.
 READ TABLE t_rseg INTO fs_rseg WITH KEY belnr = fs_rbkp-belnr
 BINARY SEARCH.
 w_index1 = sy-tabix.
 IF sy-subrc EQ 0.
 WHILE w_flag2 EQ '0'.
 READ TABLE t_eban INTO fs_eban WITH KEY ebeln = fs_rseg-ebeln
 BINARY SEARCH.
 IF sy-subrc EQ 0.
 fs_final-bldat = fs_rbkp-bldat.
 fs_final-lifnr = fs_rbkp-lifnr.
 fs_final-ebeln = fs_rseg-ebeln.
 fs_final-wrbtr = fs_rseg-wrbtr.
 fs_final-banfn = fs_eban-banfn.
 fs_final-badat = fs_eban-badat.
 fs_final-afnam = fs_eban-afnam.
 fs_final-ernam = fs_eban-ernam.
 APPEND fs_final TO t_final.
 CLEAR fs_final.
 DELETE t_eban INDEX sy-tabix .
 ELSE.
 w_flag2 = '1'.
 DELETE t_rseg INDEX w_index1.
 ENDIF. " IF SY-SUBRC EQ 0
 ENDWHILE. " WHILE W_FLAG2...
 w_flag2 = '0'.
 ELSE.
 w_flag1 = '1'.
 ENDIF. " IF SY-SUBRC EQ 0
 ENDWHILE. " WHILE W_FLAG1...
 w_flag1 = '0'.
ENDLOOP. " LOOP AT T_RBKP...
CLASS lcl_event_receiver DEFINITION DEFERRED.
Declare reference variables to the ALV grid and the container
DATA :
 cust_con TYPE scrfname VALUE 'BCALVC_TOOLBAR_D100_C1',
 cont_on_dialog TYPE scrfname VALUE 'BCALVC_TOOLBAR_D101_C1',
 ref1 TYPE REF TO cl_gui_custom_container,
 ref2 TYPE REF TO cl_gui_alv_grid,
 event_receiver TYPE REF TO lcl_event_receiver,
 fcat TYPE lvc_t_fcat,
 wa TYPE lvc_s_fcat,
 wa_layo TYPE lvc_s_layo.
CALL SCREEN 200.
class lcl_event_receiver: local class to define and handle own
*functions......................................................
Definition:
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
 METHODS:
 handle_toolbar
 FOR EVENT toolbar OF cl_gui_alv_grid
 IMPORTING e_object e_interactive,
 handle_user_command
 FOR EVENT user_command OF cl_gui_alv_grid
 IMPORTING e_ucomm.
PRIVATE SECTION.
ENDCLASS. "lcl_event_receiver DEFINITION
class lcl_event_receiver (Implementation)
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_toolbar.
In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.
 DATA: ls_toolbar TYPE stb_button.
E_OBJECT of event TOOLBAR is of type REF TO CL_ALV_EVENT_TOOLBAR_SET.
append a separator to normal toolbar
 CLEAR ls_toolbar.
 MOVE 3 TO ls_toolbar-butn_type.
 APPEND ls_toolbar TO e_object->mt_toolbar.
append an icon to show booking table
 CLEAR ls_toolbar.
 MOVE 'PORDER' TO ls_toolbar-function.
 MOVE icon_employee TO ls_toolbar-icon.
 MOVE 'Show Bookings' TO ls_toolbar-quickinfo.
 MOVE 'PONUMBER' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
append a separator to normal toolbar
 CLEAR ls_toolbar.
 MOVE 3 TO ls_toolbar-butn_type.
 APPEND ls_toolbar TO e_object->mt_toolbar.
append an icon to show booking table
 CLEAR ls_toolbar.
 MOVE 'PREQUISITION' TO ls_toolbar-function.
 MOVE icon_employee TO ls_toolbar-icon.
 MOVE 'Show Bookings' TO ls_toolbar-quickinfo.
 MOVE 'PRNUMBER' TO ls_toolbar-text.
 MOVE ' ' TO ls_toolbar-disabled.
 APPEND ls_toolbar TO e_object->mt_toolbar.
ENDMETHOD. " handle_toolbar
METHOD handle_user_command.
*Event handler method for event USER_COMMAND:
 CASE e_ucomm.
 WHEN 'PORDER'.
 CALL TRANSACTION 'ME23N'.
 WHEN 'PREQUISITION'.
 CALL TRANSACTION 'ME53N'.
 ENDCASE.
ENDMETHOD. " handle_user_command
ENDCLASS. " lcl_event_receiver
*& Module STATUS_0200 OUTPUT
text
MODULE status_0200 OUTPUT.
SET PF-STATUS 'GUI'.
SET TITLEBAR 'TITLE'.
IF sy-ucomm = 'BACK'.
 LEAVE PROGRAM.
ENDIF.
PERFORM form_fcat.
PERFORM form_layo.
IF ref1 IS INITIAL.
 CREATE OBJECT ref1
 EXPORTING
PARENT = ref1
 container_name = 'CUST_CON'
STYLE =
LIFETIME = lifetime_default
REPID =
DYNNR =
NO_AUTODEF_PROGID_DYNNR =
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5
 OTHERS = 6
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ENDIF.
IF ref2 IS INITIAL.
 CREATE OBJECT ref2
 EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
 i_parent = ref1
I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
 EXCEPTIONS
 error_cntl_create = 1
 error_cntl_init = 2
 error_cntl_link = 3
 error_dp_create = 4
 OTHERS = 5
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 CALL METHOD ref2->set_table_for_first_display
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'
is_layout = wa_layo
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
 CHANGING
 it_outtab = t_final
 it_fieldcatalog = fcat
IT_SORT =
IT_FILTER =
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CREATE OBJECT event_receiver.
 SET HANDLER event_receiver->handle_user_command FOR ref2.
 SET HANDLER event_receiver->handle_toolbar FOR ref2.
*Call method 'set_toolbar_interactive' to raise event TOOLBAR.
 CALL METHOD ref2->set_toolbar_interactive.
ENDIF.
ENDMODULE. " STATUS_0200 OUTPUT
Form FORM_FCAT *
text *
FORM form_fcat.
CLEAR fcat.
CLEAR wa.
wa-fieldname = 'EBELN'.
wa-col_pos = 1.
wa-scrtext_l = ' PURCHASE ORDER NUMBER'.
APPEND wa TO fcat.
CLEAR wa.
wa-fieldname = 'BANFN'.
wa-col_pos = 2.
wa-scrtext_l = 'PURCHASE REQUISITION NUMBER'.
APPEND wa TO fcat.
CLEAR wa.
wa-fieldname = 'BADAT'.
wa-col_pos = 3.
wa-scrtext_l = 'PR CREATION DATE'.
APPEND wa TO fcat.
CLEAR wa.
wa-fieldname = 'BLDAT'.
wa-col_pos = 4.
wa-scrtext_l = 'INVOICE DATE'.
APPEND wa TO fcat.
CLEAR wa.
wa-fieldname = 'LIFNR'.
wa-col_pos = 5.
wa-scrtext_l = 'VENDOR NUMBER'.
APPEND wa TO fcat.
wa-fieldname = 'WRBTR'.
wa-col_pos = 6.
wa-do_sum = 'X'.
wa-scrtext_l = ' PO AMOUNT'.
APPEND wa TO fcat.
wa-fieldname = 'AFNAM'.
wa-col_pos = 7.
wa-scrtext_l = 'REQUISITIONER'.
APPEND wa TO fcat.
wa-fieldname = 'ERNAM'.
wa-col_pos = 8.
wa-scrtext_l = 'PR CREATOR'.
APPEND wa TO fcat.
ENDFORM. " FORM_FCAT
Module USER_COMMAND_0200 INPUT *
text *
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
 WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
 FORM FORM_LAYO *
There are no interface parameters to be passed to this subroutine.*
FORM form_layo.
CLEAR wa_layo.
wa_layo-zebra = 'X'.
wa_layo-grid_title = 'GRID TITLE'.
wa_layo-no_toolbar = 'X'.
ENDFORM. " FORM_LAYO
 FORM GET_PURCHASEREQUISITION *
This subroutine selects all the Purchase requisitions from table *
EBAN for all the selected Invoices based on the Purchase orders. *
There are no interface parameters to be passed to this subroutine. *
FORM get_purchaserequistion.
SELECT belnr " Document number of an invoice
 gjahr " Fiscal Year
 bldat " Posting Date in the Document
 budat " Posting Date in the Document
 lifnr " Different invoicing party
 FROM rbkp
 INTO TABLE t_rbkp
 WHERE belnr IN s_belnr
 AND gjahr EQ p_gjahr
 AND bldat IN s_bldat
 AND budat IN s_budat.
IF NOT t_rbkp[] IS INITIAL.
 SELECT belnr " Document number of an invoice
 ebeln " Purchasing Document Number
 wrbtr " Amount in document currency
 FROM rseg
 INTO TABLE t_rseg
 FOR ALL ENTRIES IN t_rbkp
 WHERE belnr EQ t_rbkp-belnr
 AND werks IN s_werks.
ENDIF. " IF NOT t_rbkp[] IS INITIAL...
IF NOT t_rseg[] IS INITIAL.
 SELECT banfn
 ernam
 afnam
 badat
 ebeln
 FROM eban
 INTO CORRESPONDING FIELDS OF TABLE t_eban
 FOR ALL ENTRIES IN t_rseg
 WHERE ebeln EQ t_rseg-ebeln.
ENDIF. " IF NOT t_rseg[] IS INITIAL...
ENDFORM. " GET_PURCHASEREQUISITION
reward points if helpful.
regards,
kiran kumar k.

Change the data in fieldcat and update the database table in alv oops

Hi,
my requirement is i have displayed a fieldcat in change mode and when i change the data and click on save it has to be updated the database table..
this has to be done using alv oops...

Hi,
This code will reflect all the changes into the internal table that is being displayed.
* to reflect the data changed into internal table
      DATA : ref_grid TYPE REF TO cl_gui_alv_grid. "new
      IF ref_grid IS INITIAL.
        CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
          IMPORTING
            e_grid = ref_grid.
      ENDIF.
      IF NOT ref_grid IS INITIAL.
        CALL METHOD ref_grid->check_changed_data.
      ENDIF.
Now after this code is executed the internal table is modified as per the changes done in alv output.
Now you can use this internal table to update the database table.
Hope this helps you.
Regards,
Tarun

Call transaction 'LS33' and skip first screen.

This doesn't work:
set parameter id 'LEN' field '04018091'.
call transaction 'LS33' and skip first screen.
I've found this:
<a href="https://www.sdn.sap.com/irj/sdn/message?messageID=3715690">https://www.sdn.sap.com/irj/sdn/message?messageID=3715690</a>
but I'm not sure about the exact meaning (wouldn't know where to put the *)
nor even about if it applies.
Thanks in advance.

Sorry, I mistook this forum for that of ABAP General.
Anyway, the answer is in
Call transaction 'LS33' and skip first screen.

CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN?

Hi, Gurus:
In my program, after I call 'CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.'    in the va02, user maybe do some change and save
then I want to get those change as the dollowing:
    select single uvall into c_complete_flag from vbuk
     where vbeln = lv_vbeln.
why I can't get the latest change.
Thanks,

VA02 usese the asynchronus update mehtod so, it gives you the message like "Order 1111 was saved" but the database update is still going on.
So, you need to wait for some time before facthing the data from the database.
You can use like:
WAIT UP TO 10 SECONDS.
But this statement will force you to wait for atleast 10 seconds before doing any thing.
Regards,
Naimesh Patel

How to keep track of the changes done in ALV GRID Report

Hi Experts,
how to keep track of the changed record in ALV GRID Report. how to set the field to be editable even for the entire row also. Can anybody guide along with code also?...
Valuable answers will be rewarded.
Thanks,
Satish.

Hi,
Access the table through SM30. It comes blank as standard. Click "New Entries" and make entries for changes to be tracked. For example, whenever an org. unit changes 002 and 003 relationship, you will make entries like:
01 O 1001 B002 Activate box checked
01 O 1001 B003 Activate box checked
Here, 01 is your active plan version, O is org. unit, 1001 is infotype and B002 and B003 are the subtypes. You can also use * for infotype and subtype which means every change will be logged.
If you then run the report RHCDOC_DISPLAY through SA38, it will pick up all the changes pertaining to B002 and B003 relationship for org. units (in the above example).
Similarly, you can set up this table for other object types.
For more information, follow SPRO>Personnel Management>OM>Basic Settings>Activate change documents and go through the documentation for that node. Also, read up the documentation for the report.
Hope this helps.
Donnie

We are trying to implement a process so that any document that needs to be printed through our Java application will be printed as PDF using Adobe Reader. For which, We created and execute the below command line to call Adobe Reader and print the PDF on a

We are trying to implement a process so that any document that needs to be printed through our Java application will be printed as PDF using Adobe Reader. For which, We created and execute the below command line to call Adobe Reader and print the PDF on a printer."C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe" /T "\\<Application Server>\Report\<TEST.PDF>" "<Printer Name>". Current Situation: The above command line parameter when executed is working as expected in a User's Workspace. When executed in a command line on the Application Server is working as expected. But, the same is not working while executing it from Deployed environment.Software being used: 1. Adobe 11.0 enterprise version. 2. Webshpere Application Server 8.5.5.2. Please let us know if there is a way to enable trace logs in Adobe Reader to further diagnose this issue.

This is the Acrobat.com forum. Your question will have a much better chance being addressed in the Acrobat SDK forum.

CALL TRANSACTION 'MIR6' AND SKIP FIRST SCREEN .

Hi all,
i hope there is someone that can help me.
My problem is: in an ABAP custom report in a FORM user-command my code is
CASE ls_selfield-sel_tab_field.
    WHEN 'ITAB-BELNR'.
      IF NOT ls_selfield-value IS INITIAL.
        SET PARAMETER ID 'RBN' FIELD ls_selfield-value.
        CALL TRANSACTION 'MIR6' AND SKIP FIRST SCREEN .
ENDCASE.
When i click on output field of my report, not skip first screen but only call MIR6!!!
How can i solve this problem?
Regards.

Hi,
First of all Please don't use all Caps for Subject Line
Test Following Sample Code it will solve out your problem,
DATA: it_bdcdata TYPE TABLE OF bdcdata,
      wa_it_bdcdata LIKE LINE OF it_bdcdata,
      belnr(10).
belnr = '100'. " Give Document Number here
DATA opt TYPE ctu_params.
CLEAR wa_it_bdcdata.
wa_it_bdcdata-program = 'SAPMM08N'.
wa_it_bdcdata-dynpro   = '100'.
wa_it_bdcdata-dynbegin = 'X'.
APPEND wa_it_bdcdata TO it_bdcdata.
CLEAR wa_it_bdcdata.
wa_it_bdcdata-fnam = 'BDC_CURSOR'.
wa_it_bdcdata-fval = 'SO_BELNR-LOW'.
APPEND wa_it_bdcdata TO it_bdcdata.
CLEAR wa_it_bdcdata.
wa_it_bdcdata-fnam = 'SO_BELNR-LOW'.
wa_it_bdcdata-fval = BELNR.
APPEND wa_it_bdcdata TO it_bdcdata.
CLEAR wa_it_bdcdata.
wa_it_bdcdata-fnam = 'BDC_OKCODE'.
wa_it_bdcdata-fval = '=CRET'.
APPEND wa_it_bdcdata TO it_bdcdata.
opt-dismode = 'E'.
CALL TRANSACTION 'MIR6' USING it_bdcdata OPTIONS FROM opt.
Please Reply if any Issue,
Best Regards,
Faisal

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

Hi,
i'm using this in an report.
SET PARAMETER ID 'BES' FIELD WA_ITAB-EBELN.
SET PARAMETER ID 'BSP' FIELD WA_ITAB-EBELP.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
It works OK.
Is there any parameter ID to go in a sprecial part of an PO, for example
direct to materialdata or konditions?.
thanks.
Regards, Dieter

Hi,
I think u can do that by using BDC as used in this code please refer to this code.
FORM get_user_command USING cr_ucomm     LIKE sy-ucomm      "#EC *
                            cr_selfield TYPE slis_selfield.
CLEAR wa_final.
DATA BEGIN OF bdcdata OCCURS 10.
          INCLUDE STRUCTURE bdcdata.
DATA END OF bdcdata.
CASE cr_ucomm.
    WHEN '&IC1'.
      READ TABLE it_final INTO wa_final
               INDEX cr_selfield-tabindex.
      IF cr_selfield-fieldname = 'MATNR'.
        IF sy-subrc IS INITIAL.
          SET PARAMETER ID 'MXX' FIELD 'E'.
          SET PARAMETER ID 'MAT' FIELD wa_final-matnr.
          SET PARAMETER ID 'WRK' FIELD wa_final-werks.
          CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
        ENDIF.
      ELSEIF cr_selfield-fieldname = 'LIFNR'.
        IF sy-subrc IS INITIAL.
          CLEAR bdcdata.
          bdcdata-program = 'SAPMF02K'.
          bdcdata-dynpro   = '0101'.
          bdcdata-dynbegin = 'X'.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-fnam     = 'RF02K-LIFNR'.
          bdcdata-fval     = wa_final-lifnr.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-fnam     = 'RF02K-EKORG '.
          bdcdata-fval     = wa_final-ekorg.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-fnam     = 'RF02K-D0310'.
          bdcdata-fval     = 'X'.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-fnam     = 'WRF02K-D0320'.
          bdcdata-fval     = 'X'.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-fnam     = 'BDC_OKCODE'.
          bdcdata-fval     = '/00'.
          APPEND bdcdata.
          CLEAR bdcdata.
          bdcdata-program = 'SAPMF02K'.
          bdcdata-dynpro   = '0110'.
          bdcdata-dynbegin = 'X'.
          APPEND bdcdata.
          CALL TRANSACTION 'XK03' USING bdcdata MODE 'E'.
        ENDIF.
      ENDIF.
ENDCASE.
ENDFORM. " get_user_command
regards,
sudha

WEBDAV rules repository not reflecting the changes

WEBDAV rules repository does not reflect the changes unless i restart the application server. i dont have a problem with file repository because i can change the file repository using the link from the BPEL console and the changes are reflected immediately from the very next instance. .
But in case of WEBDAV repository, even if i change the rules , they dont get reflected in any of the further instances unless i restart the server.
Please help on this one.

Another observation is that the entire bpel process(with decisionservice on webdav repository) works even if the webdav server is shut down.
The webdav server needs to be up only for the first instance of the bpel process. After that, even shutting down the webdav server does not effect any further instances and they all run smoothly.
This shows that the decison service builds up some kind of cache on the first call of the decisionservice. Some way to destroy this cache everytime the webdav repository changes will solve the problem.
Any help on this topic is highly appreciated.

Alv grid - call transaction 'ME22N' and reflect the change made in alv grid

Similar Messages

Maybe you are looking for